Search options (Page 160 of 400)

Hello.

Sorry for delay. I was on vacation.
The question is still relevant for you?

Hello.

Sorry for delay. I was on vacation.
The question is still relevant for you?

Hello.

Yes, available.

Приетствую.

Добавил возможность изменять значения Margins, скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/1y0jek64gzfdy … a.zip?dl=0

Пример использования

begin
    Form1.Panel1.Align := alTop;
    Form1.Panel1.AlignWithMargins := True;
    Form1.Panel1.Margins.Top := 10;
end.

Увы вопрос не ясен.

3. Да, указывать действие для кнопки не нужно.

7.  в п.3 свойство возвращает SQL запрос, если грид был заполнен кнопкой с действием "SQL запрос".

Hello.

1. It's not support by component.

2. Please download latest version
https://www.dropbox.com/s/1y0jek64gzfdy … a.zip?dl=0

example, how to bold some days:

procedure MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
  if Month=1 then Form1.MonthCalendar1.BoldDays([1, 15, 16], MonthBoldInfo) //  for January bold 1, 15, 16 days
  else Form1.MonthCalendar1.BoldDays([3, 4], MonthBoldInfo); // for all other months
end;


begin
    Form1.MonthCalendar1.OnGetMonthInfo := @MonthCalendar1GetMonthInfo;
end.

Hello.

Unfortunately I can help you only with specific question.

1.
В настройках грида есть поле "3. Фильтр", который вы можете изменить с помощью скрипта, используя свойство dbFilter, также чтобы применить этот фильтр, грид необходимо обновить, пример:

Form1.TableGrid1.dbFilter := 'active=1';
Form1.TableGrid1.dbUpdate;

2. Это свойство удобно использовать в SQL запросах, эти две строки аналогичны

SQLExecute('SELECT lastname FROM tablename WHERE id='+IntToStr(Form1.TableGrid1.dbItemID) );
SQLExecute('SELECT lastname FROM tablename WHERE id='+Form1.TableGrid1.sqlValue );

свойство sqlValue позволяет избежать использование функции IntToStr

3.  Если грид был заполнен кнопкой с действием "SQL запрос", то с помощью свойства dbSQL вы можете получить данный SQL запрос используя скрипт.

4. Содержит название главной таблицы БД, это тоже самое, что в настройках грида "1. Выберите таблицу базы данных для запроса"

5. Содержит строку с названием колонок в гриде, разделенных запятой.

Пример использования для пунктов 3-6

procedure Form1_bScript_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.GridEmployees.dbSQL:='SELECT id, "$autoinc", lastname, firstname, salary FROM employees'; // the id field, want to be able to edit or delete the entry from the table component
    Form1.GridEmployees.dbGeneralTable := 'employees'; // Optional (in the case of complex SQL queries with sub queries, you need to choose the main table of the database, also it need to be able to edit or delete the entry from the table component)
    Form1.GridEmployees.dbListFieldsNames :='delete_col,#,name2,name3,name4'; // If you do not want to see the value of the id in the component table, enter a name for the column delete_col
    Form1.GridEmployees.dbSQLExecute;
end;

Т.е. вы можете заполнить грид данными используя скрипт, а не настройки грида.

7. Позволяет получить SQL запрос, который использовался при заполнении грида. (в текущей версии работает только если грид заполнили кнопкой "Поиск", в след. версии будет работать для всех случаев.)

8. По координатам X и Y грида можно получить порядковый номер записи.

9-10. Позволяет добавить или удалить строки в гриде, были реализованы для данного примера:

Hello.

Your purpose to use this text in SQL queries? Just use sqlValue instead Text
Example:

SQLExecute('INSERT INTO tablename (textfield) VALUES('+Form1.Edit1.sqlValue+')');

Property sqlValue return quoted string to use it in SQL queries.

Option "dictionary" does not affect the speed.

Можно, сделал для вас пример: