Главная страница
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.047 c
1-1079741670
ё-лка
2004-03-20 03:14
2004.04.11
OLE 1C


7-1079803900
$tranger
2004-03-20 20:31
2004.04.11
Инфо из БИОСа


4-1075736780
DelphiN!
2004-02-02 18:46
2004.04.11
Отправка почты


6-1079527514
AlexeyITN
2004-03-17 15:45
2004.04.11
Ping с кривым руками:)


6-1076148497
Iks
2004-02-07 13:08
2004.04.11
SMTP