XProfan

English

Roberto

good day
so have here Program made the one with whom background one Fensters Change can .
But if I on Wallpapers click comes of course one but the terminate Button disappears.
can with someone help Please

here the code
Compile Mark Separation

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='./../../Function-References/XProfan/endwhile/'>EndWhile

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

02/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dietmar
Horn

I have your Gutton time quick in Button changed. your own Postings can You as an afterthought Change, because You right under on edit click.

Greeting
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: [...]

02/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Paul
Glatz

Hi,
the Button becomes of Image übermalt

here the korrigierte code:
Compile Mark Separation

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='./../../Function-References/XProfan/endwhile/'>EndWhile

02/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Roberto

Klappt immernochnet first if one over The place drives where the Button his ought to comes it.
means the disappears if one in the Menu Wallpapers apiece Losoe selecting.
mach the please times
Compile Mark Separation

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='./../../Function-References/XProfan/endwhile/'>EndWhile

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

02/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Paul
Glatz

Hi,

I have it nooch eimal examined so müste it klappen.
Compile Mark Separation

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='./../../Function-References/XProfan/endwhile/'>EndWhile

02/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dietmar
Horn

Hello Robin,

for your Beginner-Questions should You you time my XProfan-Textbook download and durcharbeiten. You find it in the Download Area ours MMJ-Vereins-Homepage: [...]

On almost 600 pages try I there, whom Programmiereinsteigern The biggest Stolpersteine from the lane To leave.

In my XProfan-manager (ditto on [...]

available) find You tons of Helfern, Tools and thousands of of demonstration-Source code To all possible Topics.

Greeting
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: [...]

02/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hm, You could the drüberfahren z.B. simulate, with SetFocus().
Compile Mark Separation

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

ENDIF

SETFOCUS(exit&)

EndWhile

_____

Very elegant comes me the though neither to.

02/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Zielinski

RePaint *hust* same to the change the Hintergrundes.

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

02/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

Ungetestet:
Compile Mark Separation

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

then need one itself around the Redraw not any more To concern...

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...

02/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Roberto

so with of/ one combination con Peter´s and Thomas´s
Vorschlägen Have I it geschafft.
thanks (wiedermal)
and on Dietmar i'll me your Textbook runterladen.

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

02/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote