Gauge in a StatusBar (Views: 706)
|
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; |