Login | Register
My pages Projects Community openCollabNet

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

delphiaddinfortortoisesvn
Discussion topic

Back to topic list

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

Author otto_noll
Full name Otto Noll
Date 2008-12-19 08:21:34 PST
Message Author: otto_noll
Date: 2008-12-19 08:21:34-0800
New Revision: 25

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

Log:
Add procedure TTortoiseSVN.CheckOn_Popup( sender: TObject)

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​=25&r1=24&r2​=25
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2008-12-19 08:21:34-0800
@@ -38,6 +38,7 @@
     procedure ExecuteAction( sender: TObject );
     procedure ExecuteClick( sender: TObject );
     procedure CreatePopupMenu;
+ procedure CheckOn_Popup( sender: TObject );
     function SaveForegroundEditor​File():Boolean;
 public
     constructor Create;
@@ -252,6 +253,17 @@
     end;
 end;
 
+procedure TTortoiseSVN.CheckOn_Popup( sender: TObject);
+var
+ popup: TPopupMenu;
+ submenu:TMenuItem;
+ files: TStringList;
+begin
+ popup:= sender as TPopupMenu;
+ submenu := popup.FindComponent(​'TortoiseSVN_popmenu​') as TMenuItem;
+ files:= TStringList.create;
+end;
+
 
 
 destructor TTortoiseSVN.Destroy;

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

Messages

Show all messages in topic

svn commit: r25 - branches/SOPTIM/src/tsvnWizard.pas otto_noll Otto Noll 2008-12-19 08:21:34 PST
Messages per page: