btnbmp style win10

Re: btnbmp style win10

Postby Silvio.Falconi » Thu Feb 15, 2018 11:07 am

I wish only the btnbmp as button on win10
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7035
Joined: Thu Oct 18, 2012 7:17 pm

Re: btnbmp style win10

Postby Antonio Linares » Thu Feb 15, 2018 7:27 pm

Silvio,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: btnbmp style win10

Postby Silvio.Falconi » Wed Feb 21, 2018 5:58 pm

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

Image

see on zoom

Image

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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7035
Joined: Thu Oct 18, 2012 7:17 pm

Previous

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 44 guests