Crear Brush desde un recurso JPG

Crear Brush desde un recurso JPG

Postby JoseAlvarez » Sat Apr 08, 2017 1:28 am

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.
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 722
Joined: Sun Nov 09, 2014 5:01 pm

Re: Crear Brush desde un recurso JPG

Postby Antonio Linares » Sat Apr 08, 2017 9:09 am

José,

olgajpg.rc
Code: Select all  Expand view
OLGAJPG 10 "c:\fwh\bitmaps\olga1.jpg"


olgajpg.prg
Code: Select all  Expand view
#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


Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Crear Brush desde un recurso JPG

Postby cnavarro » Sat Apr 08, 2017 10:56 am

También puedes leer sobre el tema aqui

viewtopic.php?f=3&t=33135&hilit=resource+png#p195169
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Crear Brush desde un recurso JPG

Postby JoseAlvarez » Sat Apr 08, 2017 2:54 pm

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?
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 722
Joined: Sun Nov 09, 2014 5:01 pm

Re: Crear Brush desde un recurso JPG

Postby cnavarro » Sat Apr 08, 2017 3:46 pm

Jose
Pon una imagen y/o el código para poder ayudarte y entender bien tu problema
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Crear Brush desde un recurso JPG

Postby JoseAlvarez » Sat Apr 08, 2017 4:20 pm

Hola Crístobal.

ok, en el .RC coloco esto

Code: Select all  Expand view
Socios 10 "c:/AhorroRC/Imagenes/Jpg/Socios.jpg"


y en el prg coloco así:

Code: Select all  Expand view
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

Image
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 722
Joined: Sun Nov 09, 2014 5:01 pm

Re: Crear Brush desde un recurso JPG

Postby Antonio Linares » Sun Apr 09, 2017 9:34 am

Como debería verse ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Crear Brush desde un recurso JPG

Postby JoseAlvarez » Sun Apr 09, 2017 4:15 pm

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:

Image

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

Image

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. !
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 722
Joined: Sun Nov 09, 2014 5:01 pm

Re: Crear Brush desde un recurso JPG

Postby Antonio Linares » Sun Apr 09, 2017 4:50 pm

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Crear Brush desde un recurso JPG

Postby JoseAlvarez » Mon Apr 10, 2017 3:15 pm

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

Image

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

Code: Select all  Expand view
Socios 10 "c:/AhorroRC/Imagenes/Jpg/Socios.jpg"


y tampoco funciona. Podría ser alguna incompatibilidad con windows 10 ??
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 722
Joined: Sun Nov 09, 2014 5:01 pm

Re: Crear Brush desde un recurso JPG

Postby Antonio Linares » Mon Apr 10, 2017 5:55 pm

No se de donde viene el nombre JPG_100

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Crear Brush desde un recurso JPG

Postby Antonio Linares » Mon Apr 10, 2017 5:57 pm

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Crear Brush desde un recurso JPG

Postby JoseAlvarez » Mon Apr 10, 2017 7:57 pm

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... :D

Gracias por tu gentil atención, a tí y a cristóbal.
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 722
Joined: Sun Nov 09, 2014 5:01 pm

Re: Crear Brush desde un recurso JPG

Postby Antonio Linares » Tue Apr 11, 2017 5:04 am

Puedes enviarme el JPG por email ? gracias
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Crear Brush desde un recurso JPG

Postby JoseAlvarez » Tue Apr 11, 2017 3:52 pm

Saludos Antonio.

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

Gracias.
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 722
Joined: Sun Nov 09, 2014 5:01 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 6 guests