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

draw dock header with rotated font (in case of vertical header)

Browse Source 
git-svn-id: trunk@14007 -
This commit is contained in:
paul 2008-02-06 23:57:08 +00:00
parent 0b69fd9a95
commit 6c623426f8
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/ldocktree.pas
View File

@ -31,11 +31,7 @@ interface
uses
Types, Classes, SysUtils, LCLProc, LCLType, LCLStrConsts,
Graphics, Controls, ExtCtrls, Forms, Menus, Themes
{$IFDEF VER2_0}
// needed for 2.0.4
,LCLIntf
{$ENDIF};
Graphics, Controls, ExtCtrls, Forms, Menus, Themes, LCLIntf;
type
TLazDockPages = class;
@ -648,10 +644,12 @@ var
d: integer;
DockCaption: String;
TextStyle: TTextStyle;
// LCL dont handle orientation in TFont
OldFont, RotatedFont: HFONT;
ALogFont: TLogFont;
begin
DockCaption := DockSite.GetDockCaption(AControl);
TextStyle.Alignment := taLeftJustify;
TextStyle.Layout := tlCenter;
TextStyle.SingleLine := True;
TextStyle.Clipping := True;
TextStyle.Opaque := False;
@ -667,6 +665,7 @@ begin
case AControl.DockOrientation of
doHorizontal:
begin
TextStyle.Layout := tlCenter;
d := DrawRect.Bottom - DrawRect.Top;
BtnRect := DrawRect;
BtnRect.Left := BtnRect.Right - d;
@ -687,6 +686,7 @@ begin
end;
doVertical:
begin
TextStyle.Layout := tlBottom;
d := DrawRect.Right - DrawRect.Left;
BtnRect := DrawRect;
BtnRect.Bottom := BtnRect.Top + d;
@ -703,7 +703,17 @@ begin
DrawRect.Top := BtnRect.Bottom;
InflateRect(DrawRect, 0, -4);
OldFont := 0;
if GetObject(ACanvas.Font.Reference.Handle, SizeOf(ALogFont), @ALogFont) <> 0 then
begin
ALogFont.lfEscapement := 900;
RotatedFont := CreateFontIndirect(ALogFont);
if RotatedFont <> 0 then
OldFont := SelectObject(ACanvas.Handle, RotatedFont);
end;
ACanvas.TextRect(DrawRect, DrawRect.Left, DrawRect.Bottom, DockCaption, TextStyle);
if OldFont <> 0 then
DeleteObject(SelectObject(ACanvas.Handle, OldFont));
end;
end;
end;