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

 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;

[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).