ValueListEditor

@Itanii · Регистрация: 18.11.2011

Студворк — интернет-сервис помощи студентам

Помогите реализовать в valueListEditor ввод логина и пароля, причем в поле значения ключа "Логин" можно вводить [A...Z][a...z][А...Я][а...я][0...9][_]. А в поле значения ключа пароль можно вводить [A...Z][a...z][А...Я][а...я][0...9] и вводимые символы отображаются в виде *.

@Flyer · 18.11.2011, 14:12

Зачем ValueListEditor? Вставь себе TMaskEdit , в свойстве Password char поставь * , в свойстве Edit Mask свою маску

@Itanii · 18.11.2011, 15:40 **[ТС]**

что насчет valuelisteditor?

@Sasha · 18.11.2011, 16:08

Сообщение от Itanii

что насчет valuelisteditor?

Почитай это:

ValueListEditor

ValueListEditor
Этот компонент представляет собой окно редактирования списка строк вида "имя = значение".
Основные свойства:
TitleCaptions - тип TStrings Заголовки
Strings - тип TStrings список всех строк
Доступ к именам и значениям:
Strings->Names;
Strings->Values;
RowCount - число строк вместе с заголовком
DisplayOptions - можно фиксировать размеры заголовков, ширину колонки имён, или автоматическое изменение колонок
Options - отображение таблицы, изменение размеров пользователем и т.п.
KeyOptions - операции доступные пользователю.
• keyEdit(редактирование имён в первой колонке),
• keyAdd(добавление в список новых строк),
• keyDelete(удаление строк),
• keyUnique(не позволяет добовлять строку с неуникальным именем).
ItemProps - доступно только во время выполнения. С помощью этого свойства можно задавать доступные режимы редактирования. Пример рассмотрим ниже. Варианты:
EditMask(маскированный ввод),
• EditStyle(esSimple - обычное окно редактирования,
• exEllipsis - кнопка с многоточием,
• esPickList - выпадающий список) ,
• KeyDesk(имя появляющееся в строке данного элемента списка в колонке "Key"),
• MaxLength(максимальное число вводимых символов),
• PickList(список типа TStrings появляющийся в выпадающем списке при значении EditStyle=esPickList),
• ReadOnly(редактирование запрещено)
Долгожданный пример:
ValueListEditor1->ItemProps["Мобила"]->EditMask="!0-000-000-00-00;0;";
Пример создания кнопки выпадающего списка при EditStyle=esPickList:
в событии Form1 OnCreate пишем.
Valedit::TItemProp *ItemProp=ValueListEditor1->ItemProps["Модель"];
ItemProp->EditStyle=esPickList;
ItemProp->PickList->Add("Audi");
ItemProp->PickList->Add("BMW");
ItemProp->PickList->Add("VAZ");
ItemProp->ReadOnly=true;

В обработчике OnGetPickList можно изменять значения.
При EditStyle=esEllipsis при нажатии на кнопку с многоточием возникает событие OnEditButtonClick. В его обработчике нужно создать какое нибудь диалоговое окно в котором пользователь выберет нужное значение и установить его.
ValueListEditor1->Values["Model"]="VAZ"

@Itanii · 18.11.2011, 16:27 **[ТС]**

спасибо.
оставим один вопрос как разрешить вводить в ячейку неопределенное количество символов русского и латинского алфавита?

Добавлено через 8 минут
к примеру, тут вводится только 5 символов,нужно любое количество
ValueListEditor1->ItemProps[0]->EditMask="LLLLL";

@Sasha · 18.11.2011, 16:45

Смотри что стоит в свойстве MaxLength

@kzru_hunter · 18.11.2011, 17:29

Для примера (ввод не более 5 цифр)

C++
1
2
3
4
5
6
void __fastcall TForm1::ValueListEditor1KeyPress(TObject *Sender,
      char &Key)
{
        TValueListEditor *vlist = (TValueListEditor*)Sender;
        if ( !( (Key >= '0' && Key <= '9' && vlist->Values[vlist->Row].Length() <= 4) || Key == 8) ) Key = 0;
}

@Itanii · 18.11.2011, 18:10 **[ТС]**

спасибо

@Itanii · 19.11.2011, 20:47 **[ТС]**

Вот что у меня получилось, только пароль не скрывается за звездочками

C++
1
2
3
4
5
6
7
8
9
10
11
12
 if(ValueListEditor1->Keys[ValueListEditor1->Row]=="Логин") //проверка что ключ "Логин"
 if(Key!=8) 
  if(((Key>='A' && Key<='z' && Key!='`' && Key!='\\')||(Key>='А' && Key<='я')||(Key>='0' && Key<='9')||(Key=='Ё' || Key=='ё'))&&(ValueListEditor1->Values[ValueListEditor1->Keys[ValueListEditor1->Row]].Length()<=15))
   return;
  else
   Key=0;
 if(ValueListEditor1->Keys[ValueListEditor1->Row]=="Пароль") //проверка что ключ "Пароль"
 if(Key!=8)
  if(((Key>='A' && Key<='z' && Key!='`' && Key!='\\' && Key!='_')||(Key>='А' && Key<='я')||(Key>='0' && Key<='9')||(Key=='Ё' || Key=='ё'))&&(ValueListEditor1->Values[ValueListEditor1->Keys[ValueListEditor1->Row]].Length()<=15))
   return;
  else
   Key=0;

@DefineTrueFalse · 19.11.2011, 21:01

PasswordChar = *

@Itanii · 19.11.2011, 21:44 **[ТС]**

разве в valuelisteditor есть свойство Psswordchar?

@DefineTrueFalse · 19.11.2011, 21:49

Сообщение от Itanii

разве в valuelisteditor есть свойство Psswordchar?

Думал речь о нем не идет. Компонент не предназначен для подобной цели и встроенного параметра нет, так что только вручную.

@Sasha · 19.11.2011, 22:42

Может ему SendMessage(WM_SETPASSWORDCHAR)?

@DefineTrueFalse · 19.11.2011, 23:27

Сообщение от Sasha

Может ему SendMessage(WM_SETPASSWORDCHAR)?

Имхо, оно того не стоит. Реализовать можно только в режиме реального времени, т.к. хендл у значений появляется только в следствии его прямого редактирования (только одного элемента) и я не уверен, что формат сохранится, когда изменения будут приняты.
Так что тут либо при прорисовке действовать надо, либо сохранять пароль отдельно. Хотя мб что-то еще придумать можно, но опять же, есть ли в этом смысл.

@Sasha · 19.11.2011, 23:40

Сообщение от DefineTrueFalse

Имхо, оно того не стоит. Реализовать можно только в режиме реального времени, т.к. хендл у значений появляется только в следствии его прямого редактирования (только одного элемента) и я не уверен, что формат сохранится, когда изменения будут приняты.
Так что тут либо при прорисовке действовать надо, либо сохранять пароль отдельно. Хотя мб что-то еще придумать можно, но опять же, есть ли в этом смысл.

Я тоже думаю что здесь можно скрытие символов звёздочками, другой вопрос как это лучше сделать?

cpp_developer · 19.11.2011, 23:51

при вводе заносите логин/пароль в StringList, который также имеет Name=Value, потом по индексу заносите в ValueListEditor , оставляя имя не тронутым, а значение подменяете необходимым количеством звездочек, при необходимости вывести логин/пароль в удобоваримом виде - по индексу в ValueListEditor выводите соотвествующий индекс строки стринглиста - и Name/Value соответственно, voila, наше дело в шляпе

, можно пить пиво

@DefineTrueFalse · 20.11.2011, 00:06

Сообщение от Sasha

Я тоже думаю что здесь можно скрытие символов звёздочками, другой вопрос как это лучше сделать?

Что значит лучше? Если типа как мастдай задумал, то от этого бегите:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::ValueListEditor1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
   if ((ACol == 1) && (ARow > 0))
   {
      ValueListEditor1->Canvas->FillRect(Rect);
      ValueListEditor1->Canvas->TextOutA(Rect.left,Rect.top," "+AnsiString::StringOfChar('*',8));
   }
}

А если с точки зрения хранения пароля, то:

Сообщение от LK

при вводе заносите логин/пароль в StringList...

Это вариант при котором обломится любой "СуперПуперКряк от паролей" со своими WM_GETTEXT и EM_SETPASSWORDCHAR

Я высказал свое мнение касательно принятой визуальной подмены символов. Смысл которой не дать кому-то поблизости увидеть вводимую информацию. Но использовать ее для вывода информации крайне не разумно.

Я хотел пояснить, что не нужно повсемесно использовать визуальную подмену символов, только в случаях stop'n'buy (когда нужно ввести пароль для входа в систему и т.п.). Во многих известных программах реальный пароль записывается в текстовые поля и скрывается подобными методами. И вот этому не стоит подражать. Даже в новых "семействах" винды отказались от подобного в тех же диалогах сетевых соединений.

@Itanii · 21.11.2011, 09:55 **[ТС]**

получилось вот так,но с недочетами:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
void __fastcall TForm1::ValueListEditor1Validate(TObject *Sender, int ACol,
      int ARow, const AnsiString KeyName, const AnsiString KeyValue)
{
 AnsiString k="",l="";
 if(ValueListEditor1->Keys[ValueListEditor1->Row]=="Пароль")
 {
  pass1=ValueListEditor1->Cells[1][1];
  for(int i=0;i<pass1.Length();i++)
   k+="*";
  ValueListEditor1->Cells[1][1]=k;
  Label1->Caption=pass1;
 }
 if(ValueListEditor1->Keys[ValueListEditor1->Row]=="Повтор пароля")
 {
  pass2=ValueListEditor1->Cells[1][2];
  for(int i=0;i<pass2.Length();i++)
   l+="*";
  ValueListEditor1->Cells[1][2]=l;
  Label2->Caption=pass2;
 }
 Button1->Click();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ValueListEditor1KeyPress(TObject *Sender,
      char &Key)
{
if(ValueListEditor1->Keys[ValueListEditor1->Row]=="Логин")
 if(Key!=8)
  if(
   (
    (Key>='A' && Key<='z' && Key!='`' && Key!='\\')||
    (Key>='А' && Key<='я')||(Key>='0' && Key<='9')||
    (Key=='Ё' || Key=='ё')
   )&&
   (ValueListEditor1->Values[ValueListEditor1->Keys[ValueListEditor1->Row]].Length()<=15))
   return;
  else
   Key=0;
 
 if(ValueListEditor1->Keys[ValueListEditor1->Row]=="Пароль")
  if(Key!=8)
   if(
    (
     (Key>='A' && Key<='z' && Key!='`' && Key!='\\' && Key!='_')||
     (Key>='А' && Key<='я')||(Key>='0' && Key<='9')||
     (Key=='Ё' || Key=='ё')
    )&&
    (ValueListEditor1->Values[ValueListEditor1->Keys[ValueListEditor1->Row]].Length()<=15))
    {
     ValueListEditor1->Cells[1][1]+=Key;
     pass1=ValueListEditor1->Cells[1][1];
    }
   else
    Key=0;
 
 if(ValueListEditor1->Keys[ValueListEditor1->Row]=="Повтор пароля")
  if(Key!=8)
   if(
    (
     (Key>='A' && Key<='z' && Key!='`' && Key!='\\' && Key!='_')||
     (Key>='А' && Key<='я')||(Key>='0' && Key<='9')||
     (Key=='Ё' || Key=='ё')
    )&&
    (ValueListEditor1->Values[ValueListEditor1->Keys[ValueListEditor1->Row]].Length()<=15))
    {
     ValueListEditor1->Cells[1][2]+=Key;
     pass2=ValueListEditor1->Cells[1][2];
    }
   else
    Key=0;
}

@Sasha · 21.11.2011, 10:21

Сообщение от Itanii

получилось вот так,но с недочетами:

C какими именно?

@Itanii · 21.11.2011, 12:25 **[ТС]**

1) пароли скрываются под звездочками, при проверки валидности(ValueListEditor1Validate), а не посимвольно при вводе значения
2) нельзя поправить уже введенный пароль после проверки, т.е. вводим pass1=123, pass2=1234. начинаем править pass1 и получается,что он равен ***4.
вот такие "недочеты"!

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Itanii 0 / 0 / 0 Регистрация: 18.11.2011 Сообщений: 8

	ValueListEditor 18.11.2011, 11:44. Показов 10378. Ответов 20 Метки нет (Все метки) Помогите реализовать в valueListEditor ввод логина и пароля, причем в поле значения ключа "Логин" можно вводить [A...Z][a...z][А...Я][а...я][0...9][_]. А в поле значения ключа пароль можно вводить [A...Z][a...z][А...Я][а...я][0...9] и вводимые символы отображаются в виде *. 0

@Flyer wtf!? 750 / 281 / 25 Регистрация: 21.05.2010 Сообщений: 732
	18.11.2011, 14:12
	Зачем ValueListEditor? Вставь себе TMaskEdit , в свойстве Password char поставь * , в свойстве Edit Mask свою маску 1

@Itanii 0 / 0 / 0 Регистрация: 18.11.2011 Сообщений: 8
	18.11.2011, 15:40 [ТС]
	что насчет valuelisteditor? 0

@Itanii 0 / 0 / 0 Регистрация: 18.11.2011 Сообщений: 8
	18.11.2011, 16:27 [ТС]
	спасибо. оставим один вопрос как разрешить вводить в ячейку неопределенное количество символов русского и латинского алфавита? Добавлено через 8 минут к примеру, тут вводится только 5 символов,нужно любое количество ValueListEditor1->ItemProps[0]->EditMask="LLLLL"; 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	18.11.2011, 16:45
	Смотри что стоит в свойстве MaxLength 1

@Itanii 0 / 0 / 0 Регистрация: 18.11.2011 Сообщений: 8
	18.11.2011, 18:10 [ТС]
	спасибо 0

@DefineTrueFalse 872 / 448 / 35 Регистрация: 25.10.2011 Сообщений: 910
	19.11.2011, 21:01
	PasswordChar = * 0

@Itanii 0 / 0 / 0 Регистрация: 18.11.2011 Сообщений: 8
	19.11.2011, 21:44 [ТС]
	разве в valuelisteditor есть свойство Psswordchar? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	19.11.2011, 22:42
	Может ему SendMessage(WM_SETPASSWORDCHAR)? 1

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	19.11.2011, 23:51
	при вводе заносите логин/пароль в StringList, который также имеет Name=Value, потом по индексу заносите в ValueListEditor , оставляя имя не тронутым, а значение подменяете необходимым количеством звездочек, при необходимости вывести логин/пароль в удобоваримом виде - по индексу в ValueListEditor выводите соотвествующий индекс строки стринглиста - и Name/Value соответственно, voila, наше дело в шляпе , можно пить пиво 1

@Itanii 0 / 0 / 0 Регистрация: 18.11.2011 Сообщений: 8
	21.11.2011, 12:25 [ТС]
	1) пароли скрываются под звездочками, при проверки валидности(ValueListEditor1Validate), а не посимвольно при вводе значения 2) нельзя поправить уже введенный пароль после проверки, т.е. вводим pass1=123, pass2=1234. начинаем править pass1 и получается,что он равен ***4. вот такие "недочеты"! 0