Что реализовать в первую очередь? (Page 14 of 16)

andrey.yugay wrote:

Планируется ли реализация след:
Свернуть/Развернуть область; что-то наподобие панели, но с возможностью свернуть ее в плашку. соответственно нижний элемент при раскрытии опускается вниз, при сворачивании -вверх.

Если речь о меню-"аккордеоне", то его можно реализовать программно:

Полное описание с проектом находится в статье: https://vk.com/@createmyvisualdatabaseapp-akkordeon

andrey.yugay wrote:

Да, примерно такое, но здесь у вас только меню (навигация, грубо говоря), я же говорю о комплексном... к примеру чтобы там еще можно было вставить элементы (эдиты, комбы и т.д) (пример в приложенном рисунке)

Это тоже относительно несложно: панели размещаются на родительской панели, затем программно устанавливается Align := alTop  и пару скриптов для разворачивания/сворачивания (изменения высоты панели).

Красивый нестандартный интерфейс - это всегда искусство, на это никаких готовых компонент не напасёшься

На примере трёх панелей. При клике по панели она "раскрывается", остальные "сворачиваются"

andrey.yugay wrote:

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

На примере трёх панелей. При клике по панели она "раскрывается", остальные "сворачиваются"

procedure Form1_Panel1_OnClick (Sender: TObject);
begin
  Form1.Panel1.height := 30;
  Form1.Panel2.height := 30;
  Form1.Panel3.height := 30;
  TdbPanel(Sender).height := 200;
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.Panel1.align := alTop;
  Form1.Panel2.align := alTop;
  Form1.Panel3.align := alTop;
  Form1.Panel1.height := 30;
  Form1.Panel2.height := 30;
  Form1.Panel3.height := 30;
end;

andrey.yugay wrote:

Планируется ли реализация след:
Свернуть/Развернуть область; что-то наподобие панели, но с возможностью свернуть ее в плашку. соответственно нижний элемент при раскрытии опускается вниз, при сворачивании -вверх.

Если речь о меню-"аккордеоне", то его можно реализовать программно:

Полное описание с проектом находится в статье: https://vk.com/@createmyvisualdatabaseapp-akkordeon

В версии 5.х разработчик убрал свойство Visible у строк таблицы. Поэтому нужно заменить строку 361 в модуле mainmenu.pas

      MenuGrid.Row[tmpRow].Visible := false;

на

      MenuGrid.RowVisible(tmpRow) := false;

Это ещё одно изменение разработчика, на этот раз функции random(). Требует изменений в модуле secure.pas, строка 40 (41)

в версии до 5.3:

result := result + AAlphabet[trunc(random()*length(AAlphabet))+1];  

в версии 5.3 и старше:

result := result + AAlphabet[random(length(AAlphabet))+1];

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

Да, вот перевод бы на таблицу, когда по ней клацаешь правой клавишей... или как это меню выключить...

Form1.TableGrid1.dbPopupMenu.Items.Items[0].Visible := False; // скроет первый пункт в меню
   Form1.TableGrid1.dbPopupMenu.Items.Items[1].Visible := False; // скроет второй пункт в меню и т.д.
   Form1.TableGrid1.dbPopupMenu.Items.Items[2].Visible := False;
   Form1.TableGrid1.dbPopupMenu.Items.Items[3].Visible := False;
   Form1.TableGrid1.dbPopupMenu.Items.Items[4].Visible := False;
   Form1.TableGrid1.dbPopupMenu.Items.Items[5].Visible := False;
   Form1.TableGrid1.dbPopupMenu.Items.Items[6].Visible := False;

Конечно, не в первую очередь, но хотелось бы иметь возможность менять местами визуальное представление таблиц. Доросло кол-во до 62 и их положение сэкономило бы время поиска.