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

anchordocking: vertical caption

Browse Source 
git-svn-id: trunk@41915 -
This commit is contained in:
mattias 2013-06-27 07:29:43 +00:00
parent a411d10198
commit 605809f549
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/anchordocking/anchordocking.pas
View File

@ -5036,12 +5036,15 @@ begin
if Align in [alLeft,alRight] then begin if Align in [alLeft,alRight] then begin
// vertical // vertical
dx:=Max(0,(r.Right-r.Left-TxtH) div 2); dx:=Max(0,(r.Right-r.Left-TxtH) div 2);
{$IFDEF LCLWin32}
dec(dx,2);
{$ENDIF}
dy:=Max(0,(r.Bottom-r.Top-TxtW) div 2); dy:=Max(0,(r.Bottom-r.Top-TxtW) div 2);
Canvas.Font.Orientation:=900; Canvas.Font.Orientation:=900;
if TxtW<(r.Bottom-r.Top)then if TxtW<(r.Bottom-r.Top)then
begin begin
// text fits // text fits
Canvas.TextOut(r.Left+dx-3,r.Bottom-dy,Caption); Canvas.TextOut(r.Left+dx-1,r.Bottom-dy,Caption);
DrawADHeader(Canvas,DockMaster.HeaderStyle,Rect(r.Left,r.Top,r.Right,r.Bottom-dy-TxtW-1),false); DrawADHeader(Canvas,DockMaster.HeaderStyle,Rect(r.Left,r.Top,r.Right,r.Bottom-dy-TxtW-1),false);
DrawADHeader(Canvas,DockMaster.HeaderStyle,Rect(r.Left,r.Bottom-dy+1,r.Right,r.Bottom),false); DrawADHeader(Canvas,DockMaster.HeaderStyle,Rect(r.Left,r.Bottom-dy+1,r.Right,r.Bottom),false);
end else begin end else begin