![]() |
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
Dann mache die Berechnung doch selber. :)
Wir machen das bei uns so (ist ein Frame mit einem VST drauf, der Tree als Name hat):
Delphi-Quellcode:
function TFrameVST.GetMaxHeaderWidth(const Column: TColumnIndex): Integer;
var col: TVirtualTreeColumn; Size: TSize; begin col := Tree.Header.Columns[Column]; Result := 2 * col.Margin; if (Length(col.Text) > 0) then begin Tree.Canvas.Font := Tree.Header.Font; GetTextExtentPoint32W(Tree.Canvas.Handle, PWideChar(col.Text), Length(col.Text), Size); Inc(Result, Size.cx + 4); end; if (hoShowImages in Tree.Header.Options)and(Assigned(Tree.Header.Images)) then Inc(Result,(Tree.Header.Images.Width + col.Spacing)); if (hoShowSortGlyphs in Tree.Header.Options)and(Tree.Header.SortColumn = Column) then begin Inc(Result, 20); // Platz für Sortimage if (col.CaptionAlignment = taCenter) then Inc(Result, 14); // mehr Platz für Sortimage berücksichtigen end; if Result < col.MinWidth then Result := col.MinWidth; if Result > col.MaxWidth then Result := col.MaxWidth; end; procedure TFrameVST.AutoFitColumn(Column: TColumnIndex); var cWidth, hWidth: Integer; begin if [coResizable, coVisible] * Tree.Header.Columns[Column].Options = [coResizable, coVisible] then begin if (hoVisible in Tree.Header.Options) then begin hWidth := GetMaxHeaderWidth(Column); cWidth := Tree.GetMaxColumnWidth(Column); if cWidth < hWidth then cWidth := hWidth; if cWidth > Tree.Header.Columns[Column].MaxWidth then cWidth := Tree.Header.Columns[Column].MaxWidth; Tree.Header.Columns[Column].Width := cWidth; end; end; end; procedure TFrameVST.AutoFitColumns; var Column: TColumnIndex; merkCursor: TCursor; begin merkCursor := Screen.Cursor; Tree.BeginUpdate; try Screen.Cursor := crHourGlass; for Column := 0 to Tree.Header.Columns.Count-1 do AutoFitColumn(Column); finally Screen.Cursor := merkCursor; Tree.EndUpdate; end; end; FmerkOnBeforeCellPaint: TVTBeforeCellPaintEvent; procedure TFrameVST.TreeBeforeGetMaxColumnWidth(Sender: TVTHeader; Column: TColumnIndex; var UseSmartColumnWidth: Boolean); begin if Assigned(Tree.OnBeforeCellPaint) then begin FmerkOnBeforeCellPaint := Tree.OnBeforeCellPaint; Tree.OnBeforeCellPaint := nil; end; end; procedure TFrameVST.TreeAfterGetMaxColumnWidth(Sender: TVTHeader; Column: TColumnIndex; var MaxWidth: Integer); begin if Assigned(FmerkOnBeforeCellPaint) then begin Tree.OnBeforeCellPaint := FmerkOnBeforeCellPaint; FmerkOnBeforeCellPaint := nil; end; end; |
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
Am Rande bemerkt: Du könntest das auch ein bisschen abkürzen, weil GetNodeData Failsafe ist:
Delphi-Quellcode:
Davon abgesehen, du hast nicht zufällig Header.AutoSizeIndex auf 0 stehen?
Node := vstTable.FocusedNode;
Data := vstTable.GetNodeData(Node); if Assigned(Data) then begin Data.Name := 'skljglsjfgskjfsldjfksjlfkjsd'; //neuer Text ist länger als alle anderen Data.Type := 'dfkgjdkjgfklgjdkjgkljgkdjkkgdljgkdjgdgfdgld'; //neuer Text ist länger als alle anderen end; |
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
Zitat:
Delphi-Quellcode:
, und das führt bei mir ja zu einem Falschen Ergebnis.
GetMaxColumnWidth
Wäre es möglich mir die Optionen und Eigenschaften der Komponente zu zeigen, also das was in der *.dfm Datei steht? Damit ich das mit meinen Eigenschaften vergleichen kann. |
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
Nochwas: müssten das nicht dereferenzierte Pointer sein?
Delphi-Quellcode:
Node := vstTable.FocusedNode;
Data := vstTable.GetNodeData(Node); if Assigned(Data) then begin Data^.Name := 'skljglsjfgskjfsldjfksjlfkjsd'; //neuer Text ist länger als alle anderen Data^.Type := 'dfkgjdkjgfklgjdkjgkljgkdjkkgdljgkdjgdgfdgld'; //neuer Text ist länger als alle anderen end; |
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
Zitat:
Zitat:
Delphi-Quellcode:
ändert sich nichts.
Data^.Name :=
|
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
Zeig mal bitte die Deklaration von PDataSet. Mein Verdacht ist, weil ich das beim VST schon mehrfach hatte: Speichersalat wegen wildem Pointergeschubse.
EDIT: Den Kommentar in der Implementierung von GetMaxColumnWidth hast du gesehen?
Delphi-Quellcode:
So wie du das machst bezieht sich die Kalkulation nur auf die im Viewport sichtbaren Nodes. Falls der betreffende Node aber gerade out-of-Scroll ist oder Collapsed, dann wird der nicht einbezogen.
// This method determines the width of the largest node in the given column.
// If UseSmartColumnWidth is True then only the visible nodes which are in view will be considered // Note: If UseSmartColumnWidth is False then every visible node in the tree will be initialized contradicting so // the virtual paradigm. |
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
Bei PDataset handelt es sich um einen Zeiger auf eine Klasse.
Delphi-Quellcode:
Beim befüllen bzw. hinzufügen von Einträgen wird entsprechend das Objekt erstellt
TDataset = class(TObject)
private FName: String; FType: String; public constructor Create; destructor Destroy; override; property Name: String read FName write FName; property Type: String read FType write FType; end; PDataset = ^TDataset;
Delphi-Quellcode:
Die Zelle die ich versuche zu ändern ist nicht nur sichtbar sondern hat auch noch den Focus.
Node := vstTable.AddChild(nil);
if Assigned(Node) then begin Data := vstTable.GetNodeData(Node); if Assigned(Data) then begin //init Data^ := TDataset.Create; Data.Name := 'bla bla'; Data.Type := 'bla bla'; end; end; |
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
Oh je....
Ich ahnte es. Speichersalat. Ich habe zumindest noch nie gesehen, dass man den VST mit Klasseninstanzen statt Records verwendet. Habe es auch noch nie probiert, weil alle Beispiele und Tutorials die ich so kenne alle auf Records basieren. Ändere die Deklaration von TDataSet doch bitte mal testweise so um:
Delphi-Quellcode:
TDataset = record
Name: String; Type: String; end; |
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
Zitat:
Also daran ist nichts falsch und es ist auch definitiv nicht die Ursache warum das AutoSizing nicht funktioniert. |
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
Zitat:
Delphi-Quellcode:
Und dann da die Klasseninstanzen angehangen.
type
TNodeData = record ObjRef: Pointer; end; Aber so wie hier gemacht, stelle ich mir das seltsam vor. GetNodeData erzeugt erst eine neue Variableninstanz vom Typ Pointer mit der Größe von [was eigentlich? -> OnGetNodeDataSize], dann lässt man den Speichermanager durch TDataSet.Create eine neue Klasseninstanz auf der selben Adresse erzeugen und dann überlässt man das der internen Speicherverwaltung vom VST? Hmm, ok, ich arbeite immer noch mit der letzten Lischke-Version vom VST. Vielleicht sind neuere dahingehend flexibler. Wie gesagt, ich habe das nie so gemacht. NACHTRAG: Um wieder auf das eigentliche Problem zurück zu kommen: GetMaxColumnWidth arbeitet ja intern mit Canvas.TextWidth. Wenn man da jetzt dummerweise nicht den String sondern eine getypcastete Referenz auf den String rein wirft, erhält man recht gern den Effekt, dass TextWidth immer identische Werte ausspuckt. Würde also theoretisch das Problem erklären. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz