Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Внешний вид компонентов



Вернуться к списку функций
 Плавное изменение высоты визуального компенента (пример на ListBox)

 Прислал: novill ( 19 июля 2002 г. )
©  novill
 Описание:
Изменение высоты визуального компенента от Min до Max шагом Step с задержкой на шаге StepSleep миллисекунд. Понравилась краткость.

 Зависимости:
uses Windows, Classes, Forms, Controls, StdCtrls

 Ограничения:
Проверено D5, W98, должно работать везде

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Плавное изменение высоты визуального компенента (пример на ListBox)

Изменение высоты визуального компенента от Min до Max шагом Step с задержкой на шаге StepSleep миллисекунд. Понравилась краткость.

Зависимости: uses Windows,Classes,Forms,Controls, StdCtrls
Автор:       novill, 2novill@mail.ru
Copyright:   novill
Дата:        19 июля 2002 г.
***************************************************************** }

procedure ListBoxFade(ListBox: TListBox; const Flag: Boolean; const Min, Max, Step, StepSleep: integer);
begin
  with ListBox do
    begin
      Height:=Min+(1-ord(Flag))*(Max-Min);
      repeat
        Height:=Height+(2*ord(Flag)-1)*Step;
        Sleep(StepSleep);
      until (Height<=Min) or (Height>=Max);
    end;
end;

 Пример использования:
implementation

{$R *.DFM}
var order:boolean;

procedure ListBoxFade(ListBox: TListBox; const Flag: Boolean; const Min, Max, Step, StepSleep: integer);
begin
  with ListBox do
    begin
      Height:=Min+(1-ord(Flag))*(Max-Min);
      repeat
        Height:=Height+(2*ord(Flag)-1)*Step;
        Sleep(StepSleep);
      until (Height<=Min) or (Height>=Max);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBoxFade(listbox1,order,21,105,21,10);
  order:=not order;
end;

end.


Вернуться к списку функций

Наверх ▲    

Металлообработка токарные и фрезерные работы.