ListView Zeilenhöhe

[Benedikt1983]

Hallo zusammen!

Weiß jemand wie man in OnCustomDrawItem von TListView (vsReport) die Zeilenhöhe erhöht?
Ich habe nämlich folgendes Problem: In einzelnen Spalten kann die Schriftgröße variieren. Wenn jetzt die Schriftgröße in diesen betreffenden Spalten größer ist als die normale Schriftgröße der ListView, dann wird der Spalteneintrag unten abgeschnitten...

Vielen Dank
Benedikt

[Loki77]

Ich bin mir nicht sicher, aber

Delphi-Quellcode:

procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
  ListView1.AutoSize := true;
end;

könnte klappen....

Philipp

[H4ndy]

Ich bin mir nicht sicher, ob du das bewerkstelligen kannst.

Eine normale ListBox stellt für solche Zwecke das OnMeasureItem Event zur Verfügung, was beim ListView nicht der Fall ist :|

[Daueronline]

Hi Leute

Ich hatte gerade ein ähnliches Problem (Zeilenhöhe der ListViewItems der Fontgröße anpassen unter Delphi 7), das OP ist zwar schon ne Weile her, aber hier ist die Lösung:

Es ist schlicht so, dass Delphi keine Neuberechnung der Zeilenhöhe bei Fontänderung vornimmt, das ist der Bug. Eine Lösung ist, die Eigenschaft SmallImages zuzuweisen (natürlich mit irgendwas gültigem, außerdem width:= 1) und deren Höhe zu verändern, dann wird eine Neuberechnung der Zeilenhöhe - auch unter Berücksichtigung der Fontgröße - durchgeführt.

Wichtig: Die Neuberechnung erfolgt aufgund der Smallimages und(!) des Fonts, wenn man also eine bestimmt Zeilenhöhe haben will kan man auch SmallImages.Height au einen Wert setzen und den Font einfach so lassen. Wichtig ist zum Auslösen reicht es nicht, den Wert von SmallImages.Height zu setzen, sondern er muss verändert werden (z.b. als Height:= 10-Height).

Vielleicht hilft das ja noch jemandem
Viele Grüße
Stefan