Schriftfarbe einer Zeile in der Listbox ändern?

[CalganX]

Hi,
ich sehe das Problem. Du machst das derzeit so:

Delphi-Quellcode:

if (iReturnedBytes > 0) then
  online := true;
ListBox1.Items.Add('192.168.0.1'); // oder irgendeine andere IP

Das machst du in deiner Routine, in der du auch pingst.

Das Problem ist aber nun, dass das Zeichnen nicht automatisch mit dem Hinzufügen passiert. Du musst also folgendermaßen arbeiten:
Füge alle Rechner in die ListBox und mache das dann folgendermaßen im OnDrawItem:

Delphi-Quellcode:

iReturnedBytes := PingeDenRechnerAnMitIP(ListBox1.Items[Index]);
if (iReturnedBytes > 0) then
  online := true;

if online then begin
  ListBox1.Canvas.Font.Color := clGreen;
end else begin
  ListBox1.Canvas.Font.Color := clRed;
end;

Chris