an image on btnbmp and other

[nageswaragunupudi]

Displaying prompt of BtnBmp in two fonts:

Code: Select all  Expand view  RUN

function Test()

   local oWnd, oBtn, oBold, oFont

   DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-16 BOLD
   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12

   DEFINE WINDOW oWnd
   oWnd:SetFont( oFont )

   @ 20,20 BTNBMP oBtn ;
      PROMPT "BoldText" + CRLF + "SmallText" ;
      FILE "c:\fwh\bitmaps\metro\users.bmp"  ;
      SIZE 96,128 PIXEL OF oWnd FLAT COLOR CLR_WHITE,CLR_GREEN ;
      NOBORDER

   oBtn:oFontBold    := oBold   // <-- NOTE

   ACTIVATE WINDOW oWnd CENTERED
   RELEASE FONT oFont, oBold

return nil

[Otto]

Dear Mr Rao,
thank you so much.
Is it possible to position the caption on top, left or right, too.
Thank you in advance
Otto

[nageswaragunupudi]

Code: Select all  Expand view  RUN

function Test()

   local oDlg, oBtn, oBold, oFont
   local nRow, nCol, n

   DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-14 BOLD
   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12

   DEFINE DIALOG oDlg SIZE 700,400 PIXEL TRUEPIXEL FONT oFont

   nRow  := 20
   nCol  := 20

   for n := 1 to 3
      @ nRow,nCol BTNBMP oBtn ;
         PROMPT If( n == 3, " ", "" ) + "Bold" + CRLF + "Text" + If( n == 1, " ", "" ) ;
         FILE  "c:\fwh\bitmaps\metro\users.bmp" ;
         SIZE 96,128 PIXEL OF oDlg FLAT TOP COLOR CLR_WHITE,CLR_GREEN ;
         NOBORDER

      oBtn:oFontBold    := oBold   // <-- NOTE
      nCol  += 110
   next

   for n := 1 to 3
      @ nRow,nCol BTNBMP oBtn ;
         PROMPT If( n == 3, " ", "" ) + "Bold" + CRLF + "Text" + If( n == 1, " ", "" ) ;
         FILE  "c:\fwh\bitmaps\metro\users.bmp" ;
         SIZE 96,128 PIXEL OF oDlg FLAT BOTTOM COLOR CLR_WHITE,CLR_GREEN ;
         NOBORDER

      oBtn:oFontBold    := oBold   // <-- NOTE
      nCol  += 110
   next

   nRow     := 160
   nCol     :=  20

   for n := 1 to 3
      @ nRow,nCol BTNBMP oBtn ;
         PROMPT If( n > 1, " ", "" ) + "Bold" + CRLF + "Text" + If( n < 3, " ", "" ) ;
         FILE  "c:\fwh\bitmaps\metro\users.bmp" ;
         SIZE 144,80 PIXEL OF oDlg FLAT LEFT COLOR CLR_WHITE,CLR_GREEN ;
         NOBORDER

      oBtn:oFontBold    := oBold   // <-- NOTE
      nCol  += 160
   next

   nRow     := 260
   nCol     :=  20

   for n := 1 to 3
      @ nRow,nCol BTNBMP oBtn ;
         PROMPT If( n > 1, " ", "" ) + "Bold" + CRLF + "Text" + If( n < 3, " ", "" ) ;
         FILE  "c:\fwh\bitmaps\metro\users.bmp" ;
         SIZE 144,80 PIXEL OF oDlg FLAT RIGHT COLOR CLR_WHITE,CLR_GREEN ;
         NOBORDER

      oBtn:oFontBold    := oBold   // <-- NOTE
      nCol  += 160
   next

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont, oBold

return nil
 

[Silvio.Falconi]

fantastic

[Silvio.Falconi]

How have a list of btnbmp pressed ?

[nageswaragunupudi]

check for oBtn:lPressed in a loop

[Silvio.Falconi]

yes but I have many problems

1) not have the last version of fwh I am stop on dec 17 I cannot use your function fw_

2) I must adapt it on my application

3) I show the image over the btnbmp then when I make a control with my data (sample check_in and check_out to see if it is a reservation of one day or it is payed)

4) when I use toggle method I erase the other commands because each btnbmp must show a popupmenu with a menu

5 ) when I click on each buttons I must show the reservation dialog ( made by you) into ribbonbar