Crear Brush desde un recurso JPG

[JoseAlvarez]

Saludos a todos nuevamente.

He creado varios dialogos y colocado de fondo un Obrus creado desde imagenes BMP que coloco en una capeta del disco duro.
QuIero cambiar eso porque me gustaría que la mayor parte de los componentes del programa esten fuera del alcance de los usuarios.
Pero no he podido enncontrar la forma de crear un brush desde un recurso WorShop con un arvhivo JPG ya que los BMP pesan demasiado y el WS no puede con ellos y el programa se aborta cuando le pongo BMP de gran tamaño.
Como puedo poner un jpg en worshop o como crearlo desde una rc de texto para llamarlo y crear el brush??

Como siempre, doy las gracias adelantadas a quien pueda ayudarme.

[Antonio Linares]

José,

olgajpg.rc

Code: Select all | Expand

OLGAJPG 10 "c:\fwh\bitmaps\olga1.jpg"

olgajpg.prg

Code: Select all | Expand

#include "FiveWin.ch"

function jpgbrush()

   local oWnd, oBrush

   DEFINE BRUSH oBrush RESOURCE "OLGAJPG" RESIZE
   DEFINE WINDOW oWnd BRUSH oBrush
   oWnd:nHeight   := 700
   ACTIVATE WINDOW oWnd CENTERED

return nil

[cnavarro]

También puedes leer sobre el tema aqui

viewtopic.php?f=3&t=33135&hilit=resource+png#p195169

[JoseAlvarez]

Estimados Antonio y Cristóbal.

Gracias por la ayuda, pero implementando lo que me indica antonio, el programa compila bien, pero el resultado es que el dialogo al que le aplico el brush se hace transparente. Ya probé quitandole la cláusula TRANSPARENT al brush y el oDlg:lTransparent:=.f. y sigue sin mostrarme el fondo deseado del recurso Jpg. Sigue apareciendo el fondo del dialogo en transparente.

Que me puede estar faltando?

[cnavarro]

Jose
Pon una imagen y/o el código para poder ayudarte y entender bien tu problema

[JoseAlvarez]

Hola Crístobal.

ok, en el .RC coloco esto

Code: Select all | Expand

Socios 10 "c:/AhorroRC/Imagenes/Jpg/Socios.jpg"

y en el prg coloco así:

Code: Select all | Expand

Define Brush oBrush Resource "Socios"
Define Dialog oDlg resource "AD_Socios" title "Actualización de Datos de Socios" brush oBrush TRANSPARENT

y esta es la imagen

[Antonio Linares]

Como debería verse ?

[JoseAlvarez]

Estimado Antonio, saludos.

Disculpa que no entendí cuando Cristóbal me pidió que subiera las imágenes.

Cuando defino un Brush desde un .JPG en disco duro directamente, veo esto, que así es como lo quiero ver:



Cuando defino el Brush de la manera en que me indicaste, se ve así, transparente:



He probado habilitando/deshabilitando la clausula TRANSPARENT y el resultado es el mismo.

El programa compila bien, por lo que deduzco que la falla la tengo al hacer la llamada al recurso, pero la pongo tal cual como me dijiste y no me funciona. No entiendo que me puede estar faltando.

Gracias. !

[Antonio Linares]

Puedes inspeccionar el EXE y comprobar que el recurso JPG esté dentro de él ?

Puedes usar PellesC, ó tambien esta utilidad:
https://bitbucket.org/fivetech/fivewin-contributions/downloads/peinfo.exe

[JoseAlvarez]

Antonio, ya revise el EXE con la herramienta que me indicaste y el recurso Sí aparece. Acá te dejo la imagen y te la enmarqué en un cuadro rojo



Taambien probé colocando el recurso aparte en una RC nueva que solo tiene como contenido esto

Code: Select all | Expand

Socios 10 "c:/AhorroRC/Imagenes/Jpg/Socios.jpg"

y tampoco funciona. Podría ser alguna incompatibilidad con windows 10 ??

[Antonio Linares]

No se de donde viene el nombre JPG_100

Abre por favor esa rama del árbol y muestra lo que contiene

[Antonio Linares]

Prueba a escribir SOCIOS (en mayúsculas) en tu PRG para acceder al recurso

[JoseAlvarez]

Ya lo hice antonio, antes de enviarte la imagen anterior, lo probé. Cuando vi que el PEINFO.EXE lo colocaba en mayúscula lo puse igual y nada.
Voy a dejarlo quieto unos dias a ver si cuando lea de nuevo todo el codigo relacionado encuentre la falla de inmediato. Eso funciona muchas veces...

Gracias por tu gentil atención, a tí y a cristóbal.

[Antonio Linares]

Puedes enviarme el JPG por email ? gracias

[JoseAlvarez]

Saludos Antonio.

Ya te envié a tu correo la RC y el JPG.

Gracias.