Icons in column xBrowse

[Natter]

Hi, all !

In column xBrowse displays the icons in the format .ICO. If the program is compiled under FW1603, those icons are visible. If the program is compiled under FW1610, icons format .ICO is not visible. You have to use the icons in another format (e.g. BMP)

[Natter]

So xBrwose in FWH1610 does not support viewing of images in format .ICO ?

[Antonio Linares]

We are checking it

We will provide you an answer asap, thanks

[nageswaragunupudi]

In our tests here icons also are displayed.

test program:

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oDlg, oFont, oBrw
   local aBmp  := { "c:\fwh\bitmaps\attach.bmp", "c:\fwh\bitmaps\fivetech3.bmp", ;
                    "c:\fwh\icons\books.ico", "c:\fwh\icons\calendar.ico", ;
                    "c:\fwh\bitmaps\open.bmp", "c:\fwh\icons\hires\cd.ico" }

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-13
   DEFINE DIALOG oDlg SIZE 400,400 PIXEL TRUEPIXEL FONT oFont TITLE FWVERSION

   @ 20, 20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE aBmp COLUMNS 1 CELL LINES NOBORDER

   WITH OBJECT oBrw
      WITH OBJECT :aCols[ 1 ]
         :AddBitmap( aBmp )
         :bBmpData   := { || oBrw:KeyNo }
      END
      WITH OBJECT :AddCol()
         :bStrImage  := { || oBrw:aRow }
         :nWidth     := 50
         :lBmpTransparent  := .t.
      END
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil
 

Are there any particula ICO files that are not being displayed? Can you provide a sample with the ICOs that you are having problem with?

[Natter]

Thanks for the reply

If column show the link to the file icons .ICO, then everything is fine. If show icons ICO from resource (.rc file), the icon is not visible

[nageswaragunupudi]

Mr Natter

You are right and we regret the inconvenience.

While we are fixing the problem in FWH 16.11 to be released soon, we request you to please make the following modification in
\fwh\source\function\imgtxtio.prg ( of version 16.10)

Please find this line in function hBmpFromIcoFile at line 663

Code: Select all  Expand view

     hIcon := LoadImageResIcon( cIcoFile )

Please modify this line as

Code: Select all  Expand view

     hIcon := LoadImageResIcon( GetResources(), cIcoFile )