BorlandTalk.com

Jens · Guest

I am trying to make my own bar with 2 labels, what am I doring wrong here.

//////////////
private
{ Private declarations }
public
{ Public declarations }
bary, barx : integer;
barw : Double;
barr : extended;
end;
/////////////

procedure TForm1.IdTCPClient1WorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin

if AWorkMode = wmWrite then
begin
barx := AWorkCountMax;
Label2.Width := 0;
end;

end;

procedure TForm1.IdTCPClient1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin

bary := AWorkCount;

if bary < barx then
begin
barw := (bary / barx) * 100;
barr := barw * (label1.Width / 100);
label2.Width := strtoint(FormatFloat('0' , barr));
End;

end;

procedure TForm1.IdTCPClient1WorkEnd(Sender: TObject;
AWorkMode: TWorkMode);
begin

label2.Width := label1.Width;

end;

Remy Lebeau (TeamB) · Guest

"Jens" <til (AT) infojens (DOT) dk> wrote

Jens · Guest

I whant to make my own bar just like the ProgressBar

I don't whant to use the ProgressBar because I can't change the color on it
!

I try to use 2 labels, one there have the width that I whant the bar to
have, and one that becomes more width doring the copy of the file !

When label2.width is the same as label1.width then the copy is finished.

/ Jens

"Remy Lebeau (TeamB)" <gambit47.no.spam (AT) no (DOT) spam.yahoo.com> wrote

Remy Lebeau (TeamB) · Guest

"Jens" <til (AT) infojens (DOT) dk> wrote