FiveTech Software tech support forums

... edita la clase TRBTN.PRG, y modifica lo que te indico

METHOD LButtonUp( nRow, nCol ) CLASS TRBtn

.../...

// Modified to handle Codeblock as oPopup 2014-10-10
if oWnd:oPopup == nil
oWnd:oPopup = XEval( ::oPopup, Self )
oWnd:oPopup:Activate( ::nTop + ::nHeight(), ::nLeft, oWnd, .F ...

... y ahi puedes reproducir el error

FW24.09 Borland 770

quedo atento

#include "FiveWin.ch"
#include "Ribbon.ch"

function Main()

local oDlg, oPopup, oBtn

DEFINE DIALOG oDlg RESOURCE "Test"

REDEFINE RBBTN oBtn ID 100 OF oDlg SPLITPOPUP ;
MENU BuildPopup() ROUND ACTION MsgInfo( "click ...

... CENTER> ] ;
[ <type: NORMAL, POPUP, SPLITPOPUP, SAYBUTTON> ] ;
[ <lGrouping: GROUPBUTTON> [<lFirstElm: FIRST>][ <lEndElm: END> ] ];
[ MENU <oPopup> ];
[ MESSAGE <cMsg> ] ;
[ TOOLTIP <cToolTip> ];
[ FONT <oFont> ];
[ <lTrans: TRANSPARENT> ];
[ GRADIANT <aGradiant> ];
[ LINECOLORS ...

... lBmpTransparent` | Logical | Indicates if the bitmap is transparent. |
| `oFontBold` | Object | Bold font object for the button text. |
| `oPopup` | Object | Popup menu associated with the button. |
| `nLayout` | Numeric | Layout type for the button (top, left, bottom, right, center ...

Joao muchas gracias

Funciona de esta manera

aBtn1[X]:oPopUp := { |oBtn| MenuPop( oBtn, oDlgm,aBtn1,aTestData,oBrw ) }

Gracias

Hello,
That was just a suggestion.
Here we need new data variables.

Then everyone can load the ICON they want.

Again, it should only serve as a suggestion to extend the class.

It's like comparing apples and oranges to modify a class for personal use or to make it universally applicable. I can ...

I agree with Silvio, it wasn't good.

Estoy de acuerdo con Silvio, no fue bueno.

Regards, saludos.

... 30, ::nWidth-25, ::nHeight - 10, ::nWidth-5}, .t. )

for me it's no good

perhaps...

data hBmpPop

on METHOD Paint() CLASS TBtnBmp

if ::oPopup != nil
if ::hBmpPop != 0
DrawBitmap( ::hDC, ::hBmpPop, aRect[1]+5, aRect[4]-15 )
else
::PaintPopupSection()
endif
endif


instead of

if ...

Dear Otto,

thank you for sharing it

... METHOD PaintPopupSection() CLASS TBtnBmp

local nWidth, nHeight, hDC
local hBlackBrush, hOldBrush
local hDarkPen, hLightPen, hOldPen


if ::oPopup != nil
nHeight = ::nHeight
nWidth = ::nWidth
hDC = ::hDC


hBlackBrush = GetStockObject( 4 ) //4
hOldBrush = SelectObject( hDC, hBlackBrush ...

Antonio
btnbmp.prg the files is too big the forum will not accept it,
I'll send it to your mail
Maurizio

Antonio Linares wrote:Dear Silvio,

Thats why I asked Maurizio to post the complete PRG

I asked now via private mail ...same question

Dear Silvio,

Thats why I asked Maurizio to post the complete PRG

... POPWIDTH 30 //12
new variable in line 129
DATA nWide_P
set variable line 325
::nWide_P := 22
and line 503
::nWide_P := 22
Line 525
If( oPopup != nil, ::nWide_P, 0 ) //// My_modi If( oPopup != nil, 13, 0 )
Line 578
//::oWnd:nWidth := ::oWnd:nBtnWidth + If( ::oWnd:l3D, 3, 1 ) + 13 + 1 ...

Dear Maurizio,

good morning

would you mind to post the complete PRG here ?

many thanks