VirtualStringTree für die CE-11.3

[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]