Login | Register
My pages Projects Community openCollabNet

Discussions > commits > svn commit: r31 - branches/SOPTIM/src/tsvnWizard.pas

delphiaddinfortortoisesvn
Discussion topic

Back to topic list

svn commit: r31 - branches/SOPTIM/src/tsvnWizard.pas

Author otto_noll
Full name Otto Noll
Date 2008-12-19 09:31:48 PST
Message Author: otto_noll
Date: 2008-12-19 09:31:48-0800
New Revision: 31

Modified:
   branches/SOPTIM/src/​tsvnWizard.pas

Log:
Add Tortoise About to the Popup Menu

Modified: branches/SOPTIM/src/​tsvnWizard.pas
Url: http://delphiaddinfo​rtortoisesvn.tigris.​org/source/browse/de​lphiaddinfortortoise​svn/branches/SOPTIM/​src/tsvnWizard.pas?v​iew=diff&pathrev​=31&r1=30&r2​=31
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2008-12-19 09:31:48-0800
@@ -183,7 +183,9 @@
 var
     I: Integer;
     PMenu: TPopupMenu;
- MItem: TMenuItem;
+ MItem,item: TMenuItem;
+ J: ESVNFeature;
+ bmp: TBitmap;
 begin
     for I := 0 to Screen.FormCount - 1 do
     begin
@@ -198,6 +200,24 @@
           MItem.Caption := 'TortoiseSVN';
           MItem.Visible := True;
           PMenu.Items.Add(MItem);
+ //Creating Submenu of the Popupmenu
+ for J:= SVN_About to SVN_About do begin
+ bmp:= TBitmap.create;
+ try
+ bmp.LoadFromResourceName( HInstance, getBitmapName(J) );
+ except end;
+ item:= TMenuItem.Create(MItem);
+ item.Name := 'ESVNFeature_'+intto​str(ord(J));
+ item.Enabled := false;
+ item.Caption:= getVerb(J);
+ item.Hint:= getVerb(J);
+ item.Tag := ord(J);
+ item.OnClick := executeClick;
+ if (bmp.Width = 16) and (bmp.height = 16) then
+ item.ImageIndex := PMenu.Images.AddMask​ed(bmp,clBlack);
+ bmp.free;
+ MItem.add(item);
+ end;
         end;
         PMenu.OnPopup := CheckOn_Popup;
       end;
@@ -213,6 +233,7 @@
     popup:= sender as TPopupMenu;
     submenu := popup.FindComponent(​'TortoiseSVN_popmenu​') as TMenuItem;
     files:= TStringList.create;
+ (submenu.FindCompone​nt('ESVNFeature_'+in​ttostr(ord(SVN_About​))) as TMenuItem).Enabled := true;
 end;

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

svn commit: r31 - branches/SOPTIM/src/tsvnWizard.pas otto_noll Otto Noll 2008-12-19 09:31:48 PST
Messages per page: