Как в TTreeNode добавить Tag?.

← →
sherbacov (2004-06-17 19:48) [0]

Сабж.
Пробовал Так:
TTreeNode = class(TPersistent) private FOwner: TTreeNodes; FText: string; FData: Pointer; FItemId: HTreeItem; FImageIndex: TImageIndex; FSelectedIndex: Integer; FOverlayIndex: Integer; FStateIndex: Integer; FDeleting: Boolean; FInTree: Boolean; FTag:Integer; function CompareCount(CompareMe: Integer): Boolean; function DoCanExpand(Expand: Boolean): Boolean; procedure DoExpand(Expand: Boolean); procedure ExpandItem(Expand: Boolean; Recurse: Boolean); function GetAbsoluteIndex: Integer; function GetExpanded: Boolean; function GetLevel: Integer; function GetParent: TTreeNode; function GetChildren: Boolean; function GetCut: Boolean; function GetDropTarget: Boolean; function GetFocused: Boolean; function GetIndex: Integer; function GetItem(Index: Integer): TTreeNode; function GetSelected: Boolean; function GetCount: Integer; function GetTreeView: TCustomTreeView; procedure InternalMove(ParentNode, Node: TTreeNode; HItem: HTreeItem; AddMode: TAddMode); function IsEqual(Node: TTreeNode): Boolean; function IsNodeVisible: Boolean; procedure ReadData(Stream: TStream; Info: PNodeInfo); procedure SetChildren(Value: Boolean); procedure SetCut(Value: Boolean); procedure SetData(Value: Pointer); procedure SetDropTarget(Value: Boolean); procedure SetItem(Index: Integer; Value: TTreeNode); procedure SetExpanded(Value: Boolean); procedure SetFocused(Value: Boolean); procedure SetImageIndex(Value: TImageIndex); procedure SetOverlayIndex(Value: Integer); procedure SetSelectedIndex(Value: Integer); procedure SetSelected(Value: Boolean); procedure SetStateIndex(Value: Integer); procedure SetText(const S: string); procedure SetTag(Value: Integer); procedure WriteData(Stream: TStream; Info: PNodeInfo); protected function GetState(NodeState: TNodeState): Boolean; procedure SetState(NodeState: TNodeState; Value: Boolean); procedure SetSelectedBit(Value: Boolean); public constructor Create(AOwner: TTreeNodes); destructor Destroy; override; function AlphaSort(ARecurse: Boolean = False): Boolean; procedure Assign(Source: TPersistent); override; procedure Collapse(Recurse: Boolean); function CustomSort(SortProc: TTVCompare; Data: Longint; ARecurse: Boolean = False): Boolean; procedure Delete; procedure DeleteChildren; function DisplayRect(TextOnly: Boolean): TRect; function EditText: Boolean; procedure EndEdit(Cancel: Boolean); procedure Expand(Recurse: Boolean); function getFirstChild: TTreeNode; {GetFirstChild conflicts with C++ macro} function GetHandle: HWND; function GetLastChild: TTreeNode; function GetNext: TTreeNode; function GetNextChild(Value: TTreeNode): TTreeNode; function getNextSibling: TTreeNode; {GetNextSibling conflicts with C++ macro} function GetNextVisible: TTreeNode; function GetPrev: TTreeNode; function GetPrevChild(Value: TTreeNode): TTreeNode; function getPrevSibling: TTreeNode; {GetPrevSibling conflicts with a C++ macro} function GetPrevVisible: TTreeNode; function HasAsParent(Value: TTreeNode): Boolean; function IndexOf(Value: TTreeNode): Integer; procedure MakeVisible; procedure MoveTo(Destination: TTreeNode; Mode: TNodeAttachMode); virtual; property AbsoluteIndex: Integer read GetAbsoluteIndex; function IsFirstNode: Boolean; property Count: Integer read GetCount; property Cut: Boolean read GetCut write SetCut; property Data: Pointer read FData write SetData; property Deleting: Boolean read FDeleting; property Focused: Boolean read GetFocused write SetFocused; property DropTarget: Boolean read GetDropTarget write SetDropTarget; property Selected: Boolean read GetSelected write SetSelected; property Expanded: Boolean read GetExpanded write SetExpanded; property Handle: HWND read GetHandle; property HasChildren: Boolean read GetChildren write SetChildren; property ImageIndex: TImageIndex read FImageIndex write SetImageIndex; property Index: Integer read GetIndex; property IsVisible: Boolean read IsNodeVisible; property Item[Index: Integer]: TTreeNode read GetItem write SetItem; default; property ItemId: HTreeItem read FItemId; property Level: Integer read GetLevel; property OverlayIndex: Integer read FOverlayIndex write SetOverlayIndex; property Owner: TTreeNodes read FOwner; property Parent: TTreeNode read GetParent; property SelectedIndex: Integer read FSelectedIndex write SetSelectedIndex; property StateIndex: Integer read FStateIndex write SetStateIndex; property Text: string read FText write SetText; property TreeView: TCustomTreeView read GetTreeView; property Tag: Integer read FTag write FTag; end; { TTreeNodes }

procedure Tf.ListViewMetodicsChange(Sender: TObject;
Node: TTreeNode);
begin
i:= Node.Tag
end;

Но все равно
"Undeclared identifier: "Tag""

← →
Тимохов © (2004-06-17 19:51) [1]

на фиг tag и объявление вашего ttreenode.
пользуйсеть свойсвтом data.

← →
TUser © (2004-06-17 20:53) [2]

TMyCoolNode = class(TTreeNode)
private
FTag:integer;
published
property Tag:integer read FTag write FTag;
end;

← →
TUser © (2004-06-17 20:54) [3]

Хотя, зачем pubished - не знаю. :)

← →
sherbacov (2004-06-18 11:39) [4]

Я правлю ComCtrls.pas и все равно не находит.
2Тимохов можно примерчик.

← →
Amoeba © (2004-06-18 11:47) [5]

> sherbacov (18.06.04 11:39) [4]

> Я правлю ComCtrls.pas и все равно не находит.

А этого делать не надо!!! Не трогай генофонд. При использовании пакетов работать все равно не будет.

Тебе уже сказали: используй св-во Data
Integer(Data) := 1;

← →
sherbacov (2004-06-18 11:53) [6]

Блин я понимаю, что это делать не надо, но почему он его не добавляет?.

Если используешь компиляцию с пакетами, то никакие изменения, сделанные в родных библиотеках видны не будут.

← →
sherbacov (2004-06-18 12:07) [8]

Спасибо разобрался.

Как в TTreeNode добавить Tag?. Найти похожие ветки