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

Вниз

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

 
Archont ©   (2002-06-27 10:04) [0]

А вопрос такой:
Как мне использоать свойство TImage.Picture.OnProgress, чтобы видеть прогресс чтения картинки из файла?


 
MAxiMum ©   (2002-06-27 11:53) [1]

Свойство OnProgress - это всего лишь обработчик события.
Создаешь процедуру:

procedure MyProc(Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
const sText: array[TProgressStage] of String = ("Подготовка к загрузке...", "Загрузка...", "Завершение загрузки...");
begin
//Выводим происходящее в настоящий момент действие
StatusBar1.SimpleText := sText[Stage];
ProgressBar1.Position := PercentDone;
end;

Затем пишешь в процедуре, которая будет выполняться до загрузки рисунка, например в обработчике формы OnCreate:
Image1.Picture.OnProgress := MyProc;



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

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

Наверх




Память: 0.46 MB
Время: 0.016 c
1-23560
Феликс
2002-06-26 23:11
2002.07.08
Как сделать , чтобы filelistbox отоброжал вновь созд. файлы?


1-23545
Дельфятник
2002-06-26 17:37
2002.07.08
Access Violation при работе с TComboBox.


14-23745
VAleksey
2002-06-06 07:09
2002.07.08
Delphi 5. Компиляция и запуск.


8-23686
DenKop
2002-02-17 22:52
2002.07.08
DirectSound и MP3


1-23672
S. Babijchuk
2002-06-26 11:00
2002.07.08
Как извлечь компонент из exe-файла