ListView: Erste Spalte rechtsbündig

[Sharky]

Zitat:

Zitat von LokutusvB

Das habe ich eben probiert, mit OnCustomDraw. Mit jeder Spalte funktioniert es, nur nicht mit der ersten Spalte. Diese bleibt weiterhin linksbündig.

Wie sieht den dein OwnerDraw aus?

[LokutusvB]

Bisher noch leer, ich dachte die Eigenschaft auf True setzen reicht aus. Allerdings lese ich mir gerade deine verlinkte Seite durch, wie das mit dem OwnerDraw genau funktioniert. Ist denn OnCustomDraw nicht eigentlich das gleiche?

[Sharky]

Damit sagst Du nur das Du selber zeichnen möchtest. Dafür muss dann aber auch etwas in OnOwnerDraw stehen.

[LokutusvB]

Das wird mir dann für so eine kleine optische Sache doch zu umständlich. Ich dachte, ich könnte einfach mit OnCustomDrawSubItem den Text rechtsbündig gestalten, keine Chance. Selbst auf den Delphi-Seiten von about.com oder auch delphiDabbler findet man alle möglichen Spielereien, aber nichts, wie man die erste Spalte rechtsbündig gestalten kann. Dann werde ich doch einfach die erste Spalte als Dummy setzen. Leider spuckt auch Google nicht wirklich eine Lösung aus.

[martinf16]

Ich habe gerade dasselbe Problem und habe dazu folgendes gefunden:

http://connect.microsoft.com/VisualS...e-first-column

Das kann doch nicht sein?! Da muss es doch eine Lösung für geben, die Spalte rechtsbündig hinzubekommen? Was macht man zum Beispiel in Sprachen, die generell rechtsbündig geschrieben werden?

[daywalker9]

Probier mal dies hier:

Delphi-Quellcode:

column:=ListView1.Columns.Add;
column.Alignment := taRightJustify;

Das müsste funktionierten.

[martinf16]

Zitat:

Zitat von daywalker9

Probier mal dies hier:

Delphi-Quellcode:

column:=ListView1.Columns.Add;
column.Alignment := taRightJustify;

Das müsste funktionierten.

Geht leider nicht. Es geht ja um die erste Spalte, bei den anderen Spalten geht es immer. Aber nicht bei der ersten Spalte... Vielleicht muss man da irgendeine Eigenschaft überschreiben, die die eigenen Einstellungen zurücksetzt oder so?!

[DeddyH]

Vielleicht ist das in #7 nicht ganz klar formuliert gewesen:

Zitat:

Delphi-Quellcode:

procedure TListColumn.SetAlignment(Value: TAlignment);
begin
  if (Alignment <> Value) and (Index <> 0) then
  begin
    FAlignment := Value;
    ...
  end;
end;

Wenn der Index 0 ist, wird der Alignment-Setter von TListColumn gar nicht erst ausgeführt. Da bleiben wie bereits gesagt nur eine "Blindspalte" oder selbst zeichnen.

[martinf16]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

 and (Index <> 0)

Ich habe die Stelle auch schon probeweise rausgenommen, aber es funktioniert trotzdem nicht.

[DeddyH]

Dann müsstest Du ja das entsprechende VCL-Package neu kompilieren.