Hello.
You project have not attached to the post. Please attach your project like zip file without exe and dlls files.
3,777 2017-02-03 11:24:38
Re: Need some help filling a memo automaticly (5 replies, posted in Script)
Try this
procedure Form1_ComboBox1_OnChange (Sender: string);
begin
Form1.Memo1.Lines.Add('Combo1 has been changed');
end;3,778 2017-02-03 11:21:12
Re: Combobox -- ParentCombobox (5 replies, posted in Russian)
Здравствуйте.
Пожалуйста опишите словесно, что от чего зависит на примере. Т.к. возможно структура неверна.
3,779 2017-02-03 11:14:53
Re: Password Protect Database (2 replies, posted in General)
Please check out these topics
http://myvisualdatabase.com/forum/viewtopic.php?id=1437
http://myvisualdatabase.com/forum/viewtopic.php?id=1422
3,780 2017-02-03 11:13:09
Re: Version 3.2 (13 replies, posted in General)
VascoMorais
Please download latest beta version
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0
Set for print button mode "Quick print" (In the settings of button)
Then create event OnClick for this button, where you can specify printer's name:
procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
begin
Form1.frxReport.PrintOptions.Printer := 'Microsoft XPS Document Writer';
end;3,781 2017-02-03 10:17:51
Re: возможно при открытии программы 1 запуск и все вкладки (23 replies, posted in Russian)
6katran6
Пожалуйста описывайте вопрос подробней.
3,782 2017-02-03 10:12:08
Re: Edit... (16 replies, posted in Russian)
RZ-007 wrote:
Вопрос есть способ управлять *** iTimer := 4; //задаём время в сек...?????????????? ***
т.е в Edit1 втавили цифру и наш скрипт читает информацию из Edit1...???
iTimer := trunc(Form1.Edit1.Value);trunc нужен, чтобы обрезать дробную часть, которая может присутствовать в Edit1
3,783 2017-02-03 10:10:31
Re: Несколько вопросов 4 (11 replies, posted in Russian)
bemorhona-qt wrote:
а как использовать функцию Random на примере букв, т.е. в реале она берет цифры от 0 до 10, а надо чтобы брал буквы от А до Я.
chr(trunc(Random*32)+1040)В unicode русские заглавные символы имеют диапозон кодов 1040 - 1071
Т.о. функция random генерирует данный диапазон цифр, а функция chr преобразует код символа в символ.
3,784 2017-02-03 09:56:12
Re: Memo... (11 replies, posted in Russian)
RZ-007 wrote:
В Edit1 вводим нужное слово для поиска в Memo1....клик на Button1
а) В Memo1 видем все найденые слова, если можно их как то все выделить(чтоб можно бало
увидеть их нахождение в Memo1???
б) есть способ подсчитать найденый текст в Memo1 в результате поиска???
К сожалению данный компонент не имеет возможности множественного выделения текста, можно выделить только какой либо один текст.
3,785 2017-02-03 09:44:39
Re: ComboBox Search (22 replies, posted in General)
AD1408
I have added new method for ComboBox, dbUpdate.
You should use it instead procedure UpdateDatabase(tablename)
dbUpdate will work more faster and solve bug in your project.
Please download 3.21beta:
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0
Revised project:
3,786 2017-02-02 11:42:51
Re: возможно при открытии программы 1 запуск и все вкладки (23 replies, posted in Russian)
6katran6 wrote:
можете эти часы о дельным примером сделать ?
Пожалуйста.
3,787 2017-02-02 10:59:43
Re: Version 3.2 (13 replies, posted in General)
megood70 wrote:
error
It's virtual printer, unfortunately I can't to know reason of error.
3,788 2017-02-02 10:57:42
Re: Помогите найти проект... (8 replies, posted in Russian)
RZ-007 wrote:
Дмитрий...3-4 дня у Вас спрашивал, кто-то из форумчан за проект:
Если способ отправлять почту по запланированной дате и времени...
Ваш ответ был: НЕТ, но постараюсь реализовать...
Вопрос:
У Вас было времечко на этот реализовать это...или я что то пропустил???
Пока не было, но постараюсь сделать пример как будет время
http://myvisualdatabase.com/forum/viewt … 665#p18665
3,789 2017-02-02 10:56:34
Re: Несколько вопросов 4 (11 replies, posted in Russian)
Здравствуйте.
1. Возвращает случайное значение от 0 до 1, т.е. числа с плавающей запятой, например 0,23346753 или 0,82347237272
Если например нужно получить случайное число от 0 до 10:
Random*10но число будет также с плавающей запятой, например 5,343434
Чтобы получать целые числа от 0 до 10
Trunc(Random*10)2. Пример
http://myvisualdatabase.com/forum/viewt … 698#p18698
Отличается тем, что MessageBox позволяет изменить заголовок сообщения, также кнопки будут переведены, в соответствии с региональными настройками Windows.
3,790 2017-02-02 10:46:21
Re: Version 3.2 (13 replies, posted in General)
mathmathou wrote:
Hello Dmitry and nice job for releasing a new version.
What is HTTPPost used for ? (well, posting data of course, but how ?)
Different between HttpGet and HttpPost
http://stackoverflow.com/questions/3477 … st-and-get
Example of HTTPPost
http://myvisualdatabase.com/forum/misc. … download=1
mathmathou wrote:
How to use MessageBox ? Is it different from MessageDLG ?
Cheers
Mathias
MessageBox can change caption of message, and example if your Windows OS is French, buttons also will be on French.
Example:
if IDYES = MessageBox('Message', 'Caption', MB_YESNO+MB_ICONINFORMATION) then ShowMessage('Yes');Buttons:
MB_OK
MB_OKCANCEL
MB_ABORTRETRYIGNORE
MB_YESNOCANCEL
MB_YESNO
MB_RETRYCANCEL
Results:
IDOK
IDCANCEL
IDABORT
IDRETRY
IDIGNORE
IDYES
IDNO
Icons
MB_ICONWARNING
MB_ICONINFORMATION
MB_ICONASTERISK
MB_ICONQUESTION
MB_ICONSTOP
MB_ICONERROR
3,791 2017-02-02 10:36:40
Re: Version 3.2 (13 replies, posted in General)
VascoMorais wrote:
Hey Dmitry, this Tprint might be useful to set two different printers for different areas, looks good, but can i use it to print reports and sql reports?
No, TPrinter just for script.
3,792 2017-02-02 10:35:27
Re: возможно при открытии программы 1 запуск и все вкладки (23 replies, posted in Russian)
6katran6
Пожалуйста конкретизируйте вопрос.
3,793 2017-02-02 09:50:10
Re: How To Protect View And Edit File "forms.xml,script.dcu" In MVD (1 replies, posted in General)
It's not possible.
3,794 2017-02-01 13:37:31
Re: Edit... (16 replies, posted in Russian)
// загрузка
var
sl: TStringList;
begin
sl: TStringList.Create;
if FileExists('text-1.txt') then
begin
sl.LoadFromFile('text-1.txt'); // АДРЕСА
Form1.Edit1.Text := sl.text;
end;
sl.free;//сохранение
var
sl: TStringList;
begin
sl: TStringList.Create;
sl.Text := Form1.Edit1.Text;
sl.SaveToFile('text-1.txt'); // АДРЕСА
sl.free;3,795 2017-02-01 13:33:15
Re: возможно при открытии программы 1 запуск и все вкладки (23 replies, posted in Russian)
Теперь ясно.
Проект с примером:
3,796 2017-02-01 13:26:15
Re: SQL запросы на сайт (1 replies, posted in Russian)
Здравствуйте.
Прежде всего вам необходимо убедиться, что у вас есть доступ к данной базе данных и в качестве базы данных используется MySQL? Т.к. другие клиент серверные СУБД программой пока не поддерживаются.
Изучения SQL можете начать с этого
http://www.sql.ru/docs/sql/u_sql/
Здесь можете найти примеры как извлекать данные из базы
http://www.sql.ru/docs/sql/u_sql/ch3.shtml
3,797 2017-02-01 13:09:07
Re: Новый функционал версии 3.2 (4 replies, posted in Russian)
wertyby wrote:
У меня по ссылке версии 3.2 скачивания почему-то 3.1?
Попробуйте снова, забыл что у меня два сайта для программы, загрузил и на второй сайт.
3,798 2017-02-01 13:08:14
Re: MessageDlgTimeOut (2 replies, posted in Russian)
Здравствуйте.
а. Характер звука определяется параметром иконки, в вашем примере это MB_ICONSTOP, доступны след. варианты
MB_ICONWARNING
MB_ICONINFORMATION
MB_ICONASTERISK
MB_ICONQUESTION
MB_ICONSTOP
MB_ICONERROR
обычно если в диалоге имеется вопрос, то используется MB_ICONQUESTION
б. Можно wav
PlaySound('c:\Windows\Media\chimes.wav');
iResult := MessageDlgTimeOut('Текст', 'Название', MB_YESNO+MB_ICONQUESTION, 2000); // авто-закр.2 сек
if iResult = IDTIMEOUT then ShowMessage('1-вариант ! ! !');
if iResult = IDYES then ShowMessage('2-вариант ! ! !');
if iResult = IDNO then ShowMessage('3-вариант ! ! !');или mp3
MediaPlayer.PlayFile('file.mp3');c. Если используете параметрт MB_ICONQUESTION, то звука быть не должно, но может зависит от звуковой схемы пользователя.