ListBox

[DeddyH]

Wenn ein Eintrag gezeichnet werden muss (z.B. weil gescrollt wurde), wird das OnDrawItem (wieso heißt das wohl so?) ausgeführt.

[baumina]

Nehmen wir mal den Code zur Hand und ändern den ein wenig :

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem
    (Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState) ;
 var
    myColor: TColor;
    myBrush: TBrush;
 begin
    myBrush := TBrush.Create;
    with (Control as TListBox).Canvas do
    begin
(* das machen wir raus
      if not Odd(Index) then
        myColor := clSilver
      else
        myColor := clYellow;
*)
      // und das machen wir stattdessen rein
      If InDB(Index) then // die Funktion InDB musst dann noch schreiben, diese schaut in der DB nach und gibt True zurück wenn der Item in der DB gefunden wurde
        myColor := clYellow
      else
        myColor := clWhite;
        
      myBrush.Style := bsSolid;
      myBrush.Color := myColor;
      Windows.FillRect(handle, Rect, myBrush.Handle) ;
      Brush.Style := bsClear;
      TextOut(Rect.Left, Rect.Top,
              (Control as TListBox).Items[Index]) ;
      MyBrush.Free;
    end;
 end;

[value is NULL]

Das heisst ich müsste eigentlich meinen Programm Aufbau ändern. Aktuell lasse ich die Liste zuerst anlegen und prüfe dann erst
die Datenbank. So müsste ich praktisch bei jedem "Add Item" gleich prüfen habe ich das jetzt richtig verstanden?

[DeddyH]

IMO müsste es genügen, ein Neuzeichnen der ListBox zu erzwingen.

[value is NULL]

@baumina
Mit dieser Funktion müsste ich den Programmaufbau komplett ändern, das wäre zuviel Aufwand :/

@DeddyH
Da ich leider kein UI Spezi bin: Wie würde ich eine Listbox neu zeichnen?

[baumina]

ich gebs auf ...

[DeddyH]

Wenn ListBox.Repaint nichts bringt, kann man es unsauber versuchen, indem man Visible auf false und wieder auf true setzt. Das ist aber sehr Quick & Dirty.

[value is NULL]

@baumina

Sorry ich verstehs echt nicht... Aber wenn ich mir deinen Code ansehe:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem
    (Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState) ;
 var
    myColor: TColor;
    myBrush: TBrush;
 begin
    myBrush := TBrush.Create;
    with (Control as TListBox).Canvas do
    begin
(* das machen wir raus
      if not Odd(Index) then
        myColor := clSilver
      else
        myColor := clYellow;
*)
      // und das machen wir stattdessen rein
      If InDB(Index) then // die Funktion InDB musst dann noch schreiben, diese schaut in der DB nach und gibt True zurück wenn der Item in der DB gefunden wurde
        myColor := clYellow
      else
        myColor := clWhite;
        
      myBrush.Style := bsSolid;
      myBrush.Color := myColor;
      Windows.FillRect(handle, Rect, myBrush.Handle) ;
      Brush.Style := bsClear;
      TextOut(Rect.Left, Rect.Top,
              (Control as TListBox).Items[Index]) ;
      MyBrush.Free;
    end;
 end;

Dann müsste ich mir eine Funktion schreiben die zb Folgendes tut: (ganz grob)
- Datenbank connect
- überprüfen ob user vorhanden (true od. false returnen)
- Disconnect

Das Problem ist aber, das der User zuerst die Liste anlegen muss. Dann gibt es eine Art "Execute" Button und in dieser Prozedur werden dann etliche Datenbankspezifische Dinge
durchgeführt (abfragen, updates, inserts etc.). Wenn es hier ein Problem gibt zB. User nicht vorhanden, Färbe das Item yellow, bei SQL Update Fehler red und bei success green.

Dh. ich bräuchte die Möglichkeit in meiner "SQL-Funktion", sprich wenn ich die Liste abarbeite das Item[x] nachträglich zu ändern.

Sorry falls ich mich blöd stelle. Habe mich vorhin mit OnDrawItem gespielt und der einzige Erfolg war, das ich beim !Hinzufügen! die Farbe ändern kann, jedoch nicht bei einem bestehenden. oder wie gesagt ich bin zu blöd ^^

LG

[DeddyH]

http://docwiki.embarcadero.com/Libra...Box.OnDrawItem

Zitat:

Mit einer Ereignisbehandlungsroutine für OnDrawItem können Sie die Einträge von Listenfeldern zeichnen, deren Eigenschaft Style den Wert lbOwnerDrawFixed, lbOwnerDrawVariable oder lbVirtualOwnerDraw hat. OnDrawItem tritt immer dann ein, wenn ein Eintrag im Listenfeld angezeigt werden muss. Dieses Ereignis gibt es nur bei Owner-Draw-Listenfeldern.

[baumina]

OK, Vorschlag. Führe beim Füllen deiner ListBox eine Liste mit Farben, oder schreibe die Farben in die Objects der der ListboxItems. Am Anfang alle clWhite. Beim Execute-Knopf änderst du dann die Farben anhand des Items auf Rot/Grün/Gelb. Im OnItemDraw nimmst du dann die Farbe aus der Liste oder aus den Objects, wie immer du dich entschieden hast diese mitzuführen.