Search options (Page 286 of 400)

так можно отключать кнопки

Form1.BorderIcons:= biSystemMenu + biMinimize; // кнопка Развенуть окно будет недоступна
Form1.BorderIcons:= biSystemMenu + biMaximize; // кнопка Свернуть окно будет недоступна
Form1.BorderIcons:= 0; // позволяет скрыть все системные кнопки окна

как уже сказали, для активации кнопки "Развернуть", необходимо задействовать свойство формы Sizeable, также необходимо настроить свойство Anchors компонентов расположенных на данной форме, данное свойство задает поведение компонента при изменении размеров формы, например компонент может растягиваться пропорционально форме, либо сохранять свое положение в правом нижнем углу, т.д.

Hello,

Tested, works.
Text hint is displayed, when component Edit don't have focus.

Done, project attached.

http://myvisualdatabase.com/forum/viewtopic.php?id=1445

Try this

ChangeKeyboardLayout(44);

Проверил в версии 1.50, работает, тогда не знаю.

Проверил, работает. Перед этим необходимо нажать кнопку Поиск, чтобы в гриде появились данные.
У вас какая версия программы?

Размер колонок в таблице можете изменить мышкой в запускаемом проекте, размер автоматически сохраняется.

необходимо создать еще одну таблицу, и уже в нее вбить необходимые сорта палет и создать связь с данной таблицей.
Попросмотрите пожалуйста данный видео урок создания телефонного справочника
https://www.youtube.com/watch?v=lN6_yeK84K8

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

Вы можете вынести данный код в отдельную процедуру

procedure CalculatePaidValue;
begin
    order.paid.Value := SQLExecute('SELECT TOTAL(cashpay.amount) FROM cashpay WHERE cashpay.id_orders='+students.orderslist.sqlValue) +
                        SQLExecute('SELECT TOTAL(checkspay.amount) FROM checkspay WHERE checkspay.id_orders='+students.orderslist.sqlValue) +
                        SQLExecute('SELECT TOTAL(creditcardpay.amount) FROM creditcardpay WHERE creditcardpay.id_orders='+students.orderslist.sqlValue);
end;


procedure order_checklist_OnChange (Sender: string);
begin
   CalculatePaidValue;
end;

procedure order_cclist_OnChange (Sender: string);
begin
   CalculatePaidValue;
end;

procedure order_cashlist_OnChange (Sender: string);
begin
   CalculatePaidValue;
end;

andrey_gb10
Здравствуйте.

*.vdb - файл проекта
без него не получится открыть проект в программе My Visual Database, но на работоспособность проекта он не влияет.

sqlite.db - файл базы данных

script.pas - текстовое представление скриптов (можно удалить из проекта, в качестве защиты от изменений)

script.dcu - скомпилированная версия скрипта

tables.ini - структура базы данных

forms.xml - формы

settings.ini - настройки проекта, в основном хранятся значения размеров колонок для компонентов TableGrid

sqlite3.dll - библитотека для работы с базой данных SQLite

graphics.dll - графические файлы проекта, используемые в компоненте Image

dbschema.ini - настройки расположения таблиц в графическом представлении структуры БД