Hej igen.
Nu er det galt med farverne ??
Meningen var at når ListBoksen er tom skal stregen være rød og når der er
noget i listBoksen skal stregen være sort.
Stregen skifter godt nok farve, men desværre er det hele stregen der
skifter.
Det var meningen at stregen skulle være rød/sort/rød/sort o.s.v.
Farve : TColor; er erklæret under Var i hovedet.
procedure TForm1.Button3Click(Sender: TObject);
Var
NesteMaskine : String;
begin
If HJ4ListBox.Items.Count >= 1 Then
Begin
Farve := clBlack;
Edit6.Text := 'HJ4 arbejder.';
NesteMaskine := Copy(HJ4ListBox.Items.Strings[0],12,3);
HJ4Antal := Copy(HJ4ListBox.Items.Strings[0],8,3);
Edit4.Text := NesteMaskine;
HJ4Timer.Enabled := True;
End
else
begin
Farve := clRed;
Edit6.Text := 'HJ4 mangler arbejde.';
End;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1Minutter := Timer1Minutter + 1;
Edit2.Text := IntToStr(Timer1Minutter);
Form1.Canvas.Pen.Width := 2;
Form1.Canvas.Pen.Color := Farve;
Form1.Canvas.MoveTo(50,25);
Form1.Canvas.LineTo(Timer1Minutter+50,25);
If Timer1Minutter = 720 Then Timer1.Enabled := False;
end;
Er der en måde, en ide til hvordan det kan gøres, af programmerengen kan det
nok ses at svaret helst skal være på det lavere stade.
På forhånd tak
Hilsen Henning.
|