Login | Register
My pages Projects Community openCollabNet

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

delphiaddinfortortoisesvn
Discussion topic

Hide all messages in topic

All messages in topic

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

Author otto_noll
Full name Otto Noll
Date 2008-12-19 09:17:37 PST
Message Author: otto_noll
Date: 2008-12-19 09:17:36-0800
New Revision: 28

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

Log:
Edit procedure TTortoiseSVN.CreatePopupMenu
MItem now has a name so it can be identified by the FindComponent function
and
PMenu now has an Action event on Popup

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​=28&r1=27&r2​=28
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2008-12-19 09:17:36-0800
@@ -194,11 +194,14 @@
         if PMenu <> nil then
         begin
           MItem := TMenuItem.Create(PMenu);
+ MItem.Name := 'TortoiseSVN_popmenu';
           MItem.Caption := 'TortoiseSVN';
           MItem.Visible := True;
           PMenu.Items.Add(MItem);
         end;
       end;
+ PMenu.OnPopup := CheckOn_Popup;
+ end;
     end;
 end;
Messages per page: