FiveTech Software tech support forums

... } olbx101c:acols[4]:nEditType:=EDIT_GET_LISTBOX olbx101c:aCols[4]:addbmpfile("\QASVE\config\bmp\BUSCAR16X16.bmp") oLbx101c:aCols[4]:lBtnTransparent := .t. olbx101c:aCols[4]:nBtnBmp := 1 olbx101c:aCols[4]:nDataBmpAlign := AL_CENTER //olbx101c:acols[4]:bEditWhen:= { || olbx101c:aArrayData[olbx101c:nArrayAt][5]="T" ...

... OF oBar ; BITMAP "ELIMINA" ACTION (cSeek := Space( 100 ),; oBrw:Seek( "" ),oBrw:refresh(),oGetSearch:refresh()) oGetSearch:lBtnTransparent :=.t. @ 1.2, 200 COMBOBOX oBrw:oSortCbx VAR oBrw:cSortOrder; SIZE 100,400 PIXEL OF oBar HEIGHTGET 14 STYLE CBS_DROPDOWN If it is possible ...

...                         aGet[1]:oBtn:Hide())      aGet[1]:lBtnTransparent := .T. Activate DIALOG oDLg centerRETURN NIL  I made also @ 10, 12 GET aGet[1] VAR cEmail ; BITMAP IIF(!Empty(cEMail),"mail.bmp",""); ...

... ; ACTION ( nBColorF := ChooseColor( nBColorF ), oCGet[2]:SetColor( , nBColorF ) ) ; COLOR CLR_BLACK, nBColorF of oDlg2 oCGet[2]:lBtnTransparent := .T. regards Uwe :D

to inser on a column a calenda I made WITH OBJECT oBrowse:aCols[ 7] :AddBitmap( "INVOICE_CALENDARIO") :nBtnBmp := 1 :lBtnTransparent := .t. * :lBmpStretch := .f. :nwidth := 120 :nDataStrAlign := AL_CENTER :nHeadStrAlign := AL_CENTER :nDataStrAlign := oBrowse:aCols[ 7]:DefStyle(AL_LEFT,.f.) ...

... If( oCust:Deleted(), CLR_HRED, nXBrText ), nXBrColor } } // a defined button :aCols[ 6 ]:addbmpfile( c_Path1 + "Plus.png" ) :aCols[ 6 ]:lBtnTransparent := .t. :aCols[ 6 ]:nBtnBmp := 1 :aCols[ 6 ]:nEditType := EDIT_BUTTON :aCols[ 6 ]:bEditBlock := { | nRow, nCol, oCol, nKey | ; MsgAlert( ...

... op:bmp16+"eye.bmp" ) :nBtnBmp := 1 :nEditType := EDIT_BUTTON :bEditBlock := {|| VerItems( cCodigo,cQry:tipo,cQry:ord_comp )} :lBtnTransparent := .t. :lBmpStretch := .t. END */ he tenido que solucionarlo usando :aCols[01]:bLDClickData := { || VerItems( cCodigo,cQry:tipo,cQry:ord_comp ...

I use png file to make the button on a column ( but I tried also with a bmp) I use also :lBtnTransparent := .t. but I have this https://s31.postimg.cc/zctcx1isr/image.jpg WITH OBJECT oBrw:aCols[ 8]            :AddBmpFile(".\bitmaps\date.png")  ...

... := 1 :nwidth := 60 :nDataStrAlign := AL_CENTER :nHeadStrAlign := AL_CENTER :nEditType := EDIT_BUTTON :bEditBlock := { ||RES->QUANTITY++ } :lBtnTransparent := .t. :bEditWhen := { || oBrw:BookMark == 1 } END not run it add the quantity also the record number 1 I think ed something of :bEditWhen ...

oBrw:aCols[1]:AddResource('LUPA')
oBrw:aCols[1]:nBtnBmp := 1
oBrw:aCols[1]:lBtnTransparent:= .f.

... on focus gain/loose. * XBrowser: Browse size now fits exactly the existing rows. * XBrowse: - Improvement: Improved painting of buttons when oCol:lBtnTransparent := .t. - Fix: Pressing Ctrl-C or Ctrl-R when there is no vertical scroll bar raises a runtime error because of unnecessary code handling ...

... Get oGet1 var cCodigo picture '99999' id 101 of oDlg_0051 valid( val_0051() ) action( Eval( bLista01 ) ) Bitmap "Lupa2" update oGet1:lBtnTransparent := .t. oGet1:bKeyDown := { | nKey | if( nKey = VK_F2, Eval( bLista01 ), NIL ) } oGet1:cToolTip := 'Informe o número da Conta ' bLista01 ...

... from left to right, instead of right to left. * Enhancement: TPanel now inherits parent windows' font. * Fix: XBrowse: Fixed runtime error when lBtnTransparent is used when column background is gradient. * Enhancement: Class TScintilla has been greatly enhanced due to the development of samples\Fivedit.prg

Rao

YES !! I just rem'd out oLbxB3:aCols[ 6 ]:lBtnTransparent := .t. and it worked

Thanks
Rick Lipkin

It appears you are using gradient and set oCol:lBtnTranparent to .T.. For now as a temporary solution, set oCol:lBtnTransparent to .F. ( that is the default ). Please let us know if this is working well. We shall provide a better way of painting the transparent button even on gradients ...