-- JochenGeorges - 17 Dec 2004

Как нарисовать картинку на клавише

Программа:

Показано 4 клавиши. Клаиша, по которой щелкнули, показывает "Y", остальные показывают "X".
buttonpicture.png


Код:

STATIC PUBLIC SUB Main()
DIM myForm AS FMain
myForm = NEW FMain
myForm.Show
END

PUBLIC SUB btnReset()
IF Button1.Picture = Picture["y.png"] THEN Button1.Picture = Picture["x.png"]
IF Button2.Picture = Picture["y.png"] THEN Button2.Picture = Picture["x.png"]
IF Button3.Picture = Picture["y.png"] THEN Button3.Picture = Picture["x.png"]
IF Button4.Picture = Picture["y.png"] THEN Button4.Picture = Picture["x.png"]
END


PUBLIC SUB Button1_Click()
btnReset()
Button1.Picture = Picture["y.png"]
END

PUBLIC SUB Button2_Click()
btnReset()
Button2.Picture = Picture["y.png"]
END

PUBLIC SUB Button3_Click()
btnReset()
Button3.Picture = Picture["y.png"]
END

PUBLIC SUB Button4_Click()
btnReset()
Button4.Picture = Picture["y.png"]
END


Attachment: Action: Size: Date: Who: Comment:
buttonpicture.png action 3124 17 Dec 2004 - 17:13 JochenGeorges  
src-buttonpicture.tgz action 2578 17 Dec 2004 - 17:17 JochenGeorges