Änderung der Farben bei TListView

[s.h.a.r.k]

hätte gehofft dass es dafür ne einfachere Funktion gibt... Wie Update oder sowas - hab aber bisher nix gefunden. Dann muss ich wohl oder übel komplett neu zeichen. Das einzigste Problem ist dann, dass ich zwei Spalten habe: Eine, bei der der Text links angeordnet wird und eine andere bei der der text rechts angeordnet wird. Könntest du mir daher sagen wie ich einen Text nach links schreiben, d.h. dass der Text auf der rechten Seite bünfig ist?!
mfg shark

[dadu]

Hi Leute,
da ich demnächst vor dem selben Problem stehe, habe ich hier mal eine allgemein zu gebrauchene Procedure geschrieben.
Wäre gut wenn ihr die mal testen könntet, bei mir läuft sie.

Delphi-Quellcode:

{ TextOutOnListview
  written by David Dung 2005

  Diese Procedure ermöglicht die Manipulation des Hintergrundes einer
  TListview. Z.B. zum Verändern der Markierungsfarben.

  Vorgehen:
   Quellcode im OnCustomDrawItem-Event der Listview
  - "DefaultDraw" auf "False" setzten
  - Beliebig auf die Zeichenfläche malen
  - TextOutOnListview("die Listview", Item.Index); aufrufen
    Hiermit wird der Inhalt der Listview mit transparenter Hintergrund-
    und Schriftfarbe des Listview auf die Zeichenfläche kopiert. }

procedure TextOutOnListview(Listview: tListview; Index: integer);

  { GetTextOutPosX

    Diese Funktion gibt die x Position zurück, an der der Text gezeichnet
    werden muss }

  function GetTextOutPosX(Column: integer; Text: string): integer;
  var
    i: integer;
  begin
    //Linksbündig?
    if Listview.Column[Column].Alignment = taleftJustify then
      begin
        //Standard Rand von links: 4 pixel
        result := 4;
        //Breiten aller Spalten zusammenrechnen
        for i := 0 to Column - 1 do
          result := result + Listview.Column[i].Width + 2;
      end
    else
      //Rechtsbündig?
      if Listview.Column[Column].Alignment = taRightJustify then
        begin
          result := 0;
          //Breiten aller Spalten zusammenrechnen
          for i := 0 to Column - 1 do
            result := result + Listview.Column[i].Width;
          //Von der Position die Textbreite abziehen und den Wert von 6 Pixeln für den Rand rechts
          result := result + Listview.Column[Column].Width - Listview.Canvas.TextWidth(Text) - 6;
        end
      else
        //Mittig?
        if Listview.Column[Column].Alignment = taCenter then
          begin
            result := 0;
          //Breiten aller Spalten zusammenrechnen
            for i := 0 to Column - 1 do
              result := result + Listview.Column[i].Width;
          //Von der Position die halbe Spaltenbreite dazu addieren und die halbe Textbreite wieder abziehen
            result := result + trunc((Listview.Column[Column].Width) / 2 - Listview.Canvas.TextWidth(Text) / 2);
          end;
  end;

var
  cols: integer;
begin
  //Hintergrundfarbe durchsichtig
  listview.canvas.Brush.Style := bsClear;
  //Text der ersten Spalte kopieren
  listview.Canvas.TextOut(GetTextOutPosX(0, listview.Items[index].caption), Listview.Items[index].Top, listview.Items[index].caption);

  for cols := 1 to listview.Columns.Count - 1 do
    //Weitere Columns zeichnen
    listview.Canvas.TextOut(GetTextOutPosX(cols, listview.Items[index].SubItems[cols - 1]), Listview.Items[index].Top, listview.Items[index].SubItems[cols - 1]);

  //Hintergrundfarbe wieder herstellen
  listview.canvas.Brush.Style := bsSolid;

end;

Bsp:

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  DefaultDraw := false; 
  
  //Hier könnt ihr jetzt alles auf Sender.Canvas malen, was ihr wollt

  //Am Ende meine Procedure aufrufen um Text widerherzustellen
  TextOutOnListview(Listview1, Item.Index);
end;

[Edit] Jetzt kommt die Procedure auch mit mittigen Spalten zurecht.[/Edit]