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

win32: correct vista menu bar drawing when there is only one menu item

Browse Source 
git-svn-id: trunk@21932 -
This commit is contained in:
paul 2009-10-01 01:55:55 +00:00
parent 9863a149d8
commit 76f7d9f596
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -554,19 +554,30 @@ begin
if IsRightToLeft then
begin
BGRect.Left := (Info.rcBar.Left - WndRect.Left);
inc(BGRect.Right, 2);
BGClip.Left := BGRect.Left;
if AMenuItem.MenuVisibleIndex = 0 then
begin
BGRect.Right := (Info.rcBar.Right - WndRect.Left);
BGClip.Right := BGRect.Right;
end
else
inc(BGRect.Right, 2);
end
else
begin
BGRect.Right := (Info.rcBar.Right - WndRect.Left);
dec(BGRect.Left, 2);
BGClip.Right := BGRect.Right;
if AMenuItem.MenuVisibleIndex = 0 then
begin
BGRect.Left := (Info.rcBar.Left - WndRect.Left);
BGClip.Left := BGRect.Left;
end
else
dec(BGRect.Left, 2);
end;
end
else
begin
BGRect := ARect;
if AMenuItem.MenuVisibleIndex > 0 then
begin
if IsRightToLeft then