XProfan

Español

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 mi Cuestión:
Kann Yo irgendwie el Inputfenster a una otro Punto des Bildschirms bekommen ?
Oder hay otro Befehl como @input$ el se mejor positionieren läßt ?
Yo habe nichts más gefunden en el Ayuda

Denn así es sí no el wahre, el otro Texto a verdecken.

Saludo 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 Cita Zeilenweise Cita

Hab hier una wirklich schlechte y alte Umsetzung veces rausgekahmt - el kannst Usted Usted zurechtbiegen:
Kompilieren Marca Separación

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)