XProfan

Italia

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
Ende

Nun meine Frage:
Kann ich irgendwie das Inputfenster an eine andere Stelle des Bildschirms bekommen ?
Oder gibt es anderen Befehl als @input$ der sich besser positionieren läßt ?
Ich habe nichts anderes gefunden in der Aiuto

Denn so ist es ja nicht das wahre, den anderen Text zu verdecken.

Saluto 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"

18.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hab hier eine wirklich schlechte und alte Umsetzung mal rausgekahmt - die kannst Du Dir zurechtbiegen:
Kompilieren Markieren Separieren

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/vorgabe/'>VORGABE)