Search options (Page 27 of 61)

Возможно всё. На невозможное нужно чуть больше времени. (с)

Но вопрос: а нужно ли? Вы хотите сделать текстовый редактор с автозавершением ввода? Это возможно, хотя и весьма сложно, но что-то мне подсказывает, что есть более простое решение вашей бизнес-задачи. В чем заключается цель данных манипуляций?

I ran into the opposite problem: not all components have the StyleElements property available, apparently because of this, when creating a component programmatically, it is impossible to set a style for it. Specifically, it's TdbStringGridEx (Table Grid). It is very strange and sad that by default it is created without style. Does anyone know how to programmatically create stylish tables?

I have a couple of articles on this topic. The first one that StateOne pointed out talks about changing styles from the application using a script. The following section explains how to add button images to a theme: https://k245.ru/mvdb/effekt-babochki.html

Эффект бабочки

Завершив работу над первой версией программы "ClassExplorer", я решил немного усовершенствовать её: разнести программный код по отдельным модулям, а также добавить механизм управления стилями. Но эти казалось бы небольшие изменения создали кучу хлопот.

Читать:  https://k245.ru/mvdb/effekt-babochki.html

Возможно создать ещё один экземпляр соединения с другой базой. Но как его использовать для выполнения запроса, мне не понятно.... Может, у вас получится?   С разными базами (схемами) на одном сервере теоретически можно работать (перед именем таблицы можно указать имя схемы) , а вот чтобы с разными серверами...

А вот SQLite работает с разными базами, но лично мне этим заниматься не приходилось, но задумка одна имеется...

У вас сам проект настроен как  проект MySQL? Или как SQLite?

Чтобы пользоваться стандартной функцией SQLExecute для работы с MySQL проект должен быть тоже MySQL.

P.S. Ваш запрос работает, но он выдает размеры всех таблиц во всех схемах (БД). Обычно интересует какая-то одна. Я бы добавил условие WHERE TABLE_SCHEMA = "Название БД"

Ошибка в проектировании базы данных.

Если вам нужно преобразовывать интервал даты в индекс, то структура таблицы с периодами должна быть такая:

Period
    PeriodFrom - integer
    PeriodTo - integer

Тогда установка периода выглядит так:

tmpPeriod := Калькулятор.DateTimePicker2.DateTime - Калькулятор.DateTimePicker1.DateTime +1; 
Калькулятор.ComboBox3.dtItemID =  SQLExecute( 'SELECT id FROM Period WHERE PeriodFrom >= '+tmpPeriod+' and PeriodTo <= '+tmpPeriod );

Не забудьте в свойствах ComboBox3 указать

FieldName = {PeriodFrom}-{PeriodTo}

Виртуальная клавиатура симпатичная вышла, хотя я не представляю, как можно на компе без реальной клавиатуры )))
Переключение раскладки - это замена всех заголовков на кнопках с буквами. Так как никакой логики в названии кнопок нет, то нужно выполнить 33 команды вида

Form2.Button1.Caption := 'Й'

Но у меня встречный вопрос: в каких случаях используется эта клавиатура? Кроме того, я бы не рекомендовал любые символы использовать для логина/пароля, особенно для пароля. Есть специальный стандарт ISO, который это регулирует, потому что очень легко спутать 0 и О, 1 и  l и так далее.

Да я хотел пошутить над премиями за ковид, но вижу, что всё очень серьёзно...

Подтверждаю, установка любого стиля делает свойство формы AutoScroll бесполезным. Причину этого явления назвать не могу, но могу предложить костыль - процедуру, которая добавляет на форму компонент TScrollBox и переносит на него все другие компоненты формы. TScrollBox в сочетании с темой отображается корректно.

procedure AddScrollBox( AForm:TAForm;);
var
  SB:TScrollBox;
  i: integer;
begin
  SB := TScrollBox.Create(AForm);
  SB.Parent := AForm;
  SB.Align := alClient;
  for i := AForm.controlCount - 1 downto 0 do
  begin
    if AForm.Controls[i] <> SB then
      AForm.Controls[i].Parent := SB;
  end;
end;

Вызывать в главной секции приложения для форм, в которых нужно поддерживать AutoScroll = True

begin
  AddScrollBox( Form1 );
end.

NickB, вы шокируете своим проектом. Премия за ковид-19 - это бухгалтерия Цитадели Зла? )))