Thanks very much. It works. ----- Original Message ----- From: "Glenn B. Lawler" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Monday, June 27, 2005 5:30 PM Subject: RE: [delphi-en] vertical Text
> On Monday, June 27, 2005 9:24 AM, Mauro Russo [SMTP:[EMAIL PROTECTED] wrote: > > How to write vertical Text on a canvas? > > This was posted in one of the Delphi lists some time back. I have not > tried it, but see if this works for you. > > Glenn Lawler > > procedure TForm1.Button1Click(Sender: TObject); > var > lf : TLogFont; > tf : TFont; > begin > with Form1.Canvas do begin > Font.Name := 'Arial'; > Font.Size := 24; > tf := TFont.Create; > try > tf.Assign(Font); > GetObject(tf.Handle, sizeof(lf), @lf); > lf.lfEscapement := 450; > lf.lfOrientation := 450; > tf.Handle := CreateFontIndirect(lf); > Font.Assign(tf); > finally > tf.Free; > end; > TextOut(20, Height div 2, 'Rotated Text!'); > end; > end; > > > > ----------------------------------------------------- > Home page: http://groups.yahoo.com/group/delphi-en/ > To unsubscribe: [EMAIL PROTECTED] > Yahoo! Groups Links > > > > > > > ----------------------------------------------------- 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/
