XProfan

Deutsch

Roberto

Guten Tag
So habe hier ein Programm gemacht mit dem man den Hintergrund eines Fensters ändern kann .
Aber wenn ich auf Hintergrundbild klicke kommt zwar eins aber der beenden Button verschwindet.
Kann mit jemand helfen bitte

hier der code
Kompilieren Markieren Separieren

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

EndWhile

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

17.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dietmar
Horn

Ich habe Deinen Gutton mal schnell in Button geändert. Deine eigenen Postings kannst Du nachträglich ändern, indem Du rechts unten auf Editieren klickst.

Gruß
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 zitieren Zeilenweise zitieren

Paul
Glatz

Hallo,
der Button wird vom Bild übermalt

Hier der korrigierte Code:
Kompilieren Markieren Separieren

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

EndWhile

17.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Roberto

Klappt immernochnet erst wenn man über die Stelle fährt wo der Button sein sollte kommt er.
Also der verschwindet wenn man in dem Menü Hintergrundbild Je Losoe auswählt.
mach das bitte mal
Kompilieren Markieren Separieren

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

EndWhile

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

17.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Paul
Glatz

Hallo,

Ich habe es nooch eimal geprüft so müste es klappen.
Kompilieren Markieren Separieren

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

EndWhile

17.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dietmar
Horn

Hallo Robin,

für Deine Einsteigerfragen solltest Du Dir mal mein XProfan-Lehrbuch downloaden und durcharbeiten. Du findest es im Downloadbereich unserer MMJ-Vereins-Homepage: [...]

Auf fast 600 Seiten versuche ich dort, den Programmiereinsteigern die größten Stolpersteine aus dem Weg zu räumen.

In meinem XProfan-Manager (ebenfalls auf [...]

erhältlich) findest Du Tonnen von Helfern, Tools und Tausende von Demo-Quellcodes zu allen möglichen Themen.

Gruß
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 zitieren Zeilenweise zitieren

Hm, du könntest das drüberfahren z.B. simulieren, mit SetFocus().
Kompilieren Markieren Separieren

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

ENDIF

SETFOCUS(exit&)

EndWhile

_________

Sehr elegant kommt mir das allerdings auch nicht vor.

17.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Thomas
Zielinski

RePaint *hust* gleich nach dem verändern des Hintergrundes.

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

17.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

Ungetestet:
Kompilieren Markieren Separieren

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

Dann braucht man sich um das neuzeichnen nicht mehr zu 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 zitieren Zeilenweise zitieren

Roberto

So mit einer Kombination con Peter´s und Thomas´s
Vorschlägen hab ich es geschafft.
Danke (wiedermal)
und an Dietmar Ich werde mir dein Lehrbuch runterladen.

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

17.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren