[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Poblem v Blitzu oprava
Cau
Sorry za predchozi mail, nevedel sem co s toho vznikne.
Mam docela blbej problem.
Potrebuju jenno okno otvirat a zavirat vickrat nez jednou a
prilozeny zdojak pri odevreni po druhe po kliknuti do okna
tak trochu zatuhne uplne vse.
Dela to PropGadget ale nevim proc.
Uvitam kazdou radu.
ppp:
#W40=0
Screen 0,0,0,640,256,6,-28672,"TEST",0,1
GTText #W40,200,419,62,154,42,"Show",34,""
GTCycle #W40,201,419,45,154,14,"Druh",34," Jednou barvou | Zvolene barvy
| Tlacitko |Tlacitko zmacknute"
GTCycle #W40,202,419,29,154,14,"Obrys",34,"Jednoduchy| Dvojity | Trojity |
Ctveraty "
GTCheckBox #W40,203,419,16,26,11,"Outline C-20-24",2
GTText #W40,204,411,14,214,93,"Picture Outline",36,""
GTButton #W40,205,476,190,120,14,"Show fonts",16
GTButton #W40,206,550,220,77,14,"OK",16
GTButton #W40,207,4,220,77,14,"Cancel",16
GTText #W40,208,21,178,452,38,"",1,""
GTButton #W40,209,339,136,81,13,"Font",16
GTButton #W40,210,30,136,81,13,"Font",16
GTPalette #W40,211,13,63,293,35,"",36,6
GTText #W40,212,361,65,34,33,"",1,""
GTCheckBox #W40,213,30,150,26,11,"Outline",2
GTCheckBox #W40,214,339,150,26,11,"Outline",2
GTCheckBox #W40,215,30,162,26,11,"Bold",2
GTCheckBox #W40,217,424,137,26,11,"Print picture size",2
GTCheckBox #W40,218,339,162,26,11,"Bold",2
GTCheckBox #W40,219,152,150,26,11,"Italic",2
GTCheckBox #W40,220,452,150,26,11,"Italic",2
GTCheckBox #W40,221,152,162,26,11,"Underlined",2
GTCheckBox #W40,222,452,162,26,11,"Underlined",2
GTText #W40,223,330,134,270,42,"Font size C-12/13",36,""
GTText #W40,224,21,134,271,42,"Font name C-10/11",36,""
GTText #W40,225,5,120,619,99,"Fonts",36,""
GTInteger #W40,226,361,49,32,14,"B",1,255
GTInteger #W40,227,361,34,32,14,"G",1,255
GTInteger #W40,228,361,19,32,14,"R",1,255
GTNumber #W40,229,313,67,32,16,"Color",8,64
PropGadget #W40,16,63,64,230,330,8:SetVProp #W40,230,0,0:SetHProp #W40,230,0,0
PropGadget #W40,16,48,64,231,330,8:SetVProp #W40,231,0,0:SetHProp #W40,231,0,0
PropGadget #W40,16,33,64,232,330,8:SetVProp #W40,232,0,0:SetHProp #W40,232,0,0
GTText #W40,239,6,14,397,93,"Palette",36,""
Window #W40,0,7,640,249,30,"Font, outline and palette",1,2,0:AttachGTList
#W40,#W40
Repeat:ev.l=WaitEvent : ne=0
If GadgetHit=207 Then ne=1
Until ne=1
CloseWindow #W40
CloseScreen 0
FindScreen 0
Goto ppp
--
rostsoft@iol.cz "2Mb"
RStenicka@seznam.cz "10Mb"
Jen na dlouhe soubory (oznamit na rostsoft@iol.cz), vybyram ji jen v sobotu.
http://web.iol.cz/rostsoft/
Rostislav Stenicka #A4000/040/30 20MB FAST RAM#
Malesov 157, okr. Kutna Hora, 285 41 #Cybervision64 4MB#
TEL: 0327-59 54 21 #Toccata (AHI 16 BIT)#
#1.2GB IDE, 2GB SCSI#
Pokud pouzivate KOI8 #CDrom 32 Toshiba SCSI#
Rostislav ótÅniÃka, MaleÓov 157 #V-lab video graber, Fastline#
ppp:
#W40=0
Screen 0,0,0,640,256,6,-28672,"TEST",0,1
GTText #W40,200,419,62,154,42,"Show",34,""
GTCycle #W40,201,419,45,154,14,"Druh",34," Jednou barvou | Zvolene barvy | Tlacitko |Tlacitko zmacknute"
GTCycle #W40,202,419,29,154,14,"Obrys",34,"Jednoduchy| Dvojity | Trojity | Ctveraty "
GTCheckBox #W40,203,419,16,26,11,"Outline C-20-24",2
GTText #W40,204,411,14,214,93,"Picture Outline",36,""
GTButton #W40,205,476,190,120,14,"Show fonts",16
GTButton #W40,206,550,220,77,14,"OK",16
GTButton #W40,207,4,220,77,14,"Cancel",16
GTText #W40,208,21,178,452,38,"",1,""
GTButton #W40,209,339,136,81,13,"Font",16
GTButton #W40,210,30,136,81,13,"Font",16
GTPalette #W40,211,13,63,293,35,"",36,6
GTText #W40,212,361,65,34,33,"",1,""
GTCheckBox #W40,213,30,150,26,11,"Outline",2
GTCheckBox #W40,214,339,150,26,11,"Outline",2
GTCheckBox #W40,215,30,162,26,11,"Bold",2
GTCheckBox #W40,217,424,137,26,11,"Print picture size",2
GTCheckBox #W40,218,339,162,26,11,"Bold",2
GTCheckBox #W40,219,152,150,26,11,"Italic",2
GTCheckBox #W40,220,452,150,26,11,"Italic",2
GTCheckBox #W40,221,152,162,26,11,"Underlined",2
GTCheckBox #W40,222,452,162,26,11,"Underlined",2
GTText #W40,223,330,134,270,42,"Font size C-12/13",36,""
GTText #W40,224,21,134,271,42,"Font name C-10/11",36,""
GTText #W40,225,5,120,619,99,"Fonts",36,""
GTInteger #W40,226,361,49,32,14,"B",1,255
GTInteger #W40,227,361,34,32,14,"G",1,255
GTInteger #W40,228,361,19,32,14,"R",1,255
GTNumber #W40,229,313,67,32,16,"Color",8,64
PropGadget #W40,16,63,64,230,330,8:SetVProp #W40,230,0,0:SetHProp #W40,230,0,0
PropGadget #W40,16,48,64,231,330,8:SetVProp #W40,231,0,0:SetHProp #W40,231,0,0
PropGadget #W40,16,33,64,232,330,8:SetVProp #W40,232,0,0:SetHProp #W40,232,0,0
GTText #W40,239,6,14,397,93,"Palette",36,""
Window #W40,0,7,640,249,30,"Font, outline and palette",1,2,0:AttachGTList #W40,#W40
Repeat:ev.l=WaitEvent : ne=0
If GadgetHit=207 Then ne=1
Until ne=1
CloseWindow #W40
CloseScreen 0
FindScreen 0
Goto ppp