Mega Code Archive
Gauge in a StatusBar
<![CDATA[
Title: Gauge in a StatusBar
Question: 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;
I hope you'll find it useful;
|||||\\\\\\\\\//////////||||||
|||||-------------------------
]]>