Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.028 c
1-57406           Сергей Ф              2002-02-20 04:38  2002.03.18  
Как использовать Сишную dllку? Есть исходник. Нужно её вызывать из Дельфи и получать ответ. В Си я не очень. Подскажите пожалуйтса!


1-57357           Дмитрий               2002-03-04 17:08  2002.03.18  
FlexGrid&Pointers


7-57542           Cherep2               2001-12-14 17:48  2002.03.18  
Про Модем и реестр!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<<<<<<Срочно>>>>>>


3-57289           Dim                   2002-02-18 15:10  2002.03.18  
Сортировка по нажатию на заголовки колонок DBGrid а


14-57491          Igor_thief            2002-01-30 16:50  2002.03.18  
Компоненты