XProfan

Jörg
Sellmeyer

verhindern, qui il son air pas modifié? Doppelte Verneinung intention?
Irgendwie verstehe je qui Frage gar pas...

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Thomas
Freier

@Jörg, stimmt, était zuviel. alors chez Hover ne...aucune Fabumschlag et pour Klick un Punktrahmen.
qui Alternative ist naturellement une Bmp et Abfrage wohin un Klick statt fand.

Button.png	11 kB

Hochgeladen:	06.06.2010

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Rolf
Koch

à cause de dem Punkterahmen: peut-être (seulement une banale concept) une unsichtbaren funktionslosen Button erstellen et pour Klick dummymässig puis den Concentrer verlegen? Vous voyez, so quoi gibt es sous Windows 7 pas plus (ekliger Punktrahmen)

ByteAttack

bof. Entweder via Picture un eigenen Button erstellen, ou bien simple SKControl [...]

benutzen.

Website: [...]

Facebook: [...]

Thomas Freier, Beitrag=57377, Zeitpunkt=06.06.2010

peux on verhindern, dass qui Button chez Hover ou bien pour dem Klick sous XP jusqu'à W7 son air modifié?

allô Thomas,

pour EnableWindow button&,0

.

ou bien solch hässlicher Construire:
Kompilieren Marque Séparation

 {$cleq}
cls
long myButton=createMySonderButton(hWnd,"Hallo Welt",10,10,100,100)

whilenot key

    waitInput
    case clicked(myButton) : messageBox "","",0

wend

deleteObject getWindowLong(myButton,gwl_userData)
end

proc createMySonderButton(long parent,string text,long x,y,xx,yy)

    long myButton=create("button",parent,text,x,y,xx,yy)
    mcls xx,yy
    startPaint myButton
    copyBmpToMem 0,0 - xx,yy > 0,0
    endPaint
    long myHPic=create("hNewPic",xx,yy,0)
    startPaint myHPic
    mCopyBmp 0,0 - xx,yy > 0,0;0
    endPaint
    setWindowLong(myButton,gwl_userData,myHPic)
    subClass myButton,true
    return myButton

endproc

subClassProc

    if subClassMessage(myButton,wm_paint)

        set("winProc",0)
        startPaint myButton
        drawPic getWindowLong(myButton,gwl_userData),0,0;0
        endPaint
        validateRect(myButton,0)
        return 1

    endif

endproc

simple ists imho pas possible. ^ ^
Kompilieren Marque Séparation

 $H windows.ph
cls
var myButton&=createMySonderButton(%hWnd,"Hallo Welt",10,10,100,100)

whilenot %clé

    waitInput
    cas clicked(myButton&) : messageBox »,»,0

Wend

deleteObject ~getWindowLong(myButton&,~gwl_userData)
end

proc createMySonderButton

    parameters parent&,text$,x&,y&,xx&,yy&
    var myButton&=create("button",parent&,text$,x&,y&,xx&,yy&)
    mcls xx&,yy&
    startPaint myButton&
    copyBmpToMem 0,0 - xx&,yy& > 0,0
    endPaint
    var myHPic&=create("hNewPic",xx&,yy&,0)
    startPaint myHPic&
    mCopyBmp 0,0 - xx&,yy& > 0,0;0
    endPaint
    ~setWindowLong(myButton&,~gwl_userData,myHPic&)
    subClass myButton&,1
    return myButton&

endproc

subClassProc

    si subClassMessage(myButton&,15)//wm_paint

        set("winProc",0)
        startPaint myButton&
        drawPic ~getWindowLong(myButton&,~gwl_userData),0,0;0
        endPaint
        ~validateRect(myButton&,0)
        return 1

    endif

endproc

Ist mais "Murx" zumindest z.B. weil cela Contrôle seulement korrekt angezeigt wird si es sichbar (pas verdeckt) _erzeugt wurde.

Pour so simple Spielereien mais vlt. ausreichend - je serait wohl plutôt (aussi bereits vorgeschlagen) un Bitmap(-Static) nutzen statt solch Construire. ^ ^

DOKUMENT8.exe	314 kB

Hochgeladen:	07.06.2010

Downloadcounter:
		Download

ByteAttack

ici la fois un simple Beispiel eines Hover-Button sous XProfan:
Kompilieren Marque Séparation

USERMESSAGES 16
Declare appexit%,Button&,Hover&
Set("TrueColor",1)
WindowStyle 26
WindowTitle "Hover-Button"
Window ((%maxX/2)-320),((%maxY/2)-240)-640,480
Lade Button
Button&=Create("HPic",-1,$ProgDir+"button_a.bmp")
Lade HoverButton
Hover&=Create("HPic",-1,$ProgDir+"button_b.bmp")
Zeichne Button
DrawPic Button&,10,10;0

WhileNot appexit%

    GetMessage
    Case %Umessage=16:appexit%=1

    if Mouse(10,10-135,50)  Wenn MouseOver Button

        DrawPic Hover&,10,10;0  Zeichne Hover

        While Mouse(10,10-135,50)

            Warten auf Mausereigniss wenn MouseOver Button

        EndWhile

        DrawPic Button&,10,10;0 MouseOut

    endif

EndWhile

DeleteObject Button&
DeleteObject Hover&
end

Beispiel im Anhang

hover.zip	673 kB

Hochgeladen:	07.06.2010

Downloadcounter:
		Download

Website: [...]

Facebook: [...]

Kompilieren Marque Séparation

Paul
Glatz

cls
var myButton&=Button(%hWnd,"Hallo Welt",10,10,100,100)

whilenot %key

    waitInput
    case clicked(myButton&) : messageBox "","",0

wend

end

proc Button

    parameters parent&,text$,x&,y&,xx&,yy&
    var myButton&=create("button",parent&,text$,x&,y&,xx&,yy&)
    mcls xx& + 2,yy& + 2
    startPaint myButton&
    copyBmpToMem 0,0 - xx&,yy& > 0,0
    endPaint
    var myHPic&=create("hNewPic",xx&,yy&,0)
    startPaint myHPic&
    mCopyBmp 0,0 - xx&,yy& > 0,0;0
    endPaint
    destroyWINDOW(mybutton&)
    mybutton& = Create("PicButton",parent&,myHPic&,x&,y&,xx& + 1,yy& + 1)
    deleteObject myHPic&
    return myButton&

endproc

Thomas
Freier

merci pour qui Hinweise. là qui SKControl de toute façon im Programme im Einsatz ist, était es qui geringste Aufwand une SKCtrl_CreateUserButton einzusetzen.

Gruß Thomas
Windows XP SP2, XProfan X2