FiveTech Software tech support forums

Code: Select all

#include "fivewin.ch"
#include "constant.ch"
#include "ribbon.ch"



function main()

   local oRBar
   local oWnd,oGr
   local oFontBigNum

   local oNum1,oNum2
   local nNumFrom,nNumTo

     nNumFrom  := 1
     nNumTO    := 227

   DEFINE FONT  oFontBigNum NAME "VERDANA" SIZE 30,-40

   DEFINE WINDOW oWnd TITLE "RibbonBar Test " + FWVERSION from 1,1 to 600,600 pixel //brush oBrush1
   
   DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "test numbers" HEIGHT 133 TOPMARGIN 25
   

    ADD GROUP oGr RIBBON oRBar TO OPTION 1 PROMPT "test get" width 400


     @ 9,10  GET oNum1 VAR nNumFrom SIZE 100,75 PIXEL  OF  oGr FONT oFontBigNum
     @ 9,160  GET oNum2 VAR nNumTO SIZE 100,75 PIXEL  OF  oGr FONT oFontBigNum




   oRBar:nLeftMargin = 75
   oRBar:CalcPos()

  oWnd:Center()
   
  ACTIVATE WINDOW oWnd MAXIMIZED;
  on init  oNum1:refresh()
   
   oRBar:End()
   
return ni

Code: Select all

     @ 9, 10 GET oNum1 VAR nNumFrom SIZE 150,75 PIXEL OF oGr PICTURE "999" FONT oFontBigNum
     @ 9,180 GET oNum2 VAR nNumTO   SIZE 150,75 PIXEL OF oGr PICTURE "999" FONT oFontBigNum