Hallo,

ich habe ein kleineres Problem.

Ich habe nach der Anleitung aus diesem Forum einzelne Zeilen in meiner Listbox Komponente in Blau und manche in Rot dargestellt. Jetzt habe ich neben der Listbox Komponente eine zweite Listbox Komponente in die ich über 2 Buttons die Einträge

1) von Listbox1 in Listbox2
2) von Listbox2 in Listbox1 verschieben kann.

Wenn ich einen Eintrag von Listbox1 (Eintrag ist Rot) in Listbox2 verschiebe, müsste ich ermitteln in welcher Farbe der Eintrag in Listbox1 war. Geht das überhaupt, oder muss ich über ein Hilfsfeld arbeiten???

lg
Mike

Hallo!

wenn du nur das OnDrawItem Ereignes überschrieben hast
und lediglich anhand von ungeraden / geraden Zeilen unterschieden
hat, ob eine Zeile rot oder blau dargestellt werden soll,
dann "weiß" der Listbox-Eintrag selbst ja nichts davon.

Du könntest aber mit AddObject jedem Eintrag ein kleines
Hilfs-Objekt mitgeben, indem definiert ist, welche Farbe der
jeweilige Eintrag hat.
Beim Verschieben kann dann darauf zurückgegriffen werden
und die Info wandert ja sogar mit in die andere Listbox.


Gruß
Pfoto

Es gibt 2 Techniken; ich zeig dir mal die einfachere:
1.) jeder Texteintrag enthält zusätzlich noch die Farbe (getrennt durch das | Zeichen)
Beispiel:
Bayern|$00FFFFFF
Hessen|$00F000FF
Hamburg|$00808000
2.) es gibt 2 Funktionen, mit denen man den Nutztext oder die Farbe auslesen kann
3.) im Event OnDrawItem wenn die Funktionen von 2.) benutzt, um Nutztext und Farbcode zu trennen.
Es wird dann der Nutztext in der Farbe angezeigt

Vorteil: Man kann die Listboxen mitsammt den Farben speichern und laden.

Danke erstmal,

nur leider ist mir das ganze zu hoch.

Könntest du mir einen kleinen Tip geben, wie die Funktionen heißen mit denen ich die Werte getrennt (Value,Color) auslesen kann.

lg
Mike

Zitat von DerMike:

Könntest du mir einen kleinen Tip geben, wie die Funktionen heißen mit denen ich die Werte getrennt (Value,Color) auslesen kann.

Die Funktion muss man natürlich selber schreiben.

zusammenfalten · markieren

Delphi-Quellcode:

function ExtractTextAndColor(const s:string; var text:string):TColor;
var
   p : Integer;
begin
   p := Pos('|',s);
   if p = 0 then // kein Delimter gefunden
   begin
      text := s;
      Result := clGrayText; // default Farbe
   end
   else
   begin
      text := copy(s,1, p-1); // Nutztext
      Result := TColor(StrToInt(copy(s, p+1, 999))); // Farbe
   end;
end;