XProfan

Français

Roberto

Guten journée
So habe ici un Programme gemacht avec dem on den Hintergrund eines Fensters changement peux .
mais si je sur Hintergrundbild klicke venez zwar une mais qui finissons Button verschwindet.
peux avec quelqu'un aider s'il te plaît

ici qui code
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Dietmar
Horn

j'ai Deinen Gutton la fois vite dans Button geändert. Votre eigenen Postings peux Du nachträglich changement, indem Du à droite unten sur éditer klickst.

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

Paul
Glatz

Salut,
qui Button wird vom Bild übermalt

ici qui korrigierte Code:
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Roberto

Klappt immernochnet seulement si on sur qui Stelle fährt wohin qui Button son sollte venez il.
alors qui verschwindet si on dans dem menu Hintergrundbild Je Losoe auswählt.
mach cela s'il te plaît la fois
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Paul
Glatz

Salut,

j'ai es nooch eimal geprüft so müste es marcher.
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Dietmar
Horn

allô Robin,

pour Votre Einsteigerfragen devrait Du Dir la fois mon XProfan-Lehrbuch downloaden et durcharbeiten. Du findest es im Downloadbereich unserer MMJ-Vereins-Page d'accueil: [...]

sur presque 600 Seiten versuche je là, den Programmiereinsteigern qui größten Stolpersteine aus dem Weg trop räumen.

dans meinem XProfan-Manager (également sur [...]

disponible) findest Du Tonnen de Helfern, Tools et Tausende de Demo-Quellcodes trop allen möglichen Sujets.

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

Hm, du könntest cela drüberfahren z.B. simulieren, avec SetFocus().
Kompilieren Marque Séparation

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

ENDIF

SETFOCUS(exit&)

EndWhile

_____

très elegant venez mir cela allerdings aussi pas avant.

17.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Zielinski

RePaint *hust* juste pour dem verändern des Hintergrundes.

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

17.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

Ungetestet:
Kompilieren Marque Séparation

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

ensuite braucht on sich um cela neuzeichnen pas plus trop 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 citation

Absatzweise Citation Zeilenweise Citation

Roberto

So avec einer Kombination con Peter´s et Thomas´s
Vorschlägen hab je es geschafft.
merci (wiedermal)
et à Dietmar je werde mir dein Lehrbuch runterladen.

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

17.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation