Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madas,
6. Apr 2017
Bitte sehr. Option toGridExtensions hinzugefügt und die "^" eingebaut. Mehr nicht. Läuft, falls man einen Node selektiert hat. ;)
object Form2: TForm2
Left = 0
Top = 0
Caption = 'Form2'
ClientHeight = 489
ClientWidth = 730
Color = clBtnFace
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madas,
6. Apr 2017
Ähm sorry Irrtum vom Amt. War irgendein Cache Effekt.
Mache bei den MiscOptions mal toGridExtensions rein, dann sollte es funzen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madas,
6. Apr 2017
Tja da hat wohl jemand das "^" beim Zugriff auf Data vergessen.
alt:
Node := vstTable.FocusedNode;
if Assigned(Node) then
begin
Data := vstTable.GetNodeData(Node);
if Assigned(Data) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madas,
4. Apr 2017
Dann mache die Berechnung doch selber. :)
Wir machen das bei uns so (ist ein Frame mit einem VST drauf, der Tree als Name hat):
function TFrameVST.GetMaxHeaderWidth(const Column: TColumnIndex): Integer;
var
col: TVirtualTreeColumn;
Size: TSize;
begin
col := Tree.Header.Columns;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madas,
4. Apr 2017
Hm. Dann könnte eventuell nur noch durch irgend etwas die AutoFit-Operation gecancelt werden.
procedure DoAutoFitColumn(Column: TColumnIndex);
begin
with FColumns do
if ( * Items].FOptions = ) and
DoBeforeAutoFitColumn(FPositionToIndex, SmartAutoFitType) and not TreeView.OperationCanceled then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madas,
4. Apr 2017
Hm, also intern wird für den Aufruf von AutoFitColumns die Position der Spalte benutzt:
AutoFitColumns(True, smaUseColumnOption, FColumns.FPosition, FColumns.FPosition)
Diese muss jedoch nicht immer zwingend mit dem ColumnIndex übereinstimmen. Vielleicht liegt es ja daran.
Ansonsten kann es fast nur noch an den Optionen für die Spalte bzw. den Tree liegen
madas