Richard
2.Menu need to Set Font, if not set font object and not show
Build 3 is not necessary to assign the Font
#include "fivewin.ch"
static aEnglish := { "America", "European Continent", "Asia" }
static aTelugu := { "[బ్రహ్మ దేవుడు]", "[విష్ణు మూర్తి భగవానుడు ఎంతో పెద్ద పేరు]", "[&మహేశ్వర]" }
static aHindi := { "[प्रारंभ]", "[दुनिया में सबसे बड़ी आबादी चीनी हैं]", "[तिहाई]" }
static aTamil := { "[தொடக்கத்தில்]", "[உலகின் மிகப்பெரிய மக்கள் தொகை சீன உள்ளன]", "[மூன்றாவது]" }
static aGujarati:= { "[શરૂઆત]", "[વિશ્વમાં સૌથી વધુ વસ્તી ચિની છે]", "[ત્રીજા]" }
static aChinese := { "[開始]","[在世界上人口最多的是中國]","[第三]" }
static aKorean := { "[출발]", "[세계에서 가장 큰 인구는 중국인]", "[세 번째]" }
static aThai := { "[เริ่มต้น]", "[ประชากรมากที่สุดในโลกที่มีจีน]", "[ที่สาม]" }
static oFont
function main()
local oWNd, oBar, oBrw, aData, miItem
local cLog := cFileSetExt( ExeName(), "log" )
FErase( cLog )
FW_SetUnicode( .t. )
DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-12
DEFINE WINDOW oWnd MENU MainMenu() TITLE FWVERSION
DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 _3D
DEFINE BUTTON OF oBar PROMPT "TestDialog" CENTER ACTION TestDialog()
oWnd:nWidth := 700
ACTIVATE WINDOW oWnd CENTER
if File( cLog )
//WinExec( "notepad.exe " + cLog )
endif
RELEASE FONT oFont
return nil
function MainMenu()
local oMenu
local aPrompt := aChinese //aTamil //aEnglish //
MENU oMenu 2007
MENUITEM aPrompt[ 1 ]
MENU
MENUITEM "ఇక చాల్లెండి"
SEPARATOR
MENUITEM "ఈయన సృష్టి కర్త" + Chr( 13 ) + "ఇక చాల్లెండి" FILE "c:\fwh\bitmaps\16x16\open.bmp"
SEPARATOR
MENUITEM aPrompt[ 2 ]
MENUITEM aPrompt[ 3 ]
ENDMENU
MENUITEM aPrompt[ 2 ] ACTION TestDialog()
MENU
MENUITEM aPrompt[ 2 ] + " " + aPrompt[ 1 ] + Chr( 9 ) + "ALt+F" //FILE "c:\fwh\bitmaps\16x16\open.bmp"
MENUITEM aPrompt[ 3 ] //+ Chr( 9 ) + "Alt+M" ACTION MsgInfo( "Here" )
ENDMENU
MENUITEM aPrompt[ 3 ]
MENU
MENUITEM aPrompt[ 1 ]
MENUITEM aPrompt[ 2 ] + Chr( 9 ) + "ALt+F" FILE "c:\fwh\bitmaps\16x16\open.bmp"
MENUITEM aPrompt[ 3 ] //+ Chr( 9 ) + "Alt+M" ACTION MsgInfo( "Here" )
ENDMENU
ENDMENU
return oMenu
function TestDialog
local oDlg
DEFINE DIALOG oDlg SIZE 700,300 PIXEL
ACTIVATE DIALOG oDlg CENTERED ON INIT oDlg:SetMenu( MainMenu() )
return nil
But I hope compatible old FWH version, I mean it don't need to set font and get Window font
For compatibility with all previous versions, the menus do not pick the font window. If not defined font, the menu takes the font of system .
