VPF::ValueListEditor может ли себя сохранять и загружат

Delphist

Дата 3.3.2009, 19:44 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Есть компонент TValueListEditor. Возник вопрос может ли он себя сохранять в реестр (на крайняк в файл) и загружать из реестра (файла). Если нет, есть ли аналоги данного компонента умеющие это делать?

И еще такой момент, можно ли в ValueListEditor'e для каждого Key делать так что у его Value мог быть скажем ComboBox, или поле в котором можно вводить только цифры, см. рис.

Это сообщение отредактировал(а) Delphist - 3.3.2009, 20:05

Присоединённый файл ( Кол-во скачиваний: 11 )

ValueList.JPG 14,32 Kb

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

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

bems

Дата 3.3.2009, 20:35 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

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

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

TStringList умеет себя сохранять. А у TValueListEditor есть соотв. свойство

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

Обижено школьников: 8

Delphist

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

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

Загрузка ...

Delphist Эксперт

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

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

Цитата(bems @ 3.3.2009, 21:35

)

TStringList умеет себя сохранять. А у TValueListEditor есть соотв. свойство

А вот этот момент, можно ли в ValueListEditor'e для каждого Key делать так что у его Value мог быть скажем ComboBox, или поле в котором можно вводить только цифры

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

~FoX~

Дата 4.3.2009, 10:12 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

Может так покатит?

Код


procedure TForm1.Button1Click(Sender: TObject);
var f: TFileStream;
begin
  f := TFileStream.Create('c:\VLE.vle', fmcreate);
  f.WriteComponent(ValueListEditor1);
  f.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  f: TFileStream;
begin
  f := TFileStream.Create('c:\VLE.vle', fmOpenRead);
  f.ReadComponent(ValueListEditor1);
  f.Free;
end;

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

…множественность никогда не следует полагать без необходимости…

Delphist

Дата 4.3.2009, 13:24 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Цитата(Delphist @ 4.3.2009, 11:11

)

посмотрел более внимательно на ValueListEditor, оказывается он и сам все это умеет, у него есть свойство ItemProps задающий стиль для каждого ключа, ну и соответственно сообытия OnPickList, OnGetEditMask smile

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

Delphist

Дата 5.3.2009, 11:27 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Возникли некоторые проблемы. Когда я установил PickList для какого-либо ключа,

Код


var
  vle: TValueListEditor
  sl: TSringList;

...
  sl.Add('Значение №1');
  sl.Add('Значение №2');
  sl.Add('Произвольное значение);

  vle.ItemProp['МОЙ_КЛЮЧ'].PickList := sl;
...

Это дает возможность того, что теперь на строке МОЙ_КЛЮЧ в колонке Value выскакивает раскрывающийся список
из трех элементов:

Код


  Значение №1
  Значение №2
  Произвольное значение

скажите, пожалуйста, в каком мне обработчике TValueListEditor'a нужно написать код, чтобы при выборе значения "Произвольное значение" в поле Value заносилась пустая строка.

в обработчике OnStringsChange я написал так:

Код


procedure
  TfmOMSSettingDlg.vleParamStringsChange(Sender: TObject);
begin

  with vle do
  if Values[Keys[Row]] = 'Произвольное значение' then
      Values[vle.Keys[Row]] := '';
end;

но эффект не совсем тот который я хотел, дело в том, что сначало появляется в поле надпись "Произвольное значение", а уж потом, когда я перехожу на новую строку появляеся пустая сторка, а хотелось бы сразу

Это сообщение отредактировал(а) Delphist - 5.3.2009, 12:13

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

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