paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 22:32:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn: Minor improvement for the tab close button positioning, makes it a little upper in the selected tab to make it fit better into the selection, also fixes its shape

Browse Source 
git-svn-id: trunk@33574 -
This commit is contained in:
sekelsenmat 2011-11-17 08:14:34 +00:00
parent 476d582ba7
commit 0af846accb
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/customdrawn/customdrawn_common.pas
View File

@ -220,7 +220,11 @@ begin
-GetMeasures(TCDCTABCONTROL_CLOSE_TAB_BUTTON_WIDTH)
-GetMeasures(TCDCTABCONTROL_CLOSE_TAB_BUTTON_EXTRA_SPACING);
end;
TCDCTABCONTROL_CLOSE_BUTTON_POS_Y: Result := 10;
TCDCTABCONTROL_CLOSE_BUTTON_POS_Y:
begin
if ATabsStateEx.TabIndex = ATabsStateEx.CurTabIndex then Result := 8
else Result := 10;
end;
else
Result := 0;
end;
@ -488,7 +492,7 @@ begin
ADest.Pen.Color := clGray;
ADest.Pen.Width := 4;
ADest.Line(ADestPos.X, ADestPos.Y, ADestPos.X+10, ADestPos.Y+10);
ADest.Line(ADestPos.X+10, ADestPos.Y, ADestPos.X, ADestPos.Y+10);
ADest.Line(ADestPos.X+9, ADestPos.Y, ADestPos.X-1, ADestPos.Y+10);
ADest.Pen.Width := 1;
end;