I tried the buttons possibility for Windows Seven on fwh until 14.09 Release
and I have this problem
Only the normal buttons seem reliable
On ButtonBmp the text are near to the bitmaps
On ribbon buttons have the gradient only when the user put the mouse over
On Btnbmp the border is not draw best and sometime eat the text
We have others possibilities on fwh ?
But I was trying to improve the aesthetics of my application by inserting buttons with images for a better impact to the end user
this is the code of my test
and I have this problem
Only the normal buttons seem reliable
On ButtonBmp the text are near to the bitmaps
On ribbon buttons have the gradient only when the user put the mouse over
On Btnbmp the border is not draw best and sometime eat the text
We have others possibilities on fwh ?
But I was trying to improve the aesthetics of my application by inserting buttons with images for a better impact to the end user
this is the code of my test
#include "Fivewin.ch"
#include "constant.ch"
#include "ribbon.ch"
#define LIGHTBLUE nRGB( 89, 135, 214 )
#define LIGHTCYAN nRGB( 203, 225, 252 )
Function Test()
Local oDlg
Local oBtnConfirm,oBtnHelp,oBtnExit
Local nBottom := 32
Local nRight := 52
Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight := nBottom * DLG_CHARPIX_H
Local bClrGrad := { | lPressed | If( ! lPressed,;
{ { 1, nRGB( 253, 254, 255 ), nRGB( 179, 217, 255 ) } },;
{ { 1, nRGB( 179, 217, 255 ), nRGB( 253, 254, 255 ) } } ) }
Local oCursorBtn:=TCursor():New(,'HAND')
Local oBtnNorm[3] // Normal Buttons
Local oBtnBmpP[3] // Buttonbmp
Local oBtnRib[3] // Ribbon button
Local oBtnBmp[3] // button Btnbmp
Local cTxtHelp := "&Aiuto"
Local cTxtConfirm:= "&Conferma"
Local cTxtExit := "&Annulla"
Local _SizeX:= 45
Local _SizeY:= 12
DEFINE DIALOG oDlg ;
SIZE nWidth, nHeight;
TITLE 'Test Buttons on Windows Seven' PIXEL ;
GRADIENT { { 1,CLR_WHITE, LIGHTCYAN } } ;
STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION, 4 )
// NORMAL BUTTONS
@ 18, 2 BUTTON oBtnNorm[1] PROMPT cTxtHelp SIZE _SizeX,_SizeY PIXEL ;
ACTION NIL
@ 18, 84 BUTTON oBtnNorm[2] PROMPT cTxtConfirm SIZE _SizeX,_SizeY PIXEL ;
ACTION NIL
@ 18, 150 BUTTON oBtnNorm[3] PROMPT cTxtExit SIZE _SizeX,_SizeY PIXEL ;
ACTION oDlg:end()
For n= 1 to 3
oBtnNorm[n]:oCursor := oCursorBtn
next
// buttonbmp
@ 108, 2 BUTTONBMP oBtnBmpP[1] PROMPT cTxtHelp BITMAP "DLG_HLP" SIZE _SizeX,_SizeY PIXEL ;
TEXTRIGHT ACTION NIL
@ 108, 84 BUTTONBMP oBtnBmpP[2] PROMPT cTxtConfirm BITMAP "DLG_OK" SIZE _SizeX,_SizeY PIXEL ;
TEXTRIGHT ACTION NIL
@ 108, 150 BUTTONBMP oBtnBmpP[3] PROMPT cTxtExit BITMAP "DLG_NO" SIZE _SizeX,_SizeY PIXEL ;
TEXTRIGHT ACTION oDlg:end()
For n= 1 to 3
oBtnBmpP[n]:oCursor := oCursorBtn
next
// ribbon buttons
@ 160, 2 RBBTN oBtnRib[1] PROMPT cTxtHelp BITMAP "DLG_HLP" SIZE _SizeX,_SizeY ;
GRADIANT bClrGrad BORDER LEFT ACTION NIL
oBtnRib[1]:oCursor := oCursorBtn
@ 160, 84 RBBTN oBtnRib[2] PROMPT cTxtConfirm BITMAP "DLG_OK" SIZE _SizeX,_SizeY ;
GRADIANT bClrGrad BORDER LEFT ACTION NIL
oBtnRib[2]:oCursor := oCursorBtn
@ 160, 150 RBBTN oBtnRib[3] PROMPT cTxtExit BITMAP "DLG_NO" SIZE _SizeX,_SizeY ;
GRADIANT bClrGrad BORDER LEFT ACTION oDlg:end()
oBtnRib[3]:oCursor := oCursorBtn
//btnbmp
@ 225, 2 BTNBMP oBtnBmp[1] PROMPT cTxtHelp RESOURCE "DLG_HLP" SIZE _SizeX,_SizeY ;
LEFT NOBORDER ACTION NIL
@ 225, 84 BTNBMP oBtnBmp[2] PROMPT cTxtConfirm RESOURCE "DLG_OK" SIZE _SizeX,_SizeY ;
LEFT NOBORDER ACTION NIL
@ 225, 150 BTNBMP oBtnBmp[3] PROMPT cTxtExit RESOURCE "DLG_NO" SIZE _SizeX,_SizeY ;
LEFT NOBORDER ACTION oDlg:end()
For n= 1 to 3
oBtnBmp[n]:bClrGrad = bClrGrad
oBtnBmp[n]:oCursor := oCursorBtn
next
ACTIVATE DIALOG oDlg centerSince from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 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
I use : FiveWin for Harbour March-April 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
