Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
It is automatically done via two 'tricks' already in place, so, you must do nothing.rathinagiri wrote:Hi Roberto,
Is there a way for these two things as we have already used upto HMG 3?
1. How to define the events as we have done in semi-oop style.
For example, instead of win1:checkbox:value := .t. we have to use win1.checkbox1.value := .t.
We could do it 'blockifiying' it in #command definitions but, let me assure that this do not bring problems when you want to work with code blocks.rathinagiri wrote: 2. Can we omit the code blocking characters?
For example:
define checkbox c
row 10
col 10
onchange checkboxchangefunction() // and not onchange {||checkboxchangefunction()}
caption "A Checkbox"
end checkbox
This is it... It looks good!!!rathinagiri wrote:Thanks for the advice Roberto.
Now I have changed the code/demo as per your instructions. Kindly check and tell me, so that I can proceed further.
And when you create a window using DEFINE WINDOW command its object variable is made public:Roberto Lopez wrote:
It is automatically done via two 'tricks' already in place, so, you must do nothing.
The first one is that the control variable name (stringuified) is added as an instance variable to the control parent window, allowing this:
Window:Control:Property
This is done in the Create() method via the following line:
::oParent:AddData ( ::cName , Self )
It must be present in the Create() method for every control (AddData() is a method in Window class that do the thing).
The second one is the following directive in hmg.ch:
#xtranslate .<!msg!> => :<msg>
Allowing to write:
Window:Control:Property
As:
Window.Control.Property
(but I shall understand first)
Thank you friend.Code: Select all
@ 10 , 40 TextBox Text1 ;
Width 200 ;
Value 'OOP TextBox 1 !!!'And when we writeRoberto Lopez wrote: And when you create a window using DEFINE WINDOW command its object variable is made public:
__MVPUBLIC ( <"oObj"> ) ;;
So, you can use the syntax:
Window.Control.Property
at any place of your application, exactly like standard HMG.
Please note that must use DEFINE WINDOW to achieve this since there is not pre-processing when you use raw objects (ie):
oWindow := Window:New()
Code: Select all
Local oWindow
With Object oWindow := Window():New()
You are right. It must be added in Create() method at textbox.prg.sudip wrote:
After 5 min:
In textbox sample 2 (demo_2.prg), I found following lines:So, I suppose Text1 has initial value 'OOP TextBox 1 !!!'. But, it is not shown and when I click on Button1, MsgInfo( Win1:Text1:Value ) shows blank. I suppose initialization of value property during textbox definition is will be added later. Am I correct?Code: Select all
@ 10 , 40 TextBox Text1 ; Width 200 ; Value 'OOP TextBox 1 !!!'
Code: Select all
With Object oWindow := Window():New()
...
With Object oButton2 := Button():New()
:Row := 140
:Col := 40
:Caption := 'Change Caption'
:OnClick := { || oButton2:value := 'Caption Changed' }
End With
...