On Fri, 6 Oct 2000, Paul Lowman wrote:
> I am currently having problems with angled text. As said already they need
> to be truetype fonts but that aside I cannot show angled text if my S3 Trio
> 3D-2X (%$@%$^%#$@$%#$%#$#&$) is not set to 16 bit color / no hardware
> acceleration - figure that one out !!!!!!!!!!!!
How are you guys doing your angled text? I use the following routine and
it seems to work fine with no problems for me:
// Carlos Alberto Longen ([EMAIL PROTECTED])
procedure TextOutAngled ( Canvas: TCanvas; iCoordX,
iCoordY: integer; const sString: string; iAngle, iSize: integer );
var
oLogFont: TLogFont;
SaveFont: TFont;
begin
SaveFont := TFont.Create;
SaveFont.Assign( Canvas.Font);
GetObject(SaveFont.Handle, sizeof(TLogFont), @oLogFont);
with oLogFont do
begin
lfHeight := iSize;
lfEscapement := iAngle * 10;
lfQuality := PROOF_QUALITY;
lfPitchAndFamily := DEFAULT_PITCH or FF_DONTCARE;
end;
with Canvas do
begin
Font.Handle := CreateFontIndirect ( oLogFont );
SetBkMode ( Handle, TRANSPARENT );
TextOut(iCoordX, iCoordY, sString );
Font.Assign ( SaveFont );
end;
SaveFont.Free;
end;
--
"We don't guarantee anything except that it will take up disk space..."
Apache 2.0alpha5 Disclaimer
Now Playing: <no audio cd present>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
