btnbmp style win10

[Silvio.Falconi]

I wish only the btnbmp as button on win10

[Antonio Linares]

Silvio,

It seems as with FWH 18.01 you have the effect that you are looking for

[Silvio.Falconi]

Antonio, Rao,
On window setThemed run ok
on Dialog probable BUG because here not run ok ( i insert window manifest)

the btnbmp create on dialog another border 3D on left and on the top as you can see here



see on zoom



the code of the test

Code: Select all  Expand view

#include "Fivewin.ch"
#include "constant.ch"

Function test()
   Local oDlg
   Local oBtn[3],aGet[1]
   Local cCursorBtn:=  TCursor():New(,'HAND')
   Local nBottom   := 33
   Local nRight    := 62
   Local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local nHeight := nBottom * DLG_CHARPIX_H


   DEFINE DIALOG oDlg ;
   SIZE nWidth, nHeight ;
   COLOR CLR_BLACK,CLR_WHITE ;
    STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION,  4 )



   @ 80,10 GET aGet[1]  SIZE 80,15  PIXEL OF oDlg
   @ 80,90 BTNBMP oBtn2 FILENAME "DLG_SEL.bmp" ;
       SIZE 15,15  PIXEL OF oDlg ;
      COLOR CLR_BLACK,CLR_WHITE



   @ 222, 10 BTNBMP oBtn1 FILENAME "DLG_ALLEGO.bmp" ;
      PROMPT "Allegati..."  SIZE 45,18 LEFT PIXEL OF oDlg ;
       ACTION  Dummy()

 @ 222, 112 BTNBMP oBtn2 FILENAME "DLG_OK.bmp" ;
      PROMPT "Conferma..." SIZE 45,18 LEFT PIXEL OF oDlg ;
      ACTION ( oDlg:end( IDOK ) )

 @ 222, 185 BTNBMP oBtn3 FILENAME "DLG_NO.bmp" ;
      PROMPT "Annulla..." SIZE 45,18 LEFT PIXEL OF oDlg ;
       ACTION ( oDlg:end( IDCANCEL ) )



   Activate dialog oDlg ;
   on init ( oBtn1:SetThemed( .t. ),;
             oBtn2:SetThemed( .t. ),;
             oBtn3:SetThemed( .t. ),;
             oBtn2:SetThemed( .t. ))

   Return nil

   //-----------------------------------------------//
Function Dummy()
  RETURN NI