| |
|
|
Stephie | Erstmal eine Bitte, wie stelle ich hier den Code als Liste dar ? Bitte meinen wandeln, wer das Recht dazu hat, DANKE. So nun zu meinem Anliegn. Ich rufe über mein Menu eine Ausgabe auf, in der bestimmte Sachen angezeigt werden sollen. Das Fenster soll auf Tastendruck oder über einen Button geschlossen werden, das Hauptfenster soll aber nicht dabei geschlossen werden. Habe viel gelesen und rumprobiert, so dass ich jetzt echt nicht mehr weis was ich machen soll. (Bei mir schloss sich dann auch das Hauptfenster, habe diesen teil wieder gelöscht sicherheitshalber).
Hier mein Code : '----- ini Ausgabe -----
Proc ini-Ausgabe
Declare Listbox%,Dlg%
SetTrueColor 1
Cls @RGB(255,255,255)
Dlg% = @Create("Dialog",%Hwnd,Titel$,300,100,400,500)
ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
@AddString(ListBox%,"Familie im Netz Version 1.0 portable")
@AddString(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
@AddString(ListBox%," ")
@AddString(ListBox%,"ini - Zuweisungen")
@AddString(ListBox%,"Fin.ini = "+Prini$)
@AddString(ListBox%,"Sprache = "+Menuini$)
@AddString(ListBox%," ")
@AddString(ListBox%,"Ordner - Zuweisungen")
@AddString(ListBox%,Backup$)
@AddString(ListBox%,Beispiel$)
@AddString(ListBox%,Bilder$)
@AddString(ListBox%,Datei$)
@AddString(ListBox%,Dummys$)
@AddString(ListBox%,Erweiterungen$)
@AddString(ListBox%,Fonts$)
@AddString(ListBox%,Hintergrundbild$)
@AddString(ListBox%,Rahmen$)
@AddString(ListBox%,Sprachen$)
@AddString(ListBox%,Tafelbilder$)
@AddString(ListBox%,Vorlagen$)
@AddString(ListBox%,Wiki$)
EndProc
|
|
|
| |
|
|
|
Julian Schmidt | Wenn ich dich richtig verstehe willst du einfach nur ein Dialog-Fenster schließen ohne das Hauptfenster mit zuschließen!?
declare Dlg%
UserMessages $10
Windowstyle 24
Window 100,200-300,250
ini-Ausgabe
while 1
waitinput
if CloseWindow(Dlg%)
destroywindow(Dlg%)
elseif CloseWindow(%hwnd)
break
Endif
Endwhile
end
Proc ini-Ausgabe
Declare Listbox%
SetTrueColor 1
Cls @RGB(255,255,255)
Dlg% = @Create("Dialog",%Hwnd,"",300,100,400,500)
ListBox%=@Create("ListBox",Dlg%,"",10,10,370,410)
@AddString(ListBox%,"Familie im Netz Version 1.0 portable")
@AddString(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
@AddString(ListBox%," ")
@AddString(ListBox%,"ini - Zuweisungen")
@AddString(ListBox%,"Fin.ini = "+"")
@AddString(ListBox%,"Sprache = "+"")
@AddString(ListBox%," ")
@AddString(ListBox%,"Ordner - Zuweisungen")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
@AddString(ListBox%,"")
EndProc
Proc CloseWindow
Parameters hdl&
var x%=0
if %UMessage = $10
case GetActiveWindow()=hdl& : x%=1
Endif
Return x%
EndProc
|
|
|
| |
|
|
|
Stephie | So erstmal Danke für den der den Code so fertig gemacht hat. Aber wie mache ich das für die Zukunft ? Was muss ich da Eingeben damit nicht immer Ihr das für mich machen müsst. Nun zu Dir Julian57, Ich rufe von meinem Hauptfenster über dessen Menu dieses Dialogfenster auf. Nachdem ich schauen kann, das alles noch i.O. ist, möchte ich durch einfachen Druck einer Taste (z.B. waitinput) oder über einen Button der unten im Dialog-Fenster erscheinen könnte, diesen Dialog schliessen, um dann im Hauptfenster weiterarbeiten zu können. Mit dem Waitinput passiert nichts, mit dem Button (wenn ich den einbaue) schliesse ich auch das Hauptfenster. Es sollte also eine Routine eingebaut werden, die meines erachtens in dem Proc ini-Ausgabe bis Endproc stehen müsste.
Gruß Stephie (PS: Habe wohl bei der ersten Anfrage meinen Namen vergessen, Hole ich jetzt nach.) |
|
|
| |
|
|
|
E.T. | Mal ohne Messages zu "verbiegen" und ohne Extra-Proc:
CLS'Hauptfenster erstellen
var Btn1& = Create("Button",%HWnd,,"ini-Ausgabe aufrufen",10,10,200,25)'selbsterklärend
var ProgEnde% = 0
WhileNot ProgEnde%'warten...
waitinput
If @Clicked(Btn1&)
ini_Ausgabe'Aufruf ini-Ausgabe, ob über diesen Button oder Menü ist deine Sache
ElseIf %Key = 2'Schliessen-Kreuz im Hauptfenster
Progende% = 100'Programm beenden
EndIF
EndWhile
end
Proc ini_Ausgabe'KEIN BINDESTRICH!!!
Declare Listbox%,Dlg%, Titel$'div. declaration fehlt, hab den Rest unten als String genommen
Titel$ = "Testbox"
SetTrueColor 1
Cls @RGB(255,255,255)
WindowStyle 1024
Dlg% = @Create("Dialog",%Hwnd,Titel$,300,100,400,500)
ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
@AddString(ListBox%,"Familie im Netz Version 1.0 portable")
@AddString(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
@AddString(ListBox%," ")
@AddString(ListBox%,"ini - Zuweisungen")
@AddString(ListBox%,"Fin.ini = "+"Prini$")
@AddString(ListBox%,"Sprache = "+"Menuini$")
@AddString(ListBox%," ")
@AddString(ListBox%,"Ordner - Zuweisungen")
@AddString(ListBox%,"Backup$")
@AddString(ListBox%,"Beispiel$")
@AddString(ListBox%,"Bilder$")
@AddString(ListBox%,"Datei$")
@AddString(ListBox%,"Dummys$")
@AddString(ListBox%,"Erweiterungen$")
@AddString(ListBox%,"Fonts$")
@AddString(ListBox%,"Hintergrundbild$")
@AddString(ListBox%,"Rahmen$")
@AddString(ListBox%,"Sprachen$")
@AddString(ListBox%,"Tafelbilder$")
@AddString(ListBox%,"Vorlagen$")
@AddString(ListBox%,"Wiki$")
var Ini_Ende_Btn& = @Create("Button",Dlg%,"ini-Ausgabe beenden",10,@Height(Dlg%)-30,300,25)'Button zum beenden der Ausgabe
var Ini_Ende% = 0
Enablewindow %Hwnd,0'Hauptfenster deaktivieren
WhileNot Ini_Ende%
waitinput'warten, bis Dlg% über Button geschlossen wird
Case @Clicked(Ini_Ende_Btn&): Ini_Ende% = 1
EndWhile
DestroyWindow(Dlg%)'Dialog zerstören
Enablewindow %Hwnd,1'Hauptfenster wieder aktivieren
Setwindowpos %HWnd = %WinLeft,%WinTop;0'Fenster wieder in den Vordergrund holen
EndProc
Hoffe, das hilft etwas... bei mir funktioniert das bestens |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 19.08.2011 ▲ |
|
|
|
|
Dietmar Horn | Hallo Stephie,
ich war der Bösewicht gewesen, der sich an Deinem Code vergriffen hat.
Vor den Code setzt Du [~CODE] und danach [~/CODE] - ohne "~".
Gruß Dietmar |
|
|
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 19.08.2011 ▲ |
|
|
|
|
Jörg Sellmeyer |
Vor den Code setzt Du [~CODE] und danach [~/CODE] - ohne "~".
oder noch einfacher: über diesem Beitragstextedit ist eine Leiste mit "Beitrag|Schrift|Smilies" und am Ende ein kleiner Pfeil. Den klick mal an... |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 19.08.2011 ▲ |
|
|
|
|
Julian Schmidt | Dietmar Horn (19.08.11)
Vor den Code setzt Du [~CODE] und danach [~/CODE] - ohne "~".
Simple über das Menu aufzurufen...
[OFFTOPIC]hmmm.....Jörg war schneller [/OFFTOPIC] |
|
|
| |
|
|
|
Jörg Sellmeyer | Hier auch noch meine Variante zu Fenster schließen:
|
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 19.08.2011 ▲ |
|
|
|
|
|
|
|
| |
|
|
|
Stephie | Boh Wo fange ich an .... Also ich habe mich für den Vorschlag von E.T. entschieden, da ich es auch nachvollziehen kann, was für mich wichtig ist.
Tja wenn ich das jetzt mit dem Code und all den anderen tausend Sachen vergessen sollte, dann wäre es ja peinlich bei so vielen Informationen.
DAHER DANKE AN ALLE. |
|
|
| |
|
|
|
| Bist willkommen!
Da Du einen (öffentlichen) Mitgliedsnamen gewählt hast, hast Du (automatisch)
auch ein (öffentliches) Profil: [...] |
|
|
| |
|
|