Text in Listbox zentrieren

[MoziGut]

auch wenn es schon etwas älter ist, ist der Code auch anwendbar für Mobile Firemonkey Anwendungen?
Bzw. wie kann ich bei einer MF-Anwendung den Text in einer Listbox zentrieren?

PS: Ich nutzte Delphi XE5, es ist eine Mobile Firemonkey Anwendung und es ist für Android!

[Popov]

Ich kenne Firemonkey nicht, aber hat die ListBox eine DrawItem? DrawItem bedeutet, dass du das Item selbst zeichnest.

[himitsu]

DrawText => WinAPI => Antwort: Nein
Ebenso bei SetWindowLong.


Ein Event ala OnDrawItem dürfte/könnte es aber auch in der FireMonkey-ListBox geben, so das du es selber zeichnen könntest,
falls es dort nicht doch eine Möglichkeit gibt, den ListItems eine entsprechende Formatierungsoption mitzugeben.

[Popov]

Hier ein Beispiel, kannst es testen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ListBox1 do
    Style := lbOwnerDrawFixed;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  LB: TListBox;
  dTop, dLeft: Integer;
  Size: TSize;
begin
  if not (Control is TListBox) then Exit;
  LB := Control as TListbox;

  Size := LB.Canvas.TextExtent(LB.Items[Index]);
  dTop := (LB.ItemHeight - Size.cy) div 2;
  dLeft := ((Rect.Right - Rect.Left) - Size.cx) div 2;

  LB.Canvas.TextRect(Rect, Rect.Left + 2 + dLeft, Rect.Top + dTop, LB.Items[Index]);
end;

[Volker Z.]

Hallo,

Zitat:

[...] Bzw. wie kann ich bei einer MF-Anwendung den Text in einer Listbox zentrieren?

Hast Du Dir schon mal die Eigenschaft TextAlign*) eines TListBoxItem angesehen? Oder gibt es einen besonderen Grund den Text selbst zu zeichnen?

Gruß

*) Die Angabe in der Hilfe taCenter sei der Defaultwert, ist für XE4 - vermutlich auch für XE5 - falsch (Default ist taLeading).

[MoziGut]

@Popov: Sicher das der Code auch für MF-Anwendungen funktioniert?
@Volker Z.: Wenn es möglich ist ohne selber zu zeichnen/schreiben, gerne. Allerdings funktioniert TTextControl für Listboxen nicht.
Und wenn ich den TextAlign für ein Item umstelle, wird das doch noch lange nicht auch für die folgenden Items übernommen!?!

[Popov]

Zitat von MoziGut:

@Popov: Sicher das der Code auch für MF-Anwendungen funktioniert?

Das weiß ich nicht, aber falls da ItemDraw ist, warum nicht? Ist nur zeichnen auf Canvas.

[Volker Z.]

Hallo,

Zitat:

[...] Allerdings funktioniert TTextControl für Listboxen nicht. [...]

Was meinst Du mit: funktioniert nicht? TTextControl ist erst mal eine Klasse. Ein TListBoxItem ist eine abgeleitete Klasse von TTextControl. In eine Instanz von TListBox kann man - u. a. - Einträge vom Typ TListBoxItem einfügen und sich diese in der Listbox anzeigen lassen (zumindest unter XE4, wahrscheinlich auch unter XE5); was sollte daran nicht funktionieren?

Zitat:

Und wenn ich den TextAlign für ein Item umstelle, wird das doch noch lange nicht auch für die folgenden Items übernommen!?!

Ja, das stimmt schon. Aber: Was man mit einem Item machen kann, geht auch mit zwei, drei, ..., vielen oder gar mit allen.
Wenn ich obige Aussage richtig interpretiere, dann schein es so zu sein, dass Du zumindest einen Listeneintrag zentriert hinbekommst; oder liege ich da falsch?

Zitat:

[...] Hat noch jemand eine Idee?

Vielleicht beschreibst Du mal Dein Problem genauer, also: das sollte am Ende bei rauskommen, dieses und jenes habe ich bereits versucht (siehe Sourcecode), leider sieht es noch nicht so aus wie ich möchte (siehe Screenshot), hat jemand eine Idee, die mir weiterhelfen könnte?

Gruß