Filelist Zeile färben

[PiQ]

Also ich will in meiner Filelist (aus der rubrik win 3.1 also filelistbox ^^) jede zweite Zeile in einer anderen Farbe haben ... also
zeile 1 grün
zeile 2 rot
zeile 3 grün
zeile 4 rot
... da ich ein anfänger bin frag ich euch mal
hoffe ihr könnt mir helfen! (ich hab schon gesucht und so aber naja glaub nich das was richtiges dabei war ^^...)
- ich würd ja sagen man kann das über jeden ungerade und gerade eintrag in der filelist machen aber wie??

MfG PiQ

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, PiQ.

Wenn du die Komponente nennst, mit der du arbeitest und auch die von dir verwendete Delphi-Version in dein DP-Profil einträgst, dann kann man dir viel besser helfen.

Freundliche Grüße vom marabu

[R2D2]

Du ratterst mit einer for-Schleife jeden Eibntrag durch, und färbst ihn per Überprüfung mit MOD farbig ein.

[PiQ]

kannst dus mir vielleicht iwie erklären oda gleich hinschrieben wie?! hab mal hier: naja das "prog" ^^
wie gesagt bin ein anfänger

[PiQ]

hat keiner ne idee?

[Sunlight7]

Zitat von R2D2:

Du ratterst mit einer for-Schleife jeden Eibntrag durch, und färbst ihn per Überprüfung mit MOD farbig ein.

Warum so umständlich?
Da es nur zwei Farben sind genügt ein einfaches Odd
Und wozu eine for-Schleife?

Delphi-Quellcode:

If Odd(Index) then
   MaleRot else
      MaleGrün

Du kannst dafür das Ereignis OnDrawItem einer ListBox verwenden, wenn Du im OI Style auf lbOwnerDrawFixed stellst
Das funkt aber net mit der TFileListBox Kompo, dazu selber eine TListBox machen.

Grüßle!

[PiQ]

Delphi-Quellcode:

procedure TWindow.FormCreate(Sender: TObject);
begin
  If Odd(listbox1.itemindex) then
    label4.Color := clred else
    label4.Color := clgreen;
end;

was stimmt daran nicht ? ich habe jetz nur das bei mir drin stehen. hab das mal mit einem label simuliert aber die farbe ändert sich trotzdem nicht - am anfang ist es rot aber es wird nie grün wenn ich in meiner listbox einen 1./2./3./4. eintrag wähle.
und dann noch:
wie ist den das mit dem ondrawitem gemeint? weil ich kann dann da nix auswählen ...

ich hoffe einer weiß warum!

[Sunlight7]

Das Beispiel kann mal net funktionieren, weil Du es im FormCreate stehen hast
Dazu müsstest Du es in dem OnClick Ereignis von der ListBox machen.

Im OnDrawItem kannst Du die Einträge selbst Zeichnen, und dazu eine Farbe auswählen.

N' Beispiel zu OnDrawItem:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
   With TListBox(Control) do begin
      // Farbe wählen
      If Odd(Index) then
         Canvas.Font.Color:=clRed else
            Canvas.Font.Color:=clLime;

      // Fläche übermalen
      Canvas.FillRect(Rect);

      // Text zeichnen
      Canvas.TextOut(Rect.Left+1, Rect.Top+1, Items[Index]);
   end;
end;

Edit: Öha, Tags vergessen...

[PiQ]

alles klar ich habs zwar jetz aba ma sehn ob ich nochma ne frage stelle thx!