Re: Welcome to the Project Developers' Table
Posted: Sat Oct 23, 2010 9:15 pm
Just to show a sample of what I meant.
This is "function" based code:
Here a sample of "class" based code... that, by the way, doesn't work at the moment... due to a problem in hmg internals
This is "function" based code:
Code: Select all
FUNCTION show_form_1()
LOCAL oForm, iGrid, oListBox, oDividi, oCopia, oSalva
Define Window oForm ;
At 20 , 10 ;
Width 1000 ;
Height 550 ;
Title 'Caricamento raccolta' ;
On Init { || centra_form(oForm) }
With Object oGrid := Grid():New( "oGrid" )
:Name = "oGrid"
:Row = 22
......
:ColumnWhen = {{||.F.},;
{||.T.};
}
end
oGrid:ReturnValueOnEnter( .t. )
With Object oSalva := Button():New()
:Row := 490
:Col := 880
:Width := 100
:Caption := 'Salva'
:OnClick := { || salva( oForm ) }
End With
@ 470,660 TEXTBOX oText INPUTMASK "999.99" NUMERIC
oText:value( 0 )
End Window
Activate Window oForm
Return
function salva( oF )
....
return .T.
Here a sample of "class" based code... that, by the way, doesn't work at the moment... due to a problem in hmg internals
Code: Select all
CLASS Raccolta
DATA oForm
DATA oGrid
DATA oSalva
DATA oText
METHOD form1()
METHOD salva()
ENDCLASS
METHOD Raccolta:form1()
Define Window ::oForm ;
At 20 , 10 ;
Width 1000 ;
Height 550 ;
Title 'Caricamento raccolta' ;
On Init { || centra_form(::oForm) }
With Object ::oGrid := Grid():New( "::oGrid" )
:Name = "oGrid"
:Row = 22
........
:ColumnWhen = {{||.F.},;
{||.T.};
}
end
::oGrid:ReturnValueOnEnter( .t. )
With Object ::oSalva := Button():New()
:Row := 490
:Col := 880
:Width := 100
:Caption := 'Salva'
:OnClick := { || ::salva( ::oForm ) }
End With
@ 470,660 TEXTBOX ::oText INPUTMASK "999.99" NUMERIC
::oText:value( 0 )
End Window
Activate Window ::oForm
Return
METHOD Raccolta:salva( )
....
return .T.
nChange is set BEFORE :items so that for EACH element in items a call of onChange function is done... this is a side-effect we want or not because we may need this or not... I don't know the hmg3 behaviour... 