UBBFriend: Email This Page to Someone!
   Computer Workshop User Forums
  Whats New ?
  EZGUI Dialog Studio (DDT) PreRelease version

Post New Topic  Post A Reply
profile | register | preferences | faq | search

next newest topic | next oldest topic
Author Topic:   EZGUI Dialog Studio (DDT) PreRelease version
Chris Boss
Administrator 		posted 12-19-2007 05:51 PM     Click Here to See the Profile for Chris Boss     Edit/Delete Message Reply w/Quote
I am working on a DDT Visual Designer (100% source code), based on the EZGUI 4.0 Pro Designer.

It is called EZGUI Dialog Studio.

It is quite likely I may offer a PreRelease of it, similiar to what I did with EZGUI 4.0 Pro. This would be a form of beta testing, where I can fine tune it, while letting users build apps with it.

Currently, I have the Designer working and it can generate an application source code. It uses a library of source code to impliment EZGUI like commands and an Event engine similiar to EZGUI. The library code does quite a lot so far. It can create the controls, set fonts and colors, subclass controls , display tooltips and generate events.

This designer will be very reasonably priced. I am thinking possible $49 (US), but maybe more.

This will allow you to build apps with no runtimes.

The library code currently adds about 79 KB to an EXE. I will try to fine tune it so you can build as small as possible apps.

If you are interested in purchasing the PreRelease version, when it is ready, please email me at:

chrisboss@naxs.net

[This message has been edited by Chris Boss (edited 12-19-2007).]

Chris Boss
Administrator 		posted 12-19-2007 05:55 PM     Click Here to See the Profile for Chris Boss     Edit/Delete Message Reply w/Quote
Here is an example of source it can generate:

code:


' *************************************************************************************
'                       Code Generated by EZGUI Dialog Studio 40.71.71
'                       Portions: Copyright Christopher R. Boss, 2003 to 2007
'                                    All Rights Reserved !
'                 Registered EZGUI Dialog Studio users may use this code Royalty Free !
' *************************************************************************************
'
' --------------------------------------------------------
' WARNING ! Do Not Modify any code WITHIN Protected Sections !
' You can add code (Sub,Function,etc.) BEFORE any Protected Routine
' by using the following CODE TAGS:        '<<SAVE>>      '<<END>>
' and the Designer will not remove it.
' --------------------------------------------------------
'
' ======================================
' [PROTECTED CODE]         Do NOT Edit !
' ======================================

'
#COMPILE EXE
#DIM ALL        '   This is helpful to prevent errors in coding
' --------------------
#INCLUDE "C:\ezgui40dlg\includes\dlginc.inc"
#INCLUDE "C:\ezgui40dlg\includes\ezlib40.inc"
' --------------------
' *************************************************************************************
' *************************************************************************************
'                   Code Generator Defined Constants and Declares
' *************************************************************************************
DECLARE FUNCTION Main_Initialize(BYVAL VerNum&) AS LONG
DECLARE FUNCTION PreProcess_Events(BYVAL FormName$, BYVAL hDlg&, BYVAL CID&, CMsg&, CVal&, Cancel&) AS LONG
DECLARE SUB EZ_MAIN_Display(BYVAL hParent&)
DECLARE SUB EZ_MAIN_Design(BYVAL hDlg&, BYVAL hToolTip&)
DECLARE SUB EZ_MAIN_ParseEvents(BYVAL hDlg&, BYVAL CID&, CMsg&, CVal&, Cancel&)
DECLARE SUB MAIN_Events(BYVAL hDlg&, BYVAL CID&, CMsg&, CVal&, Cancel&)
' ------------------------------------------------
%MAIN_BUTTONF            = 100
DECLARE CALLBACK FUNCTION MAIN_DlgProc
DECLARE SUB MAIN_BUTTONF_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB EZ_BTNFORM_Display(BYVAL hParent&)
DECLARE SUB EZ_BTNFORM_Design(BYVAL hDlg&, BYVAL hToolTip&)
DECLARE SUB EZ_BTNFORM_ParseEvents(BYVAL hDlg&, BYVAL CID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_Events(BYVAL hDlg&, BYVAL CID&, CMsg&, CVal&, Cancel&)
' ------------------------------------------------
%BTNFORM_BUTTON0            = 1
%BTNFORM_BUTTON1            = 100
%BTNFORM_BUTTON2            = 105
%BTNFORM_BUTTON3            = 110
%BTNFORM_BUTTON4            = 115
%BTNFORM_BUTTON5            = 120
%BTNFORM_BUTTON6            = 125
%BTNFORM_BUTTON7            = 130
%BTNFORM_BUTTON8            = 135
%BTNFORM_BUTTON9            = 140
%BTNFORM_BUTTON10           = 145
%BTNFORM_BUTTON11           = 150
DECLARE CALLBACK FUNCTION BTNFORM_DlgProc
DECLARE SUB BTNFORM_BUTTON0_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON1_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON2_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON3_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON4_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON5_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON6_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON7_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON8_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON10_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON11_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB BTNFORM_BUTTON11_SubClass(BYVAL CVal&, Cancel&)
' *************************************************************************************
'                 Code Generator Defined Global Variables and Types
' *************************************************************************************
' --- Form: MAIN ---
GLOBAL hMAIN AS LONG     ' Dialog Handle
' --- Form: BTNFORM ---
GLOBAL hBTNFORM AS LONG     ' Dialog Handle
' --------------------
%EZDlgStdVersion   =  4071
DECLARE SUB EZ_Main(BYVAL VerNum&)
#INCLUDE "C:\ezgui40dlg\includes\dlgmain.inc"                          ' Include file for PBMain code
' --------------------
' *************************************************************************************
'                       User Defined Global Variables and Types
'         (Put code in CODE TAGS! to protect from deletion by Code Generator !)
' *************************************************************************************
SUB EZ_Main(BYVAL VerNum&)     ' (PROTECTED)
     DIALOG FONT "SYSTEM", 10
     EZ_DefImageFolder "Graphics"
     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, &HB96FFF
     EZ_DefColorL 37, &H14AB9F
     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_MAIN_Display 0
     END IF
END SUB
' *************************************************************************************
'                                Applications FORM Code
' *************************************************************************************

' ======================================
' [USER ACCESSABLE CODE]  You may Edit !
' ======================================

FUNCTION Main_Initialize(BYVAL VerNum&) AS LONG
     LOCAL RV&
     RV&=1
     FUNCTION=RV&
END FUNCTION
FUNCTION PreProcess_Events(BYVAL FormName$, BYVAL hDlg&, BYVAL CID&, CMsg&, CVal&, Cancel&) AS LONG
     LOCAL RV&
     RV&=0
     FUNCTION=RV&
END FUNCTION

'<<BEGINFORM>> "MAIN"

' ======================================
' [PROTECTED CODE]         Do NOT Edit !
' ======================================
SUB EZ_MAIN_Display(BYVAL hParent&)     ' (PROTECTED)
     LOCAL T$, X&, Y&, W&, H&, WS&, EWS&, hDlg&, EVAdd AS DWORD
     T$ = "Display all controls"
     X& =  0
     Y& =  0
     W& =  272
     H& =  136
     WS& =%WS_POPUP OR %WS_CAPTION OR %WS_SYSMENU OR %WS_DLGFRAME OR %DS_CENTER
     EWS& =0
     EZ_AddDlgOffsets WS&, EWS&, W&, H&, 0
     EVAdd = CODEPTR(EZ_MAIN_ParseEvents)
     IF EZ_LoadingEvent(0, T$, X&, Y&, W&, H&, WS&, EWS&, EVAdd) THEN EXIT SUB
     DIALOG NEW UNITS,  hParent&, T$, X&, Y&, W&, H&, WS&, EWS&, TO hDlg&
     hMAIN = hDlg&
     DIALOG SET COLOR hDlg&, -1&, EZ_ColorVal(75)
     LOCAL hToolTip&
     hToolTip& = EZ_MakeFormToolTip(hDlg&)
     EZ_MAIN_Design hDlg&, hToolTip&
     DIALOG SHOW MODELESS hDlg&, CALL MAIN_DlgProc
END SUB
SUB EZ_MAIN_Design(BYVAL hDlg&, BYVAL hToolTip&)     ' (PROTECTED)
     LOCAL WS&, EWS&, hCtrl&, hTemp&, EVAdd AS DWORD
     EVAdd = CODEPTR(EZ_MAIN_ParseEvents)
     ' [Button]
     WS& =  %BS_PUSHBUTTON OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %MAIN_BUTTONF,  "Button Form", 8, 16, 40, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFont hDlg&,  %MAIN_BUTTONF, 4
     ' -----------------------------------------------
END SUB

SUB EZ_MAIN_ParseEvents(BYVAL hDlg&, BYVAL CID&, CMsg&, CVal&, Cancel&)     ' (PROTECTED)
     IF PreProcess_Events("MAIN", hDlg&, CID&, CMsg&, CVal&, Cancel&) THEN EXIT SUB
     SELECT CASE CID&
          CASE %EZ_Window
               MAIN_Events hDlg&, CID&, CMsg&, CVal&, Cancel&
          CASE  %MAIN_BUTTONF
               MAIN_BUTTONF_Events CID&, CMsg&, CVal&, Cancel&
          CASE ELSE
               MAIN_Events hDlg&, CID&, CMsg&, CVal&, Cancel&
     END SELECT
END SUB
' ======================================
' [USER ACCESSABLE CODE]  You may Edit !
' ======================================
SUB MAIN_Events(BYVAL hDlg&, BYVAL 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
' #################################################################
'              Dialog Procedure for MAIN
' #################################################################
CALLBACK FUNCTION MAIN_DlgProc
     SELECT CASE CBMSG
          CASE ELSE
     END SELECT
     ' Pass Messages to EZGUI Default Event Generator
     ' make sure CODEPTR parameter points to _ParseEvents routine for this form
     FUNCTION=EZLIB_DLGEvents(CBHNDL, CBMSG, CBWPARAM, CBLPARAM, CODEPTR(EZ_MAIN_ParseEvents))
END FUNCTION
' #################################################################
SUB MAIN_BUTTONF_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
               EZ_BTNFORM_Display hMAIN
          CASE ELSE
     END SELECT
END SUB
'<<BEGINFORM>> "BTNFORM"

' ======================================
' [PROTECTED CODE]         Do NOT Edit !
' ======================================
SUB EZ_BTNFORM_Display(BYVAL hParent&)     ' (PROTECTED)
     LOCAL T$, X&, Y&, W&, H&, WS&, EWS&, hDlg&, EVAdd AS DWORD
     T$ = "Buttons"
     X& =  0
     Y& =  0
     W& =  244
     H& =  160
     WS& =%WS_POPUP OR %WS_CAPTION OR %WS_SYSMENU OR %WS_DLGFRAME OR %DS_CENTER
     EWS& =0
     EZ_AddDlgOffsets WS&, EWS&, W&, H&, 0
     EVAdd = CODEPTR(EZ_BTNFORM_ParseEvents)
     IF EZ_LoadingEvent(0, T$, X&, Y&, W&, H&, WS&, EWS&, EVAdd) THEN EXIT SUB
     DIALOG NEW UNITS,  hParent&, T$, X&, Y&, W&, H&, WS&, EWS&, TO hDlg&
     hBTNFORM = hDlg&
     DIALOG SET COLOR hDlg&, -1&, -1&
     LOCAL hToolTip&
     hToolTip& = EZ_MakeFormToolTip(hDlg&)
     EZ_BTNFORM_Design hDlg&, hToolTip&
     DIALOG SHOW MODAL hDlg&, CALL BTNFORM_DlgProc
END SUB
SUB EZ_BTNFORM_Design(BYVAL hDlg&, BYVAL hToolTip&)     ' (PROTECTED)
     LOCAL WS&, EWS&, hCtrl&, hTemp&, EVAdd AS DWORD
     EVAdd = CODEPTR(EZ_BTNFORM_ParseEvents)
     ' [Button]
     WS& =  %BS_DEFPUSHBUTTON OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON0,  "Button", 8, 8, 60, 16, WS&, EWS&, 1, EVAdd, 1, 0)
     EZ_SetFont hDlg&,  %BTNFORM_BUTTON0, 0
     EZ_AddToolTip hDlg&, hToolTip&, %BTNFORM_BUTTON0
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_PUSHBUTTON OR %BS_FLAT OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON1,  "Button", 8, 28, 60, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFont hDlg&,  %BTNFORM_BUTTON1, 1
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_PUSHBUTTON OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_DISABLED OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON2,  "Button", 8, 48, 60, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFont hDlg&,  %BTNFORM_BUTTON2, 3
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_PUSHBUTTON OR %WS_VISIBLE OR %WS_BORDER OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON3,  "Button", 8, 68, 60, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFont hDlg&,  %BTNFORM_BUTTON3, 4
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_PUSHBUTTON OR %WS_GROUP OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON4,  "Button", 8, 88, 60, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFont hDlg&,  %BTNFORM_BUTTON4, 6
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_AUTOCHECKBOX OR %BS_PUSHLIKE OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON5,  "Button", 8, 108, 60, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFont hDlg&,  %BTNFORM_BUTTON5, 7
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_PUSHBUTTON OR %WS_VISIBLE OR %WS_DLGFRAME OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = %WS_EX_CLIENTEDGE
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON6,  "Button", 76, 8, 60, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFont hDlg&,  %BTNFORM_BUTTON6, 8
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_AUTORADIOBUTTON OR %BS_PUSHLIKE OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON7,  "Button", 76, 28, 60, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFont hDlg&,  %BTNFORM_BUTTON7, 9
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_AUTORADIOBUTTON OR %BS_PUSHLIKE OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON8,  "Button", 76, 48, 60, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFontFromPool hDlg&,  %BTNFORM_BUTTON8, "Tahoma", 14,"BV"
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_PUSHBUTTON OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_CHILD
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON9,  "Button", 76, 68, 60, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFontFromPool hDlg&,  %BTNFORM_BUTTON9, "Times New Roman", 16,"BV"
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_PUSHBUTTON OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON10,  "Button", 76, 88, 60, 16, WS&, EWS&, 0, EVAdd, 1, 0)
     EZ_SetFontFromPool hDlg&,  %BTNFORM_BUTTON10, "Trebuchet MS", 16,"BV"
     ' -----------------------------------------------
     ' [Button]
     WS& =  %BS_PUSHBUTTON OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_CHILD OR %WS_CLIPSIBLINGS OR %WS_CLIPCHILDREN
     EWS& = 0
     hCtrl&=EZ_AddControl("BUTTON", hDlg&,  %BTNFORM_BUTTON11,  "Button", 76, 108, 60, 16, WS&, EWS&, 0, EVAdd, 1, 2)
     EZ_SetFont hDlg&,  %BTNFORM_BUTTON11, 9
     ' -----------------------------------------------
END SUB

SUB EZ_BTNFORM_ParseEvents(BYVAL hDlg&, BYVAL CID&, CMsg&, CVal&, Cancel&)     ' (PROTECTED)
     IF PreProcess_Events("BTNFORM", hDlg&, CID&, CMsg&, CVal&, Cancel&) THEN EXIT SUB
     SELECT CASE CID&
          CASE %EZ_Window
               BTNFORM_Events hDlg&, CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON0
               BTNFORM_BUTTON0_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON1
               BTNFORM_BUTTON1_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON2
               BTNFORM_BUTTON2_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON3
               BTNFORM_BUTTON3_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON4
               BTNFORM_BUTTON4_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON5
               BTNFORM_BUTTON5_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON6
               BTNFORM_BUTTON6_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON7
               BTNFORM_BUTTON7_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON8
               BTNFORM_BUTTON8_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON10
               BTNFORM_BUTTON10_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %BTNFORM_BUTTON11
               BTNFORM_BUTTON11_Events CID&, CMsg&, CVal&, Cancel&
               IF CMsg&=%EZ_SubClass THEN
                    BTNFORM_BUTTON11_SubClass CVal&, Cancel&
               END IF
          CASE ELSE
               BTNFORM_Events hDlg&, CID&, CMsg&, CVal&, Cancel&
     END SELECT
END SUB
' ======================================
' [USER ACCESSABLE CODE]  You may Edit !
' ======================================
SUB BTNFORM_Events(BYVAL hDlg&, BYVAL CID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CID&
          CASE %EZ_Window
               SELECT CASE CMsg&
                    CASE %EZ_Loading
                         EZ_UseToolTipStyle %TTS_BALLOON
                    CASE %EZ_Loaded
                    CASE %EZ_Started
                    CASE %EZ_Close
                    CASE ELSE
               END SELECT
          CASE ELSE
     END SELECT
END SUB
' #################################################################
'              Dialog Procedure for BTNFORM
' #################################################################
CALLBACK FUNCTION BTNFORM_DlgProc
     SELECT CASE CBMSG
          CASE ELSE
     END SELECT
     ' Pass Messages to EZGUI Default Event Generator
     ' make sure CODEPTR parameter points to _ParseEvents routine for this form
     FUNCTION=EZLIB_DLGEvents(CBHNDL, CBMSG, CBWPARAM, CBLPARAM, CODEPTR(EZ_BTNFORM_ParseEvents))
END FUNCTION
' #################################################################
SUB BTNFORM_BUTTON0_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE %EZ_Loading
               EZ_SetLoadText "My Button"
          CASE %EZ_ToolTip
               EZ_SetToolTip "Change my tooltip"
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON1_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON2_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON3_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON4_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON5_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON6_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON7_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON8_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON10_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON11_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Click
          CASE %EZ_ToolTip
               EZ_SetToolTip "Hello"
          CASE %EZ_MouseMove
          CASE ELSE
     END SELECT
END SUB
SUB BTNFORM_BUTTON11_SubClass(BYVAL CVal&, Cancel&)
     LOCAL hCtrl&, Msg&, wParam&, lParam&
     EZ_GetSubClass  CVal&, hCtrl&, Msg&, wParam&, lParam&
     SELECT CASE Msg&
          ' CASE %WM_LBUTTONDOWN
          CASE ELSE
     END SELECT
END SUB

'<<END ALL FORMS>>    UnKnown Routines follow:
#IF %EZ_NOSKIPCODE
#ENDIF 'PARSE END

Gary Stout
Member 		posted 12-21-2007 05:13 PM     Click Here to See the Profile for Gary Stout     Edit/Delete Message Reply w/Quote
Chris,

Will the new DDT designer support existing EZGUI *.fmz form files?

Thanks,
Gary

Chris Boss
Administrator 		posted 12-21-2007 07:16 PM     Click Here to See the Profile for Chris Boss     Edit/Delete Message Reply w/Quote
The Designers are identical, including their form file format. The DDT Designer is based on the code for the EZGUI 4.0 Designer.

The only thing not supported, will be the EZGUI custom controls. The Canvas control will be replaced by PB's Graphic control, so you can use PB Graphic commands with it.

Now it will be possible to use any third party control in DLL form with it.

Gary Stout
Member 		posted 01-03-2008 10:49 PM     Click Here to See the Profile for Gary Stout     Edit/Delete Message Reply w/Quote
Chris,

How is the DDT version coming along? I know it is a busy time a year with the recent holidays.
I was just curious

Thanks,
Gary

Gary Stout
Member 		posted 01-03-2008 10:55 PM     Click Here to See the Profile for Gary Stout     Edit/Delete Message Reply w/Quote
Chris,

If you get a chance, could you post or email me a compilable or compiled example that I can try on Ubuntu. Preferrably an example with a listview using the # property. None of my EZGUI apps display the grid lines under Ubuntu, but everything else seems to work ok.

Thanks,
Gary Stout
gary@sce4u.com

Chris Boss
Administrator 		posted 01-03-2008 11:35 PM     Click Here to See the Profile for Chris Boss     Edit/Delete Message Reply w/Quote
Gary,

The # property (grid lines) is not a window style. The listview has a message which can be sent to set extended styles.

Wine on Linux may not support every message available for each control type, especially with common controls.

Its an amazing thing that EZGUI even runs on Wine, since it calls so many API functions. It is reasonable to expect that a few features may not be supported.

The following listview properties are sent via the %LVM_SETEXTENDEDLISTVIEWSTYLE message and are not true window styles:

#
-
X
?

and possibly a few others.

Chris Boss
Administrator 		posted 01-03-2008 11:41 PM     Click Here to See the Profile for Chris Boss     Edit/Delete Message Reply w/Quote
The DDT Designer is currently working and can generate the basic GUI code for an app.

I need to tweak the code for each control type though and turn off any features only supported by EZGUI.

I currently have the control creation code working, fonts working, colors working, WM_COMMAND event code working and some WM_NOTIFY event code working. The library code converts WM_COMMAND and WM_NOTIFY messages into EZGUI like events.

I have the Pager control working (can add a dialog to it and scroll it).

I also have some of the subclassing engine working.

The Canvas control in the Designer is replaced with PB's Graphic control (which is really a ownerdraw static control) when generating code.

I also have ToolTips working.

There is still a lot to do though.

[This message has been edited by Chris Boss (edited 01-03-2008).]

All times are EST (US)

next newest topic | next oldest topic

Administrative Options: Close Topic | Archive/Move | Delete Topic
Post New Topic  Post A Reply
Hop to:

Contact Us | Computer Workshop ( EZGUI ) Home Page

Copyright 2000 to 2007 Christopher R. Boss

Powered by: Ultimate Bulletin Board, Version 5.44
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.