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

fixed gtk2 compilation.

Browse Source 
git-svn-id: trunk@7907 -
This commit is contained in:
vincents 2005-10-04 13:30:58 +00:00
parent 7de4dd1e7e
commit 052c7ffeff
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -8241,7 +8241,7 @@ begin
then begin
if (ScrollInfo.fMask and SIF_RANGE) <> 0
then gtk_layout_set_size(Layout, ScrollInfo.nMax - ScrollInfo.nMin, Layout^.height);
Result := Layout^.xoffset;
Result := round(Layout^.hadjustment^.value);
end;
end
// obsolete stuff
@ -8267,7 +8267,7 @@ begin
then begin
if (ScrollInfo.fMask and SIF_RANGE) <> 0
then gtk_layout_set_size(Layout, Layout^.Width, ScrollInfo.nMax - ScrollInfo.nMin);
Result := Layout^.yoffset;
Result := round(Layout^.vadjustment^.value);
end;
end
// obsolete stuff