English
Forum

need time again eure Help (Listbox create)

 

Stephie
Erstmal a Please, How place I here whom code as list dar ?
Please my wandeln, who the right moreover has, THANK YOU.
so now To my Anliegn. I call over my Menu a Output, in the defined things showing should. the Window should on Tastendruck or a Button closed go, the Mainwindow but should not thereby closed go.
have plenty red and rumprobiert, so I now Real not any more wisely I make should. (by me lock itself then too the Mainwindow, have this part again deleted as a precaution).

here my code :
'----- ini spending -----
Proc ini-spending

    Declare Listbox%,Dlg%
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Dlg% = @Create("Dialog",%Hwnd,cover$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
    @AddStrings(ListBox%,"Familie in the network Version 1.0 portable")
    @AddStrings(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"ini - Zuweisungen")
    @AddStrings(ListBox%,"Fin.ini = "+Prini$)
    @AddStrings(ListBox%,"Sprache = "+Menuini$)
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"Ordner - Zuweisungen")
    @AddStrings(ListBox%,Backup$)
    @AddStrings(ListBox%,example$)
    @AddStrings(ListBox%,Images$)
    @AddStrings(ListBox%,File$)
    @AddStrings(ListBox%,Dummys$)
    @AddStrings(ListBox%,extensions$)
    @AddStrings(ListBox%,Fonts$)
    @AddStrings(ListBox%,Wallpapers$)
    @AddStrings(ListBox%,welt$)
    @AddStrings(ListBox%,Languages$)
    @AddStrings(ListBox%,Tafelbilder$)
    @AddStrings(ListBox%,Vorlagen$)
    @AddStrings(ListBox%,Wiki$)

ENDPROC

 
08/18/11  
 




Julian
Schmidt
If I you correctly. understand want You just one dialog-Window close without the Mainwindow with zuschließen!?
declare Dlg%
User Messages $10
Windowstyle 24
Window 100,200-300,250
ini-spending

while 1

    waitinput

    if CloseWindow(Dlg%)

        destroywindow(Dlg%)

    elseif CloseWindow(%hwnd)

        break

    Endif

Endwhile

end

Proc ini-spending

    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)
    @AddStrings(ListBox%,"Familie in the network Version 1.0 portable")
    @AddStrings(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"ini - Zuweisungen")
    @AddStrings(ListBox%,"Fin.ini = "+"")
    @AddStrings(ListBox%,"Sprache = "+"")
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"Ordner - Zuweisungen")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")
    @AddStrings(ListBox%,"")

ENDPROC

Proc CloseWindow

    Parameters hdl&
    var x%=0

    if %UMessage = $10

        case GetActiveWindow()=hdl& : x%=1

    Endif

    Return x%

ENDPROC

 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
08/18/11  
 




Stephie
so first thanks for the whom code so ready made has. but How make I the for future ? what must I there prompt lest always your the for me make must.
now To you Julian57, I call of my Mainwindow over which Menu this Dialog-Window on. after I look can, the everything yet i.O. is, would like I through einfachen pressure of/ one Button (z.B. waitinput) or a Button the under in the dialog-Window attend could, this dialog close, circa then in the Mainwindow weiterarbeiten to.
with the Waitinput happens nothing, with the Button (if I whom einbaue) close so did i the Mainwindow.
it ought to means a routine be installed, The of my erachtens in the Proc ini-spending To Endproc stand should.

Greeting Stephie
(PS: have well with the first inquire my names forget, fetch I now to.)
 
08/19/11  
 




E.T.
time without Messages To "verbiegen" and without Extra-Proc:
CLS'Mainwindow create
var Btn1& = Create("Button",%HWnd,,"ini-spending aufrufen",10,10,200,25)'selbsterklärend
var ProgEnde% = 0

WhileNot ProgEnde%'Waiting...

    waitinput

    If @Clicked(Btn1&)

        ini_Ausgabe'appeal ini-spending, whether over this Button or Menu is your thing

    ElseIf %Key = 2'close-Cross in the Mainwindow

        Progende% = 100'Program terminate

    EndIF

EndWhile

end

Proc ini_Ausgabe'KEIN BINDESTRICH!!!

    Declare Listbox%,Dlg%, cover$'div. declaration missing, Have whom remainder under as String taken
    cover$ = "Testbox"
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Window Style 1024
    Dlg% = @Create("Dialog",%Hwnd,cover$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
    @AddStrings(ListBox%,"Familie in the network Version 1.0 portable")
    @AddStrings(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"ini - Zuweisungen")
    @AddStrings(ListBox%,"Fin.ini = "+"Prini$")
    @AddStrings(ListBox%,"Sprache = "+"Menuini$")
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"Ordner - Zuweisungen")
    @AddStrings(ListBox%,"Backup$")
    @AddStrings(ListBox%,"Beispiel$")
    @AddStrings(ListBox%,"Bilder$")
    @AddStrings(ListBox%,"Datei$")
    @AddStrings(ListBox%,"Dummys$")
    @AddStrings(ListBox%,"Erweiterungen$")
    @AddStrings(ListBox%,"Fonts$")
    @AddStrings(ListBox%,"Hintergrundbild$")
    @AddStrings(ListBox%,"Rahmen$")
    @AddStrings(ListBox%,"Sprachen$")
    @AddStrings(ListBox%,"Tafelbilder$")
    @AddStrings(ListBox%,"Vorlagen$")
    @AddStrings(ListBox%,"Wiki$")
    var Ini_Ende_Btn& = @Create("Button",Dlg%,"ini-spending beenden",10,@Height(Dlg%)-30,300,25)'Button to that terminate the spending
    var Ini_Ende% = 0
    Enablewindow %Hwnd,0'Mainwindow deaktivieren

    WhileNot Ini_Ende%

        waitinput'Waiting, To Dlg% over Button closed becomes
        Case @Clicked(Ini_Ende_Btn&): Ini_Ende% = 1

    EndWhile

    DestroyWindow(Dlg%)'dialog destroy
    Enablewindow %Hwnd,1'Mainwindow again enable
    Setwindowpos %HWnd = %WinLeft,%WinTop;0'Window again into Vordergrund fetch

ENDPROC


hope, the helps something... by me functions the fine
 
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...
08/19/11  
 




Dietmar
Horn
Hello Stephie,

i was the Bösewicht been, the itself on Your code out of print has.

to whom code setting You [~CODE] and thereafter [~/CODE] - without "~".

Greeting
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:  [...] 
08/19/11  
 




Jörg
Sellmeyer

to whom code setting You [~CODE] and thereafter [~/CODE] - without "~".


or yet plainer: over this Beitragstextedit is a groin with "Beitrag|Schrift|Smilies" and end one small arrow. whom klick at times...
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
08/19/11  
 




Julian
Schmidt
Dietmar horn (19.08.11)
to whom code setting You [~CODE] and thereafter [~/CODE] - without "~".


Simple over the Menu aufzurufen...



[OFFTOPIC]hmmm.....Jörg was faster [/OFFTOPIC]

44 kB
Hochgeladen:08/19/11
Downloadcounter198
Download
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
08/19/11  
 




Jörg
Sellmeyer
here too yet my Variante To Window close:
User Messages $10
Def CloseDlg(1) (%umessage = $10) And (GetActiveWindow() = &(1))
Cls
Var dlg& = Create("Dialog",%hwnd,"Dialog",100,100,200,400)

While 1

    WaitInput

    If CloseDlg(%hwnd)

        Break

    ElseIf CloseDlg(dlg&)

        DestroyWindow(dlg&)

    EndIf

Wend

 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
08/19/11  
 



Hello Stephie,

Untitled (19.08.11)
... has. but How make I the for future?


the goes integrally slight.

after You whom View source into Beitragseditorfeld eingefügt have markierst You whom View source simply and dial (How in the subesquent Screenshot pictured) "Quelltext" from. The markierte Beitragstext becomes then with [CODE]...[/CODE] umrandet with which it as View source marked is.





Untitled (19.08.11)
(PS: have well with the first inquire my names forget, fetch I now to.)


yet plainer is it if you your (Lieblings-)Mitgliedsnamen here festlegst:  [...] 

likewise could one Anzeigebild/ Avatar for you determine:  [...] 

the are everything Options under my-XProfan:  [...] 

then sees one automatically who the Urheber one Beitrages is and then have You too one Profil the You with further (optionalen) indicated bereichern can.

10 kB
Hochgeladen:08/19/11
Downloadcounter0
Download
4 kB
Hochgeladen:08/19/11
Downloadcounter0
Download
 
08/19/11  
 




Stephie
Boh where catch I ....
So I have me for suggestion of E.T. decided, I it too understand can, take off me important is.

Tja if I the now with the code and all whom others thousand things forget ought to, then would it Yes embarrassing with so many Information.

DAHER THANK YOU AN ALLE.
 
08/19/11  
 



are Welcome!

there You a (public) Mitgliedsnamen chosen have, have You (automatically)

too one (public) Profil:  [...] 
 
08/19/11  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

12.622 Views

Untitledvor 0 min.
Ju02/15/17
Christof Neuß10/15/16
RudiB.11/08/12
Untitled04/15/12
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie