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 -

Frank
Abbing

For which CLS ? - the Window is with WINDOW x,y-x2,y1 prepares

Horst, CLS prepares not only one Window, separate deletes in first line whom screen (with of/ one vordefinierten colour). CLS is a short cut for CLear Screen. existing yet no Window, then prepares it even one. just as How z.B. PRINT.

05/09/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

@Frank
naturally have You right in the relationship CLS RGB(r%,g%,b%) -
I take but rather UseBrush and Rectangle, because I here then with Programmeinstellungen z. B. The surface eleganter Change can (my unmassgebliche opinion

) Additional can I with Rectangle single Zonen on the surface different dye. - (I hope, You promise yet with me

)

05/09/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

yet flexibler is LoadBmp or SetPixel, there can you each Bildpunkt gesondert dye...

Ne, is clear. I knows Yes what you mean.

05/09/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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

◄

123

►