Entrei no site acima e segui minuciosamente as instruções para gerar um executável simples, de um BROWSE de arquivo
.DBF e no qual foram criados:
Main.PRG
Código: Selecionar todos
#include <hmg.ch>
Function Main
Load Window Main
Main.Center
Main.Activate
Return
Procedure OpenTables()
Use Test Shared
Return Nil
Procedure CloseTables()
Use
Return Nil
Código: Selecionar todos
* HMG-IDE Form Designer Generated Code
* (c) Roberto Lopez - http://sites.google.com/site/hmgweb
DEFINE WINDOW TEMPLATE AT 142 , 306 WIDTH 550 HEIGHT 350 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "IDE Browse Sample" ICON NIL MAIN CURSOR NIL ON INIT OpenTables() ON RELEASE CloseTables() ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil
DEFINE BROWSE Browse_1
ROW 20
COL 20
WIDTH 510
HEIGHT 280
VALUE 0
WIDTHS { 150, 150, 150, 150, 150, 150 }
HEADERS { 'Code', 'First Name', 'Last Name', 'Birth Date', 'Married', 'Biography' }
WORKAREA Nil
FIELDS {'Test->Code','Test->First','Test->Last','Test->Birth','Test->Married','Test->Bio'}
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONDBLCLICK Nil
ALLOWEDIT .T.
ALLOWAPPEND .T.
ONHEADCLICK Nil
ALLOWDELETE .T.
HELPID Nil
VALID Nil
VALIDMESSAGES Nil
LOCK .F.
VSCROLLBAR .T.
DYNAMICBACKCOLOR Nil
DYNAMICFORECOLOR Nil
INPUTMASK Nil
FORMAT Nil
WHEN Nil
INPUTITEMS Nil
DISPLAYITEMS Nil
BACKCOLOR Nil
FONTCOLOR Nil
IMAGE Nil
JUSTIFY Nil
NOLINES .F.
READONLYFIELDS Nil
HEADERIMAGES Nil
END BROWSE
END WINDOW
Até abre o componente mas não apresenta o conteúdo do arquivo.
O que está faltando ou o que deve ser mudado no .PRG ou .FMG ?
