Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by easywk,
25. Aug 2004
Ich versuche es mal, allerdings nur rein aus dem Kopf, also untestet:
Beim Anlegen der einzelnen Objekte würde ich das Ja/Nein einfach in ein SubItem schreiben:
ListItem := lvEDV.Items.Add;
ListItem.Caption := NewString;
ListItem.SubItems.Add(OracleDataSet1.Fields.Fields.AsString);
Und beim Zeichen müsste es dann so aussehen:
procedure TfrmMain.lvEDVCustomDrawItem(Sender:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by easywk,
25. Aug 2004
So geht es nicht, da die Zeichenaktionen nicht genau bei Add des ListItem ausgeführt werden. So wie deine Schleife läuft, werden wahrscheinlich erstmal alle ListItems eingefügt und dann wird die Tabelle auf dem Bildschirm gezeichnet. Damit hast du immer die Farbe, die zuletzt gesetzt war. Am einfachsten ist es, wenn du dir für dein Listitem ein Object mit anlegst und dann beim Zeichnen selber auf...