Window menu - Příklady

const wnMain     = 10;
const cmPrvni    = 150;
const cmUpravMne = 151;
const cmSmazMne  = 152;
const cmEnPrvni  = 153;
const cmDisPrvni = 154;
const cmVsechny  = 155;
const cmDruhy    = 156;

call TestMenu;
Exit

procedure TestMenu
	dim Comm : Word;
	WInit(wnMain, 00,00,60,10, "Test Menu", 7, 0)
	Ins_String(wnMain, 10, 01,01,20,02, 7, 50);
	Ins_Button(wnMain, 100, 01,05,10,07, "Test", cmDisPrvni, 0);
	WMenuInit(wnMain, "P~R~VNÍ",    mnuSubMenu+7,
                       "~P~rvní",        cmPrvni,
                       "Enable První",   cmEnPrvni,
                       "Disable První",  cmDisPrvni,
                       "Uprav mne",      cmUpravMne,
                       "Smaž mne",       cmSmazMne,
                       "",               mnuLine,
                       "~V~šechny",      cmVsechny,
                     "~D~RUHÝ",          cmDruhy);
	WOpen(wnMain);
	repeat
		Comm := _Execute(wnMain);
		if(Comm=cmSmazMne)then
			WMenuDelete(wnMain,cmSmazMne);
		else
			if(Comm=cmUpravMne)then
				WMenuModify(wnMain,cmUpravMne, cmUpravMne, "Uprav mne " + _Str(_Random(1000)));
			else
				if(Comm=cmEnPrvni)then
					WMenuEnable(wnMain,cmPrvni,true);
				else
					if(Comm=cmDisPrvni)then
						WMenuEnable(wnMain,cmPrvni,false);
					else
					endif
				endif
			endif
		endif
	until Comm = cmCancel;
	
endproc