VirtualStringTree für die CE-11.3

[NoName1]

Guten Tag,
ich habe eine Unit in der ich die VirtualStringTrees einstelle. In der CE10.4 ist noch alles in Ordnung. In der CE11.3 werden beim Compilieren
nur Fehler geworfen, dass alle Bezüge auf das VST nicht mehr compiliert werden können.

Hat jemand wissen darüber ob für das VirtualStringTree andere Optionen oder sonstige sich geändert hat?

Delphi-Quellcode:

procedure TOVST_Einstellung.Stell_Vst_Ein;
var
  aVST: TVirtualStringTree;
begin
  aVST := FVST;

  aVST.LineStyle :=  lsSolid;  // Fehleranzeige
  aVST.Color := $00D0F8FF;
  with aVST.Colors do // Fehleranzeige
  begin
    HotColor := clFuchsia;
    TreeLineColor := clRed;
    FocusedSelectionColor := clBlack;
    UnfocusedSelectionColor := $0000C0FF;
    UnfocusedSelectionBorderColor := clRed;
  end;
  with aVST.TreeOptions do
  begin
    MiscOptions := MiscOptions + [toEditable, toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave];
    PaintOptions := PaintOptions + [toShowVertGridLines, toShowHorzGridLines, toShowRoot, toUseblendedImages,
    toUseBlendedSelection];
    SelectionOptions := SelectionOptions + [toExtendedFocus, toFullRowSelect, toRightClickSelect];
  end;

  aVST.CheckImageKind := ckSystemDefault;
  aVST.DragMode := dmAutomatic;
  aVST.DragType := dtOLE;
end;

Die aktuelle Version für das VirtualStringTree habe ich bei der JAM-Software herruntergeladen.
Aber auch die Installation aus der CE11.3 über GetIT funktioniert nicht.

Vielen Dank für Eure evtl. Hilfe

[Alter Mann]

Hallo,

bei mir geht's:

Delphi-Quellcode:

uses
   VirtualTrees.Types;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StellVstEin(Vst);
end;

procedure TForm1.StellVstEin(aVST : TVirtualStringTree);
begin
  aVST.LineStyle := lsSolid; 
  aVST.Color := $00D0F8FF;
  with aVST.Colors do 
  begin
    HotColor := clFuchsia;
    TreeLineColor := clRed;
    FocusedSelectionColor := clBlack;
    UnfocusedSelectionColor := $0000C0FF;
    UnfocusedSelectionBorderColor := clRed;
  end;
  with aVST.TreeOptions do
  begin
    MiscOptions := MiscOptions  + [toEditable, toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave];
    PaintOptions:= PaintOptions + [toShowVertGridLines, toShowHorzGridLines, toShowRoot, toUseblendedImages, toUseBlendedSelection];
    SelectionOptions := SelectionOptions + [toExtendedFocus, toFullRowSelect, toRightClickSelect];
  end;

  aVST.CheckImageKind := ckSystemDefault;
  aVST.DragMode := dmAutomatic;
  aVST.DragType := dtOLE;
end;

Zitat:

Aber auch die Installation aus der CE11.3 über GetIT funktioniert nicht.

Was funktioniert nicht? Du musst schon etwas genauer werden.

[Edit] Ich habe 11.3CE und VST über GetIT installiert[/Edit]

[mmw]

Hallo,

bei mir wurden dir *.res Dateien nicht gefunden, obwohl der Pfad mit den Dateien abwechselnd im Suchpfad des Project's bzw. im Biblothekspfad eingetragen waren.

Geholfen hat den '..\Virtual-TreeView\Source\' Pfad einzutragen.

runtergeladen habe ich die Komponente bei JAM bzw. bei GitHub

Gruß

[NoName1]

Zitat:

Alter Mann

Alle Zuweisungen wie zum Bsp.:
aVST.LineStyle := lsSolid;
Alle MiscOptions, Alle PaintOptions usw.

Zitat:

by mmw

Der Pfad ist auch korrekt eingetragen

[mmw]

Hallo,

die Unit 'VirtualTrees.Types' wird beim hinzufuegen des VST nicht automatisch
mit eingebunden.

Nach manuellen hinzufuegen funktioniert's bei mir.

Gruß

[NoName1]

Hallo mmw
mit dem Einbinden von .Types lässt es sich wieder compilieren.
Danke für den Hinweis.