paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-19 09:42:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, make sure bands titles have the right orientation

Browse Source 
git-svn-id: trunk@33228 -
This commit is contained in:
jesus 2011-11-02 19:55:09 +00:00
parent ce604f82d7
commit d872413a9f
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazreport/source/lr_class.pas
View File

@ -3683,7 +3683,6 @@ end;
procedure TfrBandView.Draw(aCanvas: TCanvas); procedure TfrBandView.Draw(aCanvas: TCanvas);
var var
h, oldh: HFont;
St : String; St : String;
R : TRect; R : TRect;
begin begin
@ -3731,12 +3730,9 @@ begin
MoveTo(r.left, r.Bottom-1); LineTo(r.right, r.Bottom-1); MoveTo(r.left, r.Bottom-1); LineTo(r.right, r.Bottom-1);
Pen.Color := clBtnHighlight; Pen.Color := clBtnHighlight;
MoveTo(r.left, r.bottom-1); lineto(r.left, r.top); MoveTo(r.left, r.bottom-1); lineto(r.left, r.top);
h := Create90Font(Font); Font.Orientation := 900;
oldh := SelectObject(Handle, h);
Brush.Color:=clBtnFace; Brush.Color:=clBtnFace;
TextOut(r.Left + 3, r.bottom-6, frBandNames[BandType]); TextOut(r.Left + 3, r.bottom-6, frBandNames[BandType]);
SelectObject(Handle, oldh);
DeleteObject(h);
end end
else else
begin begin
@ -3747,6 +3743,7 @@ begin
MoveTo(r.Right-1, r.Top); MoveTo(r.Right-1, r.Top);
LineTo(r.Right-1, r.Bottom); LineTo(r.Right-1, r.Bottom);
st:=frBandNames[BandType]; st:=frBandNames[BandType];
Font.Orientation := 0;
Brush.Color:=clBtnFace; Brush.Color:=clBtnFace;
TextOut(r.left+5, r.top+1, frBandNames[BandType]); TextOut(r.left+5, r.top+1, frBandNames[BandType]);
end; end;
@ -3756,15 +3753,13 @@ begin
Brush.Style := bsClear; Brush.Style := bsClear;
if BandType in [btCrossHeader..btCrossFooter] then if BandType in [btCrossHeader..btCrossFooter] then
begin begin
h := Create90Font(Font); Font.Orientation := 900;
oldh := SelectObject(Handle, h);
Brush.Color:=clBtnFace; Brush.Color:=clBtnFace;
TextOut(x + 2, r.bottom-6, frBandNames[BandType]); TextOut(x + 2, r.bottom-6, frBandNames[BandType]);
SelectObject(Handle, oldh);
DeleteObject(h);
end end
else else
begin begin
Font.Orientation := 0;
Brush.Color:=clBtnFace; Brush.Color:=clBtnFace;
TextOut(x + 4, y + 2, frBandNames[BandType]); TextOut(x + 4, y + 2, frBandNames[BandType]);
end; end;