paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-22 12:42:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

rx: fix for 64bit from Alexs

Browse Source 
git-svn-id: trunk@16350 -
This commit is contained in:
paul 2008-09-01 12:20:59 +00:00
parent 626b5f317d
commit 751f2ae42a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/mrulist.pp
View File

@ -29,7 +29,7 @@ type
const Section: string; Index: Integer; const RecentName: string; const Section: string; Index: Integer; const RecentName: string;
UserData: Longint) of object; UserData: Longint) of object;
TClickMenuEvent = procedure (Sender: TObject; const RecentName, TClickMenuEvent = procedure (Sender: TObject; const RecentName,
ACaption: string; UserData: Longint) of object; ACaption: string; UserData: PtrInt) of object;
TAccelDelimiter = (adTab, adSpace); TAccelDelimiter = (adTab, adSpace);
TRecentMode = (rmInsert, rmAppend); TRecentMode = (rmInsert, rmAppend);
@ -81,7 +81,7 @@ type
const RecentName: string; UserData: Longint); dynamic; const RecentName: string; UserData: Longint); dynamic;
procedure GetItemData(var Caption: string; var ShortCut: TShortCut; procedure GetItemData(var Caption: string; var ShortCut: TShortCut;
UserData: Longint); dynamic; UserData: Longint); dynamic;
procedure DoClick(const RecentName, Caption: string; UserData: Longint); dynamic; procedure DoClick(const RecentName, Caption: string; UserData: PtrInt); dynamic;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -186,7 +186,7 @@ begin
if Assigned(FOnGetItem) then FOnGetItem(Self, Caption, ShortCut, UserData); if Assigned(FOnGetItem) then FOnGetItem(Self, Caption, ShortCut, UserData);
end; end;
procedure TMRUManager.DoClick(const RecentName, Caption: string; UserData: Longint); procedure TMRUManager.DoClick(const RecentName, Caption: string; UserData: PtrInt);
begin begin
if Assigned(FOnClick) then FOnClick(Self, RecentName, Caption, UserData); if Assigned(FOnClick) then FOnClick(Self, RecentName, Caption, UserData);
end; end;
@ -199,7 +199,7 @@ begin
I := TMenuItem(Sender).Tag; I := TMenuItem(Sender).Tag;
if (I >= 0) and (I < FList.Count) then if (I >= 0) and (I < FList.Count) then
try try
DoClick(FList[I], TMenuItem(Sender).Caption, Longint(FList.Objects[I])); DoClick(FList[I], TMenuItem(Sender).Caption, PtrInt(FList.Objects[I]));
finally finally
if RemoveOnSelect then Remove(FList[I]); if RemoveOnSelect then Remove(FList[I]);
end; end;