FiveTech Software tech support forums

... || oLbx:Status:Value() }       :Status:bStrData  := { || "" }      :Status:bOnPreEdit := { |o| o:oEditLbx:aBitMaps := { "FlagGreen", "FlagRed", "FlagYel", "FlagGray", "FlagBlack", "FlagBlue" ...

Reinaldo

The list box might work like Edit_Get_button ..

Rick Lipkin

Code: Select all  Expand view

   :aCols[ 1 ]:addbmpfile( "adddbf.bmp" )  // from resource .. or give path name to file
 

Hi everyone! On an TxbrwColumn object when nEditType is EDIT_LISTBOX, oEditLbx object of class TListBox is created but I don't see how to set aBitmaps property. Is there way to show the listbox with bitmaps? WITH OBJECT oBrw    :aCols[ 1 ]:nEditType := EDIT_LISTBOX   :aCols[ 1 ]:aEditListTxt ...

... to text-mode and look for the defined Style. Include it like : @ 1,10 COMBOBOX oCombo1 var cCombo ITEMS aItems OF oDlg SIZE 100,60 PIXEL BITMAPS aBitMaps oCombo1:SetFont( oFont ) oCombo1:nStyle := nOr (CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | ...... | ...) Best Regards Uwe :lol:

... de mi sistema le asigno font y estas se quedaban en memoria lo soluciones corrigiendo el metodo Destroy() METHOD Destroy() INLINE AEval( ::aBitmaps, {| hBmp, nId | DeleteObject( hBmp[ BMP_HANDLE] ) } ), ; AEval( ::aBrightBmp, {| hBmp, nId | DeleteObject( hBmp ) } ), ::oFont:End() , Super:Destroy() ...

Hola,

are there the way to define a dblclick codeblock to the xbrowse column's bitmap,
some thing like oBrw:aCols[1]:aBitmaps[1,1]:bLDblClick := {...} this not work because we don't have the bitmap object only the handle, or are there the possibility to have the object from handle?

saludos

Marcelo

... @ 5, 4 FOLDEREX oFld ITEMS cSay_FLD1,; cSay_FLD2,; cSay_FLD3,; cSay_FLD4,; cSay_FLD5,; cSay_FLD6,; cSay_FLD7,; cSay_FLD8,; cSay_FLD9; BITMAPS aBitmaps; OF oDlg SIZE 210, 185 PIXEL ADJUST ANIMATE SPEED 50 @ 3,5 LISTBOX oLbx4 VAR cVar ITEMS aFiles SIZE 190,120 PIXEL OF oFld:aDialogs[4] @120, ...

... #include "FiveWin.ch" //----------------------------------------------------------------------------// CLASS TRtfArch DATA hArch DATA aBitmaps DATA cArchName METHOD New( cArchName ) CONSTRUCTOR METHOD EsParr() INLINE FWrite( ::hArch, "\par "+ CRLF ) METHOD EsLine( cLong ) ...

Hola. Tengo una serie de bitmaps en un archivo .rc y xbrowse no me los muestra. Los defino de la siguiente manera: local aBitmaps[5] aBitmaps[ 1 ] := LoadBitMap( GetResources(), "ON") aBitmaps[ 2 ] := LoadBitMap( GetResources(), "OFF") aBitmaps[ 3 ] := LoadBitMap( ...

... este creado 2- verifca que el nombre del recuerso sea correcto 3- verifica que tengas un handle valido en el array de bitmap de la columna ( :aBitmaps[ 1 ][ 1 ] ) 4- si falla lo anterior, intenta agregar la imagen desde un archivo y no desde recurso 5- si falla que version estas usando de ...

... pero en su tiempo los publique * Nuevo: En la clase TXBrowse, nuevo DATA nBtnBmp para seleccionar el índice de mapa de bits en la matriz oCol:aBitmaps por lo que la imagen del botón se puede cambiar, cuando se usan estos estilos de edición: EDIT_LISTBOX, EDIT_BUTTON, EDIT_GET_LISTBOX y EDIT_GET_BUTTON. ...

... Icon to Bitmap, i dont remember, but i think you can not use TYPE_IMAGE for this you can use the converted handle ( hicon to hbitmap ) and add in aBitmaps ( Column Bitmaps array ) with AddBmpHandle i show a sample... (include BmpFromIcon function ) #include "fivewin.ch"#include "xbrowse.ch"Function ...

... TCDrawCell( hWnd, hDC, ; nRowPos, nStartCol, If( nJ < nLastCol, aColSizes[ nJ ], -1), ; if( cPicture == nil, ; If( lBitMap, If( ! Empty( ::aBitmaps ),; ::aBitmaps[ uData ], uData ), ; cValToChar( Eval( oColumn:bData ) ) ), ; Transform( uData, cPicture ) ), ; oColumn:nAlign, ; nClrFore, ...

Falconi,

aBitmaps in your example code is not an array of bitmaps, it is an array of strings. You need to load aBitmaps with bitmaps.

Regards,
James

How show a combo box into sbuttonbar ?
DEFINE SBUTTONBAR oBar OF oDlg SIZE 80, 80 3D OFFICE

@ 2, 2 COMBOBOX oItems VAR nItem ITEMS aItems BITMAPS aBitmaps of oBar SIZE 100, 100



It now show the right dimension of bitmaps