Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.18;
Скачать: CL | DM;

Вниз

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

 
Lexann   (2002-03-04 21:43) [0]

Как сделать чтобы появляющаяся в Panel строчка при большем объеме чем Panel стала меньшей ?


 
lipskiy ©   (2002-03-05 00:18) [1]

Может быть можно и проще, но я делаю примерно так.
Допустим на панели лежит лейбл.
На ресайз панели вешаем обработчик:

procedure TForm1.Panel1CanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
var fw:integer;
label ex, up;
begin

Label1.Canvas.Font:= Label.Font;
fw:= Label1.Canvas.TextWidth(Label1.Caption);
if NewWidth > fw then goto up;

// уменьшаем шрифт, пока не влезет
repeat
Label1.Canvas.Font.Size:= Label1.Canvas.Font.Size-1;
fw:= Label1.Canvas.TextWidth(Label1.Caption);
until NewWidth > fw;
Label1.Font.Size:= Label1.Canvas.Font.Size;
goto ex;

// увеличиваем шрифт, пока не вылезет
up:
repeat
Label1.Canvas.Font.Size:= Label1.Canvas.Font.Size+1;
fw:= Label1.Canvas.TextWidth(Label1.Caption);
until NewWidth < fw;
Label1.Font.Size:= Label1.Canvas.Font.Size-1;

ex:
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.008 c
4-57576
scam
2002-01-18 03:31
2002.03.18
Как по хэндлу окна узнать имя и путь exe шника которому это окно принадлежит.


1-57453
KvORubin
2002-03-03 09:46
2002.03.18
АРХИВИРОВАНИЕ - ПОМОГИТЕ !!!


7-57539
Monk
2001-12-17 21:28
2002.03.18
Ультразвук и микрофон!


1-57408
RGg
2002-03-02 11:44
2002.03.18
А можно ли Узнать какие функции и процедуры в Dll


14-57521
azik
2002-02-01 15:18
2002.03.18
Как написать программу как сервис ? На сколько я знаю Delphi с сервисами не дружит.