Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / PasswordChar в ячейке DBGrid / 16 сообщений из 16, страница 1 из 1
12.10.2018, 20:27
    #39716902
Antibiotik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
Привет всем.
Подскажите как сделать, чтобы в ячейке грида вместо текста, отображались звездочки? Т.е. те, которые отображаются в текстовом поле при вводе пароля. Пробовал картинкой заменить на картинку в обработчике события: OnDrawColumnCell, но при растяжении колонки, вылезает из-за картинки сам пароль.
Может есть другой путь?
Заранее благодарен.

__
Не умеешь петь, не пей
...
Рейтинг: 0 / 0
12.10.2018, 20:36
    #39716909
Котовасия
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
OnGetText/OnSetText.

AntibiotikНе умеешь петь, не пей
Как необычно.
...
Рейтинг: 0 / 0
12.10.2018, 20:43
    #39716914
Antibiotik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
КотовасияOnGetText/OnSetText.
точно, спасибо огромное!

КотовасияНе умеешь петь, не пей

Как необычно.
Это подпись
...
Рейтинг: 0 / 0
12.10.2018, 20:46
    #39716916
Котовасия
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
AntibiotikЭто подпись
А для чего она тебе?
...
Рейтинг: 0 / 0
12.10.2018, 20:51
    #39716921
Antibiotik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
Котовасия, а для чего подписи на форумах?
...
Рейтинг: 0 / 0
12.10.2018, 21:26
    #39716932
Antibiotik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
Что-то все же не получается разобраться.
У меня вот что получается:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
procedure TfrmMain.AVUsersPASSWRDGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
   try
    Text := Sender.AsString;
    Label1.Caption := Format('Person: %s', [Sender.AsString]);
  except
    Text := Sender.AsString;
  end;
end;

procedure TfrmMain.AVUsersPASSWRDSetText(Sender: TField; const Text: string);
begin
  try
    Sender.AsString := Format('*******', [Text]);
    Label1.Caption := Format('%s (First Name) was successfully added.', [Text]);
  except
    Sender.AsString := Text;
    Label1.Caption := Format('%s was successfully added.', [Text]);
  end;
end;



Да, выводит звездочки, но и в саму таблицу пишет эти звездочки, а мне нужно, чтобы данные в таблице БД были к примеру "12345", но в гриде вместо этих цифр были звездочки.
...
Рейтинг: 0 / 0
12.10.2018, 22:11
    #39716946
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
AntibiotikМожет есть другой путь?

RTFM TDBEdit.InplaceEditor.PasswordChar.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
12.10.2018, 22:26
    #39716948
Antibiotik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
Dimitry Sibiryakov,

Вы меня наверное не поняли, мне нужно чтобы при редактировании в самой ячейке были звездочки. т.е. все редактирование происходит в самом гриде.
...
Рейтинг: 0 / 0
13.10.2018, 00:29
    #39716975
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
AntibiotikВы меня наверное не поняли, мне нужно чтобы при редактировании в самой ячейке были
звездочки. т.е. все редактирование происходит в самом гриде.

Ты не поверишь, но грид для редактирования показывает обычный TEdit. И именно до него
можно дотянуться через InplaceEditor. Читай исходники, раз уж документацию не хочешь.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.10.2018, 01:42
    #39716992
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
AntibiotikДа, выводит звездочки, но и в саму таблицу пишет эти звездочки
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure TfrmMain.AVUsersPASSWRDSetText(Sender: TField; const Text: string);
begin
  try
    Sender.AsString := Format('*******', [Text]);
    Label1.Caption := Format('%s (First Name) was successfully added.', [Text]);
  except
    Sender.AsString := Text;
    Label1.Caption := Format('%s was successfully added.', [Text]);
  end;
end;


Так не пишите в таблицу звёздочки, вы же сами это делаете
...
Рейтинг: 0 / 0
13.10.2018, 09:44
    #39717018
Antibiotik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
Dimitry SibiryakovТы не поверишь, но грид для редактирования показывает обычный TEdit. И именно до него
можно дотянуться через InplaceEditor. Читай исходники, раз уж документацию не хочешь.

Что же ты такой агрессивный?
Спасибо большое за подсказку.
...
Рейтинг: 0 / 0
13.10.2018, 12:31
    #39717041
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
AntibiotikЧто же ты такой агрессивный?

Рустам на меня обидится если я скажу это вслух.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.10.2018, 12:41
    #39717042
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
Рустам так же советует заглянуть в почту,
к которой привязана учётка (если не уже).
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.10.2018, 13:01
    #39717046
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
Гаджимурадов РустамРустам так же советует заглянуть в почту,
к которой привязана учётка (если не уже).

Ты написал что-то новое или всё о старом? Не беспокойся, до меня доходит с первого раза,
дважды повторять не надо.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.10.2018, 13:05
    #39717048
X-Cite
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
AntibiotikПривет всем.
Подскажите как сделать, чтобы в ячейке грида вместо текста, отображались звездочки? Т.е. те, которые отображаются в текстовом поле при вводе пароля. Пробовал картинкой заменить на картинку в обработчике события: OnDrawColumnCell, но при растяжении колонки, вылезает из-за картинки сам пароль.
Может есть другой путь?
Заранее благодарен.

__
Не умеешь петь, не пей
Потому что надо разделить модель и представление. В модели лежит пароль, а представление выводит звездочки.
...
Рейтинг: 0 / 0
13.10.2018, 15:53
    #39717095
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PasswordChar в ячейке DBGrid
DS> Не беспокойся, до меня доходит с первого раза, дважды повторять не надо.

ОК, гуд, это чтобы предотвратить проблемы, а не решать их потом.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / PasswordChar в ячейке DBGrid / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]