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

- main menu bar was a bit wide

Browse Source 
git-svn-id: trunk@12908 -
This commit is contained in:
paul 2007-11-17 17:43:10 +00:00
parent f6cf2dcbf9
commit cc2180a5b0
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/win32/win32wsmenus.pp
View File

@ -203,8 +203,7 @@ var
AnsiBuffer: ansistring;
WideBuffer: widestring;
begin
tmpRect.right := 0;
tmpRect.left := 0;
FillChar(tmpRect, SizeOf(tmpRect), 0);
newFont := getMenuItemFont(aDecoration);
oldFont := SelectObject(aHDC, newFont);
{$ifdef WindowsUnicodeSupport}
@ -335,11 +334,13 @@ begin
inc(Result.cx, LeftCaptionPosition(aMenuItem));
if not aMenuItem.IsInMenuBar then
inc(Result.cx, SpaceBetweenIcons);
inc(Result.cx, SpaceBetweenIcons)
else
dec(Result.cx, SpaceBetweenIcons);
if aMenuItem.ShortCut <> scNone then
if (aMenuItem.ShortCut <> scNone) then
Inc(Result.cx, spaceBetweenIcons);
minimumHeight := GetSystemMetrics(SM_CYMENU);
if not aMenuItem.IsInMenuBar then
Dec(minimumHeight, 2);