Центрирование повернутого текста

← →
AenorRisen © (2008-06-15 17:57) [0]

Здравствуйте!

← →
AenorRisen © (2008-06-15 18:01) [1]

Есть такая ситуация: необходимо выводить повернутый текст на TCanvas, но с одним условием - он должен центрироваться (планируется анимация), т.е. должны смешаться координаты x и y начала текста с определенной системой. Помогите написать алгоритм вычисления x и y в зависимости от размеров Canvas и размера шрифта.

← →
antonn © (2008-06-15 18:07) [2]

а как он выводится повернутым?

Function OSAL_GetTextSize(const Text:string):TPoint;
{$ifdef win32}
var
Size:TSize;
begin
GetTextExtentPoint32(h_Dc,PChar(Text),Length(Text),Size);
Result.x:=Size.cx;
Result.y:=Size.cy;
end;
{$else}
var
direction, ascent, descent:integer;
XCharStruct:TXCharStruct;
begin
if CurrentFont<>nil then
XTextExtents(CurrentFont,PChar(Text),Length(Text),@direction, @ascent, @descent,@XCharStruct);
Result.x:=XCharStruct.width;
Result.y:=ascent + descent;
end;
{$endif}

Центрирование повернутого текста Найти похожие ветки