Решил вот немного доработать свой один старый проект. Писал давно на FreePascal, переписывать с нуля не хочется.
Для красоты добавил ProgressBar, причём на одну из панелей StatusBar. В сети нашёл такой пример:
text
procedure TfmMain.FormCreate(Sender: TObject);
begin
// вырезано не относящееся к этому компоненту
pbMain.Parent := sbMain;
end;
procedure TfmMain.sbMainDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
begin
if (Panel.Index = 3) then
pbMain.SetBounds(Rect.Left, Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top);
end;
И написано, что дальше с ним работать, как обычно. Что и делаю - в нужной функции просто устанавливаю свойство Position.
Тем не менее, индикатор прогресса не отображается. Что я пропустил?
