/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Rød/sort streg
Fra : Henning Madsen


Dato : 08-02-01 18:58

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.




 
 
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste