bb.donnay-software.com

Hello roger
In DCPUSHBUTTONXP there is an error if you use ** oConfig: mouseOverScale: = 1.25 & & & 1.2 1.1

Attached is the error

Nolberto Paulino
Regards

I cannot reproduce this error.

Can you give me a sample program?

aCaptions := { { "Prueba" , GRA_CLR_BLUE , 20,02,,,,'10.Arial Bold',,}, ;
{ DC_GetBitMap(SALIR_ON), , 03,35,29,58,,,,.T.,.T.}, ;
{ "Esc" , GRA_CLR_BLACK, 60,02,,,,'11.Arial Bold',.F.,} }
aConfig := (aConfigXp)


@ nRow, nCol DCPUSHBUTTONXP CAPTIONARRAY aCaptions ;
SIZE nWidth+0.6, nHeight+0.1 ;
ACCELKEY nAccelKey ;
ACTION bAction ;
WHEN bWhen ;
HIDE bHide ;
CONFIG aConfig ;
TOOLTIP cToolTip ;
PARENT oParentObj ;
OBJECT oObject ;
EDITPROTEC bEditProtec ;
MESSAGE cMessage INTO cMessageObj



FUNCTION aConfigXp( nRadius )
local oConfig := DC_XbpPushButtonXPConfig():new()
DEFAULT nRadius := 7

oConfig:focusRectStyle := 4
oConfig:bitmapOffset := 1
oConfig:fgColorMouse := GraMakeRGBColor({0,0,0})
oConfig:bgColorMouse := GraMakeRGBColor({255,204,102})
oConfig:bgColorClick := GraMakeRGBColor({255,204,102})
oConfig:bgColor := GraMakeRGBColor({205,235,235})

** oConfig:disabledfgcolor := GraMakeRGBColor({192,192,192})
** oConfig:disabledbgcolor := GraMakeRGBColor({192,192,192})

oConfig:borderColor := GraMakeRGBColor({180,180,180})
oConfig:gradientStep := 6
oConfig:gradientstyle := 2
oConfig:gradientReverse := .T.
oConfig:radius := nRadius
oConfig:outline := .T.
oConfig:font := '11.Arial Bold'
oConfig:mouseOverFont := '12.Arial Bold'
** oConfig:mouseOverScale := 1.05 Thi is Error
oConfig:bitmapScale := 1.0

** oConfig:isTransparent := .T.
oConfig:shadowType := 1
return oConfig

I cannot compile that code.

Since the test is made
only has to pass the mouse on the Button that has the BitMap

Nolberto Paulino
Regards

Thanks Roger
I have solved the problem only had to assign. F. at position 12 of CaptionArray regards Resize

** 1 2 3 4 5 6 7 8 9 10 11 12 13 14
aCaptions := { { DC_GetBitMap(aCaption[02]), , 03,(nWidth*5)-09,29,(nWidth*5)+18, , , , ,.F., , , },; &&&,,,,.T.,.T.}, ;
{ aCaption[01] , GRA_CLR_BLUE , 20,02 , ,,,'10.Arial Bold',,}, ;
{ aCaption[03] , GRA_CLR_BLACK, 60,02 , ,,,'11.Arial Bold',,} }

this (.f.) seems to be pos 11 - is it?

Exactly in position 11 of Caprionarray you have to put .F.

Nolberto Paulino

I don't understand. Your caption array should have no more than 8 elements per caption item.

CAPTIONARRAY <aCaptions> is an array of captions. This argument is
used in lieu of the CAPTION and BITMAP clauses above. Each subarray
in the array has the following structure:

Element Type Description
------- ------ --------------------------------------------------
[1] C/O Caption string or Bitmap object
[2] N Foreground color
[3] N Start Row, in pixels from top
[4] N Start Column, in pixels from top
[5] N End Row, in pixels from top (bitmap only)
[6] N End Column, in pixels from top (bitmap only)
[7] N Alignment. XBALIGN_* from XBP.CH.
[8] C Font compound name or Font object (caption only)

Just started with DCPUSHBUTTONXP and works well with MODAL but
not DCDIALOG?
If I move the mouse ower the pusbuttonXP the shows but
not on startup. What I'm doing wrong??
Best reards
Kari

STATIC FUNCTION XbpButt(oApp,lDialogWindow)
local oDlgWindow,oDlg,cAlfa:=' ',oConfig:=Init_Buttons()
local Getlist:={}
if lDialogWindow
@ 0,0 DCDIALOG oDlgWindow DRAWINGAREA oDlg SIZE 100,30 TITLE 'TEST'
endif
@ 15,10 DCSAY 'DCPUSHBUTTOM' PARENT oDlg
@ 15,30 DCPUSHBUTTONXP CAPTION "Hallo" SIZE 10,1 CONFIG oConfig;
PARENT oDlg
@ 16,30 DCPUSHBUTTONXP BITMAP('clock.bmp') SIZE 6.5,2 CONFIG oConfig;
parent oDlg
@ 18,10 DCPUSHBUTTON CAPTION '&Close' SIZE 10,1 PARENT oDlg;
ACTION {||DC_ReadGuiEvent(DCGUI_EXIT_ABORT,getlist)}
if lDialogWindow
DCREAD GUI PARENT oApp EVAL {|o|SetAppFocus(o)}
oDlgWindow:destroy()
else
DCREAD GUI MODAL TITLE 'Test'
endif
RETURN(.T.)
STATIC FUNCTION Init_Buttons
Local oConfig
oConfig := DC_XbpPushButtonXPConfig():new()
oConfig:bitmapOffset := 10
oConfig:bitmapScale := 1.0
oConfig:fgColorMouse := COLOR_BLACK
oConfig:bgColorMouse := COLOR_SLATEGRAY
oConfig:fgColor := COLOR_BLACK
oConfig:bgColor := COLOR_SILVER
oConfig:fgColorSelected := COLOR_BLACK
oConfig:bgColorSelected := COLOR_ICEGREEN
oConfig:fgColorClick := COLOR_BLACK
oConfig:bgColorClick := COLOR_CYAN
oConfig:gradientStep := 6
oConfig:gradientReverse := .T.
oConfig:radius := 7
oConfig:outline := .T.
oConfig:font := '10.Arial'
oConfig:mouseOverFont := '14.Arial Bold'
oConfig:mouseOverScale := 1.00
oConfig:borderColor := COLOR_BLUE
oConfig:shadowType := 6
RETURN(oConfig)