Extendet Version FMG ?

[AUGE_OHR]

hi,

i try to use CLICK Source with Extendet Version.
but it does not start just a Errot with

Subsystem Call ....: MGERROR
System Code .......: 0
Default Status ....: .F.
Description .......: Main Window is not defined. Program terminated.
Operation .........:
Involved File .....:
Dos Error Code ....: 0

now have a look at this Snapshot

MiniGUI_Main_FMG_Error.jpg (325.05 KiB) Viewed 1599 times

FMG is there and Code

Code: Select all

PROCEDURE main( filespec )
PUBLIC cStatusBox := ""
PUBLIC cInBox     := ""
PUBLIC cOutBox    := ""
PUBLIC ClickForm

#IFDEF Use_Gui
*DECLARE ClickForm
*IF !IsWindowDefined( ClickForm )
   Load Window ClickForm As Main
   CENTER WINDOW Main
   Activate Window Main
*ENDIF
#ELSE
   StartClick( filespec )
#ENDIF
RETURN

so please tell me how to use FMG with Extendet Version.

[bpd2000]

Refer link for HMG-IDE Form File to PRG Source Code (FMG2PRG) Converter
http://hmgforum.com/viewtopic.php?f=10& ... 2prg#p1011

[AUGE_OHR]

hi,

Refer link for HMG-IDE Form File to PRG Source Code (FMG2PRG) Converter
http://hmgforum.com/viewtopic.php?f=10& ... 2prg#p1011

do you recommend NOT to use FMG

[dragancesu]

PRG vs FMG, it's same, a matter of taste and habit

[danielmaximiliano]

hi,

do you recommend NOT to use FMG

Using FMG is more comfortable since I can use the form editor to see how my development is in the visual part, but then with small tricks hide those annoying files and arrange them in their respective container folders. something that added to the use of VFP IDE, the main folder containing the project file.

2019-12-10 08_31_31-Window.png (38.38 KiB) Viewed 1552 times

Code: Select all

REQUEST DBFCDX, DBFFPT
RDDSETDEFAULT ("DBFCDX")
SET CODEPAGE TO UNICODE
InitMessages( "ES" )

SET INTERACTIVECLOSE ON 
SET SOFTSEEK ON
SET NAVIGATION EXTENDED
SET DELETE ON
SET DEFAULT TO '.\Bases\'
                                      // Seleccionamos las Tablas 
   DBUSEAREA( .T. , "DBFCDX" , "PRODUCTOS" )
   If File(".\Bases\PRODUCTOS.CDX")
    DELETE FILE .\Bases\PRODUCTOS.CDX
   EndIF
   
  SET WINDOW MAIN OFF
      CreateScreenSplash ( cFileName , nDelaySeconds , nAnimateSeconds )
   SET WINDOW MAIN ON
   
   Load Window .\Formularios\Principal