ListBox

[value is NULL]

Hä? xD ... Sorry vermutlich ne Blockade gerade:

Für mich klang das so, als würde dieses Event nur aufgerufen, wenn ich ein neues Item hinzufüge zB Listbox1.Items.Add('WasAuchImmer');
Aber die Werte sind ja bereits in der Liste die ich dann mit folgender Schleife durchlaufe:

Delphi-Quellcode:

while i < Form1.ListBox1.Count do begin
    userId := sqlst.query('select id from user_ where username = '''+Form1.listbox1.Items[i]+'''');
    //user not found
    if userId = '' then //Change Color of current line - cLYellow
    i := i + 1;
end;

Sorry das ich mich gerade so "blöd" anstelle ^^... rufe ich das Event dann erneut auf? Sprich manuell? oder wie ...

[Neutral General]

Erspar dir doch ein paar Fragen indem du dir das Event mal anschaust und rumprobierst..
Dann erübrigt sich dein letzter Post.

[mkinzler]

Bei jedem Zeichnen eines Eintrags (wird pro Eintrag aufgerufen).
Erzwinge ein Neuzeichnen der ListBox

[value is NULL]

Ich checks nicht :/

[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?

[himitsu]

Hat eigentlich schon jemand erwähnt, daß der Threadtitel absolut nichts zum Problem aussagt?

Und ja, es gibt schon massig Themen, wo irgendwer irgendwelche Probleme mit seiner ListBox hat.