paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-25 22:36:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Patch from bug #21707 to improve TCDPageControl close button positioning

Browse Source 
git-svn-id: trunk@36725 -
This commit is contained in:
sekelsenmat 2012-04-11 11:11:59 +00:00
parent 2039c21296
commit 0fd34987dd
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/customdrawn_common.pas
View File

@ -210,7 +210,7 @@ const
var var
ATabsStateEx: TCDCTabControlStateEx absolute AStateEx; ATabsStateEx: TCDCTabControlStateEx absolute AStateEx;
lCaption: String; lCaption: String;
lTabWidth, i: Integer; lTabWidth, i, t: Integer;
IsPainting: Boolean = False; IsPainting: Boolean = False;
begin begin
ADest.Font.Assign(AStateEx.Font); ADest.Font.Assign(AStateEx.Font);
@ -241,7 +241,12 @@ begin
if i = ATabsStateEx.LeftmostTabVisibleIndex then IsPainting := True; if i = ATabsStateEx.LeftmostTabVisibleIndex then IsPainting := True;
if IsPainting then if IsPainting then
begin
t := ATabsStateEx.CurTabIndex;
ATabsStateEx.CurTabIndex := i;
Result := Result + GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_WIDTH, AState, AStateEx); Result := Result + GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_WIDTH, AState, AStateEx);
ATabsStateEx.CurTabIndex := t;
end;
end; end;
end; end;
TCDCTABCONTROL_CLOSE_BUTTON_POS_X: TCDCTABCONTROL_CLOSE_BUTTON_POS_X: