FWH 1805 : Gets Android Style

[nageswaragunupudi]

Gets can now be displayed in the new style by using the new clause BOTTOMBORDER.

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oDlg, oBrush, oFont, aVar, aGet[ 4 ]

   aVar  := { PadR( "First Line",  100 ), ;
              PadR( "Second Line", 100 ), ;
              Date(), 1234567.89 }

   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-25
   DEFINE BRUSH oBrush FILE "c:\fwh\bitmaps\sea.bmp" RESIZE
   DEFINE DIALOG oDlg SIZE 800,500 PIXEL TRUEPIXEL FONT oFont BRUSH oBrush ;
      TITLE "GETS NEW STYLE"

   TGet():bColorBlock := { |oGet| If( oGet:lFocused, { CLR_YELLOW, CLR_BLACK }, { CLR_WHITE, CLR_BLACK } ) }

   @  40,100 GET aGet[ 1 ] VAR aVar[ 1 ] SIZE 300,40 PIXEL OF oDlg BOTTOMBORDER CHRGROUP CHR_WIDE

   @  95,100 GET aGet[ 2 ] VAR aVar[ 2 ] SIZE 300,40 PIXEL OF oDlg BOTTOMBORDER

   @ 150,100 GET aGet[ 3 ] VAR aVar[ 3 ] SIZE 300,40 PIXEL OF oDlg RIGHT BOTTOMBORDER

   @ 205,100 GET aGet[ 4 ] VAR aVar[ 4 ] PICTURE "999,999,999.99" SIZE 300,40 PIXEL OF oDlg RIGHT BOTTOMBORDER

   TGet():bColorBlock := nil

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont
   RELEASE BRUSH oBrush

return nil