XProfan

Français

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

eh bien mon Frage:
peux je irgendwie cela Inputfenster à une autre Stelle des Bildschirms bekommen ?
ou bien gibt es anderen Befehl comme @input$ qui sich besser positionieren läßt ?
j'ai rien d'autre trouvé dans qui Aider

car so ist es oui pas cela wahre, den anderen Text trop verdecken.

Salut 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 citation

Absatzweise Citation Zeilenweise Citation

Hab ici une wirklich schlechte et vieille Umsetzung la fois rausgekahmt - qui peux Du Dir zurechtbiegen:
Kompilieren Marque Séparation

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)