A classe, postar em duas partes.
Primeiro cada objeto.
É praticamente traduzir o Create() para o formato da HMGE.
Talvez o inverso facilite, alterar o CH da HMGE acaba com a necessidade de criar tanta variável aqui.
Seria praticamente adicionar somente o classe:New() lá no ch
As variáveis aqui só são necessárias pro create(), removendo o create() também remove as variáveis.
Código: Selecionar todos
#include "hbclass.ch"
#include "hmg.ch"
STATIC nObject := 0
CREATE CLASS WindowClass INHERIT ObjectClass
VAR cType INIT "Mainwin"
METHOD Create( oMain )
ENDCLASS
METHOD Create( oMain ) CLASS WindowClass
hb_Default( @oMain, .F. )
IF oMain
DEFINE WINDOW &(::cName) AT ::nCol, ::nRow ;
WIDTH ::nWidth HEIGHT ::nHeight TITLE ::hAll[ "Caption" ] MAIN
ENDIF
::lCreated := .T.
RETURN Nil
CREATE CLASS FRAMEClass INHERIT ObjectClass
VAR cType INIT "Frame"
VAR lOpaque INIT .F.
METHOD Create( oMain )
ENDCLASS
METHOD Create( oMain ) CLASS FrameClass
::oParent := oMain
DEFINE FRAME &(::cName)
ROW ::nRow
COL ::nCol
WIDTH ::nWidth
HEIGHT ::nHeight
CAPTION ::hAll[ "Caption" ]
FONTNAME ::cFontName
FONTSIZE ::nFontSize
FONTBOLD ::lFontBold
CAPTION ::hAll[ "Caption" ]
PARENT &( ::oParent:cName )
OPAQUE ::lOpaque
END FRAME
::lCreated := .T.
RETURN Nil
CREATE CLASS BUTTONClass INHERIT ObjectClass
VAR cType INIT "Button"
METHOD Create( oMain )
ENDCLASS
METHOD Create( oMain ) CLASS ButtonClass
::oParent := oMain
DEFINE BUTTON &(::cName)
ROW ::nRow
COL ::nCol
WIDTH ::nWidth
HEIGHT ::nHeight
ACTION Eval( ::bAction )
CAPTION ::hAll[ "Caption" ]
PARENT &( ::oParent:cName )
END BUTTON
::lCreated := .T.
RETURN Nil
CREATE CLASS LABELClass INHERIT ObjectClass
VAR cType INIT "Label"
METHOD Create( oMain )
ENDCLASS
METHOD Create( oMain ) CLASS LabelClass
::oParent := oMain
DEFINE LABEL &(::cName)
ROW ::nRow
COL ::nCol
WIDTH ::nWidth
HEIGHT ::nHeight
VALUE ::hAll[ "Caption" ]
PARENT &( ::oParent:cName )
END LABEL
::lCreated := .T.
RETURN Nil
CREATE CLASS ProgbarClass INHERIT ObjectClass
VAR cType INIT "Progbar"
VAR nRangeMin INIT 0
VAR nRangeMax INIT 0
METHOD Create( oMain )
ENDCLASS
METHOD Create( oMain ) CLASS ProgbarClass
::oParent := oMain
DEFINE PROGRESSBAR &(::cName)
ROW ::nRow
COL ::nCol
WIDTH ::nWidth
HEIGHT ::nHeight
RANGEMIN ::nRangeMin
RANGEMAX ::nRangeMax
PARENT &( ::oParent:cName )
END PROGRESSBAR
::lCreated := .T.
RETURN Nil
A classe herdada é apenas um tradutor, e o amontoado de variáveis na maioria pra porr.nenhuma, só pro create().
Ela é a segunda metade do fonte anterior, ela depende da variável STATIC nObject que está na primeira parte.
Mas se usar os nomes originais do fonte original, alterando o ch da HMG, essa parte de inventar nome também some.
Código: Selecionar todos
CREATE CLASS ObjectClass
VAR cType INIT "None"
VAR oParent INIT Nil
VAR cName INIT "X"
VAR hAll INIT hb_Hash()
VAR nRow INIT 0
VAR nCol INIT 0
VAR nWidth INIT 0
VAR nHeight INIT 0
VAR cFontName INIT "Arial"
VAR nFontSize INIT 10
VAR lFontBold INIT .F.
VAR bAction INIT { || Nil }
VAR aControlList INIT {}
VAR lCreated INIT .F.
METHOD New()
METHOD Cargo( xValue ) SETGET
METHOD Center() INLINE ::DoMethod( "center" )
METHOD Activate() INLINE ::DoMethod( "activate" )
METHOD Caption( cText ) SETGET
METHOD DoMethod( cName )
METHOD GetProperty( cName )
METHOD SetProperty( cName, xValue )
ENDCLASS
METHOD New() CLASS ObjectClass
nObject += 1
IF ::cType == "Mainwin"
::cName := "Mainwin"
else
::cName := ::cType + StrZero( nObject, 6 )
ENDIF
RETURN Self
METHOD Caption( cText ) CLASS ObjectClass
IF cText != Nil
::hAll[ "Caption" ] := cText
IF ::lCreated
::SetProperty( "Caption", cText )
ENDIF
ENDIF
IF ::lCreated
::hAll[ "Caption" ] := ::GetProperty( "Caption" )
ENDIF
RETURN ::hAll[ "Caption" ]
METHOD DoMethod( cName ) CLASS ObjectClass
LOCAL aList, oThis, oThisAnt
aList := { ::cName }
oThis := Self
oThisAnt := oThis
DO WHILE ( oThis := oThis:oParent ) != Nil
hb_AIns( aList, 1, oThis:cName, .T. )
oThisAnt := oThis
ENDDO
IF oThisAnt:lCreated
DoMethod( hb_ArrayToParams( aList ), cName )
ENDIF
RETURN Nil
METHOD GetProperty( cName ) CLASS ObjectClass
LOCAL aList, oThis, oThisAnt
aList := { ::cName }
oThis := Self
oThisAnt := oThis
DO WHILE ( oThis := oThis:oParent ) != Nil
hb_AIns( aList, 1, oThis:cName, .T. )
oThisAnt := oThis
ENDDO
IF oThisAnt:lCreated
GetProperty( hb_ArrayToParams( aList ), cName )
ENDIF
RETURN Nil
METHOD SetProperty( cName, xValue ) CLASS ObjectClass
LOCAL aList, oThis, oThisAnt // , cText
aList := { ::cName }
//MsgInfo( "atual " + ::cName )
oThis := Self
oThisAnt := oThis
DO WHILE ( oThis := oThis:oParent ) != Nil
hb_AIns( aList, 1, oThis:cName, .T. )
oThisAnt := oThis
ENDDO
//cText := "SetProperty(" + ["] + aList[1] + ["]
//DO CASE
//CASE Len( aList ) == 2
// cText += "," + ["] + aList[2] + ["]
//CASE Len( aList ) == 3
// cText += "," + ["] + aList[3] + ["]
//CASE Len( aList ) == 4
// cText += "," + ["] + aList[4] + ["]
//ENDCASE
//cText += "," + ["] + cName + ["] + ","
//DO CASE
//CASE ValType( xValue ) == "C"; cText += ["] + xValue + ["]
//CASE ValType( xValue ) == "N"; cText += Ltrim( Str( xValue ) )
//CASE ValType( xValue ) == "D"; cText += "Stod(" + Dtos( xValue ) + ")"
//CASE ValType( xValue ) == "L"; cText += iif( xValue, ".T.", ".F." )
//OTHERWISE ; cText += Transform( xValue, "" )
//ENDCASE
//cText += ")"
//MsgInfo( cText )
IF oThisAnt:lCreated
SetProperty( hb_ArrayToParams( aList ), cName, xValue )
ENDIF
RETURN Nil
METHOD Cargo( xValue ) CLASS ObjectClass
IF xValue != Nil
::hAll[ "Cargo" ] := xValue
IF ::lCreated
::SetProperty( "Cargo", xValue )
ENDIF
ELSE
IF ::lCreated
::GetProperty( "Cargo", xValue )
ENDIF
ENDIF
RETURN ::hAll[ "Cargo" ]
Basicamente a classe só precisa do nome original, e a indicaçào de quem é o parent.
Apesar de "talvez" poder fazer isso a partir da variável linguição da HMG, precisa fazer isso durante o fonte, pra poder usar tudo no próprio fonte, então tem que ser durante a criação e não depois.
Então... aqui estou ignorando qualquer nome usado pela HMG, apenas deixo em CNAME.
E por esse mesmo motivo, acaba impedindo o uso do que seria normal da HMG, porque "não tem nome", digamos assim. Obriga a alterar todo o fonte de uma vez, mas se não está pronto, não dá pra fazer isso.
Por exemlo, FontName e FontSize parecem não ser parte do objeto, deu erro pra ler/gravar essas propriedades.
Por enquanto é apenas um teste, pra avaliar se funciona.
Não dá pra imaginar tudo que pode acontecer sem fazer testes.
E tem que evitar mexer nos fontes da HMGE, porque tem versão nova quase toda semana, e não dá pra ficar refazendo tudo toda semana.
Já imagino que desse jeito o browse iria obrigar trocentas variáveis, o que não vai ser bom, vai complicar cada vez mais deixar compatível, sendo que a classe nem usa as variáveis pra nada.