Piet, Here's something that came through one of the Delphi lists in some time back:
// // Text Rotation from Delphi Programming Problem Solver, Neil Rubenking, p297 // // True Type fonts have the property lfEscapement that controls angle that font is drawn // procedure MyRotatePrint (CV: TCanvas; sText: String; X, Y, Angle: integer; colour:TColor; isBold,isItalic:boolean); var LogFont : TLogFont; oldFont:TFont; // font must be trueType for rotation begin GetObject(CV.Font.Handle, SizeOf(TLogFont), @LogFont); oldFont:=cv.font; LogFont.lfEscapement := Angle*10; if isBold then LogFont.lfWeight:=FW_Bold; if isItalic then logFont.lfItalic:=1 else logFont.lfItalic:=0; CV.Font.Handle := CreateFontIndirect(LogFont); CV.Font.Color:=colour; CV.TextOut(X, Y, sText); cv.font:=oldFont; end; HTH, Glenn Lawler On Monday, August 08, 2005 3:33 PM, Piet Henning [SMTP:[EMAIL PROTECTED] wrote: > Dear all helpers, > I have the folowing code: > image1.Bitmap.Canvas.TextOut(10,100,Text2.Text); > Is there a way to write the text at an angle? > Thanks > Piet > > > > > ----------------------------------------------------- > Home page: http://groups.yahoo.com/group/delphi-en/ > To unsubscribe: [EMAIL PROTECTED] > Yahoo! Groups Links > > > > > > > ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12h6kkgjs/M=362335.6886445.7839731.1510227/D=groups/S=1705115362:TM/Y=YAHOO/EXP=1123541359/A=2894361/R=0/SIG=13jmebhbo/*http://www.networkforgood.org/topics/education/digitaldivide/?source=YAHOO&cmpgn=GRP&RTP=http://groups.yahoo.com/";>In low income neighborhoods, 84% do not own computers. At Network for Good, help bridge the Digital Divide!</a>.</font> --------------------------------------------------------------------~-> ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/delphi-en/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
