btnbmp

Re: btnbmp

Postby nageswaragunupudi » Thu Oct 31, 2024 5:24 am

BtnBmp Legacy Look

Code: Select all  Expand view  RUN
#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


Image
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10690
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: btnbmp

Postby karinha » Thu Oct 31, 2024 12:58 pm

Cuasi bueno...

Code: Select all  Expand view  RUN

// 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
 


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7874
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 26 guests