Text in Listbox zentrieren

[schuetzejanett]

Hallo,

ich erstelle während der laufzeit eine bestimmte anzahl von Listboxen.
Nun möchte ich das der Inhalt der Listboxen zentriert ist deswegen habe
ich es mit dem Befehl

Delphi-Quellcode:

 setwindowlong(APunkte[i].Handle ,GWL_Style , ES_CENTER);

jetzt haben die listboxen aber nicht mehr die eingestellte größe und sind alle in der mitte zentriert.
Also nicht das was ich wollte wie schaffe ich es nun nur den text(Inhalt) der listboxen zu zentrieren hier noch mal der gesamte quellcode

Delphi-Quellcode:

 APunkte : array of TListbox;

setlength(APunkte,unit1.anz);
 For i :=0 to High(APunkte) do
    begin
      APunkte[i] := TListbox.Create(self);

      with APunkte[i] do
        begin
          parent := TPunkt;
          Items.add (inttostr(aspieler[i].punkte[0]));
          Height := 320;
          Top := 105;
          Width := 85;
          Left := 15 + (i * 90);
          parent := self;
        end;
      setwindowlong(APunkte[i].Handle ,GWL_Style , ES_CENTER);
    end;

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Multimedia" nach "VCL / WinForms / Controls" verschoben.
Ist eher eine Frage für die VCL-Sparte

[schuetzejanett]

hallo,

geht es denn wenn ich statt einer listbox ein memofeld nehme , weil ich ja bloß eine Zahlenreihe anzeigen will, und wenn ja wie schaffe ich es ein memofeld nur read only ist

[Hawkeye219]

Hi,

es sollte funktionieren, wenn Du die Einträge der Listboxen selbst zeichnest. Dazu setzt Du die Eigenschaft Style auf den Wert lbOwnerDrawFixed und schreibst eine Behandlungsroutine für das Ereignis OnDrawItem. Diese Routine könnte so aussehen:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem (Control: TWinControl; Index: Integer;
                                   Rect: TRect; State: TOwnerDrawState);
  var Breite, x : Integer;
begin
  // Pixelbreite des Eintrags bestimmen
  Breite := ListBox1.Canvas.TextWidth(ListBox1.Items[Index]);
  // x-Position des Eintrags bestimmen
  x := (Rect.Left + Rect.Right - Breite) div 2;
  // Eintrag darstellen
  ListBox1.Canvas.TextRect(Rect, x, Rect.Top, ListBox1.Items[Index]);
end;

Die Erklärung der Parameter findest Du in der Online-Hilfe.

Gruß Hawkeye

[Lannes]

Hallo,

kannst auch DrawText nehmen, dann brauchst Du nichts berechnen.

Delphi-Quellcode:

DrawText(ListBox1.Canvas.Handle,
         PChar(ListBox1.Items[Index]),
         Length(ListBox1.Items[Index]),
         Rect,
         DT_CENTER);

[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:

Zitat von MoziGut (Beitrag 1254274)

@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.

[MoziGut]

Nope soweit ich das sehe, funktioniert "ItemDraw" bei MF-Anwendunge nicht! Hat noch jemand eine Idee?

[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ß