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

2
components/rx/rxdbgrid.pas
View File

@ -1643,7 +1643,7 @@ begin
begin begin
if rxTit.Orientation in [toVertical270, toVertical90] then if rxTit.Orientation in [toVertical270, toVertical90] then
H := Max((tmpCanvas.TextWidth(Columns[i].Title.Caption) + H := Max((tmpCanvas.TextWidth(Columns[i].Title.Caption) +
tmpCanvas.TextWidth('W')) div DefaultRowHeight, H) tmpCanvas.TextWidth('W')*2) div DefaultRowHeight, H)
else else
begin begin
rxColNext := nil; rxColNext := nil;

8
components/rx/vclutils.pas
View File

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