Bellow are two pictures - results of following two samples:
Sample "Dialog":
- Code: Select all Expand view
#include "FiveWin.ch"
static fntErr, fntOK
function Main()
LOCAL oUI, oGet
LOCAL cErr := "F1- Arial "
LOCAL cOK := "F2 - Verdana "
SET _3DLOOK OFF
DEFINE FONT fntErr NAME "Arial" SIZE 0,32
DEFINE FONT fntOK NAME "Verdana" SIZE 0, 32
DEFINE DIALOG oUI TITLE "Dialog: " + FWVERSION
@ 1, 1 GET oGet VAR cErr OF oUI SIZE 120, 20 COLOR "W/G" PICTURE "@K" NOBORDER FONT fntErr
@ 3, 1 GET oGet VAR cOk OF oUI SIZE 120, 20 COLOR "W/G" PICTURE "@K" NOBORDER FONT fntOK
ACTIVATE DIALOG oUI
return nil // Main
Sample "Window":
- Code: Select all Expand view
#include "FiveWin.ch"
static fntErr, fntOK
function Main()
LOCAL oUI, oGet
LOCAL cErr := "F1- Arial "
LOCAL cOK := "F2 - Verdana "
SET _3DLOOK OFF
DEFINE FONT fntErr NAME "Arial" SIZE 0,32
DEFINE FONT fntOK NAME "Verdana" SIZE 0, 32
DEFINE WINDOW oUI TITLE "Window: " + FWVERSION
@ 1, 1 GET oGet VAR cErr OF oUI SIZE 240, 40 COLOR "W/G" PICTURE "@K" NOBORDER FONT fntErr
@ 6, 1 GET oGet VAR cOk OF oUI SIZE 240, 40 COLOR "W/G" PICTURE "@K" NOBORDER FONT fntOK
ACTIVATE WINDOW oUI
return nil // Main
Result of "Dialog":
Result of "Window":
As you can see, there is additional spacing in GET when
Arial font is used on window. What can be done to
remove this spacing???
Thanks, Roman