ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/Template.pas
(Generate patch)

Comparing oup/rewrite/Tools/Template.pas (file contents):
Revision 105 by alloc, Wed Feb 21 00:29:27 2007 UTC vs.
Revision 106 by alloc, Wed Feb 21 03:09:30 2007 UTC

# Line 40 | Line 40 | type
40      Label3: TLabel;
41      combo_connection: TComboBox;
42      Bevel1: TBevel;
43 +    popup_linkshere: TMenuItem;
44 +    popup_separator2: TMenuItem;
45      procedure RecreateExtList;
46      procedure UpdateConList;
47      procedure LoadFileNames;
# Line 61 | Line 63 | type
63      procedure btn_sortClick(Sender: TObject);
64      procedure FormActivate(Sender: TObject);
65      procedure combo_connectionChange(Sender: TObject);
66 +    procedure popup_linkshereClick(Sender: TObject);
67    private
68      FSortBy: TSortType;
69      FOnNewFileSelected: TNewFileSelectedEvent;
# Line 93 | Line 96 | procedure AddToolListEntry(context, name
96  
97   implementation
98   {$R *.dfm}
99 < uses Main, ConnectionManager, Exporters, Functions;
99 > uses Main, ConnectionManager, Exporters, Functions, WhatLinksHere;
100  
101  
102   procedure TForm_ToolTemplate.UpdateConList;
# Line 257 | Line 260 | begin
260    end;
261   end;
262  
263 + procedure TForm_ToolTemplate.popup_linkshereClick(Sender: TObject);
264 + begin
265 +  Form_WhatLinksHere.ConID := FConnectionID;
266 +  Form_WhatLinksHere.FileID := FSelectedFile.ID;
267 +  Form_WhatLinksHere.SenderForm := Self;
268 +  Form_WhatLinksHere.Show;
269 + end;
270 +
271   procedure TForm_ToolTemplate.popup_opentool(Sender: TObject);
272   var
273    sender_name, context: String;
# Line 334 | Line 345 | begin
345        if Pos(ext, ToolList[i].exts) = 0 then
346          filepopup.Items.Items[i].Enabled := False;
347    end;
348 +  filepopup.Items.Find('What links here?').Enabled :=
349 +      ConManager.Connection[FConnectionID].Backend = DB_ADB;
350   end;
351  
352   procedure TForm_ToolTemplate.check_zerobyteClick(Sender: TObject);
# Line 385 | Line 398 | var
398   begin
399    pt.X := x;
400    pt.Y := y;
401 < //  filelist.ItemIndex := filelist.ItemAtPos(pt, true);
402 < //  Self.listClick(Self);
401 >  if Shift = [ssRight] then
402 >  begin
403 >    filelist.ItemIndex := filelist.ItemAtPos(pt, true);
404 >    Self.listClick(Self);
405 >  end;
406   end;
407  
408  

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)