VirtualStringTree 4.8.6 HeaderClick liefert Column falsch

[Oracle]

Hallo zusammen,

ich habe heute endlich mal ein Update vom VirtualTreeView gemacht. Und zwar von 4.5.2 auf 4.8.6.
Jetzt habe ich das Problem, dass im HeaderClick Event nicht mehr die Column zurückgegeben wird.
Ich bekommen immer riesige Werte zurückgeliefert.

Delphi-Quellcode:

procedure TForm1.VirtualStringTree1HeaderClick(Sender: TVTHeader;
  Column: TColumnIndex; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);

begin
  // Column ist riesig
end;

Wisst ihr was ich falsch mache? Vorher ging es ja noch. Und ich brauch das Ereignis fürs Sortieren.

Vielen Dank euch schonmal im Vorraus

[Oracle]

ich hab jetzt mal die Versionen 4.7 und 4.8.5 getestet und in denen funktioniert alles noch.
Ist das also ein Bug in der 4.8.6?
Hat sonst niemand dieses Problem bisher gehabt?

[niko022]

Gibt es dazu inzwischen eine Lösung?

Ich habe das selbe Problem.

Vielen Dank.

[Gollum]

Hallo,

des Ereignis hat seit der Version 4.8.5 oder 4.8.6 das Format

Delphi-Quellcode:

procedure TAPAMainForm.VirtualStringTree1HeaderClick(Sender: TVTHeader;
  HitInfo: TVTHeaderHitInfo);
begin
  with HitInfo do
  begin
    case Column of
     0: DoSomething;
    end; 
  end;
end;

Was mich an dieser Stelle wundert ist, dass der Compiler die falsche Parameterliste des Ereignisses nicht anmeckert. Um das Problem zu lösen, muss das Ereignis neu erzeugt werden.

[pertzschc]

Zitat von Gollum:

Was mich an dieser Stelle wundert ist, dass der Compiler die falsche Parameterliste des Ereignisses nicht anmeckert. Um das Problem zu lösen, muss das Ereignis neu erzeugt werden.

Kann das an alten DCU-Leichen auf dem Rechner liegen? Hast Du vor dem Update alle entfernt?

Gruß,
Christoph

[Gollum]

Zitat von pertzschc:

Kann das an alten DCU-Leichen auf dem Rechner liegen? Hast Du vor dem Update alle entfernt?

Ich habe eigentlich nichts entfernt. Weder alte Leichen oder sontswas. Ausser, dass ich den (alten) TreeView deinstalliert habe, habe ich an meinem System nichts geändert.

[niko022]

Ich habe jetzt das Ereignis auf das folgende abgeändert und die Column-Auswahl funktioniert jetzt

Delphi-Quellcode:

procedure TTS_Maschinen.VST_MaschinenHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);
begin
  with Sender do
  begin
    if (SortColumn = HitInfo.Column) and (SortDirection = sdAscending) then
      SortDirection := sdDescending
    else
      SortDirection := sdAscending;
      SortColumn    := HitInfo.Column;
  end;
end;

Leider springt er jetzt aber nicht in das CompareNodes Ereignis und sortiert mir dann die Spalte wirklich.
Was könnte dafür die Ursache sein?

Vielen Dank.

[niko022]

Gelöst

AutoSort war nicht aktiv

Jezt paßt es

[Oracle]

Nachdem ich alle zum VST gehörenden Dateien nochmal gründlich gelöscht habe, so wie im diesem
Thread
beschrieben, gehts jetzt bei mir auch.

Danke euch