Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.95 by h677, Tue Oct 7 14:06:16 2003 UTC revision 1.96 by yoffy, Tue Oct 7 17:09:26 2003 UTC
# Line 796  type Line 796  type
796      procedure OnlyAHundredResExecute(Sender: TObject);      procedure OnlyAHundredResExecute(Sender: TObject);
797      procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,      procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
798        Y: Integer);        Y: Integer);
799        procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
800          var Handled: Boolean);
801        procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
802          var Handled: Boolean);
803        procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
804          var Handled: Boolean);
805          private          private
806                  { Private 宣言 }                  { Private 宣言 }
807    
# Line 8173  begin Line 8179  begin
8179    
8180  end;  end;
8181    
8182    procedure TGikoForm.ListCoolBarContextPopup(Sender: TObject;
8183      MousePos: TPoint; var Handled: Boolean);
8184    begin
8185    
8186            MousePos := ListCoolBar.ClientToScreen( MousePos );
8187            MainCoolBarPopupMenu.Popup( MousePos.X, MousePos.Y );
8188    
8189    end;
8190    
8191    procedure TGikoForm.MainCoolBarContextPopup(Sender: TObject;
8192      MousePos: TPoint; var Handled: Boolean);
8193    begin
8194    
8195            MousePos := MainCoolBar.ClientToScreen( MousePos );
8196            MainCoolBarPopupMenu.Popup( MousePos.X, MousePos.Y );
8197    
8198    end;
8199    
8200    procedure TGikoForm.BrowserCoolBarContextPopup(Sender: TObject;
8201      MousePos: TPoint; var Handled: Boolean);
8202    begin
8203    
8204            MousePos := BrowserCoolBar.ClientToScreen( MousePos );
8205            MainCoolBarPopupMenu.Popup( MousePos.X, MousePos.Y );
8206    
8207    end;
8208    
8209  initialization  initialization
8210                                  OleInitialize(nil);                                  OleInitialize(nil);
8211  finalization  finalization

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26