je nach Bedingung verschiedene Farben in der Listbox

Paulchengb · Beiträge: 39

Hallo,

ich habe mich schon um die Suche bemüht und habe da nur komplizierte Sachen mit dem OnDraw Item gefunden. Ich bin ein Anfänger und es kommt mir unnötig kompliziert vor. Mein Quellcode schaut so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if (v<=x) and (x<=b) and (v<=y) and (y<=b) and (v<=z) and (z<=b) then
      begin

      listbox1.Items.Add(floattostr (x)+ floattostr (y) + floattostr (z));
      ...
    else
      begin
      listBox1.Canvas.Font.Color := clGreen;
      listbox1.Items.Add (floattostr (x)+ floattostr (y) + floattostr (z) +' ' + 'unpassend');
      end

Bei if....soll die Ausgabe schwarz sein, wie es jetzt auch ist. Nur bei der else-Bedingung sollen die Einträge grün sein.

Was habe ich da falsch gemacht?

Moderiert von Gausi: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Do 04.10.2007 um 19:07

Narses · Verfasst: Do 04.10.07 18:01

Moin!

Paulchengb hat folgendes geschrieben:

ich habe mich schon um die Suche bemüht und habe da nur komplizierte Sachen mit dem OnDraw Item gefunden. Ich bin ein Anfänger und es kommt mir unnötig kompliziert vor.

Leider ist das aber genau die Lösung für deinen Wunsch.

Schau nochmal etwas genauer hin, soo kompliziert ist das gar nicht.

ZEBRAEFFEKT

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Mike19 · Verfasst: Do 04.10.07 18:04

Hallo,

warum listBox1.Canvas.Font.Color := clGreen; ?

Es reicht doch ListBox1.Font.Color:=...;

Und dann noch ein Repaint und schon müsste es klappen

Micha

Moderiert von Narses: Quote- durch Delphi-Tags ersetzt

Narses · Verfasst: Do 04.10.07 18:09

Moin!

Mike19 hat folgendes geschrieben:

Es reicht doch ListBox1.Font.Color:=...;

Und dann noch ein Repaint und schon müsste es klappen

Jain, dann ist der komplette Inhalt der Listbox Grün

er will aber selektiv Einträge andersfarbig haben. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme