FiveTech Software tech support forums

Code: Select all | Expand

#include "fivewin.ch"

function Main()

   local oDlg, oFont, oBtn1, oBtn2

   TBtnBmp():lLegacyLookLeftRight := .t.

   DEFINE FONT oFont NAME "VERDANA" SIZE 0,-16
   DEFINE DIALOG oDlg SIZE 400,240 PIXEL TRUEPIXEL FONT oFont ;
      TITLE "BTNBMP LEGACY-LOOK"

   @  60,40 BTNBMP oBtn1 PROMPT "&AnyPrompt" ;
      FILE "..\bitmaps\32x32\yes.bmp" LEFT ;
      SIZE 180,60 PIXEL OF oDlg 2007

   @ 140,40 RBBTN  oBtn2 PROMPT "&AnyPrompt" ;
      BITMAP "..\bitmaps\32x32\yes.bmp" LEFT ;
      SIZE 180,60 OF oDlg FONT oFont

   @  60,260 SAY "BtnBmp" SIZE 80,60 PIXEL OF oDlg VCENTER
   @ 140,260 SAY "RBBtn"  SIZE 80,60 PIXEL OF oDlg VCENTER

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

Code: Select all | Expand

// C:\FWH\SAMPLES\BTNLEGAC.PRG

#include "fivewin.ch"
#include "Ribbon.ch"

FUNCTION Main()

   LOCAL oDlg, oFont, oBtn1, oBtn2

   TBtnBmp():lDefaultTheme := .T.

   // TBtnBmp():lLegacyLookLeftRight := .t. // NO EJISTE EN FWH19.05

   DEFINE FONT oFont NAME "VERDANA" SIZE 0, - 16 BOLD

   DEFINE DIALOG oDlg SIZE 400, 240 PIXEL TRUEPIXEL FONT oFont ;
      TITLE "BTNBMP LEGACY-LOOK AND TRANSPARENT RBTN" TRANSPARENT

   oDlg:lHelpIcon := .F.

   @  60, 40 BTNBMP oBtn1 PROMPT "&AnyPrompt" ;
      FILE "..\bitmaps\32x32\yes.bmp" LEFT    ;
      SIZE 180, 60 PIXEL OF oDlg 2007 FLAT

   // NO FUNCIONA CON TRANSPARENT
   @ 140, 40 RBBTN  oBtn2 PROMPT "&AnyPrompt" ;
      BITMAP "..\bitmaps\32x32\yes.bmp" LEFT  ;
      SIZE 180, 60 OF oDlg FONT oFont   FLAT // 2007-> NO FUNCIONA

   @  60, 260 SAY "BtnBmp" SIZE 80, 60 PIXEL OF oDlg VCENTER // muerto

   @ 140, 260 SAY "RBBtn"  SIZE 80, 60 PIXEL OF oDlg VCENTER // muerto

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

RETURN NIL

// FIN / END