::lTransparent desde recursos

Post Reply
User avatar
Carles
Posts: 937
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Contact:

::lTransparent desde recursos

Post by Carles »

Hola a todos,

La clausula ::lTransparent, no funciona con bmp en recursos.

Code: Select all

// Using bitmaps from resources

#include "FWCE.ch"

function Main()

   local oWnd, oBmp, oBmp2

   DEFINE WINDOW oWnd TITLE "Bmp-Res"

   @ 5, 5 BITMAP oBmp FILENAME CURDIR() + "\users.bmp" NOBORDER

   oBmp:lTransparent = .t.

   @ 8, 5 BITMAP oBmp2 NAME "users" NOBORDER

   oBmp2:lTransparent = .t.


   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "click!" )

return nil

Alguna solucion ?

Saludos.
C.
User avatar
jlcapel
Posts: 229
Joined: Wed Oct 12, 2005 5:32 pm
Location: Valencia - España
Contact:

Post by jlcapel »

Carles,

Creo que con esta modificación en la clase window.prg queda arreglado.

Code: Select all

   METHOD SetBrush( oBrush ) INLINE If( ::oBrush != nil, ::oBrush:End(),),;
                                    ::oBrush := oBrush, oBrush:nCount++, ::Refresh()
Dime si ésto te soluciona el problema.

Saludos,
José Luis Capel
User avatar
astursoft
Posts: 139
Joined: Sun Nov 06, 2005 6:14 pm
Location: Asturias

Post by astursoft »

he añadido el metodo a window y he compilado y a mi no me resuelve el problema .
Jose Luis Parajón
Asturias
User avatar
jlcapel
Posts: 229
Joined: Wed Oct 12, 2005 5:32 pm
Location: Valencia - España
Contact:

Post by jlcapel »

José Luis,
he añadido el metodo a window y he compilado y a mi no me resuelve el problema .
Cierto... parece ser que he confundido la pregunta. Lo que he indicado solo resuelve el problema en grupos creados desde código cuando lTransparent := .T.

Saludos,
José Luis Capel
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Carles, Jose Luis,

Acabamos de publicar un nuevo build de FWPPC que soluciona el problema. No es definitivo porque fallará con zoom ó imágenes estiradas, pero de momento está solucionado.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Carles
Posts: 937
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Contact:

Post by Carles »

Hola Antonio,

Es posible que no fucncione el link de actualizacion ?


Saludos.
C.
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Carles,

Vuelve a intentarlo, gracias.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Carles
Posts: 937
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Contact:

Post by Carles »

Antonio,

Ok. Ya va. El pastel debia estar 'calentito'

Saludos.
C.
User avatar
Carles
Posts: 937
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Contact:

Post by Carles »

Hola Antonio,

El nuevo build (20.02.2006) me arroja este error al compilar

Code: Select all

FiveCEC.lib(AYGSHELL.obj) : error LNK2019: unresolved external symbol SHGetDocum
entsFolder referenced in function "void __cdecl HB_FUN_SHGETDOCUMENTSFOLDER(void
)" (?HB_FUN_SHGETDOCUMENTSFOLDER@@YAXXZ)
Si dejo la libreria del build del 17.02.2006 va Ok.

Saludos.
C.
User avatar
astursoft
Posts: 139
Joined: Sun Nov 06, 2005 6:14 pm
Location: Asturias

Post by astursoft »

Carles , se ha añadido una libreria en el buildce.bat , copia el que tienes en samples , o miralo y añade la libreria al archivo de linkado .
Saludso.
Jose Luis Parajón
Asturias
User avatar
Carles
Posts: 937
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Contact:

Post by Carles »

Hola,

Efectivamente -> la CESHELL.LIB. Arrrg !


El tema del bitmap desde recurso -> ok

Gracias.
C.
Post Reply