FiveTech Software tech support forums

Code: Select all  Expand view

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

#include "FiveWin.ch"

STATIC lChangeBtn := .T.

function Main()

   LOCAL oDlg, oBtn, oBtn2, oBtn3, oBtn4, oFont, cTile := "WHEN IN BTNBMP"

   SKinButtons()

   DEFINE FONT oFont  NAME "Ms Sans Serif"  SIZE 00, -14 BOLD

   DEFINE DIALOG oDlg TITLE cTile FONT oFont SIZE 600, 200

   oDlg:lHelpIcon := .F.
   
   @ 10, 10 BTNBMP oBtn FILE "..\bitmaps\btntouch.bmp" SIZE 65, 50 NOBORDER  ;
      PROMPT "Change" FLAT 2007 GDIPLUS LEFT                                 ;
      ACTION CHANGE_BTN( oBtn2, oBtn3 )

   oBtn:LoadBitmaps( ,,,,,,, "..\bitmaps\btntouch2.bmp" )

   @ 10, 80 BTNBMP oBtn2 FILE "..\bitmaps\PNGS\image2.png" SIZE 65, 50 LEFT  ;
      FLAT 2007 GDIPLUS NOROUND PROMPT "Con GDIP" WHEN( lChangeBtn )         ;
      ACTION( oDlg:End() )

   oBtn2:bClrGrad = {| lInvert | If( ! lInvert, ;
      { { 0.25, RGB( 245, 245, 235 ), RGB( 250, 250, 245 ) }, ;
      { 0.75, RGB( 250, 250, 245 ), RGB( 245, 245, 235 ) } }, ;
      { { 0.25, RGB( 250, 250, 245 ), RGB( 245, 245, 235 ) }, ;
      { 0.75, RGB( 245, 245, 235 ), RGB( 250, 250, 245 ) } } ) }

   oBtn2:nClrBorder := iif( oBtn:lMOver, RGB( 219, 230, 244 ), RGB( 219, 230, 244 ) )

   oBtn2:lCancel := .T.

   oBtn2:LoadBitmaps( ,,,,,,, "..\bitmaps\PNGS\image6.png" )

   // SIN GDIPLUS
   @ 10, 150 BTNBMP oBtn3 FILE "..\bitmaps\PNGS\image3.png" SIZE 65, 50 LEFT  ;
      FLAT              NOROUND PROMPT "Sin GDIP" WHEN( lChangeBtn )          ;
      ACTION( oDlg:End() )

   oBtn3:LoadBitmaps( ,,,,,,, "..\bitmaps\PNGS\image4.png" )

   @ 10, 220 BTNBMP oBtn4 FILE "..\bitmaps\PNGS\image2.png" SIZE 65, 50 LEFT  ;
      FLAT 2007 GDIPLUS NOROUND PROMPT "Show GDIP"                            ;
      ACTION REFRESH_BTN( oBtn2, oBtn3 )

   oBtn4:LoadBitmaps( ,,,,,,, "..\bitmaps\PNGS\image1.png" )

   ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

FUNCTION CHANGE_BTN( oBtn2, oBtn3 )

   lChangeBtn := .F.

   //oBtn2:Disable() // Hide()
   oBtn2:Refresh()

   //oBtn3:Disable() // Hide()
   oBtn3:Refresh()

RETURN( .T. )

FUNCTION REFRESH_BTN( oBtn2, oBtn3 )

   lChangeBtn := .T.

   //oBtn2:Enable() // Hide()
   oBtn2:Refresh()

   //oBtn3:Enable() // Hide()
   oBtn3:Refresh()

RETURN( .T. )

// FIN / END - kapiabafwh@gmail.com
 

JoseAlvarez wrote:Joao,

Ya probé con .JPG y .BMP

El comportamiento es el mismo, la imagen se ve borrosa.

Gracias igualmente, seguire buscando.