Poblem v Blitzu

[Rostislav Stenicka <rostsoft@iol.cz>]

Cau

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.

-- 
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
Malesov 157, okr. Kutna Hora, 285 41
TEL:   0327-59 54 21

Pokud pouzivate KOI8
Rostislav ótÅniÃka, MaleÓov 157

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