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

lcl: gtk2: comments

Browse Source
This commit is contained in:
mattias 2023-03-21 15:51:56 +01:00
parent 6a180f5389
commit 01dbdf31c0
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -2700,7 +2700,8 @@ begin
gdk_window_get_size(AWindow, @AW, @AH);
FCachedTitleBarHeight := ARect.Height - AH - 1;
FCachedBorderSize := (ARect.Width - AW) div 2;
Result := ARect.Height - AH - 1;
//debugln(['TGtk2WidgetSet.GetTitleBarHeight ',dbgs(ARect),' AW=',AW,' AH=',AH]);
Result := FCachedTitleBarHeight;
break;
end;
end;

6
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -5850,10 +5850,10 @@ begin
begin
//DebugLn('Trace:TODO: [TGtk2WidgetSet.GetSystemMetrics] --> SM_CYSIZE ');
end;
SM_CXSIZEFRAME,
SM_CYSIZEFRAME:
SM_CXSIZEFRAME, // same as SM_CXFRAME
SM_CYSIZEFRAME: // same as SM_CYFRAME
begin
Result := FCachedBorderSize;
Result := Max(FCachedBorderSize, 0);
end;
SM_CXSMICON,
SM_CYSMICON: