Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите заполнить дерево из меню [D5, D6, Win95/98]

dim- © (2002-08-28 01:44:00)
Помогите заполнить дерево или ini файл элементами из главного меню

Степан (2002-08-28 11:17:00) [1]
>dim-
Поместится все меню, посмотри внимательнее код.

dim- (2002-08-28 10:03:00) [2]
Если как "Степан" сделать то поместятся только "Файл","Правка" и т.д., а то что находится в них т.е. "Открыть Файл", "Сохранить файл" не попадут

Степан (2002-08-28 09:58:00) [3]
procedure SaveItemToNode(AItem: TMenuItem; ANode: TTreeNode; ATree: TTreeView);
var
NewNode: TTreeNode;
i: Integer;
begin
NewNode := ATree.Items.AddChild(ANode, AItem.Caption);
for i := 0 to AItem.Count - 1 do
SaveItemToNode(AItem.Items[i], NewNode, ATree);
end;

procedure SaveMenuToTree(AMenu: TMainMenu; ATree: TTreeView);
var
i: Integer;
begin
with ATree.Items do begin
BeginUpdate;
Clear;
for i := 0 to AMenu.Items.Count - 1 do
SaveItemToNode(AMenu.Items[i], nil, ATree);
EndUpdate;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SaveMenuToTree(Menu, Tree);
end;

Dimich1978 (2002-08-28 09:08:00) [4]
Как я понял ты хочешь заполнить дерево считывая данные из меню?
Это довольно легко вот тебе кусок кода, правда там все тягается из БД, но ты легко можешь это исправить. Может чем поможет
procedure TForm1.Image1Click(Sender: TObject);
var
MyTreeNode1: TTreeNode;
i:integer;
apchar:array[0..500] of char;
j:integer;
Icon: HICON;
YIcon:ticon;
NewIconIndex: Integer;
ChildNode: TTreeNode;
begin
table1.Active:=false;
table2.active:=false;
table1.Active:=true;
table2.active:=true;
{Вот где все заполняется}
with TreeView1.Items do
begin
Clear;
for i:=1 to table1.RecordCount do begin
MyTreeNode1 := Add(nil, table1.Fields[1].asstring);
for j:=1 to table2.RecordCount do begin
ChildNode:=AddChild(MyTreeNode1,table2.Fields[1].asstring);
strpcopy(apchar,table2.fields[4].asstring);
{А здесь еще и иконка вылавливается из файла, но тебе это не пригодится}
Icon := ExtractIcon(HInstance,apchar,0);
YIcon := TIcon.Create;
YIcon.Handle := icon;
imagelist1.AddIcon(YIcon);
ChildNode.ImageIndex := imagelist2.AddIcon(YIcon);
table2.next;
end;
table1.next;
end;
end;
end;

Степан (2002-08-28 06:17:00) [5]
Какое дерево?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »