FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Problem with ribbonbar and get
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Problem with ribbonbar and get
Posted: Sat Feb 29, 2020 12:18 PM


please test this sample
Code (fw): Select all Collapse
#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



I not see the numbers on the get
I must click on each get and move the mouse into to see the numbers
why
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problem with ribbonbar and get
Posted: Sat Feb 29, 2020 01:08 PM
Use size and picture
Code (fw): Select all Collapse
     @ 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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Continue the discussion