The code is:
- Code: Select all Expand view
#include "FWCE.ch"
STATIC oWnd, oMenu
function Main()
desenhar_janela()
return nil
// Defining window
function desenhar_janela()
DEFINE WINDOW oWnd TITLE "Gertal, S.A." menu build_menu()
@ 3, 3 say "Sistema de Gestão de Pedidos Hospitalares" size 230, 30 pixel
ACTIVATE WINDOW oWnd modal
return nil
// Create menu
function Build_Menu()
Define Menu oMnu Resource 2002
ReDefine MenuItem Id 6001 Of oMnu Action oWnd:End()
ReDefine MenuItem Id 6002 Of oMnu Action msginfo("1")
ReDefine MenuItem Id 6003 Of oMnu Action msginfo("2")
return nil
And i have a resource file, named 'gertal2.rc' with the following code:
- Code: Select all Expand view
// RESOURCE SCRIPT generated by "Pelles C for Windows, version 4.50".
#include <windows.h>
#include <commctrl.h>
#include "c:\programas\pellesc\include\win\richedit.h"
LANGUAGE LANG_PORTUGUESE,SUBLANG_PORTUGUESE
2002 MENUEX
BEGIN
POPUP "&Ficheiros", 0, 0, 0
BEGIN
MENUITEM "&Sair", 6001, 0, 0
END
POPUP "&Opções", 0, 0, 0
BEGIN
MENUITEM "&Inserir registo", 6002, 0, 0
MENUITEM "&Apagar registo", 6003, 0, 0
END
END
What is wrong with this code?
TIA,
Joaquim