GetTextExtentPoint

← →
GanibalLector © (2004-11-26 02:23) [0]

Разбираюсь с ф-цией GetTextExtentPoint.Так вот,предположим мне нужно вычислить высоту\ширину некоторого текста.
Делаю так :
var I: Integer;Buffer: array[0..51] of Char;QQ:TSize; begin for I := 0 to 25 do Buffer[I] := Chr(I + Ord("A")); for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord("a")); GetTextExtentPoint(Form1.Canvas.Handle, Buffer, 52, QQ); Memo1.Lines.Add(inttostr(QQ.cx)); Memo1.Lines.Add(inttostr(QQ.cy));
Тут все понятно.Дальше...предположим мне необходимо вычислить высоту\ширину некоторого текста на TPanel,которая имеет Font отличный от TForm.И что же делать???Ведь TPanel канваса не имеет !!! Насколько я понимаю,необходимо TForm присвоить Font моей TPanel,потом вызвать GetTextExtentPoint,а затем обратно форме присвоить свой Font. Прав ли я? ИМХО,довольно муторно...

← →
GanibalLector © (2004-11-26 02:26) [1]

И еще
GetTextExtentPoint is provided for compatibility with 16-bit versions of Windows. Win32-based applications should call the GetTextExtentPoint32 function, which provides more accurate results.

Но ведь и GetTextExtentPoint чудесно работает в Win32.Как так?Где правда?

← →
GuAV © (2004-11-26 02:40) [2]

GanibalLector © (26.11.04 2:23)
Ведь TPanel канваса не имеет !!!

Имеет. только в protected унаследованный от TCustomControl.

type TCustomControlFriend = class(TCustomControl)

PS: Canvas.TextExtent;

← →
GanibalLector © (2004-11-26 02:44) [3]

2 GuAV
Не понял...Что я должен передать первым параметром???
> Canvas.TextExtent
Даже если так,то каким,собственно,образом выйти на канвас панели,если она в protected?

GanibalLector © (26.11.04 2:44) [3]
Не понял...Что я должен передать первым параметром???

Куда ??

type TCustomControlFriend = class(TCustomControl); procedure TForm1.FormCreate(Sender: TObject); begin with TCustomControlFriend(Panel1).Canvas.TextExtent("Blah") do ShowMessageFmt("%dx%d",[cx, cy]); end;

Спасибо.

GetTextExtentPoint Найти похожие ветки