Registriert seit: 9. Aug 2007
207 Beiträge
|
AW: TVirtualStringTree AutoFitColumns erste Spalte wird nicht angepasst
6. Apr 2017, 13:04
Tja da hat wohl jemand das "^" beim Zugriff auf Data vergessen.
alt:
Delphi-Quellcode:
Node := vstTable.FocusedNode;
if Assigned(Node) then
begin
Data := vstTable.GetNodeData(Node);
if Assigned(Data) then
begin
Data.Name := Data.Name + 'xyz 12345';
Data.Desc := Data.Desc + 'xyz 12345';
end;
end;
so wie es muss:
Delphi-Quellcode:
Node := vstTable.FocusedNode;
if Assigned(Node) then
begin
Data := vstTable.GetNodeData(Node);
if Assigned(Data) then
begin
Data^.Name := Data^.Name + 'xyz 12345';
Data^.Desc := Data^.Desc + 'xyz 12345';
end;
end;
Beim OnGetText genau so. Usw.
Was heißt vergessen, es funktionierte bisher auch gut ohne. Aber auch mit "^" ändert sich nichts am ursprünglichen Problem, das die erste Spalte nicht angepasst wird wenn ich AutoFitColumns aufrufe.
Bei michse schon. Hast Du es auch überall angepasst?
|