Delphi-Help

Графический ProgressBar

Оцените материал
(1 Голосовать)


Графический ProgressBar для приложения Delphi

Когда Ваше приложение исполняет длительную операцию, Вы можете использовать управление TProgressBar из набора Delphi для того, чтобы отображать, сколько времени прошло и сколько еще осталось.

Когда Вы не знаете, сколько шагов необходимо для индикатора прогресса, Вы могли бы отображать непрерывную полосу или передвигающийся объект. UpdateImageProgress ссылается на управление TImage, показывающее изображение. Вызывая процедуру из внутренней части, например, события таймера (управления TTimer), будет достигнут эффект графического продвижения.

UpdateImageProgress сдвигает изображение вправо, используя границы изображения, таким образом создавая непрерывный индикатор прогресса.

// "перемещаем" изображение вправо на "step" шагов
 
 procedure UpdateImageProgress(const img : TImage) ;
 const
   step = 4;
 var
   b : TBitmap;
 begin
   with img.Picture.Bitmap do
   begin
     b := TBitmap.Create;
     try
       b.Width := Width;
       b.Height := Height;
       BitBlt(b.Canvas.Handle, step, 0, Width-step, Height, Canvas.Handle, 0, 0, SRCCOPY) ;
       BitBlt(b.Canvas.Handle, 0, 0, step, Height, Canvas.Handle, Width-step, 0, SRCCOPY) ;
       Assign(b) ;
     finally
       FreeAndNil(b) ;
     end;
   end;
 end;

Авторизация



Счетчики