FiveTech Software tech support forums

... [code]#include "FiveWin.ch" function Main() local oWnd, oLvw, nOption := 1, oImageList DEFINE WINDOW oWnd TITLE "ListView Test" DEFINE IMAGELIST oImageList SIZE 32, 32 oImageList:AddIcon( "console" ) oImageList:AddIcon( ...

... ( ::oWnd:oIcon := nil ,; ::oFont:End() ,; ::oCursor:End() ,; ::oMeta1:End() ,; ::oMeta2:End() ,; ::oDevice:End() ,; ::oHand:End() ,; If( Empty( ::oImageList ),, ( ::oImageList:End(), ::oImageList := nil ) ),; If( ! Empty( ::oImageListPages ), ::oImageListPages:End(),),; ::oWnd := nil ,; ::oDevice:oPreview ...

... Static aSelected := {} Static oTree //----------------------------------------------------------------------------// Function Main() local oDlg, oImageList, n, ncargo local oBtt2 local oFnt DEFINE FONT oFnt NAME "Calibri" SIZE 0, -16 DEFINE DIALOG oDlg TITLE "Tipos de Servicios" ...

para atualizar o menu faço assim:
oWnd:setmenu( MenuPrincipal() )
oWnd:Refresh()

pergunta, como faço para atualizar TOOLBAR ?
ex: DEFINE TOOLBAR oToolBar OF oWnd SIZE 50, 58 IMAGELIST oImageList BALLOON
??

... obl1:odlg:obar:AEVALwhen() return FUNCTION eng0504(itemid1,version1,ctable1,ctable2) local oWnd1, oTree, oBmp1, oBmp2, odb1 // private oImageList if ctable1==nil ctable1:="bom1" end if ctable2==nil ctable2:="bom2" end DEFINE WINDOW oWnd1 FROM 3, 0 TO 30, 120 ; TITLE ...

Thank You, Antonio ! Work normally

Class TImageList Method Add() expects a Class TBitmap object and not a bitmap handle

Try it this way:

TTreeview: oImageList:Add( TBitmap():Define( ,, oWnd, img ), oWnd )

Hi, all ! There is a TTreeview object. It contains a set of files of different types. I need to add icons associated with the file type to ::oImageList. I do this: img=BmpFromIcon( EXTRACTASSICON (0, MyFile, @sol)) - handle bitmap TTreeview: oImageList:Add(img, NIL) But get the error: Class ...

... Now fopr save the image of the file into listview I made: nImage := Icon_Read(cFile) nImage := max(0,ILADDICON( oImageList:hImageList, nImage ) ) oItem = TListViewItem():New( oList ) oItem:cText = cFile oItem:nImage = nImage oItem:Create() but I save only the ...

Local oImageList, oReBar,oHand Local nColore_ToolBar:= RGB( 244, 245, 245 ) //2015... DEFINE CURSOR oHand HAND DEFINE IMAGELIST oImageList SIZE 32,30 oImageList:AddMasked( TBitmap():Define( "TOOLBAR_ESERCIZI",, ::oWndMain ...

... the background of the button but I cannot modify the color od the rebar http://www.eoeo.it/wp-content/uploads/2016/01/toolbar.jpg oImageList:AddMasked( TBitmap():Define( "TOOLBAR_ESERCIZI",, ::oWndMain ), RGB( 244, 245, 245 ) ) any solution ? Silvio, style 2015 in oBar ...

... the background of the button but I cannot modify the color od the rebar http://www.eoeo.it/wp-content/uploads/2016/01/toolbar.jpg oImageList:AddMasked( TBitmap():Define( "TOOLBAR_ESERCIZI",, ::oWndMain ), RGB( 244, 245, 245 ) ) any solution ?

Hello,
I am adding a listView in our program, and I see that the ImageList is always created at 24bit with alpha, but I want add 32bit icons.
Now I change oImageList:hImageList with one created with ILC_COLOR32.
Here the difference:

Regards,
Perry

... DIALOG..oDlgLook. nColore_ToolBar := LIGHTCYAN Create_ImageList(nColore_ToolBar) ....ACTIVATE DIALOG oDlgLook CENTER; ON INIT BtnBarLook(oImageList) RETUR NIL //---------------------------------------------------------------------------------// Function Create_ImageList(nColore_ToolBar) ...

me parece que ::oWnd : NIL debe se la ultima linea antes del true final. ::oImageList es un objeto que por lo general esta asociado a un hWnd, y pienso en este caso que debe estar usando el oWnd:hWnd , y al ser oWnd ya nil, puede reventar.       VALID        ( ...