Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.039 c
14-1079488343
vidiv
2004-03-17 04:52
2004.04.11
Как скрыть код php?


14-1079221527
ИМХО
2004-03-14 02:45
2004.04.11
Что это за кодировка?


7-1075204090
SPIRIT
2004-01-27 14:48
2004.04.11
Как спрятать панель задач ???


14-1081973550
Ломброзо
2004-04-15 00:12
2004.04.11
А хто пишет "Хокку для души"??


1-1082836866
Sanek_metaller
2004-04-25 00:01
2004.04.11
Особая форма