XProfan

English

Detlef
Tussing

Hello all Profaner`n

Have again a question, with the zusammenkopieren of different Programs mach I now 2 Window on. I had but gladly The ListBox in the Window 1, and no weiters Window.
Compile Mark Separation

1. Fenster
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 31 47
WINDOWTITLE Test
WINDOW SUB(DIV(%MAXX,2),DIV(740,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
2.Fenster im 1. Fenster
dlg% = create(Dialog,%Hwnd,Test2,340,200,250,100)
CBox& = @Control(ComboBox,,$5421034E,10,10,200,200,Dlg%,2000,%hinstance)
End%=@createbutton(Dlg%,Auswahl,80,40,80,32)
Addfiles *.DAT
MoveListToChoice(CBox&

and I too wonder be, desert I gladly what the $5421034E in the 2. Window
means.
I have the complete Program on a others computer copies,
there are The Window at a andern place as by me, depends with the the attitude the Grafikkarte together?

Gruß Detlef Tussing
Windows XP, XProfan 10

05/09/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

Detlef
Tussing

and what mach I with ENTER instead of OK

Gruß Detlef Tussing
Windows XP, XProfan 10

05/09/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Probier time %key 13 or 10.

05/09/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

you are any obliging, still where sol I %key13 prompt ?

Gruß Detlef Tussing
Windows XP, XProfan 10

05/09/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Compile Mark Separation

WHILENOT ENDE%

    if %(key=255) or (key%=13)

        BREAK
        elseif.

05/09/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

@Sorry Frank

if %(key=255) or (key%=13)

happens me too sometimes - but so would it correctly.:

Compile Mark Separation

if (%key=255) or (%key=13)re>

not cut -

05/10/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

Please for integrally stupid once more

my Prog reacted only on OK not ENTER
Compile Mark Separation

declare exit&,e%,a$
declare edit&,vorgabe$
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 31 47
WINDOWTITLE Apex Elektronik GmbH Grevenbroich Tel. 02181-24040
WINDOW SUB(DIV(%MAXX,2),DIV(740,2)),SUB(DIV(%MAXY,2),DIV(500,2))-400,150
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
exit& = CreateButton(%HWnd,Ok,150,50,100,35)
vorgabe$ =
edit& = CONTROL(Edit,vorgabe$,$54810020,150,20,100,25,%HWnd,0,%HInstance,$0200)
SetFocus(edit&)

whilenot e%

    if (%key=255) or (%key=13) or getfocus(exit&)

        e% = 1

    endif

wend

A$ = gettext$(edit&)

if a$=qwert

    print a$
    waitinput

else

    end

endif

Gruß Detlef Tussing
Windows XP, XProfan 10

05/10/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

@Hello Detlef
there DU XPROFAN10 have, Have I your Text something abgeändert and Explanations moreover written. hope, You come through...

Compile Mark Separation

declare exit&,e%,a$
e%=0 besser
declare edit&,vorgabe$
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 3147
WINDOWTITLE Apex Elektronik GmbH Grevenbroich Tel. 02181-24040
WINDOW SUB(DIV(%MAXX,2),DIV(740,2)),SUB(DIV(%MAXY,2),DIV(500,2))-400,150
Für das Fenster hatte ich Dir eine andere Möglichkeit weiter oben gepostet
SET(TRUECOLOR,1) Muss nicht sein - XProfan ist standartdmäßig so eingestellt
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
exit& = CreateButton(%HWnd,&Ok,150,50,100,35)überholt
exit&=CREATE(BUTTON,%HWND,&OK,150,50,100,35)
vorgabe$ =  Wenn die Vorgabe  ist, warum schreibst Du dann nicht im Edit& auch
edit& = CONTROL(Edit,vorgabe$,$54810020,150,20,100,25,%HWnd,0,%HInstance,$0200)
edit& = CONTROL(Edit,,$54810020,150,20,100,25,%HWnd,0,%HInstance,$0200)
SetFocus(edit&)

whilenot e%

    if  ISKEY(255) | (ISKEY(18) & ISKEY(79)) | CLICKED(exit&)

        Du hast den Focus auf der Eingabe(SetFocus(edit&)) daher kann die Enter(13)-Taste nicht
        reagieren. Da Du XProfan10 hast, nimm anstelle von %Key  -   ISKEY
        Hier ist jetzt die ALT(18)-Taste und die O(79)-Taste kombiniert. Zusammen gedrückt, schliessen sie auch
        Anstelle von GetFocus besser CLICKED verwenden. Das ist der Windows-Standard.
        Befehl wird erst beim Loslassen des Buttons ausgeführt.
        e% = 1

    endif

    ENDWHILE Wend ist überholt
    A$ = gettext$(edit&)

    if a$=qwert

        print a$
        waitinput

    else

        end

    endif

    -----------------------------
    END

05/10/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

thanks, The Statement the command is vastly rather as with XProfan Help still with ENTER komm I do not moreover

Gruß Detlef Tussing
Windows XP, XProfan 10

05/10/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
The ENTER-Button is neither active ! - in the code, whom I you changed have can You now over the Systemmenu supra right with the [X]-Button, with the OK-Button or with the both Keys ALT + O terminate. The ENTER-Button is to that terminate one Program not normally.
If you your WindowsStyle so angibst : 31 + 512, have You The reaction one Dialoigfensters on the Mainwindow. then can You with the TAB-Button from the EDIT on the Button switch and then functions too The ENTER-Button. but, How said, ENTER for the End of program isn't normally

05/10/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 3 -

Detlef
Tussing

After the Eigabe is it still faster Enter To pressing as with the mouse whom Button To activate, and a input beschliest one otherwise too with Enter or?
i will the program not terminate, only The input abschliessen.
with the +512 goes but Why whom detour over TAB
If I with XProfan einlogge is it the same, name TAB Password TAB and Enter Why not same Enter to Password ??

Gruß Detlef Tussing
Windows XP, XProfan 10

05/10/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

I Have you still now a couple Examples rübergeschickt. If you absolutely The ENTER-Button having want, then definiere tappt im dunkeln still:
Compile Mark Separation

Case CLICKED(OK%) | ISKEY(13):END  oder was hier sonst passieren soll

therefore, that You only the Eingabefenster here ausgibst, knows I Yes not, what You vorhast. in the Profan-Help stand any Scancodes. any Keys- and Buchstabenwerte. How The together called go, Have I you too written. Nu mach time...

05/10/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dietmar
Horn

Hello Detlef,

you have still our XProfan-manager. Gib still simply time there in the Suchmaschine (F2) or in the baby-Box whom Suchbegriff keyboard one, then find You massenhaft Codes and Demos to Keyboard-Query.

Greeting
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]