xBrowse from resource, how to select Alpha-Bld.-BMP ?

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

xBrowse from resource, how to select Alpha-Bld.-BMP ?
Posted: Wed Sep 16, 2009 10:23 AM

Hello,

I use a Xbrowser from Resources to select Bmp's.
All Types of BMP's I can select, but not Alpa-Blended. Choosing a Alpha-BMP, I get a Error.
From this Line :
oLbx70:aCols[ 2 ]:bAlphaLevel := { | o | o:aRow[ 3 ] }
The same defined in Sample : xbalpha.prg ( from Source )
oBrw:aCols[ 1 ]:bAlphaLevel := { | o | o:aRow[ 3 ] }

Deleting the Line < bAlphaLevel >, it works.

From Source it works : /samples/xbalpha.prg

Working with Resources :

Code (fw): Select all Collapse

...
oLbx70 := TXBrowse():New( oFld:aDialogs[3] )
REDEFINE XBROWSE oLbx70 ID 260  ;
HEADERS "Size", "Bmp","File" ;
OF oFld:aDialogs[3] ;
ARRAY aPICTURES AUTOCOLS FASTEDIT

oLbx70:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbx70:nColDividerStyle := LINESTYLE_BLACK
oLbx70:nRowDividerStyle := LINESTYLE_BLACK

oLbx70:bClrSelFocus = { || { 0, 16777215 } } 
oLbx70:bClrSel = { || { 0, 10853885 } } 
oLbx70:nRecSelColor = 15512898 

oLbx70:lHScroll := .F.
oLbx70:lVScroll := .T.
oLbx70:lFooter := .T.
oLbx70:nRowHeight := 35
oLbx70:nFooterHeight := 7

oLbx70:SetBackGround( oBrush1 )

oLbx70:aCols[ 2 ]:nWidth := 50
oLbx70:aCols[ 2 ]:nEditType := TYPE_IMAGE
oLbx70:aCols[ 2 ]:lBmpStretch := .f.
oLbx70:aCols[ 2 ]:lBmpTransparent := .t.
oLbx70:aCols[ 2 ]:bStrImage := {|oCol, oLbx70| oLbx70:aRow[ 3 ] }
oLbx70:aCols[ 2 ]:nDataBmpAlign := AL_CENTER
oLbx70:aCols[ 2 ]:bPopUp := { | o | ColMenu( o ) } 
oLbx70:aCols[ 2 ]:bAlphaLevel := { | o | o:oLbx70:aRow[ 3 ] }

oLbx70:aCols[ 3 ]:nWidth := 310
oLbx70:aCols[ 3 ]:nEditType := EDIT_BUTTON
oLbx70:aCols[ 3 ]:bEditBlock := {|nRow, nCol, oCol| oCol:Value := GET_BMP(oLbx70:nArrayAt)}
 
oLbx70:bLostFocus := { || CHANGE_BMP( oFld ) }

Application
===========
Path and name: E:\T_SKINS\btnskins.exe (32 bits)
Size: 2,054,656 bytes
Time from start: 0 hours 1 mins 45 secs
Error occurred at: 09/16/09, 12:13:05
Error description: Warning BASE/1004 Message not found: TXBRWCOLUMN:OLBX70
Args:

Stack Calls
===========
Called from: source\rtl\tobject.prg => TXBRWCOLUMN:ERROR(172)
Called from: source\rtl\tobject.prg => TXBRWCOLUMN:MSGNOTFOUND(205)
Called from: source\rtl\tobject.prg => TXBRWCOLUMN:OLBX70(0)
Called from: .\btnskins.PRG => (b)FOLDER_3(2085)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:NALPHALEVEL(7535)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(8455)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1325)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(982)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1422)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(9914)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(343)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: source\rtl\tobject.prg => TXBRWCOLUMN:ERROR(172)
Called from: source\rtl\tobject.prg => TXBRWCOLUMN:MSGNOTFOUND(205)
Called from: source\rtl\tobject.prg => TXBRWCOLUMN:OLBX70(0)
Called from: .\btnskins.PRG => (b)FOLDER_3(2085)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:NALPHALEVEL(7535)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(8455)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DRAWLINE(1491)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:POSTEDIT(9548)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:RUNBTNACTION(9464)
Called from: .\source\classes\XBROWSE.PRG => (b)TXBRWCOLUMN:CREATEBUTTONS(8973)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(447)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(657)

Best Regards
Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

FiveTech Support Forums

Continue the discussion