Советы по Delphi


              

Как вставить в StatusPanel свои компоненты, например ProgressBar? I


Nomadic советует:

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

>== Режем pаз ==<

    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;

>== Режем два ==< [001624]



Содержание  Назад  Вперед