XProfan

English

Wilfried
Friebe

Anfang
declare suchstr$
WindowStyle 27
WindowTitle test
Cls @RGB(255, 255, 255)
ShowMax     Fenster auf Maximalgröße vergrößern
Screen 1280,1024
TextColor @RGB(0, 0, 0), -1
Set(CharSet, 0)
UseFont ARIAL, 16, 9, 1, 0, 0
DrawText 10,  50,     Anzahl Datensätze
DrawText 210, 50,     &dbRecCount
DrawText 10,  70,     Laufende Nr.:
DrawText 210, 70,     zähler%
DrawText 10,  90,     Titel LP/CD/MC:
DrawText 210, 90,     @db(Get, LP_TITEL)
DrawText 10,  110,    Interpret:
DrawText 210, 110,    @db(Get, INTERPRET)
DrawText 10,  130,    Sorte:
DrawText 210, 130,    @db(Get, SORTE)
DrawText 10,  150,    LP/CD/MC:
DrawText 210, 150,    @db(Get, LP_CD_MC)
DrawText 10,  170,    Ort:
DrawText 210, 170,    @db(Get, ORT)
suchstr$ = @Input$(Gesuchtes Wort:, , )
waitinput
end
end

now my question:
can I somehow the Inputfenster on another place the Bildschirms get ?
or there others commands as @input$ the itself rather positionieren can ?
I have nothing other found in the Help

because so is it Yes not the true, whom others Text To verdecken.

Greeting Wilfried

Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit

Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit

Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins"

06/18/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Have here a really code and old Umsetzung time rausgekahmt - The can You you zurechtbiegen:
Compile Mark Separation

proc oid_input

    parameters x&,y&,_hwnd&,prompt$,title$,cancle$,typ$,lenlimit&,pre$
    declare dlg%,ip&,tx%,ex%,ss$,ok%,ca%,myfont&,myfontc&
    enablewindow _hwnd&,0
    myfont&=createfont(MS Sans Serif,10,0,0,0,0)
    myfontc&=createfont(Courier New,16,0,1,0,0)
    windowstyle 512
    dlg%=createdialog(_hwnd&,title$,x&,y&,300,128)
    tx%=creategroupbox (dlg%,prompt$,10,13,270,30)
    ok%=createbutton(dlg%,&OK,sub(width(dlg%),88),sub(height(dlg%),34),75,23)
    ca%=createbutton(dlg%,cancle$,sub(width(dlg%),90*2)+9,sub(height(dlg%),34),75,23)
    setfont ok%,myfont&
    setfont ca%,myfont&
    showwindow (tx%,0)
    setfont tx%,myfont&
    showwindow (tx%,1)

    if equ$(date,typ$)

        ip&=Create(DateEdit,dlg%,pre$,10,30,270,20)
        setfont ip&,myfont&

    elseif equ$(time,typ$)

        ip&=Create(TimeEdit,dlg%,pre$,10,30,270,20)
        setfont ip&,myfont&

    elseif equ$(spin,typ$)

        ip&=Create(SpinEdit,dlg%,pre$,10,30,270,20)
        setfont ip&,myfont&

    elseif equ$(password,typ$)

        ip&=createedit (dlg%,pre$,10,30,270,-20)
        setfont ip&,myfontc&

    else

        ip&=createedit (dlg%,pre$,10,30,270,20)
        setfont ip&,myfont&

    endif

    case (lenlimit&) : sendmessage (ip&,197,lenlimit&,0)
    sendmessage(ip&,$00B1,0,255)
    showwindow (ip&,0)
    showwindow (ip&,1)
    setfocus(ip&)

    whilenot ex%

        waitinput

        ifnot %wmtimer

            case or(equ(%key,13),clicked(ok%)) : ex%=1

            if or(equ(%key,2),clicked(ca%))

                ex%=2
                settext ip&,

            endif

        endif

    wend

    sleep 100
    enablewindow dlg%,0
    enablewindow ca%,0
    enablewindow ok%,0
    sleep 300
    ss$=gettext$(ip&)
    destroywindow (ca%)
    destroywindow (ok%)
    destroywindow (ip&)
    destroywindow (tx%)
    destroywindow (dlg%)
    enablewindow _hwnd&,1
    setactivewindow (_hwnd&)
    deleteobject myfont&
    return if(ex%=1,ss$,)

endproc

cls
print oid_input(100,200,%hwnd,PROMPT,TITEL,ABBRECHEN,TEXT,255,ef='./../../references-fonction/XProfan/default/'>VORGABE)