topic-17488

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

bitmap en Folder
Posted: Fri Nov 27, 2009 04:32 PM

Compañeros:

quiero añadir un bitmap en cada solapa de un folder. Estuve revisando en sample y otros Post pero no me aclaran nada.

Utilizo FWH8.02 y xHarbour

Mi codigo es:

Code (fw): Select all Collapse

   redefine folder ofol of Oge id 144 prompt '    Propuestas    ','    Adaptaciones    ','    Reparaciones    ' dialogs "gestor1","gestor2","gestor3"

Y quiero añadirle los bitmap siguientes:
"PRESUPU16","CASH16","RECOMPILAR16"

Mil gracias.
LORENZO.

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: bitmap en Folder
Posted: Fri Nov 27, 2009 09:26 PM

Yo lo hago de la siguiente manera..

Code (fw): Select all Collapse

ACTIVATE DIALOG oDlg CENTERED ON INIT;
 (SetImages( oDlg, { ;
    "venta.bmp",;
    "accesorio.bmp",;
    "tramites.bmp",;
    "comentario.bmp",;
    "fpago.bmp",;
    "vtavhi.bmp",;
    "cuotas.bmp",;
    "contrato.bmp"          ;
    } , oFolder ) )

function SetImages( oDlg, aImg, oFld )
   local oImageList, i

   DEFINE IMAGELIST oImageList SIZE 16, 16

    for i := 1 to len( aImg ))
        oImageList:AddMasked( TBitmap():Define( ,"IMAGEN\"+aImg[i],oDlg ), nRGB( 192, 192, 192 ) )
    next i

   oFld:SetImageList( oImageList )

return nil

espero que te sirva

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

FiveTech Support Forums

Continue the discussion