FiveTech Software tech support forums

... #define WHITE_PEN 6 // add this on top METHOD PaintBorder() CLASS TBtnBmp local nAdjustBorder := 0 local nWidth, nAdj, oCli local nRound := If( ::lRound, ::nRound, 0 ) local hWhitePen, hGrayPen, hOldPen add these line 1752 //if ! ::lPressedif !   ::lMOver         hGrayPen  := CreatePen (PS_SOLID,1,::nClrBorder)  ...

Hola amigos, ¿es posible tener un BTNBMP que se muestre con los bordes redondeados?

Estoy haciendo pruebas con lRound:=.T. pero nada.



Gracias

... ; P6_AAAA->(DbSkip()) Enddo tX := 15 ; tY := 20 nX := 225 ; nY := 0 // Header @ 0,nY TITLE oBar_AA Size 480, 28 Of oMainWnd TRANSPARENT oBar_AA:lRound := .T. @ 10, nY TITLETEXT OF oBar_AA TEXT " Daily Analysis" COLOR 16711680 FONT oDash_F // Making Box @ 30, nY TITLE oBar_AA Size 150, ...

Günther, the pen-calculation-factor ( GdiPlus ) //New( nTrans, nRed, nGreen, nBlue, nSize, lRound, lAlign ) //nRed := nRGBRed( nColor ) //nGreen := nRGBGreen( nColor ) //nBlue := nRGBBlue( nColor ) oPen := Pen():New( 255, 0, 0, 255 , 8 , .T.) will show a 3 mm pen 1 mm ...

... bAction, oBar, lAdjust, bWhen, lUpdate,; cToolTip, cPrompt, oFont, cResName3,; cBmpFile3, lBorder , cLayout, cResName4, cBmpFile4, lTransparent,; lRound, bGradColors ) regards uwe :D

... WITH OBJECT oBtnPrint :bAction := dummy() :nClrBorder := nClrBorder :bColorMap := { | o | o:lBorder := o:lMOver, nCBorder } :oFontBold := oBold :lRound := .F. END SomeOne can help me please

... if ::lMOver .and. nTypeButton != 3 do case case nTypeButton == TYPE_NORMAL if ::lSelected GradientFill( ::hDC, 1, 1, ::nHeight, ::nWidth - If(::lRound,2,0), eval( ::bClrGradSelectPress, ::lPressed ) ) else //procl if ::lRound = .t. GradientFill( ::hDC, 1, 1, ::nHeight, ::nWidth - If(::lRound,2,0), ...

... two or more lines separated by CRLF, the first line is drawn with the oFontBold - Border is painited as roundbox in case of flatstyle even when :lRound is set to .f. Fixed. DATA nClrBorder can now be a codeblock also. - New sample w10btns.prg to demonstrate Windows 10 Setup screen buttons using ...

Enrico, Please help me to locate the error, I am very busy with EasyReport, sorry, thanks :-) Ok. lRound is .T. because the REDEFINE BTNBMP command instructs so (NOROUND clause set lRound to .F.). Solved adding clause NOROUND. Now it seems to work fine. There is one more ...

Antonio, Enrico, ok, thats what I told you: thst only using NOROUND was working fine. Now the question is: why lRound is set to .T. by default ? Try to set it .F. by default and then it should work fine. This prints .T. no matter how I set lRound (INIT and redefine method default). ...

Enrico,

ok, thats what I told you: thst only using NOROUND was working fine.

Now the question is: why lRound is set to .T. by default ?

Try to set it .F. by default and then it should work fine.

... If( ::lBorder, If( ::lBarBtn, 0, 3 ), 0 )   endif   if ::lMOver .and. ::lBoxSelect      if ! ::lRound .and. ! ::lEllipse         if ::l2007 .or. ::l2010            WndBox2007( ::hDC, nAdjustBorder, ...

... { { 0.20, 16763283, 16777215 }, ; { 0.20, 16777215, 16763283 } }, ; { { 0.20, 9934847, 16777215 }, ; { 0.20, 16777215, 9934847 } } ) } oSBtn[1]:lRound := .f. oSBtn[1]:lGraddirect := .F. // class-change needed for HORIZONTAL-gradient !!! oSBtn[1]:lTransparent := .t. oSBtn[1]:cToolTip = { "Select ...

... NO_SHADOW 0x00 // UP_LEFT_SHADOW 0x01 // UP_RIGHT_SHADOW 0x02 // DOWN_LEFT_SHADOW 0x03 // DOWN_RIGHT_SHADOW 0x04 oTitle:lTransparent := .F. oTitle:lRound := .F. oTitle:lVertical := .T. oTitle:nClrLine1 := RGB( 141, 178, 227 ) oTitle:nClrLine2 := RGB( 237, 242, 248 ) oTitle:Refresh() // some NEW ...

... ClrBack, // lMouseOver, lOpaque, hBrush, nRows, lW97, // lAdjust, lMenu, lMenuPress, lFocused, // nShape, lBorder, lBox, nClip, nClrTo, lHorz, lRound ) #else HARBOUR HB_FUN_SBTNPAINT( PARAMS ) #endif Muchas Gracias. Jorge Jaurena