FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Crear Brush desde un recurso JPG
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Crear Brush desde un recurso JPG
Posted: Sat Apr 08, 2017 01: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.
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Crear Brush desde un recurso JPG
Posted: Sat Apr 08, 2017 09:09 AM
José,

olgajpg.rc
Code (fw): Select all Collapse
OLGAJPG 10 "c:\fwh\bitmaps\olga1.jpg"


olgajpg.prg
Code (fw): Select all Collapse
#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


regards, saludos

Antonio Linares
www.fivetechsoft.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Crear Brush desde un recurso JPG
Posted: Sat Apr 08, 2017 10:56 AM

También puedes leer sobre el tema aqui

viewtopic.php?f=3t=33135hilit=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
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Crear Brush desde un recurso JPG
Posted: Sat Apr 08, 2017 02: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.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Crear Brush desde un recurso JPG
Posted: Sat Apr 08, 2017 03: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
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Crear Brush desde un recurso JPG
Posted: Sat Apr 08, 2017 04:20 PM
Hola Crístobal.

ok, en el .RC coloco esto

Code (fw): Select all Collapse
Socios 10 "c:/AhorroRC/Imagenes/Jpg/Socios.jpg"


y en el prg coloco así:

Code (fw): Select all Collapse
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

"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.
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Crear Brush desde un recurso JPG
Posted: Sun Apr 09, 2017 09:34 AM

Como debería verse ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Crear Brush desde un recurso JPG
Posted: Sun Apr 09, 2017 04: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:



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. !
"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.
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Crear Brush desde un recurso JPG
Posted: Sun Apr 09, 2017 04: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
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Crear Brush desde un recurso JPG
Posted: Mon Apr 10, 2017 03: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



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

Code (fw): Select all Collapse
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.
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Crear Brush desde un recurso JPG
Posted: Mon Apr 10, 2017 05: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
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Crear Brush desde un recurso JPG
Posted: Mon Apr 10, 2017 05:57 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Crear Brush desde un recurso JPG
Posted: Mon Apr 10, 2017 07: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.
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Crear Brush desde un recurso JPG
Posted: Tue Apr 11, 2017 05:04 AM

Puedes enviarme el JPG por email ? gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Crear Brush desde un recurso JPG
Posted: Tue Apr 11, 2017 03: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.

Continue the discussion

Static archive · New replies & topics via GitHub Discussions