Create

constructor TWBaseServer602.Create(AOwner : TComponent);

P°φstupovß prßva

public, virtual

Popis

Jde o p°epsanou (override) virtußlnφ metodu p°edka TForm. Provßdφ inicializaci prom∞nnΘ kontextu komunikace cd volßnφm API procedury :

cdp_init(@cd);

Dßle nastavuje parametry hlavniho MDI okna, kterΘ pak p°edßvß do WinBase602 volßnφm dvou API funkcφ

    Init_window_env(WindowHandle, ClientHandle, WndMnuIndex, Flags)    Register_ext_menu(WindowHandle,hHlMenu,hWinMenu)

Programßtor bude tento konstruktor volat nanejv²Ü v p°φkazu inherited konstruktoru potomka.

Parametr Flags ve Init_window_env m∙₧e nab²vat t°φ hodnot: WBF_NO_TOOLBAR nebo WBF_NO_STATUSBAR nebo 0:

WBF_NO_TOOLBAR Hlavnφ okno nebude pou₧φvat ovlßdacφ liÜtu z WinBase602, bude vÜak pou₧φvat stavovou liÜtu z WinBase602
WBF_NO_STATUSBAR Hlavnφ okno nebude pou₧φvat stavovou liÜtu z WinBase602, bude vÜak pou₧φvat ovlßdacφ liÜtu z WinBase602
0 (nula) Hlavnφ okno bude pou₧φvat ovlßdacφ liÜtu i stavovou liÜtu z WinBase602.

Neni mo₧nΘ kombinovat liÜty z WinBase602 a Delphi tj. nelze pou₧φt ovladacφ liÜtu z WinBase602 a stavovou liÜtu z Delphi Φi naopak.

Pro Flags roven WBF_NO_TOOLBAR or WBF_NO_STATUSBAR nebude hlavnφ okno pou₧φvat ₧ßdnou lφÜtu WinBase602. Prßv∞ tato hodnota je napevno nastavena v konstruktoru, nebo¥ podpora zalo₧enß na komponentßch p°edpoklßdß pou₧itφ formulß°∙ vytvo°en²ch ve WinBase602, zatφmco menu a liÜty jsou vesm∞s z Delphi.