Hi all,
can someone see where I am going wrong here (the text is not being
rotated)...
// Grab a copy of the font information based on the original font
information
if GetObject(bmpImage.Canvas.Font.Handle, sizeof(typLogFont),
@typLogFont) <> 0 then begin
// Change the rotation.
typLogFont.lfEscapement := 1800;
typLogFont.lfOrientation := 1800;
// Create the new font object
hndNewFont := CreateFontIndirect(typLogFont);
// Replace the handle of the old font object with the new one
bmpImage.Canvas.Font.Handle := hndNewFont;
// Write it out to the canvas
bmpImage.Canvas.TextOut(lngX, lngY, strLabel);
// Cleanup
DeleteObject(hndNewFont);
end;
Cheers
Tony Sinclair
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
