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

rx component: fixed compilation on 64 bits cpu

Browse Source 
git-svn-id: trunk@14778 -
This commit is contained in:
vincents 2008-04-07 13:39:55 +00:00
parent ef62bac367
commit 908e051af0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/mrulist.pp
View File

@ -271,7 +271,7 @@ end;
procedure TMRUManager.Add(const RecentName: string; UserData: Longint);
begin
FList.AddObject(RecentName, TObject(UserData));
FList.AddObject(RecentName, TObject(PtrInt(UserData)));
end;
procedure TMRUManager.Clear;
@ -359,7 +359,7 @@ begin
AddMenuItem(NewLine);
S := FList[I];
ShortCut := scNone;
GetItemData(S, ShortCut, Longint(FList.Objects[I]));
GetItemData(S, ShortCut, Longint(PtrInt(FList.Objects[I])));
Item := NewItem(GetShortHint(S), ShortCut, False, True,
@MenuItemClick, 0, '');
Item.Hint := GetLongHint(S);
@ -495,7 +495,7 @@ var
begin
Ini.EraseSection(Section);
for I := 0 to FList.Count - 1 do
DoWriteItem(Ini, Section, I, FList[I], Longint(FList.Objects[I]));
DoWriteItem(Ini, Section, I, FList[I], Longint(PtrInt(FList.Objects[I])));
end;
procedure TMRUManager.LoadFromIni(Ini: TCustomIniFile; const Section: string);