FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch"

function Main()

   local oDlg, oSay, oCursor

   DEFINE CURSOR oCursor HAND

   DEFINE DIALOG oDlg FROM 0,0 TO 20,40

   @ 1, 2 SAY oSay PROMPT "Left"          SIZE 100, 20 COLOR CLR_RED
   @ 2, 2 SAY oSay PROMPT "Right"  RIGHT  SIZE 100, 20 COLOR CLR_RED
   @ 3, 2 SAY oSay PROMPT "Center" CENTER SIZE 100, 20 COLOR CLR_RED
   @ 4, 2 SAY oSay PROMPT "Box"     BOX   SIZE 100, 20 COLOR CLR_RED
   @ 5, 2 SAY oSay PROMPT "Raised" RAISED SIZE 100, 20 COLOR CLR_RED
   @ 6, 2 SAY oSay PROMPT "Shadow" SHADOW SIZE 100, 20 COLOR CLR_RED

   ACTIVATE DIALOG oDlg CENTERED

return nil