Here is a screenshot of Sprites (balls) on a Canvas and then the Sprites being alphablended to the background:


#COMPILE EXE #DIM ALL ' This is helpful to prevent errors in coding ' ------------------------------ #INCLUDE "C:\ezgui40pro\includes\ezgui40.inc" ' EZGUI Include file for Declares ' -------------------- ' ************************************************************************************* ' Code Generator Defined Constants and Declares ' ************************************************************************************* DECLARE FUNCTION Main_Initialize(BYVAL VerNum&) AS LONG DECLARE SUB OtherForm_Events(FormName$, CID&, CMsg&, CVal&, Cancel&) DECLARE SUB OtherForm_Design(FormName$) DECLARE FUNCTION PreProcess_Events(FormName$, CID&, CMsg&, CVal&, Cancel&) AS LONG DECLARE SUB EZ_MPLAY_Display(BYVAL Parent$) DECLARE SUB EZ_MPLAY_Design() DECLARE SUB EZ_MPLAY_ParseEvents(CID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_Events(CID&, CMsg&, CVal&, Cancel&) ' ------------------------------------------------ %MPLAY_MCIMSGBOX = 100 %MPLAY_OPENMOVIEBUTTON = 105 %MPLAY_OPENAUDIOBUTTON = 110 %MPLAY_OPENMIDIBUTTON = 115 %MPLAY_OPENCDBUTTON = 120 %MPLAY_PLAYBUTTON = 125 %MPLAY_REWINDBUTTON = 130 %MPLAY_FASTFORWARDBTN = 135 %MPLAY_PAUSEBUTTON = 140 %MPLAY_STOPBUTTON = 145 %MPLAY_RIGHTBUTTON = 150 %MPLAY_DOWNBUTTON = 155 %MPLAY_MCIPLAYER = 160 %MPLAY_XBUTTON = 165 %MPLAY_TEMPLATE = 170 DECLARE SUB MPLAY_OPENMOVIEBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_OPENAUDIOBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_OPENMIDIBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_OPENCDBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_PLAYBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_REWINDBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_FASTFORWARDBTN_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_PAUSEBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_STOPBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_RIGHTBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_DOWNBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_MCIPLAYER_Set(BYVAL C$) DECLARE SUB MPLAY_MCIPLAYER_Events(MyID&, CMsg&, CVal&, Cancel&) DECLARE SUB MPLAY_XBUTTON_Events(MyID&, CMsg&, CVal&, Cancel&) ' -------------------- #INCLUDE "C:\ezgui40pro\includes\ezwmain.inc" ' EZGUI Include file for WinMain ' -------------------- ' '<<SAVE>> GLOBAL App_FormRightStatus& GLOBAL App_FormDownStatus& GLOBAL App_MediaType& '<<END>> ' SUB EZ_Main(VerNum&) ' (PROTECTED) EZ_Reg %EZ_CUSTID,%EZ_REGNUM EZ_DefImageFolder "Graphics" EZ_AllowCommandEvents 0 EZ_DefFont 6, "Arial", 10, "V" EZ_DefFont 7, "Courier New", 10, "F" EZ_DefFont 8, "Times New Roman", 10, "V" EZ_DefFont 9, "Modern", 10, "V" EZ_DefSystemColor 32, 4 EZ_DefSystemColor 33, 5 EZ_DefSystemColor 34, 15 EZ_DefSystemColor 35, 24 EZ_DefColorL 36, &H649BFF EZ_DefColorL 37, &HDD EZ_DefColorL 38, &H47A7FF EZ_DefColorL 39, &HD2AACF EZ_DefColorL 40, &H1CD5E3 EZ_DefColorL 41, &HBC8943 EZ_DefColorL 42, &H6C6AB7 EZ_DefColorL 43, &HDD4489 IF Main_Initialize(VerNum&) THEN EZ_MPLAY_Display "" END IF END SUB ' ' ------------------------------------------------------------------------------------- ' SUB EZ_DesignWindow(FormName$) ' (PROTECTED) SELECT CASE FormName$ CASE "MPLAY" EZ_MPLAY_Design CASE ELSE OtherForm_Design FormName$ END SELECT END SUB ' ' ------------------------------------------------------------------------------------- ' SUB EZ_Events(FormName$, CID&, CMsg&, CVal&, Cancel&) ' (PROTECTED) SELECT CASE FormName$ CASE "MPLAY" EZ_MPLAY_ParseEvents CID&, CMsg&, CVal&, Cancel& CASE ELSE END SELECT END SUB ' ' ------------------------------------------------------------------------------------- ' FUNCTION Main_Initialize(BYVAL VerNum&) AS LONG LOCAL RV& App_FormRightStatus&=1 ' right side expanded App_FormDownStatus&=1 ' down side expanded App_MediaType&=0 ' no media loaded RV&=1 FUNCTION=RV& END FUNCTION ' '<<BEGINFORM>> "MPLAY" ' SUB EZ_MPLAY_Display(BYVAL Parent$) ' (PROTECTED) LOCAL PN$ PN$=EZ_LoadPicture("mediabg.bmp") EZ_ShapeFormToPicture PN$, -1 EZ_Color -1, -1 EZ_Form "MPLAY", Parent$, "EZGUI Media Player", 0, 0, 67.875, 20.9375, "C" EZ_FreeImage PN$ END SUB ' SUB EZ_MPLAY_Design() ' (PROTECTED) LOCAL CText$ EZ_Color 22, 0 EZ_UseFont 0 EZ_Label %MPLAY_MCIMSGBOX, 6.25, 6.6875, 34.125, 4.3125, "Ready !", "CH" ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_OPENMOVIEBUTTON, 52, 4, 13.5, 1.625, "Open Movie File", "T" EZ_SetRegion "MPLAY", %MPLAY_OPENMOVIEBUTTON,-2,0 ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_OPENAUDIOBUTTON, 52, 6.125, 13.5, 1.625, "Open Audio File", "T" EZ_SetRegion "MPLAY", %MPLAY_OPENAUDIOBUTTON,-2,0 ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_OPENMIDIBUTTON, 52, 8.3125, 13.5, 1.625, "Open MIDI File", "T" EZ_SetRegion "MPLAY", %MPLAY_OPENMIDIBUTTON,-2,0 ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_OPENCDBUTTON, 52, 10.5, 13.5, 1.625, "Use Audio CD", "T" EZ_SetRegion "MPLAY", %MPLAY_OPENCDBUTTON,-2,0 ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_PLAYBUTTON, 16.125, 18.9375, 7.5, 1.5, "{{BIG_SAME_ARROWRT}}", "T" EZ_SetRegion "MPLAY", %MPLAY_PLAYBUTTON,-2,0 EZ_AddToolTip "MPLAY", %MPLAY_PLAYBUTTON ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_REWINDBUTTON, 24.5, 18.9375, 7.5, 1.5, "{{DOUBLE_ARROWLF}}", "T" EZ_SetRegion "MPLAY", %MPLAY_REWINDBUTTON,-2,0 EZ_AddToolTip "MPLAY", %MPLAY_REWINDBUTTON ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_FASTFORWARDBTN, 32.875, 18.9375, 7.5, 1.5, "{{DOUBLE_ARROWRT}}", "T" EZ_SetRegion "MPLAY", %MPLAY_FASTFORWARDBTN,-2,0 EZ_AddToolTip "MPLAY", %MPLAY_FASTFORWARDBTN ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_PAUSEBUTTON, 11.625, 18.9375, 3.625, 1.5, "{{DOUBLE_SAME_RECT}}", "T" EZ_SetRegion "MPLAY", %MPLAY_PAUSEBUTTON,-2,0 EZ_AddToolTip "MPLAY", %MPLAY_PAUSEBUTTON ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_STOPBUTTON, 7.25, 18.9375, 3.625, 1.5, "{{SAME_RECT}}", "T" EZ_SetRegion "MPLAY", %MPLAY_STOPBUTTON,-2,0 EZ_AddToolTip "MPLAY", %MPLAY_STOPBUTTON ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_RIGHTBUTTON, 43.25, 7.75, 2.375, 1.75, "{{SAME_ARROWLF}}", "T" EZ_SetRegion "MPLAY", %MPLAY_RIGHTBUTTON, 1,0 EZ_AddToolTip "MPLAY", %MPLAY_RIGHTBUTTON ' ----------------------------------------------- EZ_Color 0, 36 EZ_UseFont 4 EZ_ODButton %MPLAY_DOWNBUTTON, 21.5, 15.875, 3.5, 1.25, "{{SAME_ARROWUP}}", "T" EZ_SetRegion "MPLAY", %MPLAY_DOWNBUTTON, 1,0 EZ_AddToolTip "MPLAY", %MPLAY_DOWNBUTTON ' ----------------------------------------------- EZ_Color-1,-1 EZ_UseFont 4 EZ_MCIControl %MPLAY_MCIPLAYER, 52, 1.75, 2.5, 1.25, "H" MPLAY_MCIPLAYER_Set "" ' ----------------------------------------------- EZ_Color 15, 37 EZ_UseFont 0 EZ_ODButton %MPLAY_XBUTTON, 63.5, 1.75, 3, 1.5, "X", "" EZ_SetRegion "MPLAY", %MPLAY_XBUTTON,-2,0 ' ----------------------------------------------- EZ_Color 0, 24 EZ_UseFont 4 EZ_Label %MPLAY_TEMPLATE, 5, 2.25, 36.5, 13, "", "CH" ' ----------------------------------------------- END SUB ' SUB EZ_MPLAY_ParseEvents(CID&, CMsg&, CVal&, Cancel&) ' (PROTECTED) SELECT CASE CID& CASE %EZ_Window MPLAY_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_LButtonDown THEN EZ_DragForm "MPLAY" END IF CASE %MPLAY_OPENMOVIEBUTTON MPLAY_OPENMOVIEBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonRR "MPLAY", %MPLAY_OPENMOVIEBUTTON, CVal&, 36, 0, 4 END IF CASE %MPLAY_OPENAUDIOBUTTON MPLAY_OPENAUDIOBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonRR "MPLAY", %MPLAY_OPENAUDIOBUTTON, CVal&, 36, 0, 4 END IF CASE %MPLAY_OPENMIDIBUTTON MPLAY_OPENMIDIBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonRR "MPLAY", %MPLAY_OPENMIDIBUTTON, CVal&, 36, 0, 4 END IF CASE %MPLAY_OPENCDBUTTON MPLAY_OPENCDBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonRR "MPLAY", %MPLAY_OPENCDBUTTON, CVal&, 36, 0, 4 END IF CASE %MPLAY_PLAYBUTTON IF CMsg& = %EZ_ToolTip THEN EZ_SetToolTip "Play" MPLAY_PLAYBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonRR "MPLAY", %MPLAY_PLAYBUTTON, CVal&, 36, 0, 4 END IF CASE %MPLAY_REWINDBUTTON IF CMsg& = %EZ_ToolTip THEN EZ_SetToolTip "Rewind" MPLAY_REWINDBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonRR "MPLAY", %MPLAY_REWINDBUTTON, CVal&, 36, 0, 4 END IF CASE %MPLAY_FASTFORWARDBTN IF CMsg& = %EZ_ToolTip THEN EZ_SetToolTip "Fast Forward" MPLAY_FASTFORWARDBTN_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonRR "MPLAY", %MPLAY_FASTFORWARDBTN, CVal&, 36, 0, 4 END IF CASE %MPLAY_PAUSEBUTTON IF CMsg& = %EZ_ToolTip THEN EZ_SetToolTip "Pause" MPLAY_PAUSEBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonRR "MPLAY", %MPLAY_PAUSEBUTTON, CVal&, 36, 0, 4 END IF CASE %MPLAY_STOPBUTTON IF CMsg& = %EZ_ToolTip THEN EZ_SetToolTip "Stop" MPLAY_STOPBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonRR "MPLAY", %MPLAY_STOPBUTTON, CVal&, 36, 0, 4 END IF CASE %MPLAY_RIGHTBUTTON IF CMsg& = %EZ_ToolTip THEN EZ_SetToolTip "" MPLAY_RIGHTBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonE "MPLAY", %MPLAY_RIGHTBUTTON, CVal&, 36, 0, 4 END IF CASE %MPLAY_DOWNBUTTON IF CMsg& = %EZ_ToolTip THEN EZ_SetToolTip "" MPLAY_DOWNBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonE "MPLAY", %MPLAY_DOWNBUTTON, CVal&, 36, 0, 4 END IF CASE %MPLAY_MCIPLAYER MPLAY_MCIPLAYER_Events CID&, CMsg&, CVal&, Cancel& CASE %MPLAY_XBUTTON MPLAY_XBUTTON_Events CID&, CMsg&, CVal&, Cancel& IF CMsg&=%EZ_OwnerDraw THEN EZ_Draw3DButtonRR "MPLAY", %MPLAY_XBUTTON, CVal&, 37, 15, 0 END IF CASE ELSE MPLAY_Events CID&, CMsg&, CVal&, Cancel& END SELECT END SUB ' SUB MPLAY_Events(CID&, CMsg&, CVal&, Cancel&) SELECT CASE CID& CASE %EZ_Window SELECT CASE CMsg& CASE %EZ_Loading CASE %EZ_Loaded CASE %EZ_Started CASE %EZ_Close CASE ELSE END SELECT CASE ELSE END SELECT END SUB ' '<<SAVE>> SUB ShowMCIMessage(BYVAL M$) IF M$="" THEN EZ_HideC "MPlay", %MPLAY_MCIMSGBOX, %MPLAY_MCIMSGBOX ELSE EZ_SetText "MPlay", %MPLAY_MCIMSGBOX, M$ EZ_ShowC "MPlay", %MPLAY_MCIMSGBOX, %MPLAY_MCIMSGBOX END IF END SUB ' SUB ResizeMCI(BYVAL Mode&) LOCAL C!, R!, W!, H! IF Mode&=1 THEN EZ_GetSizeC "MPlay", %MPLAY_TEMPLATE, C!, R!, W!, H! EZ_ResizeC "MPlay",%MPLAY_MCIPLAYER, C!, R!, W!, H! EZ_ShowC "MPlay",%MPLAY_MCIPLAYER,%MPLAY_MCIPLAYER ELSE EZ_HideC "MPlay",%MPLAY_MCIPLAYER,%MPLAY_MCIPLAYER END IF END SUB ' SUB OpenMedia(BYVAL Mode&) LOCAL F$, TT$, EX$, CMD$, M$, P$ EZ_UseMCI "MPlay", %MPLAY_MCIPLAYER SELECT CASE Mode& CASE 1 ' movie TT$="Select Movie File" EX$="AVI (*.avi))|*.avi|MPeg (*.mpg,*.mpeg)|*.mpg,*.mpeg|" CMD$="EZOpenMovie " P$=" +" CASE 2 ' audio TT$="Select Audio File" EX$="Wave (*.wav))|*.wav" CMD$="EZOpenWave " CASE 3 ' MIDI TT$="Select MIDI File" EX$="MIDI (*.mid)|*.mid" CMD$="EZOpenMIDI " CASE 4 ' CD TT$="" EX$="" CMD$="EZOpenCD" END SELECT IF TT$<>"" THEN EZ_Color -1,-1 F$=EZ_OpenFile("MPlay",TT$, "", EX$, "RZN") IF F$<>"" THEN ResizeMCI Mode& EZ_SetMCI CMD$+"|"+F$+"|"+P$ M$=EZ_GetMCI IF M$="OK" THEN App_MediaType&=Mode& ELSE ShowMCIMessage M$ App_MediaType&=0 END IF END IF ELSE ' must be CD ResizeMCI Mode& EZ_SetMCI CMD$ M$=EZ_GetMCI IF M$="OK" THEN App_MediaType&=Mode& ELSE ShowMCIMessage M$ App_MediaType&=0 END IF END IF ShowMCIMessage "" END SUB '<<END>> ' SUB MPLAY_OPENMOVIEBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click OpenMedia 1 CASE ELSE END SELECT END SUB ' SUB MPLAY_OPENAUDIOBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click OpenMedia 2 CASE ELSE END SELECT END SUB ' SUB MPLAY_OPENMIDIBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click OpenMedia 3 CASE ELSE END SELECT END SUB ' SUB MPLAY_OPENCDBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click OpenMedia 4 CASE ELSE END SELECT END SUB ' '<<SAVE>> SUB ExeMCICommand(BYVAL Mode&) LOCAL P$, DFlag& LOCAL CTrack&, MaxTrack& IF App_MediaType&<>0 THEN EZ_UseMCI "MPlay", %MPLAY_MCIPLAYER SELECT CASE Mode& CASE 1 ' play EZ_SetMCI "EZPlay" IF App_MediaType&=1 THEN ShowMCIMessage "" ELSE ShowMCIMessage "Playing" CASE 2 ' rewind IF App_MediaType&=4 THEN DFlag&=-1 GOSUB ChangeCDTrack ELSE EZ_SetMCI "EZToStart" IF App_MediaType&=1 THEN ShowMCIMessage "" ELSE ShowMCIMessage "Rewinding to Start" END IF CASE 3 ' fast forward IF App_MediaType&=4 THEN DFlag&=1 GOSUB ChangeCDTrack ELSE EZ_SetMCI "EZToEnd" IF App_MediaType&=1 THEN ShowMCIMessage "" ELSE ShowMCIMessage "Fast Forward to End" END IF CASE 4 ' pause EZ_SetMCI "EZPause" IF App_MediaType&=1 THEN ShowMCIMessage "" ELSE ShowMCIMessage "Pause" CASE 5 ' stop EZ_SetMCI "EZStop" IF App_MediaType&=1 THEN ShowMCIMessage "" ELSE ShowMCIMessage "Stop" CASE ELSE END SELECT END IF EXIT SUB ' ChangeCDTrack: ' must set Time frame using EZTimeBy before using the EZTO command EZ_SetMCI "EZTimeBy" ' use default EZ_SetMCI "EZTrack CURRENT" CTrack&=VAL(EZ_GetMCI) EZ_SetMCI "EZTrack MAX" MaxTrack&=VAL(EZ_GetMCI) CTrack&=CTrack&+DFlag& IF CTrack&<1 THEN CTrack&=1 IF CTrack&>MaxTrack& THEN CTrack&=MaxTrack& EZ_SetMCI "EZStop" EZ_SetMCI "EZTo"+STR$(CTrack&)+":0:0:0" EZ_SetMCI "EZTrack CURRENT" ShowMCIMessage "Track "+EZ_GetMCI RETURN END SUB '<<END>> ' SUB MPLAY_PLAYBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click, %EZ_DClick ExeMCICommand 1 CASE %EZ_Click CASE ELSE END SELECT END SUB ' SUB MPLAY_REWINDBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click, %EZ_DClick ExeMCICommand 2 CASE %EZ_Click CASE ELSE END SELECT END SUB ' SUB MPLAY_FASTFORWARDBTN_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click, %EZ_DClick ExeMCICommand 3 CASE %EZ_Click CASE ELSE END SELECT END SUB ' SUB MPLAY_PAUSEBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click, %EZ_DClick ExeMCICommand 4 CASE %EZ_Click CASE ELSE END SELECT END SUB ' SUB MPLAY_STOPBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click, %EZ_DClick ExeMCICommand 5 CASE %EZ_Click CASE ELSE END SELECT END SUB ' '<<SAVE>> SUB ExpandMainForm(BYVAL Mode&) IF Mode&=1 THEN IF App_FormRightStatus&=0 THEN App_FormRightStatus&=1 EZ_ExpandForm "MPlay", 20,0 EZ_SetText "MPlay", %MPLAY_RIGHTBUTTON, "{{SAME_ARROWLF}}" ELSE App_FormRightStatus&=0 EZ_ExpandForm "MPlay", -20,0 EZ_SetText "MPlay", %MPLAY_RIGHTBUTTON, "{{SAME_ARROWRT}}" END IF END IF IF Mode&=2 THEN IF App_FormDownStatus&=0 THEN App_FormDownStatus&=1 EZ_ExpandForm "MPlay", 0, 3 EZ_SetText "MPlay", %MPLAY_DOWNBUTTON, "{{SAME_ARROWUP}}" ELSE App_FormDownStatus&=0 EZ_ExpandForm "MPlay", 0,-3 EZ_SetText "MPlay", %MPLAY_DOWNBUTTON, "{{SAME_ARROWDN}}" END IF END IF END SUB '<<END>> ' SUB MPLAY_RIGHTBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click, %EZ_DClick ExpandMainForm 1 CASE %EZ_ToolTip EZ_SetToolTip "Hello" CASE %EZ_Click CASE ELSE END SELECT END SUB ' SUB MPLAY_DOWNBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click, %EZ_DClick ExpandMainForm 2 CASE %EZ_ToolTip EZ_SetToolTip "Hello" CASE %EZ_Click CASE ELSE END SELECT END SUB ' SUB MPLAY_MCIPLAYER_Set(BYVAL C$) END SUB ' SUB MPLAY_MCIPLAYER_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click CASE ELSE END SELECT END SUB ' SUB MPLAY_XBUTTON_Events( MyID&, CMsg&, CVal&, Cancel&) SELECT CASE CMsg& CASE %EZ_Click EZ_UnloadForm "MPlay" CASE ELSE END SELECT END SUB
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Leave a comment: