Farbige einträge in ListBox

Reply to Farbige einträge in ListBox on Thu, 03 Feb 2005 13:12:03 GMT

Karlo234 — Thu, 03 Feb 2005 13:12:03 GMT

Hallo !

Ich würde gerne in meiner Listbox "TitleList" zur besseren übersicht jeden 2ten eintrag fablich unterlegt haben. Mit dem Code unten klappt das soweit auch aber sobald man die Listbox schnell hoch/runter scrollt oder aber reinklickt und per Pfeiltasten die Einnträge durchläuft verändern sich die Farben. Was kann ich machen ? Danke !

col1 & col2 sind Boolsche Werte beide mit true init.

void __fastcall TForm1::TitleListDrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{

  if ( col1 && col2 )
  {
  TitleList->Canvas->Brush->Color=clSkyBlue;
  TitleList -> Canvas -> FillRect(Rect);
  }
  col2=!col2;

 TitleList -> Canvas -> Font -> Color = clBlack;

  TitleList -> Canvas -> TextOut(0, Rect.Top,TitleList -> Items -> Strings[Index]);
}

Reply to Farbige einträge in ListBox on Thu, 03 Feb 2005 13:14:44 GMT

Dasd — Thu, 03 Feb 2005 13:14:44 GMT

Was genau bezweckst du mit der if-Abfrage? Warum nicht einfach modulo 2 (Index % 2) auf Null prüfen?

Reply to Farbige einträge in ListBox on Thu, 03 Feb 2005 13:49:11 GMT

Karlo234 — Thu, 03 Feb 2005 13:49:11 GMT

Ok richtig ist wohl nicht allzu schick aber das ist nicht das eigendliche Problem oder ?

Reply to Farbige einträge in ListBox on Thu, 03 Feb 2005 13:58:19 GMT

Windoof — Thu, 03 Feb 2005 13:58:19 GMT

void __fastcall TfMain::lbCheatListDrawItem(TWinControl *Control,
      int Index, TRect &Rect, TOwnerDrawState State)
{
    lbCheatList->Canvas->Font->Assign(fMain->Font);
    lbCheatList->Canvas->Font->Size=8;
    lbCheatList->Canvas->Font->Color=0xa000+(Index&1)*0x5000;
    lbCheatList->Canvas->Brush->Color=(Index&1)*0x5000;
    lbCheatList->Canvas->Pen->Style=psSolid;
    if(State.Contains(odSelected))
    {
        lbCheatList->Canvas->Font->Color=(Index&1)*0x5000;
        lbCheatList->Canvas->Brush->Color=0xa000+(Index&1)*0x2800;
    }
    lbCheatList->Canvas->Pen->Color=lbCheatList->Canvas->Brush->Color;
    lbCheatList->Canvas->Rectangle(Rect);
    lbCheatList->Canvas->Brush->Style=bsClear;
    lbCheatList->Canvas->TextOut(Rect.Left+4,
        Rect.Top+Rect.Height()*0.5-lbCheatList->Canvas->TextHeight("T")*0.5,
        IntToStr(Index+1));
    lbCheatList->Canvas->Pen->Color=lbCheatList->Canvas->Font->Color;
    lbCheatList->Canvas->MoveTo(Rect.Left+47,Rect.Top);
    lbCheatList->Canvas->LineTo(Rect.Left+47,Rect.Bottom);
    lbCheatList->Canvas->TextOut(Rect.Left+50,
        Rect.Top+Rect.Height()*0.5-lbCheatList->Canvas->TextHeight("T")*0.5,
            lbCheatList->Items->Strings[Index]);
}

Zum Verständnis:
Übersicht
Source

Und so sieht's dann aus:
Mittleres Bild

Reply to Farbige einträge in ListBox on Fri, 04 Feb 2005 09:01:31 GMT

Dasd — Fri, 04 Feb 2005 09:01:31 GMT

Karlo234 schrieb:

Ok richtig ist wohl nicht allzu schick aber das ist nicht das eigendliche Problem oder ?

Ich denke schon. Da du col2 immer wieder negierst, machst du die Ausgabe vom vorherigen Zustand abhängig. Allerdings kannst du nicht wisssen, wie der war und somit verunstaltet es deine Anzeige. Deswegen über den mitgelieferten Index gehen, da der immer konstant (für denselben Eintrag) bleibt.