pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxDBGrid - fix draw themed vertical collumn caption

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2512 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-09-15 19:41:36 +00:00
parent 2ed8374ace
commit ffd4b105f4
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/vclutils.pas
View File

@ -222,8 +222,16 @@ var
L:integer;
begin
L:=Canvas.Font.Orientation;
SetBkMode(Canvas.Handle, TRANSPARENT);
Canvas.Font.Orientation:=RotDegree * 10;
Canvas.TextOut(X, Y, St);
{ DrawText(ACanvas.Handle, PChar(Text), Length(Text), DrawRect,
ALIGN_FLAGS_HEADER[Alignment] or DT_WORDBREAK
);}
Canvas.Font.Orientation:=L;
end;