HMGforum.com

Sorry. I have just made a mistake. I think I have to rectify it.

Sorry friends. I will make a new version!

Hi all

Continue to report for HMG.4 2011.11.13 release (part : 4 and last )

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
tab ( demo 1..5 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
test : ok ( single letter variables, empty loops, '?' commands, etc; probably meaningfulfor only to author ? )
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
textbox ( demo 1..5 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
timer ( demo 1..3 ) : ok ( yes, HMG is great, beacouse its developers are great ! )
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
toolbar ( demo 1..5 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
tree ( demo 1..2 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
VirtualGrid :
demo 1 : ok ( a warning at startup; like styles Demo 3 )
demo 2 : ok ( same as demo 1 )
demo 3 : ok ( 1000 time click msgbox ! annoying )
demo 4 : ok ( bug anounced at startup )
browse_demo 1,2 : ok
browse_demo 3 : ok ( same as demo 1 )
browse_demo 4 : ok ( same as demo 1 )
browse_demo 5 : ok ( instead of warn user at startup, may be used a progress bar ? )
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
waitwin ( demo 1, 2 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~
widget ( demo 1, 2 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~
window.child ( demo 1, 2 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
window.close ( demo 1, 2 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
window.main ( demo 1, 2 , 3 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
window.modal ( demo 1, 2 , 3 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
window.morewin ( demo 1, 1b , 3, 3b ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
window.standard ( demo 1, 2 , 3 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
window.virtualsize ( demo 1, 2 ) : ok
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Note : "ok" means "it run", not "run as expected"; because expectation may be personal.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

End of report for HMG.4 2011.11.13 release.

Again, hearty thanks and congrats to all developers of this wonderful work

Regards~

--

Esgici

rathinagiri wrote: I have just made a mistake

Hi Rathi

Don't worry about mistakes; who aren't make mistake, are only who are make nothing

Best regards

--

Esgici

esgici wrote:Hi all
Continue to report for HMG.4 2011.11.13 release (part : 4 and last )
<...>

Thanks for the report!

With version 13/11/2011 i also get the error HBQT1000 message not found :ISVISIBLE
With version 31/10/2011 i don't get this error.
I can't find the difference ...
not hbqt.hbc, hbqtgui.ch, hmg.ch, mingw, qt*.dll

i have installed the two version in c:\hmg311011 and c:\hmg131111
- first my path/lib set to hmg131111 and build
my file name = c:\hmg311011\svn\samples\g2.prg and i get the error
- second my path/lib set hmg131011 an build
my file name = c:\hmg311011\svn\samples\g2.prg and i get NO error. It runs.

#include "hmg.ch"
#include "hbqtgui.ch"

FUNCTION Main()

LOCAL oWindow
LOCAL oLayoutBox

LOCAL oFrameForm
LOCAL oLayoutForm

LOCAL oNumberEntry
LOCAL oDE2
LOCAL oDateEntry
LOCAL oButtonBox
LOCAL oCombo

LOCAL oLB2

LOCAL oF2
LOCAL oL2
LOCAL oGrid
LOCAL aH := { "RNaam","n2","n3","n4","ANaam", "Nummer"} //heads
LOCAL aD [10] [6] //data

//Local oBBjk


HbQt_ErrorSys()

aD [1] := {'Simpson' ,'Simpson' ,'Simpson' ,'Simpson' ,'Homer' ,'555.55'}
aD [2] := {'Mulder' ,'Mulder' ,'Mulder' ,'Mulder' ,'Fox' ,'324.32'}
aD [3] := {'Smart' ,'Smart' ,'Smart' ,'Smart' ,'Max' ,'432.92'}
aD [4] := {'Grillo' ,'Grillo' ,'Grillo' ,'Grillo' ,'Pepe' ,'894.32'}
aD [5] := {'Kirk' ,'Kirk' ,'Kirk' ,'Kirk' ,'James' ,'346.73'}
aD [6] := {'Barriga' ,'Barriga' ,'Barriga' ,'Barriga' ,'Carlos','394.54'}
aD [7] := {'Flanders' ,'Flanders' ,'Flanders' ,'Flanders' ,'Ned' ,'435.11'}
aD [8] := {'Smith' ,'Smith' ,'Smith' ,'Smith' ,'John' ,'123.34'}
aD [9] := {'Pedemonti','Pedemonti','Pedemonti','Pedemonti','Flavio','000.00'}
aD [10] := {'Gomez' ,'Gomez' ,'Gomez' ,'Gomez' ,'Juan' ,'583.32'}

*1=defi main
WITH OBJECT oWindow := MAINWINDOW():New()
:Title := "ButtonBox Demo"
:OnInit := {|| oWindow:Center()}

*2=defi widget
With Object Widget():New()
:CentralWidgetOf( oWindow )

*3=defi oLayoutbox
oLayOutBox := LayoutBox():New("oLayOutBox",,LAYOUT_TOPTOBOTTOM)
//oLayOutBox:Stretch(0,0)

*4=defi frame
With Object oFrameForm := Frame():New()
oFrameForm:MaxWidth :=200

*5=defi layoutform (default =vertikaal!?)
oLayoutForm := LayoutForm():New()

oNumberEntry := TextBox():New()
oNumberEntry:Value := ''
oNumberEntry:MaxLength := 90
oNumberEntry:MaxLength := 90
oNumberEntry:DataType := TXT_NUMERIC
oNumberEntry:Alignment := TXT_RIGHT
oNumberEntry:InputMask := '99999.999'
//oNumberEntry:MaxWidth := 200
oLayoutForm:add( oNumberEntry, 'Simple Number Data Entry' )

//ik moest ook Object toevoegen ..
With Object oDE2 := TextBox():New()
:Value := DATE()
ataType := TXT_DATE
End
oLayoutForm:add( oDE2, 'Simple Date Data Entry' )


oDateEntry := TextBox():New()
oDateEntry:Value := DATE()
oDateEntry:DataType := TXT_DATE
/* door onderstaande een foutmelding
oDateEntry:Value := ''
oDateEntry:DataType := TXT_NUMERIC */
oLayoutForm:add( oDateEntry, 'Simple Date Data Entry' )

oCombo := ComboBox():New()
oCombo:Items := { "E - Item 1", "D - Item 2", "C - Item 3", "B - Item 4", "A - Item 5" }
oLayoutForm:add( oCombo, 'Simple Combo Data Entry' )

* nu de frame aktiveren (oLayoutForm = Frame().New()
* geen with dus ook geen End
* main-widget-layoutbox-frame-layoutform
oLayoutForm:SetLayout()
*.. binnen WITH oLayOutForm dus geactiveerd!
* .. deze aktiveert ook gelijk frame!

End // main-widget-layoutbox-frame
* we zitten hier dus weer in layoutbox

//toevoegen (het SetLayout)frame aan aLayoutbox
//oFrameForm:SetLayout()
oLayOutBox:add( oFrameForm )

oButtonBox := ButtonBox():New(0)
oButtonBox:addButton( BUTTON_OK ,, { || MsgInfo("OK") } )
oButtonBox:addButton( BUTTON_CANCEL,, { || oWindow:Release() } )
oLayOutBox:add( oButtonBox )


* nu de grid maken
* layoutbox ivm strech testen
oLB2 := LayoutBox():New("oLB2",,LAYOUT_TOPTOBOTTOM)

*4=defi frame
With Object oF2 := Frame():New()
*5=defi layoutform (default =vertikaal!?)
oL2 := LayoutGrid():New()
WITH OBJECT oGrid := Grid():New( "oGrid" )
//zonder row,col =0.0 dus in frame plaatsen ..!?
//:Row := 30 geen invloer op wel/niet starten
//:Col := 10
:Width := 320
:Height := 300
:Items := aD
:AllowEdit := .F.
:ColumnWidths := { 150, 150, 100,50,60 }
:ColumnHeaders := aH
:CellNavigation := .F.
:ColumnControls := {{"TEXTBOX","CHARACTER"},;
{"TEXTBOX","CHARACTER"},;
{"TEXTBOX","CHARACTER"},;
{"TEXTBOX","CHARACTER"},;
{"TEXTBOX","CHARACTER"},;
{'TEXTBOX','NUMERIC','999.99'}}
END
oL2:add( oGrid, 'Gridje' )
oL2:SetLayout()
*.. binnen WITH oF2 wordt oL dus geactiveerd!
* .. deze aktiveert ook gelijk frame!
End
oLB2:add(oF2)
// oLayOutBox:add( oF2 )
oLayoutBox:SetLayout() // aktiveren olayoutbox binnen widget
End // with Widget
End // with oWindow
oWindow:Activate() // aktiveren
RETURN NIL

Estimados,
intenté descargar HMG4 y descarga HMG3.0.44.
Ya no se podrá descargar más la versión para QT?.
Saludos cordiales,
Luis Vasquez