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

cleanup

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2315 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-02-26 21:06:20 +00:00
parent 50fbeba243
commit ab46c9f782
9 changed files with 285 additions and 238 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/rx/vclutils.pas
View File

@ -219,25 +219,8 @@ end;
procedure RotateLabel(Canvas: TCanvas; x, y: Integer; const St: String; RotDegree: Integer);
var
{ OldFont, NewFont: HFONT;
LogRec: TLOGFONT;
DC: HDC;}
L:integer;
begin
{ with Canvas do
begin
Brush.Style := bsClear;
GetObject(Font.Handle, SizeOf(LogRec), @LogRec);
LogRec.lfEscapement := RotDegree * 10;
LogRec.lfOrientation := 0;
LogRec.lfOutPrecision := OUT_TT_ONLY_PRECIS;
NewFont := CreateFontIndirect(LogRec);
DC := Handle;
end;
OldFont := SelectObject(DC, NewFont);
TextOut(DC, X, Y, @St[1], Length(St));
DeleteObject(SelectObject(DC, OldFont));}
L:=Canvas.Font.Orientation;
Canvas.Font.Orientation:=RotDegree * 10;
Canvas.TextOut(X, Y, St);