Отправлено: 26.09.16 10:55. Заголовок: mdi

Уважаемые ГУРУ. Обратили бы вы ваше внимание на построение окон. В дизайнере ничего не получается (ручками не в счет)

 Отправлено: 26.09.16 11:05. Заголовок: Vlad04 пишет: В диз..

Vlad04 пишет:

цитата:

В дизайнере ничего не получается (ручками не в счет)

В дизайнере много чего не работает...
Приходиться делать ручками !

 Отправлено: 26.09.16 14:42. Заголовок: В дизайнере основны..

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

 Отправлено: 01.10.16 13:36. Заголовок: Вообщем, остановилс..

Вообщем, остановился на следующем: основное окно - Main, дочернее CHILD. При инициализации у дочернего убираем ТИтул, размеры и положение выставляем по основному.
Очень похоже на mdi. На дааном этапе меня устраивает

 Отправлено: 31.03.17 19:23. Заголовок: А можно ли при иници..

А можно ли при иницилизации Формы (окна) устанавливать его тип - STANDART, MODAL или CHILD ?

 Отправлено: 01.04.17 15:28. Заголовок: Standard Window: D..

Standard Window:

DEFINE WINDOW <WindowName>
[ AT <nRow> ,<nCol> ]
[ ROW <nRow> ]
[ COL <nCol> ]
[ WIDTH <nWindth> ]
[ HEIGHT <nHeight> ]
[ CLIENTAREA <nClientWidth> , <nClientHeight> ]
[ VIRTUAL WIDTH <nVirtualWindth> ]
[ VIRTUAL HEIGHT <nVirtualHeight> ]
[ TITLE <cTitle> ]
[ ICON <cIconName> ]
[ WINDOWTYPE STANDARD ]
[ MAIN | CHILD | MDI | PANEL ] | [ WINDOWTYPE MAIN | CHILD | MIDI | PANEL]
[ NOSHOW ]
[ TOPMOST ]
[ PALETTE ]
[ NOAUTORELEASE ]
[ NOMINIMIZE ]
[ NOMAXIMIZE ]
[ NOSIZE ]
[ NOSYSMENU ]
[ NOCAPTION ]
[ CURSOR <CursorName> ]
[ ON INIT<InitProcedureName> | <bBlock> ]
[ ON RELEASE <ReleaseProcedureName> | <bBlock> ]
[ ON INTERACTIVECLOSE <InteractiveCloseProcedureName> | <bBlock> ]
[ ON MOUSECLICK<MouseClickProcedureName> | <bBlock> ]
[ ON MOUSEDRAG<MouseDragProcedureName> | <bBlock> ]
[ ON MOUSEMOVE<MouseMoveProcedureName> | <bBlock> ]
[ ON MOVE<MoveProcedureName> | <bBlock> ]
[ ON SIZE<WindowSizeProcedureName> | <bBlock> ]
[ ON MAXIMIZE <WindowMaximizeProcedureName> | <bBlock> ]
[ ON MINIMIZE <WindowMinimizeProcedureName> | <bBlock> ]
[ ON RESTORE <WindowRestoreProcedureName> | <bBlock> ]
[ ON PAINT<WindowPaintProcedureName> | <bBlock> ]
[ ON DROPFILES {|aFiles| TakeDrop(aFiles)} ]
[ BACKCOLOR <anBackColor> ]
[ FONT <cFontName> SIZE <nFontSize> ]
[ NOTIFYICON <cNotifyIconName> ]
[ NOTIFYTOOLTIP <cNotifyTooltip> ]
[ ON NOTIFYDBLCLICK <NotifyDblClick> | <bBlock>] ;
[ ON NOTIFYBALLOONCLICK <NotifyBalloonClick> | <bBlock> ] ;
[ ON NOTIFYCLICK <NotifyClickProcedure> | <bBlock> ]
[ ON GOTFOCUS <ProcedureName> | <bBlock> ]
[ ON LOSTFOCUS <ProcedureName> | <bBlock> ]
[ ON SCROLLUP <ProcedureName> | <bBlock> ]
[ ON SCROLLDOWN <ProcedureName> | <bBlock> ]
[ ON SCROLLLEFT <ProcedureName> | <bBlock> ]
[ ON SCROLLRIGHT <ProcedureName> | <bBlock> ]
[ ON HSCROLLBOX <ProcedureName> | <bBlock> ]
[ ON VSCROLLBOX <ProcedureName> | <bBlock> ]
[ HELPBUTTON ]

... Control Definitions...

END WINDOW

Modal Window:

DEFINE WINDOW <WindowName>
[ AT <nRow> ,<nCol> ]
[ ROW <nRow> ]
[ COL <nCol> ]
WIDTH <nWindth>
HEIGHT <nHeight>
[ CLIENTAREA <nClientWidth> , <nClientHeight> ]
[ VIRTUAL WIDTH <nVirtualWindth> ]
[ VIRTUAL HEIGHT <nVirtualHeight> ]
[ TITLE <cTitle> ]
[ ICON <cIconName> ]
MODAL | WINDOWTYPE MODAL
[ NOSHOW ]
[ NOAUTORELEASE ]
[ NOSIZE ]
[ NOSYSMENU ]
[ NOCAPTION ]
[ CURSOR <CursorName> ]
[ ON INIT<InitProcedureName> | <bBlock> ]
[ ON RELEASE<ReleaseProcedureName> | <bBlock> ]
[ ON INTERACTIVECLOSE <InteractiveCloseProcedureName> | <bBlock> ]
[ ON MOUSECLICK<MouseClickProcedureName> | <bBlock> ]
[ ON MOUSEDRAG<MouseDragProcedureName> | <bBlock> ]
[ ON MOUSEMOVE<MouseMoveProcedureName> | <bBlock> ]
[ ON MOVE<MoveProcedureName> | <bBlock> ]
[ ON SIZE <WindowSizeProcedureName> | <bBlock> ]
[ ON PAINT<WindowPaintProcedureName> | <bBlock> ]
[ BACKCOLOR <anBackColor> ]
[ FONT <cFontName> SIZE <nFontSize> ]
[ ON GOTFOCUS <ProcedureName> | <bBlock> ]
[ ON LOSTFOCUS <ProcedureName> | <bBlock> ]
[ ON SCROLLUP <ProcedureName> | <bBlock> ]
[ ON SCROLLDOWN <ProcedureName> | <bBlock> ]
[ ON SCROLLLEFT <ProcedureName> | <bBlock> ]
[ ON SCROLLRIGHT <ProcedureName> | <bBlock> ]
[ ON HSCROLLBOX <ProcedureName> | <bBlock> ]
[ ON VSCROLLBOX <ProcedureName> | <bBlock> ]
[ HELPBUTTON ]

... Control Definitions...

END WINDOW

SplitChild Windows:

DEFINE WINDOW <WindowName>
WIDTH <nWindth>
HEIGHT <nHeight>
[ VIRTUAL WIDTH <nVirtualWindth> ]
[ VIRTUAL HEIGHT <nVirtualHeight> ]
[ TITLE <cTitle> ]
SPLITCHILD | WINDOWTYPE SPLITCHILD
[ NOCAPTION ]
[ CURSOR <CursorName> ]
[ FONT <cFontName> SIZE <nFontSize> ]
[ GRIPPERTEXT ]
[ BREAK ]
[ FOCUSED ]
[ ON GOTFOCUS <ProcedureName> | <bBlock> ]
[ ON LOSTFOCUS <ProcedureName> | <bBlock> ]
[ ON SCROLLUP <ProcedureName> | <bBlock> ]
[ ON SCROLLDOWN <ProcedureName> | <bBlock> ]
[ ON SCROLLLEFT <ProcedureName> | <bBlock> ]
[ ON SCROLLRIGHT <ProcedureName> | <bBlock> ]
[ ON HSCROLLBOX <ProcedureName> | <bBlock> ]
[ ON VSCROLLBOX <ProcedureName> | <bBlock> ]

... Control Definitions...

END WINDOW

 Отправлено: 02.04.17 08:38. Заголовок: Softlog86 Это опред..

Softlog86
Это определение окна.
Хотелось бы при вызове события формы onInit переопределять тип формы, если возможно.

 Отправлено: 02.04.17 08:39. Заголовок: Типа SetProperty(..

Типа SetProperty('Form1',...

 Отправлено: 02.04.17 10:39. Заголовок: Vlad04 пишет: Типа..

Vlad04 пишет:

цитата:

Типа SetProperty('Form1

В харбуре есть SetWindowsLong() это и есть типа SetProperty() для окна.
Тут справка из С
http://vsokovikov.narod.ru/New_MSDN_API/Win_class/fn_setwindowlong.htm
Нужно учесть что функция не меняет системные переменные MiniGui относящиеся
к окнам и в результате возможна некорректная работа.

 Отправлено: 03.04.17 07:34. Заголовок: В харбуре есть SetWi..

цитата:

В харбуре есть SetWindowsLong()

В справке нет описания этой функции, как правильно вызвать ?

 Отправлено: 03.04.17 12:47. Заголовок: Vlad04 пишет: В спр..

Vlad04 пишет:

цитата:

В справке нет описания этой функции,

Прости, опечатка
SetWindowLong() - без S перед Long
Примеры вызовов есть в примерах MiniGui
вот тут хатя бы
\MiniGUI\SAMPLES\Advanced\Transparency\demo.prg