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

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 024 • TDictionary Custom Sort 6 129 • Fast Watermark Sources 5 926 • 3D Designer 8 777 • Sik Screen Capture 6 256 • Patch Maker 6 680 • Айболит (remote control) 6 674 • ListBox Drag & Drop 5 530 • Доска для игры Реверси 95 698 • Графические эффекты 6 901 • Рисование по маске 6 121 • Перетаскивание изображений 5 063 • Canvas Drawing 5 431 • Рисование Луны 5 146 • Поворот изображения 4 692 • Рисование стержней 3 307 • Paint on Shape 2 547 • Генератор кроссвордов 3 437 • Головоломка Paletto 2 749 • Теорема Монжа об окружностях 3 546 • Пазл Numbrix 2 328 • Заборы и коммивояжеры 3 014 • Игра HIP 1 971 • Игра Go (Го) 1 888 • Симулятор лифта 2 244 • Программа укладки плитки 1 952 • Генератор лабиринта 2 397 • Проверка числового ввода 2 081 • HEX View 2 407 • Физический маятник 2 043

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

Похожие по теме исходники