GetTextExtentPoint

← →
Alex_Y (2007-10-03 07:56) [0]

привет всем.

делаю так:

Panel1.Caption := msg;
GetTextExtentPoint32(Panel1.Handle,PChar(msg),Length(msg),Size);
Panel1.Width := Size.cX;

выдает в cX и xY какие то заоблачные значения.
Вопрос, чего где указать забыл, или что в примере не так?

заранее благодарен.

← →
MBo © (2007-10-03 08:06) [1]

>Panel1.Handle
здесь должен быть дескриптор графического контекста (DC, Canvas.Handle), для Panel его можно получить с помощью GetDC

← →
Slym © (2007-10-03 08:07) [2]

BOOL GetTextExtentPoint32(HDC hdc
hdc - это не Panel1.Handle
hdc есть у Canvas, но в TPanel она protected
поэтому Panel1.Canvas.Handle не получится

← →
Slym © (2007-10-03 08:08) [3]

но получится [1]

← →
Alex_Y (2007-10-03 08:39) [4]

ага, спасибо, все получилось :)

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