XProfan

Español

Jac
de
Lad

¡Hola, tener ne el turno de preguntas:

Puedo con XProfan 8.0 schöne Bildbuttons redactar. Aber como kann Yo el Bild después de el Erstellen verändern, also ain neues Bildchen zuweisen? (So como SetText neue Textos 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 Cita Zeilenweise Cita

Peter
Mallow

¡Hola habe como algo gebastelt:

Kompilieren Marca Separación

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

Proc BmpButton de Presentación (c) Andreas Miethe - Genial DANKE!

    Parámetros Wnd&,s$,X%,Y%,SizeX%,SizeY%
    @BmpButton(%HWnd,"BEISPIEL3.BMP",PosX,PosY%,Horizontale Größe%,Vertikale Größe%)
    Declarar 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&)
    Disponer bmp#
    Volver Ctrl&

ENDPROC

Proc SetButtonImg

    Parámetros Wnd&,s$,SizeX%,SizeY%
    Declarar 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&)
    Disponer bmp#

ENDPROC

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

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

08.11.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Gracias, Yo probiers de.

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

Jac
de
Lad

Funktioniert no!

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

Nein, se ejecuta bien...

Kompilieren Marca Separación

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

Proc Bmpbuttonaus Presentación (c) Andreas Miethe - Genial DANKE!

    Parámetros Wnd&,S$,X%,Y%,Sizex%,Sizey%
    @BmpButton(%HWnd,"BEISPIEL3.BMP",PosX,PosY%,Horizontale Größe%,Vertikale Größe%)
    Declarar 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&)
    Disponer Bmp#
    Volver Ctrl&

ENDPROC

Proc Setbuttonimg

    Parámetros Wnd&,S$,Sizex%,Sizey%
    Declarar 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&)
    Disponer Bmp#

ENDPROC

Cls
Declarar 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 se gesetzt
El größe des Bildes muss festgelegt voluntad

Mientras que 0=0

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

wend