XProfan

Français

Detlef
Tussing

allô allen Profaner`n

hab encore une Frage, chez dem zusammenkopieren de verschiedenen Programmen mach je maintenant 2 la fenêtre sur. je hätte mais volontiers qui ListBox im la fenêtre 1, et ne...aucune weiters la fenêtre.
Kompilieren Marque Séparation

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&

et là je aussi curieux suis, wüste je gern quoi cela $5421034E im 2. la fenêtre
bedeutet.
j'ai cela komplette Programme sur une anderen calculateur kopiert,
voilà qui la fenêtre à einer andern Stelle comme chez mir, hängt cela avec qui Einstellung qui Grafikkarte zusammen?

Gruß Detlef Tussing
Windows XP, XProfan 10

09.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

Frank
Abbing

Wofür CLS ? - cela la fenêtre wird avec WINDOW x,y-x2,y1 erstellt

Horst, CLS erstellt pas seulement un la fenêtre, mais löscht dans erster ligne number den Bildschirm (avec einer vordefinierten la couleur). CLS ist une abréviation pour CLear Screen. Existiert encore ne...aucune la fenêtre, ensuite erstellt es plan eines. Genauso comment z.B. PRINT.

09.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@Frank
Bien sûr la hâte Du droite dans qui Beziehung CLS RGB(r%,g%,b%) -
je prends mais lieber UseBrush et Rectangle, weil je ici ensuite chez Programmeinstellungen z. B. qui surface eleganter changement peux (mon unmassgebliche attitude

) Zusätzlich peux je avec Rectangle einzelne Zonen sur qui surface unterschiedlich färben. - (je hoffe, Du sprichst maintenant encore avec mir

)

09.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

encore flexibler ist LoadBmp ou bien SetPixel, là peux du jeden Bildpunkt gesondert einfärben...

Ne, is bien sûr. je weiss oui quoi du meinst.

09.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

et quoi mach je avec ENTER anstatt OK

Gruß Detlef Tussing
Windows XP, XProfan 10

09.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

Probier la fois %clé 13 ou bien 10.

09.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

vous êtes alle hilfsbereit, doch wohin sol je %clé13 eingeben ?

Gruß Detlef Tussing
Windows XP, XProfan 10

09.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

Kompilieren Marque Séparation

WHILENOT ENDE%

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

        BREAK
        elseif.

09.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@Sorry Frank

si %(key=255) or (clé%=13)

Passiert mir aussi quelquefois - mais so wäre es richtig:

Kompilieren Marque Séparation

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

pas hauen -

10.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

s'il te plaît pour entier dumme encore la fois

mon Prog reagiert seulement sur Ok pas sur ENTER
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

@allô Detlef
là DU XPROFAN10 la hâte, hab je Deinen Text quelque chose abgeändert et Erklärungen en supplément geschrieben. Hoffe, tu viens par...

Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

merci, qui Erklärung qui Befehle ist erheblich besser comme chez XProfan Aider doch avec ENTER komm je pas plus

Gruß Detlef Tussing
Windows XP, XProfan 10

10.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
qui ENTER-bouton ist aussi pas aktiv ! - dans dem Code, den je Dir geändert habe peux Du maintenant sur cela Systemmenu dessus à droite avec dem [X]-Button, avec dem OK-Button ou bien avec den beiden Tasten ALT + O finissons. qui ENTER-bouton ist zum finissons eines Programmes pas üblich.
si Du Deinen WindowsStyle so angibst : 31 + 512, la hâte Du qui réaction eines Dialoigfensters sur dem Hauptfenster. ensuite peux Du avec qui TAB-bouton aus dem EDIT sur den Button commuter et ensuite funktioniert aussi qui ENTER-bouton. mais, comment dit, ENTER pour cela Programmende ist pas üblich

10.05.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

◄

123

►