XProfan

Español

Detlef
Tussing

hallo allen Profaner`n

tener ya otra vez una Cuestión, en el zusammenkopieren de verschiedenen Programmen mach Yo ahora 2 Ventana en. Yo hätte aber gerne el ListBox en el Ventana 1, y kein weiters Ventana.
Kompilieren Marca Separación

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&

y como Yo auch neugierig bin, wüste Yo gern qué el $5421034E en el 2. Ventana
bedeutet.
Yo habe el komplette Programa en una otro Rechner kopiert,
como son el Ventana a uno andern Punto como en me, hängt el con el Einstellung el Grafikkarte zusammen?

Gruß Detlef Tussing
Windows XP, XProfan 10

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Frank
Abbing

Wofür CLS ? - Das Ventana es con WINDOW x,y-x2,y1 erstellt

Horst, CLS erstellt no sólo una Ventana, pero löscht en erster Linie el Bildschirm (con uno vordefinierten Farbe). CLS es una Abkürzung para CLear Screen. Existiert todavía kein Ventana, entonces erstellt lo eben uno. Genauso como z.B. PRINT.

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Franco
Natürlich hast Usted Recht en el Beziehung CLS RGB(r%,g%,b%) -
Yo nehme aber más bien UseBrush y Rectángulo, porque Yo hier entonces en Programmeinstellungen z. B. el Oberfläche eleganter ändern kann (mi unmassgebliche Meinung

) Zusätzlich kann I, con Rectángulo einzelne Zonen en el Oberfläche unterschiedlich färben. - (Yo hoffe, Usted sprichst ahora todavía con me

)

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Noch flexibler es LoadBmp oder SetPixel, como kannst du cada Bildpunkt gesondert einfärben...

Ne, is klar. Yo blanco sí qué du media.

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

y qué mach I, con ENTER anstatt OK

Gruß Detlef Tussing
Windows XP, XProfan 10

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Probier veces %key 13 oder 10.

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

Ihr seid todos hilfsbereit, doch wo sol Yo %key13 eingeben ?

Gruß Detlef Tussing
Windows XP, XProfan 10

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Kompilieren Marca Separación

WHILENOT ENDE%

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

        BREAK
        elseif.

09.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Sorry Franco

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

Passiert me auch manchmal - aber así wäre lo correcto:

Kompilieren Marca Separación

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

No hauen -

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

Bitte para bastante dumme una vez más

Mein Prog reagiert sólo en Ok no en ENTER
Kompilieren Marca Separación

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

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@¡Hola Detlef
Como DU XPROFAN10 hast, tener Yo Su Texto algo abgeändert y Erklärungen dazu geschrieben. Hoffe, Usted kommst por...

Kompilieren Marca Separación

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

    -----------------------------
    FIN

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

Gracias, el Erklärung el Befehle es erheblich mejor como en XProfan Ayuda doch con ENTER komm Yo no más

Gruß Detlef Tussing
Windows XP, XProfan 10

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
El ENTER-Taste es auch no aktiv ! - In el Code, el Yo Usted geändert habe kannst Usted ahora encima el Systemmenu oben rechts con el [X]-Button, con el OK-Button oder con el beiden Tasten ALT + O final. El ENTER-Taste es para Beenden uno Programmes no üblich.
Si usted Su WindowsStyle así angibst : 31 + 512, hast Usted el Reacción uno Dialoigfensters en el Ventana principal. Dann kannst Usted con el TAB-Taste de EDIT en el Button umschalten y luego funktioniert auch el ENTER-Taste. Aber, como dijo, ENTER para el Programmende es no üblich

10.05.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

◄

123

►