Здразьте имеется текстовый документ с данными

msgid "     TEXT 1"
msgstr "     ТЕКСТ 1"
msgid "TEXT 2"
msgstr "ТЕКСТ 2"
и т.д.

подскажите пожалуйста как загрузить эти данные в таблицу из документа и после изменения строк в столбце msgstr сохранить его обратно

https://s8.hostingkartinok.com/uploads/images/2021/02/87ea7b89ccd4cba8da3333fb3a398f00.png

заранее спасибо

при использовании настройки ALIGNMENT = taCENTR компонента LABEL  текст компонента не изменяется по центру

Спасибо!

Здравствуйте,  подскажите пожалуйста как проверить присутствие раздела в реестре


пишу данный код
Begin
reg := TRegistry.Create;
reg.Access := KEY_ALL_ACCESS;
reg.RootKey := HKEY_CURRENT_USER;
if reg.ReadString('YSN') = ''
then
begin
ShowMessage('Раздела нет');
reg.CloseKey;
reg.Free;
end;

if reg.ReadString('YSN') = 'YSN'
then
begin
ShowMessage('Раздел есть');
reg.CloseKey;
reg.Free;
end;
end.

и выводит сообщение Раздела нет (хотя раздел в реестре присутствует) не пойму что в данном коде не верно
Заранее спасибо

Меню правой кнопки мыши на вкладке СКРИПТ на английском

что то не работает данный код

I don't understand, what Delete button?  //Я не понимаю, что такое кнопка Удалить?

где найти свойство  CAPTION кнопки удалить

СМОТРИТЕ РИСУНОК НИЖЕ

Здравствуйте как добраться до заголовка таблицы пользователи, вернее до свойства CAPTION

ПОЛЬЗОВАТЕЛЬ -
РОЛЬ -
АДМИН -
АКТИВЕН -
ИМЯ -
ФАМИЛИЯ -
ПОСЛЕДНИЙ ВХОД -
ДАТА СОЗДАНИЯ -

И где находится кнопка УДАЛИТЬ вернее её заголовок

Заранее спасибо

Простите поправлю

не работал код вернее все работало только из реестра не считывал значение, добавил строку и все заработало (СТРОКУ УКАЗАЛ СТРЕЛКОЙ)

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
REG := TRegistry.Create; <------------------------------------------------------------------
REG.Access := KEY_ALL_ACCESS;
REG.RootKey := HKEY_CURRENT_USER;
REG.OpenKey('software\res',true);
REG.WriteInteger('lang',Form1.ComboBox1.ItemIndex);
REG.CloseKey;
REG.Free;
end;

СПАСИБО ЗА ПОМОЩЬ

Здравствуйте помогите пожалуйста
записал значение ComboBox в реестр
VAR
lang: integer;
REG: TRegistry;
Begin
REG := TRegistry.Create;
REG.Access := KEY_ALL_ACCESS;
REG.RootKey := HKEY_CURRENT_USER;
REG.OpenKey('software\'+APP_NAME,true);
REG.WriteString('lang', FloatToStr(FORM_SETTINGS.ComboBoxLNG.dbItemID));
REG.CloseKey;
REG.Free;
end
а вот как прочить в ComboBox не пойму? делаю так

REG.Access := KEY_ALL_ACCESS;
REG.RootKey := HKEY_CURRENT_USER;
REG.OpenKey('software\'+APP_NAME,true);
REG.ReadString('lang',IntToStr(FORM_SETTINGS.ComboBoxLNG.dbItemID));

выдаёт ошибку too many actual parameters (слишком много фактических параметров) а каких понять не могу
заранее спасибо

Спасибо

Здравствуйте как открыть пункт меню ПОЛЬЗОВАТЕЛИ нажатием на кнопку, т.е что бы при нажатии на кнопку открылось окно настроек пользователей, как показано тут

http://myvisualdatabase.com/doc_ru/Newtopic26.html

derek wrote:

Здравствуй Rasnikgal,
Возможно, вы могли бы сделать это так (см. Вложение)
Derek.

То что нужно!!! :-)

Спасибо ОГРОМНОЕ!!!!!

Здравствуйте, помогите пожалуйста, можно ли сделать так что бы по клику в компоненте МЕМО (по конкретной строчке) открыть ссылку в браузере

ПРИМЕР МЕМО

ТЕКСТ 1
ССЫЛКА 1

ТЕКСТ 2
ССЫЛКА 2

И Т.Д.

Заранее спасибо

16

(20 replies, posted in Russian)

vit007 wrote:

RasNikGal, нашел место, где надо лока... Если клацнуть правой клавишей на таблицу, на запущенном проекте, выскакивает англиЦкое меню...

Скачай последнюю бета версию 6.4 там уже исправлено. пересобери проект заново и все.

17

(20 replies, posted in Russian)

vohans wrote:

Здравствуйте! Помогите пожалуйста локализировать Окно входа: , а также окна меню : Пользователи и Изменить пароль.
Заранее спасибо.

как понимать данный ?

DriveSoft wrote:

для очистки, можете удалить данный ключ в реестре
HKEY_CURRENT_USER\Software\My Visual DataBase\RecentProjects

это я знаю, реализовать бы в мвд что бы в реестр не лазить

а можно в мвд добавить функцию очистки списка недавних проектов в меню - файл

DriveSoft wrote:

Чтобы компонент был недоступен, но при этом выглядел стандартно, можно разместить его на панельку, у которой выставлен Enabled = False

Я в шоке, ваще ни че понять не могу че надо сделать, толи курсор поменять когда недоступен потом цвет, потом пишет о выпадающем списке, короче я запутался конкретно

vit007 wrote:

Получается ни как не изменить цвет текстового поля при закрытом доступе к нему (Enabled := FALSE)

Извини за задержку в ответе

Тебе что ли надо изменить цвет текстового поля Эдит, ваще меня запутал!!!!!! че надо??? никак понять не могу !!!! Опиши последовательность действий что именно должно произойти на форме и при каких условиях!!!!
цвет текстового поля изменить можно свойством


Form1.Edit1.Color:=clGreen;

vit007 wrote:

На самом поле сделано

frmNote.ComboBox5.DroppedDown := True;

при OnClick
Надо сделать "мертый" элемент, но чтоб был похож на "живой".

Просто у меня на форме есть и другие поля и чтоб, они не сливались... Вот...

Я не понял ты про выпадающий список или текстовое поле говоришь то что скинул

frmNote.ComboBox5.DroppedDown := True;

это же выпадающий список а ты говоришь про текстовое поле

vit007 wrote:

первозданный вид, это когда Enabled := False, т.е. с полем можно делать все что угодно, Когда Enabled := True, то происходит затемнение поля и шрифта в поле, Мне б при Enabled := True, сделать вид, как при False.

Как преимущества, отсутствие курсора, да же при нажатие на поле, и когда наводишь мышку, значок стрелки не меняется на римскую единицу...

Зачем это надо. До этого был combobox и все хорошо, до момента, когда надо было удалить значение из таблицы... Тут связь словаря сыграла злую шутку... принято решение копировать в текстовое поле и его хранить...


Я так понимаю наоборот Enabled это же разрешен он нет для использования

Enabled := TRUE - разрешен
Enabled := FALSE - запрещен

насколько я понял тебе Эдит надо запретить и при наведении курсора что бы курсор не менялся и Эдит был запрещен что ли? не пойму поясни подробнее пожалуйста запутал, тебе курсор то надо нет показывать или чё?

как понять первозданный вид?

скрыть курсор

FORM1.Cursor := crNone;

так сделал курсор на форме отсутствует, при наведении на эдит он появляется

25

(1 replies, posted in Russian)

Как заменить заголовок у ShowMessage, там где написано A_d_v?


https://s8.hostingkartinok.com/uploads/images/2020/03/a61761377629a8840de5dc9e4934cc80.jpg


ShowMessage('Выберите наименование');

напишите поподробнее как его использовать
как можно кнопки показать и тд

такие подробности '' там где написано A_d_v" пищу для тех кто не знает!

Заранее спасибо