VirtualStringTree zeigt immer Scrollbars

[David Martens]

Hi,

nach längerem mal wieder eine Frage.

Ich habe mehrere VirtualStringTree auf meinem Formular.
Die sind auf mehrere Tabs verteilt. Im ersten Tab werden Einträge ausgewählt in weiteren dann speziellen Aufgaben zugeteilt.
Die ausgewählten Einträge des ersten Tags werden dabei auf die andere kopiert. Das geht auch alles, ABER im letzten VirtualStringTree sind dann immer die blöden Scrollbars zu sehen.
Ich habe das VirtualStringTree per Copy&Paste vom Zweite genommen, so wie die anderen auch. Die Spalten erstelle ich zur Laufzeit.

Hier die Einstellungen im

Delphi-Quellcode:

FormCreate

(identisch für alle):

Delphi-Quellcode:

  vstVerfuegbare.NodeDataSize := SizeOf(TTreeData);
  vstVerfuegbare.Header.Columns.Clear;
  vstVerfuegbare.Header.Columns.Add.Text := 'Bla';
  vstVerfuegbare.Header.Columns.Add.Text := 'Blupp';
  vstVerfuegbare.Header.Columns[0].Width := TextGroesse(vstVerfuegbare.Header.Columns[0].Text, vstVerfuegbare.Header.Font).cx + 20;
  vstVerfuegbare.Header.AutoSizeIndex := 0;
  vstVerfuegbare.Header.Columns[1].Width := TextGroesse(vstVerfuegbare.Header.Columns[1].Text, vstVerfuegbare.Header.Font).cx + 20;
  vstVerfuegbare.Repaint;

Nur zur Erklärung von

Delphi-Quellcode:

TextGroesse

.

Delphi-Quellcode:

function TextGroesse(const Text : string; Font : TFont = nil) : TSize;
// Die einzige, mir gekannte, verlässlich Methode die Breite und Höhe des Textes zu ermitteln, 
// TCanvas.TextWidth() macht das nicht immer richtig.
var
  DC : hDC;
  F :  hFont;
begin
  F := 0;
  DC := GetDC(0);
  try
    if Font <> nil then
      F := SelectObject(DC, Font.Handle);
    if not GetTextExtentPoint32(DC, Text, Length(Text), Result) then
    begin
      Result.cx := 0;
      Result.cy := 0;
    end;
  finally
    if F <> 0 then
      SelectObject(DC, F);
    ReleaseDC(0, DC);
  end;
end;

Der einzige Unterschied gesteht in der zusätzlichen Methode

Delphi-Quellcode:

vstVerfuegbareDrawText

, weil ich dort einen Eintrag hervorheben will mit

Delphi-Quellcode:

TargetCanvas.Font.Style := [fsBold];

[Gollum]

Hallo,

die Scrollbars kannst Du auch ausblenden:

Delphi-Quellcode:

  vstVerfuegbare.ScrollBarOptions.Scrollbars:=ssNone;

Zitat:

vstVerfuegbare.Header.Columns[0].Width := TextGroesse(vstVerfuegbare.Header.Columns[0].Text, vstVerfuegbare.Header.Font).cx + 20;
vstVerfuegbare.Header.AutoSizeIndex := 0;

Wenn Du den AutoSizeIndex benutzt, erübrigt es sich, die Breite von Column[0] zu berechnen. Das macht der Tree dann von alleine.

[David Martens]

Danke, ich habe die ScrollBarOptions auf

Delphi-Quellcode:

ssVertical

gesetzt, das hilft schon.

Aber trotz

Delphi-Quellcode:

vstVerfuegbare.Header.AutoSizeIndex := 0;

muss ich immer noch

Delphi-Quellcode:

vstVerfuegbare.Header.Columns[1].Width

setzen, sonst ist die zweite Spalte nur ganz klein.

Gruß David

Edit:
Ich habe mich jetzt mal 2 Stunden durchgesteppt und den Fehler gefunden. ;( Asche auf mein Haupt. Ein

Delphi-Quellcode:

vstVerfuegbare.EndUpdate;

war nicht für diesen VST, sondern für einen anderen und damit war dieser VST immer im Status

Delphi-Quellcode:

tsUpdating

. Somit auch kein Neuzeichnen der Scrollbars.