Einzelnen Beitrag anzeigen

alda

Registriert seit: 24. Mär 2014
Ort: Karlsruhe
93 Beiträge
 
Delphi XE6 Architect
 
#4

AW: VirtualTreeview wie kriege ich links den Zeilen-Indikator?

  Alt 10. Okt 2015, 11:48
Das ist natürlich schön, dass Du die Lösung gefunden hast Allerdings wäre es für den nächsten mit Sicherheit hilfreich zu wissen wo in der Demo das gesetzt wird.
In der von Dir genannten Demo findet sich das setzen des "Indikators" in der Methode TGeneralForm.VST2GetImageIndexEx:

Delphi-Quellcode:
procedure TGeneralForm.VST2GetImageIndexEx(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind;
  Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer; var ImageList: TCustomImageList);

var
  Data: PNodeData2;

begin
  // For this demo only the normal image is shown, you can easily
  // change this for the state and overlay images.
  case Kind of
    ikNormal, ikSelected:
      begin
        Data := Sender.GetNodeData(Node);
        Ghosted := Node.Index = 1;
        case Column of
          -1, // general case
          0: // main column
            ImageIndex := Data.Level + 7;
          1: // image only column
            if Sender.FocusedNode = Node then
              ImageIndex := 6;
        end;
      end;
    ikOverlay:
      begin
        // Enable this code to show an arbitrary overlay for each image.
        // Note the high overlay index. Standard overlays only go up to 15.
        // Virtual Treeview allows for any number.
        // ImageList := ImageList1;
        // ImageIndex := 58;
      end;
  end;
end;
Und ja, die erste Spalte im Header ist die Spalte mit dem Index "1" (die mit dem Zeilenindikator) und die zweite Spalte (main column) ist die mit dem Index "0"

Geändert von alda (10. Okt 2015 um 11:50 Uhr)
  Mit Zitat antworten Zitat