2010. február 6., szombat

Gauge in a StatusBar


Problem/Question/Abstract:

How to put a component in a statusbar?

Answer:

uses Gauges
  { ... }

  public
  Gauge1: TGauge;
private
{ ... }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Gauge1 := TGauge.Create(StatusBar1); //Ctreate it on the statusbar
  Gauge1.Parent := StatusBar1; //Parent Winodow
  Gauge1.Height := StatusBar1.Height - 6; //Height
  Gauge1.Top := 4; //Top
  Gauge1.BackColor := clSilver; //Make it cool
  Gauge1.BorderStyle := bsNone; //Border
  Gauge1.ForeColor := clRed; //Color of Gauge
  Gauge1.Left := StatusBar1.Width div 2; //Left Position
  Gauge1.Progress := 0; //Progress
end;

Nincsenek megjegyzések:

Megjegyzés küldése