Forum: Object-Pascal / Delphi-Language
Delphi
by HoRo,
7. Nov 2005
Das war ein sehr nützlicher Tip !!! :oops:
Das ganze funktioniert jetzt auch (ich berechne jetzt nur noch zusätzlich die position von rect, damit die Ausgabe mittig im Item ist:
PROCEDURE TMyReportList.ListViewDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: integer; State: TCustomDrawState; var DefaultDraw: boolean);
var drawstate: cardinal;
rect : TRect;
...
Forum: Object-Pascal / Delphi-Language
Delphi
by HoRo,
7. Nov 2005
Hallo Sharky,
das sieht alles ganz gut aus, ich komme nur noch nicht dahinter wie ich an RECT komme. :?
mit der procedur/Methode :
ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @rect);
komme ich somit auch nicht weiter, vielleicht kannst du mir noch einen Tip in dieser Richtung geben.
Forum: Object-Pascal / Delphi-Language
Delphi
by HoRo,
7. Nov 2005
Hallo,
die Text ausgabe mache ich mit ListView:
erstellen:
for j := 1 to LineNbr do begin
NewItem := Items.Add;
NewItem.Caption := 'Text';
for i := 1 to ColumnNbr do begin
NewItem.SubItems.Add('Text');
Forum: Object-Pascal / Delphi-Language
Delphi
by HoRo,
4. Nov 2005
Hallo,
ich habe es schon geschaft in jedem Item einer TListView den Text in verschiedenen Schriftgrößen auszugeben (über OnCustomDrawSubItem und OnCustomDrawItem- Event). Dabei wird der Text aber immer von links oben aus geschreiben.
Wie schaffe ich es den Text Horizontal und/oder Vertikal zu zentrieren?
Danke
Gruß
HoRo