$GBasicControl00000-OnCreate #910=0; #911=0; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox4","1"); $End $GBasicControl00000-OnDraw GMEM mem; CHAR a; mem = GMEMCreate("pam",2); GMEMSETSHORT(mem,0,0); If(#911==0); GCSMenuSetMenuButtonLowerName_one(1000,0,1,1,"Rovina X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,2,"Rovina Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,3,"Rovina Z "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,4," Otvor "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,5," Cep "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,6,"Drážka X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,7,"Drážka Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,8," Žebro X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,9," Žebro Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,10," Konec "); #911=1; elseif(#911==1); endif; If(#908==1); GCSChangeActiveFocus(-1,"GInputBox3"); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",1); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",0); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9210"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","110"); GCSShowPanel(-1, "Frame0",7); GCSShowPanel(-1, "Frame1",5); GCSShowPanel(-1, "Frame2",3); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSCloseGWindow(1); GCSMenuSetMenuButtonLowerName_one(1000,0,1,1,"Mereni L + R "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,2,"Mereni Delky"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,3,"Mereni Velky T"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,4," "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,5,"Kalibr.Délky"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,6,"Kalibr.Prumer "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,7,"Kalibr.Nástr. "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,8," "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,9,"Sondy Param."); GCSMenuSetMenuButtonLowerName_one(1000,0,1,10," Konec "); #908=0; endif; #912=#912+1; $End $GInputBox1-OnKeyPress GMEM mem; CHAR a; mem = GMEMCreate("pam",2); GMEMSETSHORT(mem,0,0); ' mem = GMEMSelect("pam"); ' a = GMEMGETSHORT(mem, 0); long _lShiftKey; _lShiftKey = LUPARAM & H1; r long _lRet; if(LLPARAM == 112 AND _lShiftKey ==0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",0); GCSShowPanel(-1, "Frame1",0); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9201"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","10"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",7); GCSShowPanel(-1, "Frame1",5); GCSShowPanel(-1, "Frame2",3); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",0); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",1); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9210"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","110"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox3"); endif; elseif(LLPARAM == 113 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",1); GCSShowPanel(-1, "Frame1",0); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9202"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","20"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",8); GCSShowPanel(-1, "Frame1",6); GCSShowPanel(-1, "Frame2",3); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",0); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",1); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9211"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","120"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox3"); endif; elseif(LLPARAM == 114 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",2); GCSShowPanel(-1, "Frame1",0); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9203"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","30"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",9); GCSShowPanel(-1, "Frame1",7); GCSShowPanel(-1, "Frame2",2); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9212"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","130"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); endif; elseif(LLPARAM == 115 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",3); GCSShowPanel(-1, "Frame1",1); GCSShowPanel(-1, "Frame2",7); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9204"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","40"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) endif; elseif(LLPARAM == 116 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",4); GCSShowPanel(-1, "Frame1",2); GCSShowPanel(-1, "Frame2",6); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9205"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","50"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); elseif (#910==1) GCSShowPanel(-1, "Frame0",11); GCSShowPanel(-1, "Frame1",9); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9213"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","160"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); endif; elseif(LLPARAM == 117 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",5); GCSShowPanel(-1, "Frame1",3); GCSShowPanel(-1, "Frame2",8); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9206"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","60"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",12); GCSShowPanel(-1, "Frame1",10); GCSShowPanel(-1, "Frame2",5); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",0); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 3); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9214"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","170"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",1); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox3"); endif; elseif(LLPARAM == 118 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",14); GCSShowPanel(-1, "Frame1",11); GCSShowPanel(-1, "Frame2",8); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9207"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","70"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",10); GCSShowPanel(-1, "Frame1",8); GCSShowPanel(-1, "Frame2",4); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 3); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9215"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","180"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); endif; elseif(LLPARAM == 119 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",6); GCSShowPanel(-1, "Frame1",4); GCSShowPanel(-1, "Frame2",0); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9208"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","80"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); elseif (#910==1) endif; elseif(LLPARAM == 120 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",13); GCSShowPanel(-1, "Frame1",12); GCSShowPanel(-1, "Frame2",0); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9209"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","90"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); elseif (#910==1) GCSSetVisibleStatus(-1, "GPicture100",0); GCSCreateGWindow(1); endif; elseif(LLPARAM == 121 AND _lShiftKey == 0) GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox4","0"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","0"); GCSMenuSendProcessID(1000,0,0); GCSCloseGWindow(0); #911=0; elseif(LLPARAM == 122 AND _lShiftKey == 0) GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox4","0"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","0"); GCSMenuSendProcessID(1000,0,0); GCSCloseGWindow(0); #911=0; elseif(LLPARAM == 123 AND _lShiftKey == 0) if (#910==0) GCSMenuSetMenuButtonLowerName_one(1000,0,1,1,"Mereni L + R "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,2,"Mereni Delky"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,3,"Mereni Velky T"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,4," "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,5,"Kalibr.Délky"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,6,"Kalibr.Prumer "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,7,"Kalibr.Nástr. "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,8," "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,9,"Sondy Param."); GCSMenuSetMenuButtonLowerName_one(1000,0,1,10," Konec "); ' GMEMSetShort(mem,0,1) #910=1; elseif (#910==1) GCSMenuSetMenuButtonLowerName_one(1000,0,1,1,"Rovina X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,2,"Rovina Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,3,"Rovina Z "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,4," Otvor "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,5," Cep "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,6,"Drážka X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,7,"Drážka Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,8," Žebro X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,9," Žebro Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,10," Konec "); ' GMEMSetShort(mem,0,0) #910=0; endif; else _lRet=NormalMethod(); 'Normal process Return(_lRet); endif; $End $GInputBox2-OnKeyPress GMEM mem; CHAR a; mem = GMEMCreate("pam",2); GMEMSETSHORT(mem,0,0); ' mem = GMEMSelect("pam"); ' a = GMEMGETSHORT(mem, 0); long _lShiftKey; _lShiftKey = LUPARAM & H1; long _lRet; if(LLPARAM == 112 AND _lShiftKey ==0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",0); GCSShowPanel(-1, "Frame1",0); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9201"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","10"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",7); GCSShowPanel(-1, "Frame1",5); GCSShowPanel(-1, "Frame2",3); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",0); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",1); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9210"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","110"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox3"); endif; elseif(LLPARAM == 113 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",1); GCSShowPanel(-1, "Frame1",0); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9202"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","20"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",8); GCSShowPanel(-1, "Frame1",6); GCSShowPanel(-1, "Frame2",3); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",0); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",1); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9211"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","120"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox3"); endif; elseif(LLPARAM == 114 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",2); GCSShowPanel(-1, "Frame1",0); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9203"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","30"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",9); GCSShowPanel(-1, "Frame1",7); GCSShowPanel(-1, "Frame2",2); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9212"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","130"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); endif; elseif(LLPARAM == 115 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",3); GCSShowPanel(-1, "Frame1",1); GCSShowPanel(-1, "Frame2",7); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9204"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","40"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) endif; elseif(LLPARAM == 116 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",4); GCSShowPanel(-1, "Frame1",2); GCSShowPanel(-1, "Frame2",6); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9205"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","50"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); elseif (#910==1) GCSShowPanel(-1, "Frame0",11); GCSShowPanel(-1, "Frame1",9); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9213"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","160"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); endif; elseif(LLPARAM == 117 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",5); GCSShowPanel(-1, "Frame1",3); GCSShowPanel(-1, "Frame2",8); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9206"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","60"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",12); GCSShowPanel(-1, "Frame1",10); GCSShowPanel(-1, "Frame2",5); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",0); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 3); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9214"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","170"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",1); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox3"); endif; elseif(LLPARAM == 118 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",14); GCSShowPanel(-1, "Frame1",11); GCSShowPanel(-1, "Frame2",8); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9207"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","70"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",10); GCSShowPanel(-1, "Frame1",8); GCSShowPanel(-1, "Frame2",4); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 3); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9215"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","180"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); endif; elseif(LLPARAM == 119 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",6); GCSShowPanel(-1, "Frame1",4); GCSShowPanel(-1, "Frame2",0); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9208"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","80"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); elseif (#910==1) endif; elseif(LLPARAM == 120 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",13); GCSShowPanel(-1, "Frame1",12); GCSShowPanel(-1, "Frame2",0); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9209"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","90"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); elseif (#910==1) GCSSetVisibleStatus(-1, "GPicture100",0); GCSCreateGWindow(1); endif; elseif(LLPARAM == 121 AND _lShiftKey == 0) GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox4","0"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","0"); GCSMenuSendProcessID(1000,0,0); GCSCloseGWindow(0); #911=0; elseif(LLPARAM == 122 AND _lShiftKey == 0) GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox4","0"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","0"); GCSMenuSendProcessID(1000,0,0); GCSCloseGWindow(0); #911=0; elseif(LLPARAM == 123 AND _lShiftKey == 0) if (#910==0) GCSMenuSetMenuButtonLowerName_one(1000,0,1,1,"Mereni L + R "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,2,"Mereni Delky"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,3,"Mereni Velky T"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,4," "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,5,"Kalibr.Délky "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,6,"Kalibr.Prumer "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,7,"Kalibr.Nástr. "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,8," "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,9,"Sondy Param."); GCSMenuSetMenuButtonLowerName_one(1000,0,1,10," Konec "); ' GMEMSetShort(mem,0,1) #910=1; elseif (#910==1) GCSMenuSetMenuButtonLowerName_one(1000,0,1,1,"Rovina X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,2,"Rovina Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,3,"Rovina Z "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,4," Otvor "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,5," Cep "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,6,"Drážka X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,7,"Drážka Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,8," Žebro X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,9," Žebro Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,10," Konec "); ' GMEMSetShort(mem,0,0) #910=0; endif; else _lRet=NormalMethod(); 'Normal process Return(_lRet); endif; $End $GInputBox3-OnKeyPress GMEM mem; CHAR a; mem = GMEMCreate("pam",2); GMEMSETSHORT(mem,0,0); ' mem = GMEMSelect("pam"); ' a = GMEMGETSHORT(mem, 0); long _lShiftKey; _lShiftKey = LUPARAM & H1; long _lRet; if(LLPARAM == 112 AND _lShiftKey ==0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",0); GCSShowPanel(-1, "Frame1",0); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9201"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","10"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",7); GCSShowPanel(-1, "Frame1",5); GCSShowPanel(-1, "Frame2",3); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",0); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",1); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9210"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","110"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox3"); endif; elseif(LLPARAM == 113 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",1); GCSShowPanel(-1, "Frame1",0); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9202"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","20"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",8); GCSShowPanel(-1, "Frame1",6); GCSShowPanel(-1, "Frame2",3); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",0); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",1); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9211"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","120"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox3"); endif; elseif(LLPARAM == 114 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",2); GCSShowPanel(-1, "Frame1",0); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9203"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","30"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",9); GCSShowPanel(-1, "Frame1",7); GCSShowPanel(-1, "Frame2",2); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9212"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","130"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); endif; elseif(LLPARAM == 115 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",3); GCSShowPanel(-1, "Frame1",1); GCSShowPanel(-1, "Frame2",7); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9204"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","40"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) endif; elseif(LLPARAM == 116 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",4); GCSShowPanel(-1, "Frame1",2); GCSShowPanel(-1, "Frame2",6); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9205"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","50"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); elseif (#910==1) GCSShowPanel(-1, "Frame0",11); GCSShowPanel(-1, "Frame1",9); GCSShowPanel(-1, "Frame2",1); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9213"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","160"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); endif; elseif(LLPARAM == 117 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",5); GCSShowPanel(-1, "Frame1",3); GCSShowPanel(-1, "Frame2",8); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9206"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","60"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",12); GCSShowPanel(-1, "Frame1",10); GCSShowPanel(-1, "Frame2",5); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",0); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 3); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9214"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","170"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",1); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox3"); endif; elseif(LLPARAM == 118 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",14); GCSShowPanel(-1, "Frame1",11); GCSShowPanel(-1, "Frame2",8); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox1",1); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9207"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","70"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox1"); elseif (#910==1) GCSShowPanel(-1, "Frame0",10); GCSShowPanel(-1, "Frame1",8); GCSShowPanel(-1, "Frame2",4); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 3); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9215"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","180"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); endif; elseif(LLPARAM == 119 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",6); GCSShowPanel(-1, "Frame1",4); GCSShowPanel(-1, "Frame2",0); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9208"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","80"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); elseif (#910==1) endif; elseif(LLPARAM == 120 AND _lShiftKey == 0) if (#910==0) ' GCSCreateGWindow(0); GCSShowPanel(-1, "Frame0",13); GCSShowPanel(-1, "Frame1",12); GCSShowPanel(-1, "Frame2",0); GCSSetVisibleStatus(-1, "GPicture100",0); GCSSetVisibleStatus(-1, "GNCDataTextBox1",1); GCSSetVisibleStatus(-1, "GNCDataTextBox2",1); GCSSetVisibleStatus(-1, "GNCDataTextBox3",1); GCSNCDataTextboxSetDecimalWidth(-1,"GNCDataTextBox3", 0); GCSSetVisibleStatus(-1, "GInputBox2",1); GCSSetVisibleStatus(-1, "GInputBox1",0); GCSSetVisibleStatus(-1, "GInputBox3",0); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9209"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","90"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","1"); GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox1",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox2",mem) ; GCSNCDataTextboxSetGNCValue(-1, "GNCDataTextBox3",mem) ; GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox3","1"); GCSChangeActiveFocus(-1,"GInputBox2"); elseif (#910==1) GCSSetVisibleStatus(-1, "GPicture100",0); GCSCreateGWindow(1); endif; elseif(LLPARAM == 121 AND _lShiftKey == 0) GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox4","0"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","0"); GCSMenuSendProcessID(1000,0,0); GCSCloseGWindow(0); #911=0; elseif(LLPARAM == 122 AND _lShiftKey == 0) GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox4","0"); GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","0"); GCSMenuSendProcessID(1000,0,0); GCSCloseGWindow(0); #911=0; elseif(LLPARAM == 123 AND _lShiftKey == 0) if (#910==0) GCSMenuSetMenuButtonLowerName_one(1000,0,1,1,"Mereni L + R "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,2,"Mereni Delky"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,3,"Mereni Velky T"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,4," "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,5,"Kalibr.Délky"); GCSMenuSetMenuButtonLowerName_one(1000,0,1,6,"Kalibr.Prumer "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,7,"Kalibr.Nástr. "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,8," "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,9,"Sondy Param."); GCSMenuSetMenuButtonLowerName_one(1000,0,1,10," Konec "); ' GMEMSetShort(mem,0,1) #910=1; elseif (#910==1) GCSMenuSetMenuButtonLowerName_one(1000,0,1,1,"Rovina X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,2,"Rovina Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,3,"Rovina Z "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,4," Otvor "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,5," Cep "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,6,"Drážka X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,7,"Drážka Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,8," Žebro X "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,9," Žebro Y "); GCSMenuSetMenuButtonLowerName_one(1000,0,1,10," Konec "); ' GMEMSetShort(mem,0,0) #910=0; endif; else _lRet=NormalMethod(); 'Normal process Return(_lRet); endif; $End $GInputBox1-OnCreate GCSChangeActiveFocus(-1,"GInputBox1"); GCSSetVisibleStatus(-1, "GInputBox2",0); GCSSetVisibleStatus(-1, "GInputBox3",1); $End $GNCDataTextBox1-OnCreate GCSSetVisibleStatus(-1, "GNCDataTextBox1",0); $End $GNCPLCTextBox1-OnCreate GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox1","9201"); $End $GNCPLCTextBox2-OnCreate GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox2","10"); $End $GInputBox1-OnKeyRelease GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","0"); $End $GInputBox2-OnKeyRelease GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","0"); $End $GInputBox3-OnKeyRelease GCSNCPLCTextboxSetString(-1,"GNCPLCTextBox5","0"); $End