Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Длина в ПИКСЕЛЯХ Panel.Caption ?   Найти похожие ветки 

← →
Ormada ©   (2004-04-22 06:54) [0]

Как получить длину в ПИКСЕЛЯХ Panel.Caption  ?

---

← →
Леприкон ©   (2004-04-22 07:33) [1]

procedure TForm1.Button1Click(Sender: TObject);
var DC:HDC;
   TextSize:SIZE;
begin
 DC:=GetDC(Panel1.Handle);
 GetTextExtentPoint32(DC,
                      PChar(Panel1.Caption),
                      Length(Panel1.Caption),
                      TextSize);
 ShowMessage("Width="+IntToStr(TextSize.cx)+" , height="+IntToStr(TextSize.cy)+".");
 ReleaseDC(Panel1.Handle,DC);
end;

---

← →
Юрий Зотов ©   (2004-04-22 07:46) [2]

Можно и проще. Объявим вспомогательный тип:

type
 TFriendPanel = class(TPanel);

Ниже этого объявления становится доступна секция protected, в которой у панели есть свойство Canvas. И остается только вызвать TextWidth:

TFriendPanel(Panel1).Canvas.TextWidth

---

← →
ORMADA ©   (2004-04-22 07:50) [3]

ПАСИБА Леприкон ©  и Юрий Зотов ©  
Решение Юрия Зотова проще :)

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.033 c