Как вставить ProgressBar в StatusBar 2

Delphi , Компоненты и Классы , TProgressBar

• pgProgress положить на форму как Visible := false;
• StatusPanel надо OwnerDraw сделать и pефpешить, если Position меняется.

procedure TMainForm.stStatusBarDrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
  if Panel.index = pnProgress then
  begin
    pgProgress.BoundsRect := Rect;
    pgProgress.PaintTo(stStatusBar.Canvas.Handle, Rect.Left, Rect.Top);
  end;
end;

Статья Как вставить ProgressBar в StatusBar 2 раздела Компоненты и Классы TProgressBar может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: TProgressBar ::