Amiguinhos do céu, nem te conto.....
Tudo bem que em GUI isso normalmente não se faz, deixar todas as janelas com o mesmo tamanho....
FUNCTION DoPrg( cModule, cTitulo, p1, p2, p3 )
LOCAL mHrInic //, oStatusbar
PRIVATE m_Prog
m_Prog := cModule
hb_gtReload( "WVG" )
IF "HWGUI" $ cModule
AppInitSets( .F. )
DoHWGui( cModule, cTitulo, p1, p2, p3 )
ELSE
HB_GtInfo( HB_GTI_WINTITLE, cTitulo )
AppInitSets()
// oStatusbar := wvgStatusBar():New( wvgSetAppWindow(), , , { -2, -2 } , , .T. ):Create()
SetColor( SetColorNormal() )
CLS
SayTitulo( cTitulo )
@ MaxRow() - 2, 0 TO MaxRow() - 2, MaxCol() COLOR SetColorTraco()
mHrInic := Time()
Do( cModule, p1, p2, p3 )
LogDeUso( mHrInic, cModule )
// HB_SYMBOL_UNUSED( oStatusbar )
ENDIF
RETURN NIL
Como dá pra perceber acima, em GTWVG eu crio a janela e já coloco o tÃtulo.
O próprio menu já faz tudo.
Dá pra fazer igual em HWGUI?
Yes
#include "hwgui.ch"
MEMVAR m_Prog
FUNCTION DoHWGui( cModule, cTitulo )
LOCAL oTela
m_Prog := cModule
INIT DIALOG oTela TITLE cTitulo AT 20, 0 SIZE 640, 480
Do( cModule, oTela )
RETURN NIL
FUNCTION pTeshwgui( oTela )
PutButtons()
ACTIVATE DIALOG oTela
RETURN Nil
STATIC FUNCTION PutButtons()
LOCAL nRow, nCol, oFont
PREPARE FONT oFont NAME "Times New Roman" WIDTH 0 HEIGHT 20 WEIGHT 400
FOR nCol= 100 TO 400 STEP 100
FOR nRow = 40 TO 400 STEP 40
@ nCol, nRow SHADEBUTTON SIZE 90,36 TEXT Str( nRow, 3 ) + Str( nCol, 3 ) FONT oFont EFFECT SHS_METAL PALETTE PAL_METAL
NEXT
NEXT
RETURN Nil
Em GTWVG também tenho uma classe que monta as telas de cadastro, os botões, etc.
O fonte acima mostra que isso é possÃvel.
Então.... teoricamente.... tá quase tudo pronto, falta só SAY e GET (e browse)