Система упрощенного создания окон (S.C.O.W.)

[Alex Cones]

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

Вопрос в следующем: что добавить в систему для удобства?

Что уже есть:
Создание\Уничтожение приложения по одной команде.
Создание\Уничтожение\Перемещение\По каз\Прятанье\Ресайз форм ->>-
Создание\уничтожение\Загрузка из файла текстур ->>-
Различные действия над текстурами типа осветление и проч. ->>-
Рисование текстуры с прозрачностью\без ->>-
Свои IntToStr\StrToInt\BoolTostr\StrToBo ol\IntToStr с шириной ->>-
Создание\Запись\Уничтожение лога ->>-

Подскажите, какие еще типичные задачи можно обработать?

[MaTBeu]

Если пришете под Windows (а вы, судя по сайту, пишете именно под нее), то не стоит писать свои IntToStr, StrToInt и такое прочее - оно уже есть. Покопайтесь в MSDN - там полно примеров.

Создание\Уничтожение приложения по одной команде.

WM_CREATE и WM_DESTROY?

Система упрощенного создания окон - обертка над WinApi? Если нет, то подскажите для чего она нужна, а я скажу, что можно добавить.

[Alex Cones]

то не стоит писать свои IntToStr, StrToInt и такое прочее - оно уже есть.

О_о Я нашел только в модуле SysUtils, который весит ок. 90кб. Мои IntToStrToInt - это обертка над Val и Str.

WM_CREATE и WM_DESTROY?

Procedure CreateForm(Var Form : TForm; App : TApplication; FName : PChar; FSize : Integer);
 Procedure DestroyForm(Var Form : TForm);

Система упрощенного создания окон - обертка над WinApi?

Да, именно так. Например:

Procedure CreateApplication(AppClass : String; CH : THProc);
 Begin
  Application.Handle := GetModuleHandle(Nil);
  Application.CustomH := CH;
  With Application.WinClass Do
  Begin
   Style := CS_HREDRAW Or CS_VREDRAW;
   hIcon := LoadIcon(Application.Handle, MAKEINTRESOURCE(APP_MAINICON));
   lpfnWndProc := @ApplicationHandler;
   hInstance := Application.Handle;
   hbrBackground := COLOR_BTNFACE + 1;
   lpszClassName := PChar(AppClass);
   hCursor := LoadCursor(0, IDC_ARROW);
  End;
  InitCommonControls;
  RegisterClass(Application.WinClass);

  SetLength(DSTR_Form, 0);
  SetLength(DSTR_List, 0);
 End;

Вместо этого Всего Вы пишете одну строку.

CreateApplication(APP_CLASSNAME, @ApplicationCustomHandler);

[Utkin]

Не, так дело не пойдет. Что это еще за APP_CLASSNAME и ужд тем более никаких ругательств типа @. Все должно быть прозрачней. Ну например,

CreateApplication(ApplicationName);

Вот тогда это будет удобство.

[Alex Cones]

Что это еще за APP_CLASSNAME

Это строковая константа. Можно вообще вот так указать 'MyOwnApplicationClass' - это всего лишь класс приложения, который Вы можете указать.

Все должно быть прозрачней. Ну например

А как быть, если хотите свой обработчик впихнуть? Указатель на него бы получить не помешало бы.

[Utkin]

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

[Alex Cones]

Хм... Предлагаете доказать, что я не ёжик? Пожалуйста:
1) Пишете CreateApplication('Имя, класс, что хотите, строковая константа');
2) Хотите стандартный обработчик - ничего не пишите. Хотите свой собственный лунопарк - вызывайте AssignHandler(MyHandler);

Как такая мысль?

[Utkin]

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

[Alex Cones]

В принципе, основная задача моей системы - это надстройка над функциями рисования WinAPI. Первоначально задумывалась, как графическая система, и лишь в последствии переросла в такого монстра.

К вопросу об обработчике - единственный случай, когда пользователю не понадобится его собственный обработчик - это когда он делает заставку\Splash. Во всех остальных случаях ему понадобится собственный обработчик с минимум OnMouseDown\Up, OnMouseMove.

[Utkin]

Ну и что? Пусть существует некий класс (твой класс) приложения. Я обращаюсь к нему только по имени. Мне нужен обработчик? Ладно, но мне не нужен указатель на него. А зачем? Ну буду я знать адрес в памяти, нафига? В том то и дело что без надобности. Я просто обращаюсь к классу приложения и вешаю ему свой обработчик и усе. Скажем типа:

MyApp.OnMouseDown:=MyOnMouseDown;

Зачем здесь @ и прочие заборные надписи?