Develop and Download Open Source Software
Login
Create Account
Help
MY OSDN
Find Software
Magazine
Develop
Pastebin
Software
People
PersonalForge
Magazine
Wiki
OSDN
>
Find Software
>
ギコナビ(避難所版)
ギコナビ(避難所版)
Summary
Project Summary
Developer Dashboard
Project Reviews
Web Page
Developers
List of RSS Feeds
Statistics
History
Image Gallery
Search Keywords
News
Listed News
Help
Downloads
List of Releases
Help
Source Code
Guide
Browse CVS
Browse Git: gikonavi
Help
Wiki
FrontPage
Title index
Recent changes
Wiki Search
Help
Forums
List of Forums
Open Discussion (2)
Help (1)
Developers (1)
Help
Mailing Lists
list of ML
Help
Ticket
Ticket List
Milestone List
Type List
Component List
List of frequently used tickets/RSS
Submit New Ticket
Help
Browse CVS Repository
/
[OSDN]
/
gikonavigoeson
/
gikonavi
/
Giko.pas
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
|
Revision Log
|
Revision Graph
|
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
Colored Diff
Long Colored Diff
Full Colored Diff
Unidiff
Context Diff
Side by Side
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