Написал язык Суржи

[AndreyNM]

И ещё вопросик - секции initialization и finalization в модулях не поддерживаются?

[Rik]

Сообщение от AndreyNM

решил сделать на Дизеле фреймворк для быстрого создания форм в ран-тайм, типа так:

AddDBEdit('Name', 'Наименование', 100);
AddDBEdit('FullName', 'Полное наименование', 200, False);
AddDBEdit('Passport', 'Паспортные данные', 200);
AddDBEdit('INN', 'ИНН', 20, False);

Подобные функции можно в сам движок зашить типа function AddControl(Class: TControlClass; Name: string; Bounds: TRect): TControl; Функцию можно привязать к TWinControl.
Хотя, прочитал статью, у меня проекты с сотнями форм, пока ни каких неудобств от dfm/lfm ресурсов не испытывал за 15 лет...

[Rik]

Сообщение от AndreyNM

И ещё вопросик - секции initialization и finalization в модулях не поддерживаются?

finalyzation - нет
initialization - есть, но после переноса на Lazarus не проверял работает или нет.

[Rik]

Сообщение от AndreyNM

Если получится удобно, то выложу на всеобщее обозрение.

Вы бы выложили в любом случае, хоть посмотреть как вы функции используете, которые сегодня добавил... Я в Lazarus недавно, ещё не совсем освоился..

Я обновиk движок, добавил в TWinControl 'funciton AddControl(AControlClass, AComponentName: string; R: TRect): TControl' Это должно облегчить создание контролов программно. Пример использования:

http://visual-t.ru/files/ControlCreate.lm9

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

пример кода:

method TMainForm.CreateControl;
begin
  Panel1 = AddControl('TPanel', 'Panel1', Rect(10, 10, 300, 300)) as TPanel;
  EDit1 = Panel1.AddControl('TEdit', 'Edit1', Rect(50, 50, 200, 50)) as TEdit;
  Edit2 = Panel1.AddControl('TEdit', 'Edit2', Rect(50, 100, 200, 50)) as TEdit;
  Button1 = AddControl('TButton', 'Button1', Rect(100, 350, 180, 380)) as TButton;
  Button1.Caption = 'Жать тут';
  Button1.OnClick = @Button1Click
end;

AndreyNM Если свой пример выложите, возможно ещё доработаю...

[AndreyNM]

Сообщение от Rik

Вы бы выложили в любом случае, хоть посмотреть как вы функции используете, которые сегодня добавил... Я в Lazarus недавно, ещё не совсем освоился..

Я обновиk движок, добавил в TWinControl 'funciton AddControl(AControlClass, AComponentName: string; R: TRect): TControl' Это должно облегчить создание контролов программно. Пример использования:

http://visual-t.ru/files/ControlCreate.lm9

ps. преимущество подобных систем: можно расширять функционал библиотек, фактически не изменяя их самих, получается надстройка...
AndreyNM Если свой пример выложите, возможно ещё доработаю...

Да выкладывать особенно нечего - просто намётки - можно сказать тестировал возможности лазаруса так что не судите строго за пример. Сам последний раз его видел лет 10 назад.
Там динамически создаётся форма-родитель (абстрактный Участник), от неё отрождается форма физ. лица и выводится на экран. Преимущества в том, что в базовом классе можно реализовать общую бизнес-логику, ну и унифицировать интерфейс конечно. У меня у самого проект на 1000 форм да ещё и с визуальным наследованием почти 10 лет - в принципе всё нормально, но иногда из-за dfm и наследования глюки приходится огребать по полной, плюс достаточно много движений нужно сделать чтобы добавить лишнее поле на форму, особенно если это всё потом наследуется. Ну и к тому же есть определённые ограничения при проектировании интерфейса - нельзя например поменять в design-time родителя у унаследованного компонента и т.п.
Вот сейчас пытаюсь реализовать то, что написано в статье.
Идея в том, чтобы не просто выводить на форму контролы и раскидывать их красиво, а в том, чтобы буквально одной строкой кода добавить поле в датасет, создать контрол, связать их, заставить выполнять какую-то валидацию и т.п. Уже потом на контрол можно навесить кастомные обработчики и всё что угодно. Надеюсь это действительно ускорит и упростит поддержку продукта в будущем.
Кстати - у меня initialization как-то не работает. Она нужна для того чтобы регистрировать классы в общем списке, а потом уже добавлять на главную форму в меню, дерево и куда угодно. Ну и ещё искать формы при вызове одной формы через другую.

[AndreyNM]

что-то файл с проектом не прикрепился. 2-я попытка.

[AndreyNM]

Добрый день!

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

TCustomFrameClass(FindClass(AClassN ame : string))

Скажите - это не реализовано или есть какие-то альтернативные механизмы?

[Rik]

Сообщение от AndreyNM

Добрый день!

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

TCustomFrameClass(FindClass(AClassN ame : string))

Скажите - это не реализовано или есть какие-то альтернативные механизмы?

Такой функции нет, могу добавить функцию CreateClass('ClassName'): TClass;
Только немного позже, что-то здоровье пошатнулось.

[AndreyNM]

Сообщение от Rik

Такой функции нет, могу добавить функцию CreateClass('ClassName'): TClass;
Только немного позже, что-то здоровье пошатнулось.

Спасибо! Очень сильно поможет, будем ждать. Выздоравливайте!
От простуды пропейте настойку эхинацеи дней 10 - сильно поднимет иммунитет. Вам Юрий болеть нельзя, ваше здоровье принадлежит партии

[AndreyNM]

Юрий, а вы не рассматривали вариант разделения модулей проекта на разные файлы, а в файле проекта содержались бы только ссылки на эти файлы? Загрузка проекта изменится совсем немного - ссылки будут заменены текстом из файлов модулей. При сохранении тоже больших проблем не вижу. Модуль разбивать на lfm и pas не нужно - также сохранять всё в одном xml-файле.
Мне кажется при совместной работе над большим проектом это будет гораздо удобнее - реже придётся разрешать конфликты и т.п. проблемы. А также будет легче вносить изменения на стороне заказчика и совмещать их потом с общим проектом.
При желании такой способ сохранения можно сделать опциональным - хочешь так, а хочешь по другому. Что вы думаете по этому поводу?