XProfan

Deutsch

Jac
de
Lad

Hallo, hab mal ne Frage:

Ich kann mit XProfan 8.0 schöne Bildbuttons erstellen. Aber wie kann ich das Bild nach dem Erstellen verändern, also ain neues Bildchen zuweisen? (So wie SetText neue Texte zuweist!)

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

06.11.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Peter
Mallow

Hallo habe da mal was gebastelt:

Kompilieren Markieren Separieren

Def @ALoadImage(6) !"USER32","LoadImageA"

Proc BmpButton aus Vorlage (c) Andreas Miethe - Genial DANKE!

    Parameters Wnd&,s$,X%,Y%,SizeX%,SizeY%
    @BmpButton(%HWnd,"BEISPIEL3.BMP",PosX,PosY%,Horizontale Größe%,Vertikale Größe%)
    Declare h&,Ctrl&,Bmp#
    Dim bmp#,@Len(s$)+1
    String bmp#,0=s$
    h& = @ALoadImage(%HInstance,bmp#,0,SizeX%-2,SizeY%-2,$0050)
    Ctrl&=@Control("Button","",$50000080,X%,Y%,SizeX%,SizeY%,Wnd&,2000,%HInstance)
    @SendMessage(Ctrl&,$00F7,0,h&)
    Dispose bmp#
    Return Ctrl&

EndProc

Proc SetButtonImg

    Parameters Wnd&,s$,SizeX%,SizeY%
    Declare h&,Ctrl&,Bmp#
    Dim bmp#,@Len(s$)+1
    String bmp#,0=s$
    h& = @ALoadImage(%HInstance,bmp#,0,SizeX%-2,SizeY%-2,$0050)
    @SendMessage(Wnd&,$00F7,0,h&)
    Dispose bmp#

EndProc

Cls
Declare Button&
Button& = @BmpButton(%HWnd,"bild1.bmp",10,10,100,30)
WaitInput
SetButtonImg Button&,"bild2.bmp",100,30 Neues Bild wird gesetzt
Die größe des Bildes muss festgelegt werden
WaitInput

WinXP Pro SP2, XProfan 9 + XPSE
AMD Athlon 64 X2 3800

08.11.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jac
de
Lad

Danke, ich probiers aus.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

08.11.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jac
de
Lad

Funktioniert nicht!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

25.11.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Nein, läuft gut...

Kompilieren Markieren Separieren

Def @Aloadimage(6) !"USER32","LoadImageA"

Proc Bmpbuttonaus Vorlage (c) Andreas Miethe - Genial DANKE!

    Parameters Wnd&,S$,X%,Y%,Sizex%,Sizey%
    @BmpButton(%HWnd,"BEISPIEL3.BMP",PosX,PosY%,Horizontale Größe%,Vertikale Größe%)
    Declare H&,Ctrl&,Bmp#
    Dim Bmp#,@Len(S$)+1
    String Bmp#,0=S$
    H& = @Aloadimage(%Hinstance,Bmp#,0,Sizex%-2,Sizey%-2,$0050)
    Ctrl&=@Control("Button","",$50000080,X%,Y%,Sizex%,Sizey%,Wnd&,2000,%Hinstance)
    @Sendmessage(Ctrl&,$00F7,0,H&)
    Dispose Bmp#
    Return Ctrl&

Endproc

Proc Setbuttonimg

    Parameters Wnd&,S$,Sizex%,Sizey%
    Declare H&,Ctrl&,Bmp#
    Dim Bmp#,@Len(S$)+1
    String Bmp#,0=S$
    H& = @Aloadimage(%Hinstance,Bmp#,0,Sizex%-2,Sizey%-2,$0050)
    @Sendmessage(Wnd&,$00F7,0,H&)
    Dispose Bmp#

Endproc

Cls
Declare Button&
CHDIR $WINPATH
Bmpbutton %Hwnd,@FINDFIRST$("*.BMP"),10,10,100,30
LET Button&=@&(0)
Waitinput
Beep
@Findfirst$("*.BMP")
Setbuttonimg Button&,@FindNext$("*.BMP"),100,30Neues Bild wird gesetzt
Die größe des Bildes muss festgelegt werden

While 0=0

    Waitinput
    Beep
    Setbuttonimg Button&,@FindNext$(),100,30Neues Bild wird gesetzt

wend