« previous next »
Pages: 1 2 3 [4] 5

Author Topic: EZGUI  (Read 18264 times)

0 Members and 3 Guests are viewing this topic.

JRS

  • Guest
Re: EZGUI
« Reply #45 on: April 07, 2018, 12:21:32 PM »
Sure looks EZ to me.  8)
Logged

Charles Pegge

  • Guest
Re: EZGUI
« Reply #46 on: April 07, 2018, 09:52:47 PM »
Many thanks Chris,

That looks very straightforward. I have downloaded and installed EZGUI-5, and I'll give it a go ASAP :)
Logged

chrisc

  • Guest
Re: EZGUI
« Reply #47 on: April 08, 2018, 07:19:11 AM »
@Chris Boss

you are the Boss, make O2 Ezgui visual designer, we truly need it.
Logged

Chris Boss

  • Guest
Re: EZGUI
« Reply #48 on: April 08, 2018, 04:00:02 PM »
Charles, there is an interesting market for your Oxygen compiler. You could tap into this market with the free compiler optimized for it and then later, if you have a need or desire, find other ways to monetize your efforts. What is this market ?

Windows 10 IOT Core

This new version of Windows is targeted for so called "makers" of IOT style devices. The Raspberry PI is a big hit today, but there is a growing market of x86 based "maker" devices. The embedded world (which Windows 10 IOT is part of) is also very big.

I found something very interesting. It is a list of WIN32 API's supported by "all" versions of Windows, which I assume also means the free IOT version. You could easily use this as a basis of building a IOT version of the O2 compiler which is guaranteed compatible with Windows 10 IOT Core (free version).

If you have no need tp monetize O2 in anyway, it is still a desirable area for development, especially since the "maker" market is not big and there is a lot of interest in it in education, small tech startups, etc.

Here is the list of supported API's:

https://docs.microsoft.com/en-us/uwp/win32-and-com/win32-apis

I did a quick check it is supports both the OLE API's ( both PB OLE strings and O2 strings) and also the console API's, which means it might support PB Console compiler right out of the box (except graphic window).
Logged

JRS

  • Guest
Re: EZGUI
« Reply #49 on: April 08, 2018, 05:43:11 PM »
I could spend the rest of my life defining these with DLLC.  :)

I do like the format of the documentation.

I'm planning on using a SQLite DB to store Script BASIC documentation and create a generic help viewer to display it in. Search comes as a welcome byproduct
« Last Edit: April 08, 2018, 07:53:17 PM by John »
Logged

JRS

  • Guest
Re: EZGUI
« Reply #50 on: April 08, 2018, 08:01:05 PM »
I could link this global API monster with a scriba build and use DLLC to map the already loaded library functions I might need for a current script I might be writing.
Logged

JRS

  • Guest
Re: EZGUI - WoW
« Reply #51 on: April 12, 2018, 10:20:59 PM »
I installed EZGUI on Wine. It seems to be working fine. I need to get PB10 installed so I can compile code until Chris has a O2 designer and code generator. (hopefully 64 bit)
Logged

Chris Boss

  • Guest
Re: EZGUI
« Reply #52 on: April 13, 2018, 04:10:01 PM »
John,

A number of my customers use EZGUI regularly on Linux using Wine and have reported it works very well.

EZGUI does not lean towards the "bleeding edge" in the Windows API, but instead leans on the more long time API's which are proven and core to most versions of Windows. This makes it run better on Wine than some other stuff which leans towards newer API's. For example, EZGUI uses a proproprietary Graphic engine for its sprite engine based on the Windows DIB API's, which have existed since Windows 95. EZGUI performed slightly faster in sprite animation than Patrice Terriers GDImage and doesn't use anything like GDI Plus.

EZGUI also uses OpenGL 1.0/2.0 for 3D, so it is better suited to Wine which does OpenGL well.

The feature set of EZGUI is rich and extensive, but yet most of it should work well with Wine.
Logged

JRS

  • Guest
Re: EZGUI
« Reply #53 on: April 13, 2018, 04:25:57 PM »
The only problem so far is that EZGUI dumps tons of non-functional .lnk shortcuts on my Linux desktop.

If I start EZGUI from the console, I can get the .lnk files to work using the following Wine command.

wine start "EZGUI 5.0 Designer.lnk"
« Last Edit: April 13, 2018, 05:59:16 PM by John »
Logged

Charles Pegge

  • Guest
Re: EZGUI
« Reply #54 on: April 13, 2018, 09:02:12 PM »
Hi Chris

Quote
Windows 10 IOT Core

This new version of Windows is targeted for so called "makers" of IOT style devices. The Raspberry PI is a big hit today, but there is a growing market of x86 based "maker" devices. The embedded world (which Windows 10 IOT is part of) is also very big....

Thanks for the info. I'm also interested in ARM-based devices, and others like the PIC microcontrollers, with tiny instruction sets. But my primary focus will be on x86.
Logged

JRS

  • Guest
Re: EZGUI
« Reply #55 on: April 21, 2018, 11:07:41 AM »
Chris,

It would be to your benefit to show a few examples of calling your ezgui.dll from O2. It shouldn't be that difficult. Your BASIC compiler is open source, supported and FREE. (not to mention a viable 64 bit migration path)

Logged

JRS

  • Guest
EZGUI
« Reply #56 on: April 21, 2018, 01:56:10 PM »
Chris,

I compiled your MDI demo with PB10 but I'm having a problem with the .PBR being generated. I checked the box in the PBIDE but it never gets generated. What am I doing wrong? I REM'ed out the #RESOURCE line and it compiled and looks fine to me.

Code: QBasic/QuickBASIC
  1. ' *************************************************************************************
  2. '                    Code Generated by EZGUI Professional Visual Designer 5.0
  3. '           Portions: Copyright Christopher R. Boss, 2003 to 2011 All Rights Reserved !
  4. '              Registered EZGUI 5.0 users may use generated code Royalty Free !
  5. ' *************************************************************************************
  6. '
  7. ' -----------------------------------------------------------------------------------------
  8. '            WARNING !    Do Not Modify any code WITHIN Protected Sections !
  9. ' You can add code (Sub,Function,etc.) BEFORE any Protected Routine by using the following
  10. ' CODE TAGS:        '<<SAVE>>      '<<END>>            and the Designer will not remove it.
  11. ' -----------------------------------------------------------------------------------------
  12. '
  13.  
  14. ' ======================================
  15. ' [PROTECTED CODE]         Do NOT Edit !
  16. ' ======================================
  17.  
  18.  
  19. '
  20. #COMPILE EXE
  21. #DIM ALL        '   This is helpful to prevent errors in coding
  22. ' --------------------
  23. #INCLUDE "C:\ezgui50pro\includes\ezgui50.inc"                          ' EZGUI Include file for Declares
  24. ' --------------------
  25. ' #RESOURCE ".\rcdata\MDIapp.pbr"
  26. ' *************************************************************************************
  27.  
  28.  
  29. ' *************************************************************************************
  30. '                   Code Generator Defined Constants and Declares
  31. ' *************************************************************************************
  32. DECLARE FUNCTION Main_Initialize(BYVAL VerNum&) AS LONG
  33. DECLARE SUB OtherForm_Events(FormName$, CID&, CMsg&, CVal&, Cancel&)
  34. DECLARE SUB OtherForm_Design(FormName$)                            a
  35. DECLARE FUNCTION PreProcess_Events(FormName$, CID&, CMsg&, CVal&, Cancel&) AS LONG
  36. DECLARE SUB EZ_MDIPARENT_Display(BYVAL FParent$)
  37. DECLARE SUB EZ_MDIPARENT_Design()
  38. DECLARE SUB EZ_MDIPARENT_ParseEvents(CID&, CMsg&, CVal&, Cancel&)
  39. DECLARE SUB MDIPARENT_Events(CID&, CMsg&, CVal&, Cancel&)
  40. ' ------------------------------------------------
  41.  
  42.  
  43. ' ----------------------------------------------------------
  44. %MDIPARENT_MENUFILES                              = 9000
  45. ' ----------------------------------------------------------
  46. %MDIPARENT_MENUNEW                                = 9005
  47. %MDIPARENT_MENUOPEN                               = 9010
  48. %MDIPARENT_MENUSAVE                               = 9015
  49. %MDIPARENT_MENUCLOSE                              = 9020
  50. %MDIPARENT_SEPARATOR_9025                         = 9025
  51. %MDIPARENT_MENUEXIT                               = 9030
  52.  
  53. ' ----------------------------------------------------------
  54. %MDIPARENT_MENUWIN                                = 9100
  55. ' ----------------------------------------------------------
  56. %MDIPARENT_MENUTILE                               = 9105
  57. %MDIPARENT_TOOLBAR1           = 50
  58. %MDIPARENT_MDICLIENT1         = 25
  59. %MDIPARENT_STATUSBAR          = 105
  60.  
  61. DECLARE SUB MDIPARENT_TOOLBAR1_Events(BYVAL TBarID&, MyID&, BYVAL ButtonN&, CMsg&, CVal&, Cancel&)
  62. DECLARE SUB EZ_MDICHILD_Display(BYVAL FParent$, BYVAL AC!, BYVAL AR!)
  63. DECLARE SUB EZ_MDICHILD_Design()
  64. DECLARE SUB EZ_MDICHILD_ParseEvents(CID&, CMsg&, CVal&, Cancel&)
  65. DECLARE SUB MDICHILD_Events(CID&, CMsg&, CVal&, Cancel&)
  66. ' ------------------------------------------------
  67.  
  68. %MDICHILD_TEXT1              = 100
  69.  
  70. DECLARE SUB MDICHILD_TEXT1_Events(MyID&, CMsg&, CVal&, Cancel&)
  71.  
  72.  
  73.  
  74. ' *************************************************************************************
  75. '                 Code Generator Defined Global Variables and Types
  76. ' *************************************************************************************
  77.  
  78.  
  79.  
  80. '    Note:     Do NOT change the names of the EZGUI Callback Procedures !
  81.  
  82. ' --------------------
  83. #INCLUDE "C:\ezgui50pro\includes\ezwmain50.inc"                          ' EZGUI Include file for WinMain
  84. ' --------------------
  85.  
  86.  
  87.  
  88. ' *************************************************************************************
  89. '                       User Defined Global Variables and Types
  90. '         (Put code in CODE TAGS! to protect from deletion by Code Generator !)
  91. ' *************************************************************************************
  92.  
  93. SUB EZ_Main(VerNum&)     ' (PROTECTED)
  94.      EZ_Reg %EZ_USER,%EZ_REGNUM
  95.      EZ_DefImageFolder "Graphics"
  96.      EZ_AllowCommandEvents  0
  97.      EZ_LoadImageLib ""
  98.      EZ_DefFont 6, "Arial", 10, "V"
  99.      EZ_DefFont 7, "Courier New", 10, "F"
  100.      EZ_DefFont 8, "Times New Roman", 10, "V"
  101.      EZ_DefFont 9, "Modern", 10, "V"
  102.      EZ_DefSystemColor 32, 4
  103.      EZ_DefSystemColor 33, 5
  104.      EZ_DefSystemColor 34, 15
  105.      EZ_DefSystemColor 35, 24
  106.      EZ_DefColorL 36, &H00B96FFF
  107.      EZ_DefColorL 37, &H0014AB9F
  108.      EZ_DefColorL 38, &H0047A7FF
  109.      EZ_DefColorL 39, &H00D2AACF
  110.      EZ_DefColorL 40, &H001CD5E3
  111.      EZ_DefColorL 41, &H00BC8943
  112.      EZ_DefColorL 42, &H006C6AB7
  113.      EZ_DefColorL 43, &H00DD4489
  114.      IF Main_Initialize(VerNum&) THEN
  115.           EZ_MDIPARENT_Display ""
  116.      END IF
  117. END SUB
  118.  
  119. ' -------------------------------------------------------------------------------------
  120.  
  121. SUB EZ_DesignWindow(FormName$)     ' (PROTECTED)
  122.      SELECT CASE FormName$
  123.           CASE "MDIPARENT"
  124.                EZ_MDIPARENT_Design
  125.           CASE "MDICHILD"
  126.                EZ_MDICHILD_Design
  127.           CASE ELSE
  128.                OtherForm_Design FormName$
  129.      END SELECT
  130. END SUB
  131.  
  132. ' -------------------------------------------------------------------------------------
  133.  
  134. SUB EZ_Events(FormName$, CID&, CMsg&, CVal&, Cancel&)     ' (PROTECTED)
  135.      IF PreProcess_Events(FormName$, CID&, CMsg&, CVal&, Cancel&) THEN EXIT SUB
  136.      SELECT CASE FormName$
  137.           CASE "MDIPARENT"
  138.                EZ_MDIPARENT_ParseEvents CID&, CMsg&, CVal&, Cancel&
  139.           CASE "MDICHILD"
  140.                EZ_MDICHILD_ParseEvents CID&, CMsg&, CVal&, Cancel&
  141.           CASE ELSE
  142.                OtherForm_Events FormName$, CID&, CMsg&, CVal&, Cancel&
  143.      END SELECT
  144. END SUB
  145.  
  146. ' -------------------------------------------------------------------------------------
  147.      ' my library stuff
  148. ' *************************************************************************************
  149. '                                Applications FORM Code
  150. ' *************************************************************************************
  151. ' ======================================
  152. ' [USER ACCESSABLE CODE]  You may Edit !
  153. ' ======================================
  154.  
  155. FUNCTION Main_Initialize(BYVAL VerNum&) AS LONG
  156.      LOCAL RV&
  157.      RV&=1
  158.      FUNCTION=RV&
  159. END FUNCTION
  160.  
  161.  
  162. SUB OtherForm_Design(FormName$)
  163.      SELECT CASE FormName$
  164.           CASE ELSE
  165.      END SELECT
  166. END SUB
  167.  
  168.  
  169. SUB OtherForm_Events(FormName$, CID&, CMsg&, CVal&, Cancel&)
  170.      SELECT CASE FormName$
  171.           CASE "{OPENDLG}", "{SAVEDLG}", "{OPENDLGX}", "{SAVEDLGX}", "{COLORDLG}", "{FONTDLG}", "{PRINTDLG}", "{PAGEDLG}", "{FINDDLG}"
  172.           CASE "{ABORTDLG}"
  173.           CASE "{MSGBOX}"
  174.           CASE ELSE
  175.      END SELECT
  176. END SUB
  177.  
  178.  
  179. FUNCTION PreProcess_Events(FormName$, CID&, CMsg&, CVal&, Cancel&) AS LONG
  180.      LOCAL RV&
  181.      RV&=0
  182.      FUNCTION=RV&
  183. END FUNCTION
  184.  
  185.  
  186. '<<BEGINFORM>> "MDIPARENT"
  187.  
  188.  
  189. ' ======================================
  190. ' [PROTECTED CODE]         Do NOT Edit !
  191. ' ======================================
  192.  
  193. SUB EZ_MDIPARENT_Display(BYVAL FParent$)     ' (PROTECTED)
  194.      LOCAL hMainMenu&
  195.      ' Main Menu handle automatically stored by EZGUI
  196.      hMainMenu&=EZ_DefMainMenu( %MDIPARENT_MENUFILES, "&File", "")
  197.      EZ_Color -1, -1
  198.      EZ_Form "MDIPARENT", FParent$, "EZGUI Editor", 0, 0, 75, 25, "^_CZ{MDI-P}"
  199. END SUB
  200.  
  201. SUB EZ_MDIPARENT_Design()     ' (PROTECTED)
  202.      LOCAL CText$
  203.      LOCAL hMainMenu&, hDropMenu&, hSubMenu&
  204.      hMainMenu&=EZ_GetMenu("MDIPARENT", 0)
  205.      EZ_AddMenuItem hMainMenu&, %MDIPARENT_MENUWIN, 0, "&Windows", ""
  206.      hDropMenu&=EZ_DefSubMenu( %MDIPARENT_MENUNEW, "&New File", "")
  207.      EZ_SaveMenu "MDIPARENT", 1, hDropMenu&
  208.      EZ_SetSubMenu hMainMenu& , %MDIPARENT_MENUFILES, hDropMenu&
  209.      EZ_AddMenuItem hDropMenu&, %MDIPARENT_MENUOPEN, 0, "&Open File", ""
  210.      EZ_AddMenuItem hDropMenu&, %MDIPARENT_MENUSAVE, 0, "&Save File", ""
  211.      EZ_AddMenuItem hDropMenu&, %MDIPARENT_MENUCLOSE, 0, "&Close File", ""
  212.      EZ_AddMenuItem hDropMenu&, %MDIPARENT_SEPARATOR_9025, 0, "-", ""
  213.      EZ_AddMenuItem hDropMenu&, %MDIPARENT_MENUEXIT, 0, "E&xit", ""
  214.      hDropMenu&=EZ_DefSubMenu( %MDIPARENT_MENUTILE, "&Tile Windows", "M")
  215.      EZ_SaveMenu "MDIPARENT", 2, hDropMenu&
  216.      EZ_SetSubMenu hMainMenu& , %MDIPARENT_MENUWIN, hDropMenu&
  217.      ' ------------------------------------------------
  218.  
  219.      EZ_Color-1,-1
  220.      EZ_UseFont 4
  221.      STATIC PN1$
  222.      IF PN1$ = "" THEN PN1$ = EZ_LoadPicture("%EZMTOOLBAR{S}")
  223.      EZ_UseAutoSize "CT"
  224.      EZ_Toolbar %MDIPARENT_TOOLBAR1, PN1$,  "BBBB|0124{New|Open|Save|Close|}", "RT24X24"
  225.      ' -----------------------------------------------
  226.      EZ_Color-1,-1
  227.      EZ_UseFont 4
  228.      EZ_MDIClient
  229.      ' -----------------------------------------------
  230.      EZ_Color -1,-1
  231.      EZ_UseFont 4
  232.      EZ_AllowLoadingEvent 2
  233.      EZ_StatusBar %MDIPARENT_STATUSBAR, "", ""
  234.      EZ_ResizeMDI "MDIParent", 0, 4,0,0,1
  235.      EZ_AddAutoSize "MDIParent", 25, "CT"
  236. END SUB
  237.  
  238. ' ======================================
  239. ' [USER ACCESSABLE CODE]  You may Edit !
  240. ' ======================================
  241. '<<SAVE>>
  242. SUB DoFileAccess(BYVAL F$, BYVAL Mode&)
  243.      LOCAL T$, AFN%
  244.      AFN%=FREEFILE
  245.      IF Mode&=1 THEN
  246.           IF DIR$(F$)<>"" THEN KILL F$
  247.           T$=EZ_GetText("MDIChild",%MDICHILD_TEXT1)
  248.      ELSE
  249.           IF DIR$(F$)="" THEN EXIT SUB
  250.           T$=""
  251.      END IF
  252.      OPEN F$ FOR BINARY AS AFN%
  253.      IF Mode&=1 THEN
  254.           PUT$ AFN%, T$
  255.      ELSE
  256.           GET$ AFN%, LOF(AFN%), T$
  257.           EZ_SetText "MDIChild",%MDICHILD_TEXT1, T$
  258.      END IF
  259.      CLOSE AFN%
  260.      EZ_SetText "MDIChild",0, F$
  261. END SUB
  262. SUB DoTextFile(BYVAL Mode&)
  263.      LOCAL AF$, F$
  264.      SELECT CASE Mode&
  265.           CASE 0    ' New file
  266.                GOSUB TestForForm
  267.                EZ_SetText "MDIChild", %MDICHILD_TEXT1, ""
  268.                EZ_SetText "MDIChild", 0, "newtext.txt"
  269.           CASE 1    ' Open
  270.                GOSUB TestForForm
  271.                F$=EZ_OpenFile("MDIParent","Select Text File","", "Text (*.txt))|*.txt|All Files (*.*)|*.*|","Z")
  272.                IF F$<>"" THEN
  273.                     DoFileAccess F$, 0
  274.                END IF
  275.           CASE 2,3    ' save
  276.                IF EZ_Handle("MDIChild",0)<>0 THEN
  277.                     IF EZ_IsForm("MDIChild", "Min") THEN EZ_MaximizeForm  "MDIChild"
  278.                     AF$=EZ_GetText("MDIChild",0)
  279.                     F$=EZ_SaveFile("MDIParent","Save Text File","", AF$, "Text (*.txt))|*.txt|All Files (*.*)|*.*|","txt", "PNIZ")
  280.                     IF F$<>"" THEN
  281.                          DoFileAccess F$, 1
  282.                     END IF
  283.                     IF Mode&=3 THEN EZ_UnloadForm "MDIChild"
  284.                END IF
  285.      END SELECT
  286.      EXIT SUB
  287.      TestForForm:
  288.           IF EZ_Handle("MDIChild",0)=0 THEN
  289.                EZ_MDIchild_Display "MDIParent", 0,0
  290.                EZ_MaximizeForm "MDIChild"
  291.           END IF
  292.           IF EZ_IsForm("MDIChild", "Min") THEN EZ_MaximizeForm  "MDIChild"
  293.      RETURN
  294. END SUB
  295. '<<END>>
  296.  
  297. SUB MDIPARENT_MenuEvents(BYVAL MyID&, CMsg&, CVal&, Cancel&, BYVAL hMenu&, BYVAL MenuText$)
  298.      SELECT CASE MyID&
  299.           CASE %MDIPARENT_MENUFILES
  300.                SELECT CASE CMsg&
  301.                     CASE %EZ_Click
  302.                     CASE %EZ_Selected
  303.                END SELECT
  304.           CASE %MDIPARENT_MENUNEW
  305.                SELECT CASE CMsg&
  306.                     CASE %EZ_Click
  307.                          DoTextFile 0
  308.                     CASE %EZ_Selected
  309.                END SELECT
  310.           CASE %MDIPARENT_MENUOPEN
  311.                SELECT CASE CMsg&
  312.                     CASE %EZ_Click
  313.                          DoTextFile 1
  314.                     CASE %EZ_Selected
  315.                END SELECT
  316.           CASE %MDIPARENT_MENUSAVE
  317.                SELECT CASE CMsg&
  318.                     CASE %EZ_Click
  319.                          DoTextFile 2
  320.                     CASE %EZ_Selected
  321.                END SELECT
  322.           CASE %MDIPARENT_MENUCLOSE
  323.                SELECT CASE CMsg&
  324.                     CASE %EZ_Click
  325.                          DoTextFile 3
  326.                     CASE %EZ_Selected
  327.                END SELECT
  328.           CASE %MDIPARENT_MENUEXIT
  329.                SELECT CASE CMsg&
  330.                     CASE %EZ_Click
  331.                     CASE %EZ_Selected
  332.                END SELECT
  333.           CASE %MDIPARENT_MENUWIN
  334.                SELECT CASE CMsg&
  335.                     CASE %EZ_Click
  336.                     CASE %EZ_Selected
  337.                END SELECT
  338.           CASE %MDIPARENT_MENUTILE
  339.                SELECT CASE CMsg&
  340.                     CASE %EZ_Click
  341.                     CASE %EZ_Selected
  342.                END SELECT
  343.           CASE ELSE
  344.      END SELECT
  345. END SUB
  346.  
  347.  
  348. ' ======================================
  349. ' [PROTECTED CODE]         Do NOT Edit !
  350. ' ======================================
  351.  
  352.  
  353. SUB EZ_MDIPARENT_ParseEvents(CID&, CMsg&, CVal&, Cancel&)     ' (PROTECTED)
  354.      SELECT CASE CID&
  355.           CASE %EZ_Window
  356.                MDIPARENT_Events CID&, CMsg&, CVal&, Cancel&
  357.           CASE %MDIPARENT_MENUFILES
  358.                MDIPARENT_MenuEvents CID&, CMsg&, CVal&, Cancel&, EZ_GetMenu("MDIPARENT", 0), "&File"
  359.           CASE %MDIPARENT_MENUNEW
  360.                MDIPARENT_MenuEvents CID&, CMsg&, CVal&, Cancel&, EZ_GetMenu("MDIPARENT", 1), "&New File"
  361.           CASE %MDIPARENT_MENUOPEN
  362.                MDIPARENT_MenuEvents CID&, CMsg&, CVal&, Cancel&, EZ_GetMenu("MDIPARENT", 1), "&Open File"
  363.           CASE %MDIPARENT_MENUSAVE
  364.                MDIPARENT_MenuEvents CID&, CMsg&, CVal&, Cancel&, EZ_GetMenu("MDIPARENT", 1), "&Save File"
  365.           CASE %MDIPARENT_MENUCLOSE
  366.                MDIPARENT_MenuEvents CID&, CMsg&, CVal&, Cancel&, EZ_GetMenu("MDIPARENT", 1), "&Close File"
  367.           CASE %MDIPARENT_SEPARATOR_9025
  368.           CASE %MDIPARENT_MENUEXIT
  369.                MDIPARENT_MenuEvents CID&, CMsg&, CVal&, Cancel&, EZ_GetMenu("MDIPARENT", 1), "E&xit"
  370.           CASE %MDIPARENT_MENUWIN
  371.                MDIPARENT_MenuEvents CID&, CMsg&, CVal&, Cancel&, EZ_GetMenu("MDIPARENT", 0), "&Windows"
  372.           CASE %MDIPARENT_MENUTILE
  373.                MDIPARENT_MenuEvents CID&, CMsg&, CVal&, Cancel&, EZ_GetMenu("MDIPARENT", 2), "&Tile Windows"
  374.           CASE  %MDIPARENT_TOOLBAR1
  375.                MDIPARENT_TOOLBAR1_Events CID&, CID&, 0, CMsg&, CVal&, Cancel&      ' Main Toobar ID
  376.           CASE  %MDIPARENT_TOOLBAR1+1 TO  %MDIPARENT_TOOLBAR1+4
  377.                LOCAL TBNum&
  378.                TBNum& = CID&- %MDIPARENT_TOOLBAR1
  379.                MDIPARENT_TOOLBAR1_Events  %MDIPARENT_TOOLBAR1, CID&, TBNum&, CMsg&, CVal&, Cancel&
  380.           CASE ELSE
  381.                MDIPARENT_Events CID&, CMsg&, CVal&, Cancel&
  382.      END SELECT
  383. END SUB
  384.  
  385. ' ======================================
  386. ' [USER ACCESSABLE CODE]  You may Edit !
  387. ' ======================================
  388.  
  389. SUB MDIPARENT_Events(CID&, CMsg&, CVal&, Cancel&)
  390.      SELECT CASE CID&
  391.           CASE %EZ_Window
  392.                SELECT CASE CMsg&
  393.                     CASE %EZ_Loading
  394.                     CASE %EZ_Loaded
  395.                          EZ_SetFormIcon "MDIParent",EZ_LoadIcon("%EZEZ")
  396.                     CASE %EZ_Started
  397.                          EZ_MDIchild_Display "MDIParent", 0,0
  398.                          EZ_MaximizeForm "MDIChild"
  399.                     CASE %EZ_Size
  400.                          EZ_ResizeMDI "MDIParent",0,0,0,0,1
  401.                     CASE %EZ_Close
  402.                     CASE ELSE
  403.                END SELECT
  404.           CASE ELSE
  405.      END SELECT
  406. END SUB
  407.  
  408.  
  409. SUB MDIPARENT_TOOLBAR1_Events( BYVAL TBarID&, MyID&, BYVAL ButtonN&, CMsg&, CVal&, Cancel&)
  410.      SELECT CASE CMsg&
  411.           CASE %EZ_Click
  412.                DoTextFile ButtonN&-1
  413.           CASE ELSE
  414.      END SELECT
  415. END SUB
  416.  
  417.  
  418.  
  419. '<<BEGINFORM>> "MDICHILD"
  420.  
  421.  
  422. ' ======================================
  423. ' [PROTECTED CODE]         Do NOT Edit !
  424. ' ======================================
  425.  
  426. SUB EZ_MDICHILD_Display(BYVAL FParent$, BYVAL AC!, BYVAL AR!)     ' (PROTECTED)
  427.      EZ_Color -1, -1
  428.      EZ_Form "MDICHILD", FParent$, "newtext.txt", AC!, AR!, 44, 17, "^_Z{MDI-C}"
  429. END SUB
  430.  
  431. SUB EZ_MDICHILD_Design()     ' (PROTECTED)
  432.      LOCAL CText$
  433.      EZ_Color-1,-1
  434.      EZ_UseIFont "Courier New", 16,"L+F"
  435.      EZ_UseAutoSize "CT"
  436.      EZ_Text %MDICHILD_TEXT1, 0, 0, 44, 17, "", "BEMSTV"
  437.      ' -----------------------------------------------
  438. END SUB
  439.  
  440.  
  441. SUB EZ_MDICHILD_ParseEvents(CID&, CMsg&, CVal&, Cancel&)     ' (PROTECTED)
  442.      SELECT CASE CID&
  443.           CASE %EZ_Window
  444.                MDICHILD_Events CID&, CMsg&, CVal&, Cancel&
  445.           CASE  %MDICHILD_TEXT1
  446.                MDICHILD_TEXT1_Events CID&, CMsg&, CVal&, Cancel&
  447.           CASE ELSE
  448.                MDICHILD_Events CID&, CMsg&, CVal&, Cancel&
  449.      END SELECT
  450. END SUB
  451.  
  452. ' ======================================
  453. ' [USER ACCESSABLE CODE]  You may Edit !
  454. ' ======================================
  455. '<<SAVE>>
  456. SUB ResizeTextBox(BYVAL FormName$, BYVAL ID&)
  457.      LOCAL W!, H!
  458.      EZ_GetSize FormName$, W!, H!, 0
  459.      EZ_ResizeC FormName$, ID&,0,0, W!, H!
  460. END SUB
  461. '<<END>>
  462.  
  463. SUB MDICHILD_Events(CID&, CMsg&, CVal&, Cancel&)
  464.      SELECT CASE CID&
  465.           CASE %EZ_Window
  466.                SELECT CASE CMsg&
  467.                     CASE %EZ_Loading
  468.                     CASE %EZ_Loaded
  469.                     CASE %EZ_Focus
  470.                          EZ_SetDlgMsgMode 0
  471.                     CASE %EZ_NoFocus
  472.                          EZ_SetDlgMsgMode 1
  473.                     CASE %EZ_Started
  474.                     CASE %EZ_Close
  475.                     CASE %EZ_Size
  476.                          ResizeTextBox "MDIChild", %MDICHILD_TEXT1
  477.                     CASE ELSE
  478.                END SELECT
  479.           CASE ELSE
  480.      END SELECT
  481. END SUB
  482.  
  483.  
  484. SUB MDICHILD_TEXT1_Events( MyID&, CMsg&, CVal&, Cancel&)
  485.      SELECT CASE CMsg&
  486.           CASE %EZ_Change
  487.           CASE ELSE
  488.      END SELECT
  489. END SUB
  490.  
  491.  
  492.  
  493. '<<END ALL FORMS>>    UnKnown Routines follow:
  494. #IF %EZ_NOSKIPCODE
  495. #ENDIF 'PARSE END
  496.  

« Last Edit: April 21, 2018, 02:06:04 PM by John »
Logged

Chris Boss

  • Guest
Re: EZGUI
« Reply #57 on: April 21, 2018, 02:14:03 PM »
John,

The EZGUI Designer generates the Resource file, but you have to make sure it gets compiled so you get a PBR file. You can do than manually in the PB IDE or you can go into the EZGUI Designer and it the project properties dialog you can select an option to run the RC.EXE utility that comes with PB automatically. Check out my forums for more info about how to do that. It is there.

See:   http://cwsof.com/forums/index.php?topic=806.0
Logged

JRS

  • Guest
Re: EZGUI
« Reply #58 on: April 21, 2018, 03:00:23 PM »
Chris,

Thanks! That fixed it.


Compiling "C:\ezgui50pro\examples\MDI\MDIapp_source\MDIapp.bas"
Successfully created "C:\ezgui50pro\examples\MDI\MDIapp_source\MDIapp.EXE"


Is there anyway to eliminate the flicker in the toolbar when resizing the main window?

BTW: I noticed the nag dialog since I didn't insert my registration info in the code. This is what I have been asking you to do and it seems it's already works this way. Why haven't you posted an unregistered copy of EZGUI and let people play with it until they buy it?

« Last Edit: April 21, 2018, 03:15:44 PM by John »
Logged

JRS

  • Guest
Re: EZGUI
« Reply #59 on: May 05, 2018, 11:12:28 AM »
Chris Boss,

Any news where you are with examples of EZGUI.dll being used with O2?
« Last Edit: May 05, 2018, 08:03:41 PM by John »
Logged
Pages: 1 2 3 [4] 5
« previous next »