| |
|
|
Roberto Neu | j'ai es déjà avec Deletobject et DestroyWindow probiert mais là Passiert simple rien. |
|
|
| |
|
|
|
Rolf Koch | quoi meiste avec effacer? Den le contenu? cela objet selbst? un normales Multiedit per Créer erstellt? Sei Je ne böse, mais Dein Avatarbild ist brutal aufdringlich |
|
|
| |
|
|
|
Roberto Neu | oui un normales Multiedit avec einem Text Drin. je veux après un Kleinerers ouvrir laisser, mais dan venez toujours qui Kleine hervor ^ ^ alors cela objet et qui Text drin |
|
|
| |
|
|
|
Rolf Koch | Gib la fois un Stück Voir le texte source - je glaub cela hat aucun kapiert ici. un Multieedit sur Creatbasis peut sich toujours anéantir, si es un Handle zugeordnet bekommen hat. je vais maintenant la fois wieder de einem faute Deinerseits aus. |
|
|
| |
|
|
|
Roberto Neu | qui veux je später ensuite Effacer KompilierenMarqueSéparation
Proc meditklein
klein& = Create("MultiEdit",%HWnd,"Kleine Ansicht",5,7,300,-380)
endproc
Proc meditgros
gros& = Create("MultiEdit",%HWnd,"Große Ansicht",5,7,400,-380)
c
|
|
|
| |
|
|
|
Rolf Koch | |
|
| |
|
|
|
Rolf Koch | ici la fois un- et ausblenden. qui Boxen volonté pas détruit, peux mais toujours wieder sur elle zugreifen: KompilierenMarqueSéparationdeclare gros&,klein&
Proc meditklein
klein& = Create("MultiEdit",%HWnd,"Kleine Ansicht",5,7,300,-380)
endproc
Proc meditgros
gros& = Create("MultiEdit",%HWnd,"Große Ansicht",5,7,400,-380)
endproc
cls
meditgros
meditklein
Showwindow(klein&,1)
showwindow(gros&,0)
waitinput
Showwindow(klein&,0)
showwindow(gros&,1)
waitinput
|
|
|
| |
|
|
|
Roberto Neu | So habe cela avec destroywindow maintenant gemacht. j'ai es sogar doppelt geschrieben. mais là je im expliquer pas si bien suis guck dir cela s'il te plaît la fois selbst à
Währendessen werde je cela avec 0 et 1 essayer ^ ^ |
|
|
| |
|
|
|
Rolf Koch | Heut suis je très gutmütig *lol* exposition entier simple: (mais chacun la ligne kapieren, bevor Du prochain Frage stellst!) KompilierenMarqueSéparationdeclare medit&,befehle&,kr&,rbutton2&,rbutton1&,rbutton3&,text1$,text2$,text3$,Intro$,E%,Exit&,klein&,gros&,bild&,kleinb&,grosb&,grosr&,kleinr&
windowtitle "IP Editor 1"
cls
loadbmp "files\kleine.bmp",5,385;0
Proc meditklein
klein& = Create("MultiEdit",%HWnd,"Kleine Ansicht",5,7,300,-380)
endproc
Proc meditgros
gros& = Create("MultiEdit",%HWnd,"Große Ansicht",5,7,400,-380)
endproc
Create("GroupBox",%HWnd,"Ansicht\Optionen",420,0,Width(%HWnd) -435,Height(%HWnd) - 205)
grosr& = Create("RadioButton",%HWnd,"Groß",427,25,70,20)
kleinr& = Create("RadioButton",%HWnd,"Klein",427,50,70,20)
kleinb& = Create("Button",%HWnd,"Speichern",498,25,100,20)
grosb& = Create("Button",%HWnd,"Speichern",498,50,100,20)
Beide zuerst erstellen
meditgros
meditklein
Start: dann nur grosses anzeigen:
showwindow(klein&,0)
showwindow(gros&,1)
Der Logik wegen auch die Checkbox setzen:
setcheck grosr&,1
whilenot e%
WaitInput
if GetCheck(kleinr&)
Kleines anzeigen, grosses ausblenden
showwindow(klein&,1)
showwindow(gros&,0)
elseif GetCheck(grosr&)
Grosses anzeigen, kleines ausblenden
showwindow(klein&,0)
showwindow(gros&,1)
elseif Mouse(5,385 - 305,405)
Kleines anzeigen, grosses ausblenden
showwindow(klein&,1)
showwindow(gros&,0)
endif
endwhile
='./../../references-fonction/XProfan/end/'>end
|
|
|
| |
|
|
|
Rolf Koch | |
|
| |
|
|
|
Roberto Neu | Hab alles verstanden. mais cela elseif Souris(........) musste on dans IF umändern ou bien? alors auparavant hats chez mir net geklappt uber cela Bild cela kleine Multiedit(Omg ist Multiedit männlich ou bien féminine??) trop ouvrir. maintenant gehts ^ ^ et nochmal vielen Dank |
|
|
| |
|
|