TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst

[TUX_der_Pinguin]

Zitat von madas:

DefaultColumnOptions = [coAllowClick, coDraggable, coEnabled, coParentColor, coParentBidiMode, coResizable, coShowDropmark, coVisible, coAllowFocus, coEditable]; nix coSmartResize zu sehen.

Selbst wenn ich coSmartResize hinzufüge ändert sich am Verhalten nichts, Spalte 1 bleibt Stur und das komische ist sie wird ja nicht mals neu gezeichnet, erst wenn man das manuell anstößt mit vstTable.invalidate Ändere ich den Inhalt z.B. in Spalte 2 wird die Spalte sofort angepasst, neu gezeichnet und alles ist wunderbar.

[madas]

Zitat von TUX_der_Pinguin:

Zitat von madas:

DefaultColumnOptions = [coAllowClick, coDraggable, coEnabled, coParentColor, coParentBidiMode, coResizable, coShowDropmark, coVisible, coAllowFocus, coEditable]; nix coSmartResize zu sehen.

Selbst wenn ich coSmartResize hinzufüge ändert sich am Verhalten nichts, Spalte 1 bleibt Stur und das komische ist sie wird ja nicht mals neu gezeichnet, erst wenn man das manuell anstößt mit vstTable.invalidate Ändere ich den Inhalt z.B. in Spalte 2 wird die Spalte sofort angepasst, neu gezeichnet und alles ist wunderbar.

Hm. Dann könnte eventuell nur noch durch irgend etwas die AutoFit-Operation gecancelt werden.

Delphi-Quellcode:

procedure DoAutoFitColumn(Column: TColumnIndex);

  begin
    with FColumns do
      if ([coResizable, coVisible] * Items[FPositionToIndex[Column]].FOptions = [coResizable, coVisible]) and
            DoBeforeAutoFitColumn(FPositionToIndex[Column], SmartAutoFitType) and not TreeView.OperationCanceled then
      begin
        if Animated then
          AnimatedResize(FPositionToIndex[Column], Treeview.GetMaxColumnWidth(FPositionToIndex[Column],
            GetUseSmartColumnWidth(FPositionToIndex[Column])))
        else
          FColumns[FPositionToIndex[Column]].Width := Treeview.GetMaxColumnWidth(FPositionToIndex[Column],
            GetUseSmartColumnWidth(FPositionToIndex[Column]));

        DoAfterAutoFitColumn(FPositionToIndex[Column]);
      end;
  end;

not TreeView.OperationCanceled

Binde doch die Unit einfach mal in Dein Projekt ein und debugge das Ganze.

Viel Erfolg.

madas

[TUX_der_Pinguin]

Es wird immer lustiger, ich gucke gerade was den AutoFitColumns so tatsächlich macht.

Delphi-Quellcode:

  ShowMessage(vstTable.GetMaxColumnWidth(0, True).ToString); //Hier ist die Spalte 69px breit
  ShowMessage(vstTable.GetMaxColumnWidth(1, True).ToString); //Hier ist die Spalte 49px breit

  Node := vstTable.FocusedNode;
  if Assigned(Node) then
  begin
    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;
  end;

  ShowMessage(vstTable.GetMaxColumnWidth(0, True).ToString); //Hier ist die Spalte 69px breit -> FALSCH
  ShowMessage(vstTable.GetMaxColumnWidth(1, True).ToString); //Hier ist die Spalte 129px breit -> RICHTIG

Irgendwie scheint GetMaxColumnWidth beim Ändern des Inhaltes von Spalte 1 zu versagen ..

[madas]

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;

[TUX_der_Pinguin]

Zitat von madas:

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:

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;

Irgendwas scheint bei mir noch anders zu sein, den ihr verwendet ja auch GetMaxColumnWidth , und das führt bei mir ja zu einem Falschen Ergebnis.

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.

[Codehunter]

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;

[Codehunter]

Am Rande bemerkt: Du könntest das auch ein bisschen abkürzen, weil GetNodeData Failsafe ist:

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;

Davon abgesehen, du hast nicht zufällig Header.AutoSizeIndex auf 0 stehen?

[TUX_der_Pinguin]

Zitat von Codehunter:

Am Rande bemerkt: Du könntest das auch ein bisschen abkürzen, weil GetNodeData Failsafe ist:

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;

Davon abgesehen, du hast nicht zufällig Header.AutoSizeIndex auf 0 stehen?

Danke für den Tipp, und nein AutoSizeIndex steht nicht auf 0 es steht auf -1

Zitat von Codehunter:

Nochwas: müssten das nicht dereferenzierte Pointer sein?

Ähm... glaube nicht aber sagen wir mal so es funktioniert ja, zumindest der Zugriff nicht die Spaltenbreite Und selbst mit Data^.Name := ändert sich nichts.

[Codehunter]

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:

// 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.

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.

[TUX_der_Pinguin]

Bei PDataset handelt es sich um einen Zeiger auf eine Klasse.

Delphi-Quellcode:

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;

Beim befüllen bzw. hinzufügen von Einträgen wird entsprechend das Objekt erstellt

Delphi-Quellcode:

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;

Die Zelle die ich versuche zu ändern ist nicht nur sichtbar sondern hat auch noch den Focus.