FiveTech Support Forums

FUNCTION MAIN()
local oDlg, oRadio, nRadio := 1, oFont, oBtn, oSay

c_path := CURDRIVE() + ":\" + GETCURDIR() 

oFont  := TFont():New("Arial",,-16,.F.,.T. ,,,,.F. )

DEFINE DIALOG oDlg FROM 30, 30 TO 500, 400  PIXEL ;
FONT  oFont TITLE "Radio-Test" COLOR "N/*BG" TRANSPARENT 

/*
#xcommand @ <nRow>, <nCol> RADIO [ <oRadMenu> VAR ] <nVar> ;
             [ <prm: PROMPT, ITEMS> <cItems,...> ] ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ <help:HELPID, HELP ID> <nHelpId,...> ] ;
             [ <change: ON CLICK, ON CHANGE> <uChange> ] ;
             [ COLOR <nClrFore> [,<nClrBack>] ] ;
             [ MESSAGE <cMsg> ] ;
             [ <update: UPDATE> ] ;
             [ WHEN <uWhen> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ VALID <uValid> ] ;
             [ <lDesign: DESIGN> ] ;
             [ <lLook3d: 3D, _3D> ] ;
             [ <lPixel: PIXEL> ] ;
*/

@ 15, 50 RADIO oRadio VAR nRadio OF oDlg ;
ITEMS "&0", "0&1", "0&2", "0&3", "0&4", "0&5", "0&6", "0&7", "0&8", "0&9" ;
HELPID 100, 101, 102, 103, 104, 105, 106, 107, 108, 109 ;
SIZE  30,12 3D PIXEL ;
ON CHANGE  ( IIF( nRadio = 1, nDGradPos := 0, NIL ), ;
              IIF( nRadio = 2, nDGradPos := 0.1, NIL ), ;
              IIF( nRadio = 3, nDGradPos := 0.2, NIL ), ;
              IIF( nRadio = 4, nDGradPos := 0.3, NIL ), ;
              IIF( nRadio = 5, nDGradPos := 0.4, NIL ), ;
              IIF( nRadio = 6, nDGradPos := 0.5, NIL ), ;
              IIF( nRadio = 7, nDGradPos := 0.6, NIL ), ;
              IIF( nRadio = 8, nDGradPos := 0.7, NIL ), ;
              IIF( nRadio = 9, nDGradPos := 0.8, NIL ), ;
                  IIF( nRadio = 10, nDGradPos := 0.9, NIL ) ) UPDATE 

AEval( oRadio:aItems, { | oRad | oRad:SetFont ( oFont ), ;
                                                     oRad:nClrText := 0 } )

@ 175, 30 SAY oSay PROMPT "Transparent Text-test"  OF oDlg PIXEL ;
FONT oFont ;
SIZE 100, 12 COLOR 0

@ 200, 40 BTNBMP oBtn OF oDlg ;
SIZE 45, 25 PIXEL 2007 ;
NOBORDER ;
PROMPT "&Exit" ;
FILENAME c_path + "\Images\Exit.Bmp" ;
ACTION  oDlg:End() ;
FONT oFont  ;
LEFT
oBtn:lTransparent := .t.   
oBtn:cToolTip =  { "Exit" + CRLF + "1. Dlg-Color","Color-Selection", 1, CLR_BLACK, 14089979 }
oBtn:SetColor( 0, )

ACTIVATE DIALOG oDlg

oFont:End()

RETURN NIL