Prenos vízií do reality bolí. - Vitajte na stránkach www.einsty ...

P R O G R A M U J E M Esia¾ nepotreboval anepouíval. Prob−lém sme vyriešiliObr. 2spoloène pomocoujednej rutiny z inter−netu. Jej funkèný výòatok vám trochu opíšem. Èinné sú dve funkcie: GetMenuItemInfo aSetMenuItemInfo. Pouitím prvej sme dokázali naplni prázdnu premennú Item typuTMenuItemInfo, ktorej fType parameter nadobudol hodnotu MFT_RIGHTJUSTIFY. Druháfunkcia nastavila komponent MainMenu1, respektíve jeho poloku Help1 tak, e po vy−kreslení príkazom DrawMenuBar bude zobrazovaná v pravom rohu.procedure TForm1.FormCreate(Sender: TObject);Var Item:TMenuItemInfo;Buff:Array[0..100] of char;beginZeroMemory(@Item, SizeOf(Item));Item.cbSize:=44;Item.fMask:=MIIM_TYPE;Item.dwTypeData:=Buff;Item.cch:=SizeOf(Buff);if GetMenuItemInfo(MainMenu1.Handle, Help1.MenuIndex, True, Item) then BeginItem.fType:=Item.fType or MFT_RIGHTJUSTIFY;if SetMenuItemInfo(MainMenu1.Handle, Help1.MenuIndex, True, Item) thenDrawMenuBar(MainMenu1.WindowHandle);end;end;Upozoròujem, e uvedený zdrojový kód presunie len tú poloku menu, ktorá je nosi−te¾om názvu Help1. Preto v prípade, ak chcete presunú akúko¾vek inú poloku, môetetak urobi, ale a po zmene druhého parametra funkcií GetMenuItemInfo a SetMenu−ItemInfo. Takisto sa predpokladá, e menu bude pomenované MainMenu1.DYNAMICKÉ PRIDANIE POLOKY DO MENU. Aj keï tento problém v minu−losti rozoberal kolega z Delfinária, opíšeme si ho len v rozsahu potrebnom na pochope−nie. Dynamické pridanie poloky do menu by nebolo pre nikoho problémom, keby taktovytvorená poloka mohla podlieha udalosti. Takto znel problém. Jeho riešenie je celkomjednoduché. Vytvorili sme si procedúru, ktorú musíme zadefinova do bloku public. Naobsluhu udalosti vyuijeme vlastnos OnClick premennej NewItem. Obsluha je totoná spolokami Items kadého druhu, take pridanie nie je nièím výnimoèné ani nièím nové....public{ Public declarations }procedure AddItem(text:String);end;...procedure TForm1.AddItem(text:String);var NewItem:TMenuItem;beginNewItem:=TMenuItem.Create(MainMenu1);NewItem.Caption:=text;// NewItem.OnClick vyuijeme na obsluhu udalostiMainMenu1.Items.Insert(MainMenu1.Items.Count, NewItem);end;end;inheritedend;procedure TForm1.FormCreate(Sender: TObject);beginSysMenu:=GetSystemMenu(Form1.Handle, False);AppendMenu(SysMenu, MF_SEPARATOR, 0, '');AppendMenu(SysMenu, MF_STRING, idSys, '&info');end;Posledným, ale aj najfunkènejším krokom je pridanie poloky do menu, ktoré vykoná−vame príkazom AppendMenu. Ten potrebuje príslušné nasmerovanie, ktoré mu dávaGetSystemMenu (odkazuje ho na handle pre Form1). Mono ste si všimli parameter MF_SEPARATOR. Ten vytvára odde¾ovací pruh. Take je len estetickým doplnkom alebo dopln−kom preh¾adnosti. Na priloenom obrázku vidíme uspokojivý výsledok.NIE JE ENTER AKO ENTER. Na klávesnici máme dva klávesy s rovnakým oznaèe−ním (enter). Zrejme len málokomu by napadlo, e môu by programom rozlišovanéako úplne odlišné klávesy. Kto by bol povedal, e enter nie je poèítaèom chápaný akojediný? Ani nie tak poèítaèom, ale presnejšie softvérovou výbavou, ktorú zhodou náhodtvoríme práve my programátori. Take opä ostáva na nás programátoroch, aby sme siaj s týmto nejako poradili. Budeme vyuíva Windows Message (WM). Vytvoríme si pro−cedúru, ktorú musíme definova v bloku private. Jej telo bude prijíma správy a v prí−pade, ak stlaèený kláves bude zodpoveda klávesu enter, vtedy poloíme podmienku,ktorá rozozná, èi bol enter stlaèený na numerickej èasti klávesnice, alebo nie. Na de−monštráciu opä pouívam ob¾úbený príkaz ShowMessage, ale verím, e všetci vidíte ajiné vyuitie.procedure TForm1.WMKeyDown(var message:TWMKeyDown);begininherited;with message doif CharCode=VK_RETURN thenif KeyData and (1 shl 24)=0 then ShowMessage('Enter') elseShowMessage('Num Enter');end;To bol posledný problém, ktorý sme si v tejto èasti rozobrali. Nabudúce budeme po−kraèova v otázkach a odpovediach, take nezúfajte, pekne si uívajte a neprehrejte sa(ani procesory ☺). Teším sa na ïalšie stretnutie s vami, o mesiac dovidenia.Jozef KOZÁK ml.OBOHATENIE SYSTÉMOVÉHO MENU.Kadý program vytvorený v akomko¾vek objek−tovom programovacom jazyku získa vlastnosti,ktoré sú neovplyvnite¾né, teda sú produktomoperaèného systému. K nim bezpochyby patrísystémové menu, ktoré je dané typom a verziouOS. Operaèný systém Windows má v systémo−vom menu nieko¾ko poloiek: presunú, upravive¾kos, minimalizova, maximalizova, zavrie.Tieto poloky sú nemenné a navonok je totoObr. 3menu statické, ešte raz pripomínam – dané sys−témom. Sèasti je to pravda, ale po pouití nasledujúcej rutiny si ho môeme jemne pri−spôsobi, respektíve prida nejakú poloku. Prv ne zaèneme, musíme si zadefinova kon−štantu. A aj dopísa procedúru do bloku public.constidSys=10;varSysMenu:HMenu;public{ Public declarations }procedure WMSysCommand(var Message:TMessage); message wm_SysCommand;end;...Procedúra spadajúca pod TForm1 len kontroluje, èi bola splnená podmienka (kliknutiena poloku). Ak áno, môeme dotvori udalos, ktorá sa má vykona po kliknutí na dodat−kovú poloku v systémovom menu.Procedure TForm1.WMSysCommand(var Message:TMessage);beginif Message.WParam=idSys then begin// volanie èinnej funkcie alebo procedúry7/2003 PC REVUE 115