XProfan

Español

Roberto

Bueno Tag
So habe hier una Programa gemacht con el uno el Hintergrund uno Fensters ändern kann .
Aber si yo en Hintergrundbild klicke kommt zwar eins pero la final Button verschwindet.
Kann con alguien helfen Por favor,

hier el code
Kompilieren Marca Separación

var x% = 500
var y% = 400
var Titel$ = Menü-Demo 1
declare exit&,e%

PROC FENSTER

    WindowTitle Titel$
    Windowstyle 536
    Window (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    UseIcon GESICHT
    cls rgb(255,255,0)

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 5,Height(%HWnd) - 25 - 5,100,25)

ENDPROC

PROC MENU

    Popup &Hintergrundfarbe
    AppendMenu 201,&rot
    Separator
    AppendMenu 202,&grün
    Separator
    AppendMenu 203,&blau
    Popup Hintergrundbild
    AppendMenu 301,&Je Losoe
    Separator

ENDPROC

PROC HINTERGRUND

    Parameters r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parameters _bild$
    ShowWindow(exit&,0)
    LoadSizedBMP _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    DrawSizedPic _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    ShowWindow(exit&,1)

ENDPROC

FENSTER
MENU
BUTTONS

Whilenot e%

    Waitinput

    IF Clicked(exit&) or (%Key = 2)

        e% = 1

    ELSEIF Menuitem(201)

        HINTERGRUND 255,0,0

    ELSEIF Menuitem(202)

        HINTERGRUND 0,255,0

    ELSEIF Menuitem(203)

        HINTERGRUND 0,0,255

    ELSEIF Menuitem(301)

        LoadBMP RHProgramming 400x500.BMP,0,0;0

    ENDIF<

a class=s4 href='./../../funktionsreferenzen/XProfan/endwhile/'>EndWhile

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

17.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn

Yo habe Su Gutton veces rápidamente en Button geändert. Su eigenen Postings kannst Usted nachträglich ändern, indem Usted rechts unten en Editieren klickst.

Saludo
Dietmar

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

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

17.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Paul
Glatz

¡Hola,
el Button se vom Bild übermalt

Hier el korrigierte Code:
Kompilieren Marca Separación

var x% = 500
var y% = 400
var Titel$ = Menü-Demo 1
declare exit&,e%

PROC FENSTER

    WindowTitle Titel$
    Windowstyle 536
    Window (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    UseIcon GESICHT
    cls rgb(255,255,0)

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 5,Height(%HWnd) - 25 - 5,100,25)

ENDPROC

PROC MENU

    Popup &Hintergrundfarbe
    AppendMenu 201,&rot
    Separator
    AppendMenu 202,&grün
    Separator
    AppendMenu 203,&blau
    Popup Hintergrundbild
    AppendMenu 301,&Je Losoe
    Separator

ENDPROC

PROC HINTERGRUND

    Parameters r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parameters _bild$
    EnableWindow exit&,0 exit& sperren
    LoadSizedBMP _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    DrawSizedPic _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    EnableWindow exit&,1 exit& entsperren

ENDPROC

FENSTER
MENU
BUTTONS

Whilenot e%

    Waitinput

    IF Clicked(exit&) or (%Key = 2)

        e% = 1

    ELSEIF Menuitem(201)

        HINTERGRUND 255,0,0

    ELSEIF Menuitem(202)

        HINTERGRUND 0,255,0

    ELSEIF Menuitem(203)

        HINTERGRUND 0,0,255

    ELSEIF Menuitem(301)

        LoadBMP RHProgramming 400x500.BMP,0,0;0

    ENDIF<

a class=s4 href='./../../funktionsreferenzen/XProfan/endwhile/'>EndWhile

17.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Roberto

Klappt immernochnet sólo si uno en Punto fährt wo el Button ser debería kommt él.
Also el verschwindet si uno en el Menü Hintergrundbild Je Losoe auswählt.
mach el Por favor, veces
Kompilieren Marca Separación

var x% = 500
var y% = 400
var Titel$ = Menü-Demo 1
declare exit&,e%

PROC FENSTER

    WindowTitle Titel$
    Windowstyle 536
    Window (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    UseIcon GESICHT
    cls rgb(255,255,0)

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 5,Height(%HWnd) - 25 - 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrundbild
    AppendMenu 301,&Je Losoe
    Separator
    Popup &Hintergrundfarbe
    AppendMenu 201,&rot
    Separator
    AppendMenu 202,&grün
    Separator
    AppendMenu 203,&blau

ENDPROC

PROC HINTERGRUND

    Parameters r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parameters _bild$
    EnableWindow exit&,0exit& sperren
    LoadSizedBMP _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    DrawSizedPic _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    EnableWindow exit&,1exit& entsperren

ENDPROC

FENSTER
MENU
BUTTONS

Whilenot e%

    Waitinput

    IF Clicked(exit&) or (%Key = 2)

        e% = 1

    ELSEIF Menuitem(201)

        HINTERGRUND 255,0,0

    ELSEIF Menuitem(202)

        HINTERGRUND 0,255,0

    ELSEIF Menuitem(203)

        HINTERGRUND 0,0,255

    ELSEIF Menuitem(301)

        LoadBMP RHProgramming 400x500.BMP,0,0;0

    ENDIF<

a class=s4 href='./../../funktionsreferenzen/XProfan/endwhile/'>EndWhile

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

17.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Paul
Glatz

¡Hola,

Yo habe lo nooch eimal geprüft así müste lo klappen.
Kompilieren Marca Separación

var x% = 500
var y% = 400
var Titel$ = Menü-Demo 1
declare exit&,e%

PROC FENSTER

    WindowTitle Titel$
    Windowstyle 536
    Window (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    UseIcon GESICHT
    cls rgb(255,255,0)

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 5,Height(%HWnd) - 25 - 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrundbild
    AppendMenu 301,&Je Losoe
    Separator
    Popup &Hintergrundfarbe
    AppendMenu 201,&rot
    Separator
    AppendMenu 202,&grün
    Separator
    AppendMenu 203,&blau

ENDPROC

PROC HINTERGRUND

    Parameters r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parameters _bild$
    EnableWindow exit&,0exit& sperren
    LoadSizedBMP _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    DrawSizedPic _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    EnableWindow exit&,1exit& entsperren

ENDPROC

FENSTER
MENU
BUTTONS

Whilenot e%

    Waitinput

    IF Clicked(exit&) or (%Key = 2)

        e% = 1

    ELSEIF Menuitem(201)

        HINTERGRUND 255,0,0

    ELSEIF Menuitem(202)

        HINTERGRUND 0,255,0

    ELSEIF Menuitem(203)

        HINTERGRUND 0,0,255

    ELSEIF Menuitem(301)

        LADEBILD RHProgramming 400x500.BMP,0,0;0

    ENDIF<

a class=s4 href='./../../funktionsreferenzen/XProfan/endwhile/'>EndWhile

17.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn

¡Hola Robin,

para Su Einsteigerfragen solltest Usted Dir veces mein XProfan-Lehrbuch downloaden y durcharbeiten. Usted findest lo en el Downloadbereich unserer MMJ-Vereins-Homepage: [...]

Auf fast 600 Páginas versuche Yo hay, el Programmiereinsteigern el größten Stolpersteine de el Weg a räumen.

In mi XProfan-Manager (ebenfalls en [...]

erhältlich) findest Usted Tonnen de Helfern, Tools y Tausende de Demo-Quellcodes a allen möglichen Temas.

Saludo
Dietmar

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

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

17.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hm, du könntest el drüberfahren z.B. simulieren, con SetFocus().
Kompilieren Marca Separación

...        LoadBMP RHProgramming 400x500.BMP,0,0;0

ENDIF

SETFOCUS(exit&)

EndWhile

_____

Sehr elegant kommt me allerdings auch no antes.

17.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Zielinski

RePaint *hust* igual después de el verändern des Hintergrundes.

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

17.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Ungetestet:
Kompilieren Marca Separación

Declare HBild&
HBild& = @Create(HSizedPic,-1,BildDatei$,%MaxX,%MaxY,1)
@Create(Bitmap,%HWnd,HBild&,0,0)
...
...
...
DeleteObject HBild& am Ende nicht vergessen

Dann braucht uno son el neuzeichnen no mehr a kümmern...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

17.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Roberto

So con uno Kombination con Peter´s y Thomas´s
Vorschlägen tener Yo geschafft.
Gracias (wiedermal)
y a Dietmar Yo voluntad me dein Lehrbuch runterladen.

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

17.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita