TListView Ausgabe in einzelnem Item zentrieren

[HoRo]

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

[Luckie]

Wie zeichnest du denn? Mit DrawText sollte es kein Problem wein mit den Flags DT_CENTER und DT_VCENTER.

[HoRo]

Hallo,
die Text ausgabe mache ich mit ListView:

erstellen:

Delphi-Quellcode:

for j := 1 to LineNbr do begin
  NewItem := Items.Add;
  NewItem.Caption := 'Text';
  for i := 1 to ColumnNbr do begin
    NewItem.SubItems.Add('Text');
  end;
end;    // for

verändern:

Delphi-Quellcode:

for j := 1 to LineNbr do begin
  for i := 1 to ColumnNbr do begin
    if Upd then begin
      Items.BeginUpdate ;
      if i=1 then Items.Item[j-1].Caption := UpdateTxt
      else Items.Item[j-1].subitems[i-1] := UpdateTxt;
      Items.EndUpdate;
    end;
  end;   
end;

vielleicht gibt es hierfür auch eine Lösung, ich werde es aber auch mal mit DrawText versuchen.

[Sharky]

Hai HoRo,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS"

Ich habe hier ein Beispiel wie man es machen kann:

Delphi-Quellcode:

uses
  CommCtrl;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: integer; State: TCustomDrawState; var DefaultDraw: boolean);
var
  drawstate: cardinal;
  rect: TRect;
begin
  DefaultDraw := False;
  drawstate := 0;
  if (SubItem = 1) then
  begin
    drawstate := DT_RIGHT;
    Sender.Canvas.Brush.Color := clBlack;
    Sender.Canvas.Font.Color := clLime;
  end;
  if (SubItem = 2) then
  begin
    drawstate := DT_VCENTER or DT_CENTER;
    Sender.Canvas.Brush.Color := clWhite;
    Sender.Canvas.Font.Color := clBlack;
  end;
  ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @rect);
  DrawText(Sender.Canvas.Handle, PChar(Item.Caption),
    Length(Item.Caption), rect, drawstate);
end;

[HoRo]

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.

[Sharky]

Hai HoRo,

hast Du das hier im Code beachtet

Code:

uses 
  [b]CommCtrl[/b];

[HoRo]

Das war ein sehr nützlicher Tip !!!

Das ganze funktioniert jetzt auch (ich berechne jetzt nur noch zusätzlich die position von rect, damit die Ausgabe mittig im Item ist:

Delphi-Quellcode:

PROCEDURE TMyReportList.ListViewDrawSubItem(Sender: TCustomListView;
      Item: TListItem; SubItem: integer; State: TCustomDrawState; var DefaultDraw: boolean);
var drawstate: cardinal;
    rect : TRect;
    UpdateTxt:string;
begin
  DefaultDraw := FALSE;
  drawstate := 0;
  drawstate := DT_VCENTER or DT_CENTER;
  Sender.Canvas.Brush.Color := clwhite;//clyellow;
  Sender.Canvas.Font.Color := clBlack;
  Sender.Canvas.Font.size := ItemFontSize;
  UpdateTxt := item.SubItems[SubItem-1];
  ListView_GetSubItemRect(sender.Handle, Item.Index, SubItem, LVIR_BOUNDS,@rect);
  rect.Top := rect.Top + ROUND((rect.Bottom - rect.Top)/2) + Round(Sender.Canvas.Font.Height/2);
  DrawText(Sender.Canvas.Handle,PCHAR(UpdateTxt),Length(UpdateTxt),rect,drawstate);
end;

Das ganze wollte ich jetzt von den SubItems auf die Items übertragen, dabei habe ich allerdings mal wieder Probleme! Die Ausgabe ist nicht die gleiche wie bei den SubItems. Ich habe es mit der folgenden Procedur versucht:

Delphi-Quellcode:

PROCEDURE TMyReportList.ListViewDrawItem(Sender: TCustomListView; Item: TListItem;
      State: TCustomDrawState; var DefaultDraw: Boolean);
var drawstate: cardinal;
    rect : TRect;
    UpdateTxt:string;
begin
  DefaultDraw := TRUE;
  drawstate := 0;
  drawstate := DT_VCENTER or DT_CENTER;  //
  Sender.Canvas.Brush.Color := clyellow;//clwhite;//
  Sender.Canvas.Font.Color := clred;//clBlack;
  Sender.Canvas.Font.size := ItemFontSize;
  UpdateTxt := 'test';//item.Caption;
  item.Caption := UpdateTxt;
  ListView_GetItemRect(sender.Handle,Item.Index,rect,LVIR_LABEL);
  rect.Top := rect.Top + ROUND((rect.Bottom - rect.Top)/2) + Round(Sender.Canvas.Font.Height/2);
  DrawText(Sender.Canvas.Handle,PCHAR(UpdateTxt),Length(UpdateTxt),rect,drawstate);
end;

DefaultDraw ist True damit die Subitems gezeichnet werden und statt ListView_GetSubItemRect wird ListView_GetItemRect verwedet mit dem Parameter 'LVIR_LABEL'. Das Rect wird auch richtig übergeben, die Positionierung, Ausrichtung vom Text und der farbliche Hintergrund (es wird das ganze Item eingefärbt und nicht das Rect was gezeichnet werden soll) funktioniert nicht.

hat einer eine Idee was ich nun schon wieder nicht beachtet habe ??