I wish only the btnbmp as button on win10
Silvio,
It seems as with FWH 18.01 you have the effect that you are looking for
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
#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