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

gtk: make TGtkWidgetSet.GetSystemMetrics more safe

Browse Source 
git-svn-id: trunk@12690 -
This commit is contained in:
paul 2007-11-02 08:30:05 +00:00
parent 367e41cd19
commit 2f77419302
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5901,13 +5901,15 @@ begin
end;
SM_CXHSCROLL:
begin
P:=GetStyleWidget(lgsVerticalScrollbar);
Result := GTK_Widget(P)^.requisition.Width;
P := GetStyleWidget(lgsVerticalScrollbar);
if P <> nil then
Result := GTK_Widget(P)^.requisition.Width;
end;
SM_CYHSCROLL:
begin
P:=GetStyleWidget(lgsHorizontalScrollbar);
Result := GTK_Widget(P)^.requisition.Height;
P := GetStyleWidget(lgsHorizontalScrollbar);
if P <> nil then
Result := GTK_Widget(P)^.requisition.Height;
end;
SM_CXHTHUMB:
begin