DEFINE DIALOG oTstDlg2 TITLE "Framp" OF oWnd
@ 1,0 SAY "Test"
@ 1,8 GET tg1
@ 2,0 SAY "Two"
@ 2,8 GET tg2
@ 3,0 SAY "Three"
@ 3,8 GET tg3
@ 4,0 SAY "Four"
@ 4,8 GET tg4
ACTIVATE DIALOG oTstDlg2 CENTERED
#include "FiveWin.ch"
function Main()
local oDlg, tg1, tg2, tg3, tg4
DEFINE DIALOG oDlg TITLE "Framp"
@ 12, 10 SAY "Test" PIXEL
@ 10, 40 GET tg1 PIXEL SIZE 80, 10
@ 22, 10 SAY "Two" PIXEL
@ 20, 40 GET tg2 PIXEL SIZE 80, 10
@ 32, 10 SAY "Three" PIXEL
@ 30, 40 GET tg3 PIXEL SIZE 80, 10
@ 42, 10 SAY "Four" PIXEL
@ 40, 40 GET tg4 PIXEL SIZE 80, 10
ACTIVATE DIALOG oDlg CENTERED
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 65 guests