VPF::Ini и treeview - Форум программистов

Shantal

Дата 7.10.2009, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 16.7.2008

Репутация: нет
Всего: нет

Всем привет.
Помогите пожалуйста, не могу взять в толк как сделать вот что.
Имеется форма, на этой форме есть дерево, пользователь открывает форму, выбирает нужную ветку (дерево предприятий, детки будут подразделения), так вот выбрал подразделение и нажал на кнопку ok, форма закрылась при следующем открытии формы, дерево должно быть таким каким его покинул пользователь, т.е. должен быть открыт тот узел, который он выбирал в прошлый раз. Не могу понять как это прописать (сохранить) в ini, помогите пожалуйста.

Akella

Дата 7.10.2009, 11:10 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Запоминай названия узлов и сохраняй в ини.. Затем просто читай из ини названия предприятия и подразделения. Переходи к нужному предприятию и отрывай узел, переходи к нужно подразделению.

Добавлено через 15 секунд
Или тебе просто весь код написать?

Shantal

Дата 7.10.2009, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 16.7.2008

Репутация: нет
Всего: нет

Желательно, если можно

Keeper89

Дата 7.10.2009, 15:53 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Вот процедуры открытия в дереве и сохранения из него:

Код


procedure Load(const entName, depName: AnsiString);
var
  tempNode: TTreeNode;
begin
  with Form1 do
  begin
    tempNode := TreeView1.Items.GetFirstNode;

    while Assigned(tempNode) and (tempNode.Text <> entName) do
      tempNode := tempNode.getNextSibling;
    tempNode := tempNode.getFirstChild;
    while Assigned(tempNode) and (tempNode.Text <> depName) do
      tempNode := tempNode.getNextSibling;

    tempNode.Selected := True;
  end;
end;

procedure Save(var entName, depName: AnsiString);
var
  tempNode: TTreeNode;
begin
  with Form1 do
  begin
    tempNode := TreeView1.Selected;
    depName := tempNode.Text;

    tempNode := tempNode.Parent;
    entName := tempNode.Text;
  end;
end;

Осталось добавить чтение и сохранение в INI.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Akella

Дата 8.10.2009, 08:28 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(Akella @ 7.10.2009, 11:10

)

Или тебе просто весь код написать?

Цитата(Shantal @ 7.10.2009, 15:26

)

Желательно, если можно

Сколько?

Shantal

Дата 13.10.2009, 08:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 16.7.2008

Репутация: нет
Всего: нет

Keeper89, спасибо большое.
Не получается добавить чтение и сохранение в INI, помоги пожалуйста

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »