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

gtk2: fixed compilation 64bit

Browse Source 
git-svn-id: trunk@36027 -
This commit is contained in:
mattias 2012-03-15 11:16:08 +00:00
parent 243b6475c1
commit adc78811ad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2wsspin.pp
View File

@ -247,7 +247,7 @@ begin
S := FloatToStr(FL);
P := StrNew(PChar(S));
g_object_set_data(PGObject(SpinButton),'lcl-eat-next-key-release', P);
g_object_set_data(PGObject(SpinButton),'lcl-eat-next-key-release-pos', TObject(ACurPos));
g_object_set_data(PGObject(SpinButton),'lcl-eat-next-key-release-pos', gpointer(ACurPos));
Result := True;
end;
end;