' Portions: Copyright Christopher R. Boss, 2003 to 2011 , All Rights Reserved !
' Registered EZGUI 5.0 users may use this code Royalty Free !
'
' ======================================
' [PROTECTED CODE] Do NOT Edit !
' ======================================
'
#COMPILE EXE
#DIM ALL ' This is helpful to prevent errors in coding
'
#INCLUDE "C:\ezgui45beta\includes\ezgui50.inc" ' EZGUI Include file for Declares
#RESOURCE ".\rcdata\proto1.pbr"
'
%FORM1_BUTTON1 = 100
%FORM1_BUTTON2 = 105
%FORM1_BUTTON3 = 110
%FORM1_BUTTON4 = 115
%FORM1_BUTTON5 = 120
%FORM1_BUTTON6 = 125
%FORM1_MCI1 = 130
%FORM1_BUTTON10 = 135
%FORM1_BUTTON11 = 140
%FORM1_PLISTBOX1 = 145
%FORM1_FLISTBOX1 = 150
'
#INCLUDE "C:\ezgui45beta\includes\ezwmain50.inc" ' EZGUI Include file for WinMain
'
SUB EZ_Main(VerNum&) ' (PROTECTED)
EZ_Reg %EZ_CUSTID,%EZ_REGNUM
InitAppScale
REM
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, &H00FFB164
EZ_DefColorL 37, &H0014AB9F
EZ_DefColorL 38, &H0047A7FF
EZ_DefColorL 39, &H00D2AACF
EZ_DefColorL 40, &H001CD5E3
EZ_DefColorL 41, &H00BC8943
EZ_DefColorL 42, &H006C6AB7
EZ_DefColorL 43, &H00DD4489
IF Main_Initialize(VerNum&) THEN
EZ_FORM1_Display ""
END IF
END SUB
'
SUB InitAppScale()
EZ_DefCharSizeA 8,16
END SUB
'
SUB EZ_DesignWindow(FormName$) ' (PROTECTED)
SELECT CASE FormName$
CASE "FORM1"
EZ_FORM1_Design
CASE ELSE
OtherForm_Design FormName$
END SELECT
END SUB
'
SUB EZ_Events(FormName$, CID&, CMsg&, CVal&, Cancel&) ' (PROTECTED)
IF PreProcess_Events(FormName$, CID&, CMsg&, CVal&, Cancel&) THEN EXIT SUB
SELECT CASE FormName$
CASE "FORM1"
EZ_FORM1_ParseEvents CID&, CMsg&, CVal&, Cancel&
CASE ELSE
OtherForm_Events FormName$, CID&, CMsg&, CVal&, Cancel&
END SELECT
END SUB
'
' ======================================
' [USER ACCESSABLE CODE] You may Edit !
' ======================================
'
FUNCTION Main_Initialize(BYVAL VerNum&) AS LONG
LOCAL RV&
RV&=1
FUNCTION=RV&
END FUNCTION
'
SUB OtherForm_Design(FormName$)
SELECT CASE FormName$
CASE ELSE
END SELECT
END SUB
'
SUB OtherForm_Events(FormName$, CID&, CMsg&, CVal&, Cancel&)
SELECT CASE FormName$
CASE "{OPENDLG}", "{SAVEDLG}", "{OPENDLGX}", "{SAVEDLGX}", "{COLORDLG}", "{FONTDLG}", "{PRINTDLG}", "{PAGEDLG}", "{FINDDLG}"
CASE "{ABORTDLG}"
CASE "{MSGBOX}"
CASE "{APP}" ' Not a Form
SELECT CASE CMsg&
CASE %EZ_NoTheme
CASE %EZ_Terminate
END SELECT
CASE ELSE
END SELECT
END SUB
'
FUNCTION PreProcess_Events(FormName$, CID&, CMsg&, CVal&, Cancel&) AS LONG
LOCAL RV&
RV&=0
FUNCTION=RV&
END FUNCTION
'
'<<BEGINFORM>> "FORM1"
'
' ======================================
' [PROTECTED CODE] Do NOT Edit !
' ======================================
'
SUB EZ_FORM1_Display(BYVAL FParent$) ' (PROTECTED)
EZ_Color 0, 25
EZ_Form "FORM1", FParent$, "Test app", 0, 0, 111, 45, "CF"
END SUB
'
SUB EZ_FORM1_Design() ' (PROTECTED)
LOCAL CText$
EZ_Color 1, 25
EZ_UseIFont "Tahoma", 12,"BV"
EZ_ODButton %FORM1_BUTTON1, 1.625, .8125, 16, 4, "Button", "T"
EZ_Color 1, 25
EZ_UseIFont "Tahoma", 12,"BV"
EZ_ODButton %FORM1_BUTTON2, 2, 5.8125, 16, 4, "Button", "T"
EZ_SetRegion "Form1", %FORM1_BUTTON2,-2,0
EZ_Color 1, 25
EZ_UseIFont "Tahoma", 12,"BV"
EZ_ODButton %FORM1_BUTTON3, 1.625, 10.8125, 16, 4, "Button", "T"
EZ_SetRegion "Form1", %FORM1_BUTTON3, 1,0
EZ_Color 0, 20
EZ_UseIFont "Tahoma", 12,"BV"
EZ_ODButton %FORM1_BUTTON4, 20.625, .8125, 16, 4, "Button", "T"
EZ_Color 0, 20
EZ_UseIFont "Tahoma", 12,"BV"
EZ_ODButton %FORM1_BUTTON5, 20.625, 5.8125, 16, 4, "Button", "T"
EZ_SetRegion "Form1", %FORM1_BUTTON5,-2,0
EZ_Color 0, 20
EZ_UseIFont "Tahoma", 12,"BV"
EZ_ODButton %FORM1_BUTTON6, 21, 10.8125, 16, 4, "Button", "T"
EZ_SetRegion "Form1", %FORM1_BUTTON6, 1,0
EZ_Color-1,-1
EZ_UseFont 4
EZ_MCIControl %FORM1_MCI1, 2, 23, 46, 18, "S"
FORM1_MCI1_Set ""
EZ_Color 1, 25
EZ_UseIFont "Tahoma", 12,"BV"
EZ_ODButton %FORM1_BUTTON10, 2, 15.75, 16, 4, "{{BIG_SAME_ARROWDN}}", "T"
EZ_SetRegion "Form1", %FORM1_BUTTON10,-2,0
EZ_Color 0, 20
EZ_UseIFont "Tahoma", 12,"BV"
EZ_ODButton %FORM1_BUTTON11, 20.5, 15.75, 16, 4, "{{BIG_DOUBLE_SAME_RRECT}}", "T"
EZ_SetRegion "Form1", %FORM1_BUTTON11,-2,0
EZ_Color-1,-1
EZ_UseFont 9
CText$ = "Category 1|Text{T}OK|Color{C}&HFF0080|Drop Down List{D}One[One;Two;Three;Four;Five]|File{F}myproject.bmp[Bitmap Files;*.bmp;]|Dr"_
+ "op Down{D}Item 1[Item 1;Item 2]"
EZ_PListBox %FORM1_PLISTBOX1, 54, 5, 50, 9, CText$, "STV"
EZ_Color-1,-1
EZ_UseFont 9
EZ_FListBox %FORM1_FLISTBOX1, 54, 18, 52, 23.5, "", "STV"
FORM1_FLISTBOX1_Init "Form1", %FORM1_FLISTBOX1
END SUB
'
SUB EZ_FORM1_ParseEvents(CID&, CMsg&, CVal&, Cancel&) ' (PROTECTED)
SELECT CASE CID&
CASE %EZ_Window
FORM1_Events CID&, CMsg&, CVal&, Cancel&
CASE %FORM1_BUTTON1
FORM1_BUTTON1_Events CID&, CMsg&, CVal&, Cancel&
IF CMsg&=%EZ_OwnerDraw THEN
EZ_Draw3DButton "Form1", %FORM1_BUTTON1, CVal&, 25, 1, EZ_ODIFont
END IF
CASE %FORM1_BUTTON2
FORM1_BUTTON2_Events CID&, CMsg&, CVal&, Cancel&
IF CMsg&=%EZ_OwnerDraw THEN
EZ_Draw3DButtonRR "Form1", %FORM1_BUTTON2, CVal&, 25, 1, EZ_ODIFont
END IF
CASE %FORM1_BUTTON3
FORM1_BUTTON3_Events CID&, CMsg&, CVal&, Cancel&
IF CMsg&=%EZ_OwnerDraw THEN
EZ_Draw3DButtonE "Form1", %FORM1_BUTTON3, CVal&, 25, 1, EZ_ODIFont
END IF
CASE %FORM1_BUTTON4
FORM1_BUTTON4_Events CID&, CMsg&, CVal&, Cancel&
IF CMsg&=%EZ_OwnerDraw THEN
EZ_Draw3DButton "Form1", %FORM1_BUTTON4, CVal&, 20, 0, EZ_ODIFont
END IF
CASE %FORM1_BUTTON5
FORM1_BUTTON5_Events CID&, CMsg&, CVal&, Cancel&
IF CMsg&=%EZ_OwnerDraw THEN
EZ_Draw3DButtonRR "Form1", %FORM1_BUTTON5, CVal&, 20, 0, EZ_ODIFont
END IF
CASE %FORM1_BUTTON6
FORM1_BUTTON6_Events CID&, CMsg&, CVal&, Cancel&
IF CMsg&=%EZ_OwnerDraw THEN
EZ_Draw3DButtonE "Form1", %FORM1_BUTTON6, CVal&, 20, 0, EZ_ODIFont
END IF
CASE %FORM1_MCI1
FORM1_MCI1_Events CID&, CMsg&, CVal&, Cancel&
CASE %FORM1_BUTTON10
FORM1_BUTTON10_Events CID&, CMsg&, CVal&, Cancel&
IF CMsg&=%EZ_OwnerDraw THEN
EZ_Draw3DButtonRR "Form1", %FORM1_BUTTON10, CVal&, 25, 1, EZ_ODIFont
END IF
CASE %FORM1_BUTTON11
FORM1_BUTTON11_Events CID&, CMsg&, CVal&, Cancel&
IF CMsg&=%EZ_OwnerDraw THEN
EZ_Draw3DButtonRR "Form1", %FORM1_BUTTON11, CVal&, 20, 0, EZ_ODIFont
END IF
CASE %FORM1_PLISTBOX1
FORM1_PLISTBOX1_Events CID&, CMsg&, CVal&, Cancel&
CASE %FORM1_FLISTBOX1
FORM1_FLISTBOX1_Events CID&, CMsg&, CVal&, Cancel&
CASE ELSE
FORM1_Events CID&, CMsg&, CVal&, Cancel&
END SELECT
END SUB
'
' ======================================
' [USER ACCESSABLE CODE] You may Edit !
' ======================================
'
SUB FORM1_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
'
SUB FORM1_BUTTON1_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Click
CASE ELSE
END SELECT
END SUB
'
SUB FORM1_BUTTON2_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Click
CASE ELSE
END SELECT
END SUB
'
SUB FORM1_BUTTON3_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Click
CASE ELSE
END SELECT
END SUB
'
SUB FORM1_BUTTON4_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Click
CASE ELSE
END SELECT
END SUB
'
SUB FORM1_BUTTON5_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Click
CASE ELSE
END SELECT
END SUB
'
SUB FORM1_BUTTON6_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Click
CASE ELSE
END SELECT
END SUB
'
SUB FORM1_MCI1_Set(BYVAL C$)
END SUB
'
SUB FORM1_MCI1_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Click
CASE ELSE
END SELECT
END SUB
'
SUB FORM1_BUTTON10_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Click
CASE ELSE
END SELECT
END SUB
'
SUB FORM1_BUTTON11_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Click
CASE ELSE
END SELECT
END SUB
'
SUB FORM1_PLISTBOX1_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Change
CASE ELSE
END SELECT
END SUB
'
SUB FORM1_FLISTBOX1_Init(BYVAL FormName$, BYVAL IDNum&)
LOCAL P$
STATIC FirstFlag&, ImgListNum&
IF FirstFlag&=0 THEN
ImgListNum&=-1
FirstFlag&=1
END IF
EZ_FLUseImageList FormName$,IDNum&, ImgListNum&
EZ_FLSetStyle FormName$,IDNum&, "DSF"
EZ_SetText FormName$,IDNum&, EZ_AppPath+"*.*"
END SUB
'
SUB FORM1_FLISTBOX1_Events( MyID&, CMsg&, CVal&, Cancel&)
SELECT CASE CMsg&
CASE %EZ_Updated
CASE ELSE
END SELECT
END SUB
Bookmarks