XProfan

Italia

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 Citazione Zeilenweise Citazione

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 Dimensione%,Vertikale Dimensione%)
    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 Citazione Zeilenweise Citazione

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 Citazione Zeilenweise Citazione

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 Citazione Zeilenweise Citazione

Nein, corre 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 Dimensione%,Vertikale Dimensione%)
    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