FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Como mejorar la calidad de las imágenes
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Como mejorar la calidad de las imágenes
Posted: Fri Oct 18, 2019 04:32 PM

Estimados:

El objetivo de esta consulta es conocer si existen formas de mejorar la presentación en pantalla de los archivos de imagenes (.bmp, ,jpg, .png, etc) al usarse en las aplicaciones creadas con FiveWin + xHarbour, es decir que tengan una mayor nitidez o definición al momento de presentarse dentro de la aplicación, sea usando IMAGE, XIMAGE o dentro de un XBROWSE.

Desconozco como lograrlo, si debe puede agregar alguna libreria externa adicional de pago o no pago, etc.

Cualquier ayuda, será bienvenida.

Saludos

Fernando Espinoza A.

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Como mejorar la calidad de las imágenes
Posted: Fri Oct 18, 2019 05:35 PM

No comprendo. Las imagines con FiveWin son perfectas. Hable más porfa. Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: Como mejorar la calidad de las imágenes
Posted: Fri Oct 18, 2019 07:56 PM

Bueno, entonces yo hago algo mal; porque mis imagenes al mostrarse en la aplicación no se ven con una buena definición, si los comparo con como se ven en el explorador de archivos de windows; más tarde enviaré unos ejemplos.

Quiza defino mal algo en el manifest o que se yo, uso Pelles C para recursos y la versión 1709 de FiveWin.

Saludos

Fernando Espinoza A.

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Como mejorar la calidad de las imágenes
Posted: Fri Oct 18, 2019 08:00 PM

Fernando, no debes tener ningún problema con las imágenes

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
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: Como mejorar la calidad de las imágenes
Posted: Sat Oct 19, 2019 12:58 AM
Continuando con este aprendizaje; les incluyo algunos detalles de como está mi aplicación.

Mi archivo manifest en Pelles C, con este contendido:

Code (fw): Select all Collapse
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
    version="1.0.0.0"
    processorArchitecture="X86"
    name="FiveTech Software.FiveWin.32bits"
    type="win32"
/>
<description>Aplicacion para guardar resultados, estadisticas del futbol ecuatoriano a nivel Local, Copas y Selecciones.</description>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="X86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
        />
    </dependentAssembly>
</dependency>
</assembly>


Aquí una comparación, de como se ve un bitmap, en mi aplicación y en el explorador de archivos de Windows 10.

https://ibb.co/YcLfwN2
" alt="" loading="lazy">

Saludos

Fernando Espinoza A.
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Como mejorar la calidad de las imágenes
Posted: Sat Oct 19, 2019 09:02 AM

Fernando, podrías proporcionar esa imagen?
Bien en el foro o en privado como quieras.

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
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: Como mejorar la calidad de las imágenes
Posted: Sat Oct 19, 2019 01:49 PM

Estimado Cristobal

Doy click en el enlace y tengo visibilidad de la imagen. Se la voy a pasar a su correo también.

Saludos

Fernando Espinoza A.

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Como mejorar la calidad de las imágenes
Posted: Sat Oct 19, 2019 05:42 PM
FWH displays and prints images with very good quality. There is no need to pay for any external software. Just use latest versions of FWH and learn how to display images.

Here is a small code snippet.
Code (fw): Select all Collapse
   DEFINE DIALOG oDlg SIZE 400,500 PIXEL TRUEPIXEL TITLE FWVERSION
   @ 20,20 XIMAGE oImage SOURCE "c:\fwh\bitmaps\olga1.jpg" ;
      SIZE 352,450 OF oDlg NOBORDER
   ACTIVATE DIALOG oDlg CENTERED


Comparison of File Explorer preview and the image on FWH Dialog box:
Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Como mejorar la calidad de las imágenes
Posted: Sat Oct 19, 2019 06:17 PM
Reading image directly from a website and displaying in a dialog:
Code (fw): Select all Collapse
   DEFINE DIALOG oDlg SIZE 800,470 PIXEL TRUEPIXEL TITLE FWVERSION
   @ 20,20 XIMAGE oImage ;
      SOURCE "https://www.sunderbannationalpark.in/blog/wp-content/uploads/2018/08/Royal-Bengal-Tiger.jpg" ;
      SIZE 755,430 OF oDlg NOBORDER
   ACTIVATE DIALOG oDlg CENTERED


Compare result directly with the original webpage:
Regards



G. N. Rao.

Hyderabad, India
Posts: 124
Joined: Mon Nov 14, 2005 10:15 AM
Re: Como mejorar la calidad de las imágenes
Posted: Mon Dec 30, 2019 01:03 PM
Hi.

I have a similar problem with a gray BMP image captured from a scanner.
The image seems a lot poorer on FW XImage than other image viewers that I tried.

See the screen capture below:



You can download the BMP image from the below URL.

http://www.farmacia.net.br/PDP/TesteXImage.bmp

The source code:
Code (fw): Select all Collapse
#include "Fivewin.ch"

FUNCTION MAIN()

   Local oWnd
   LOCAL oImage

   DEFINE WINDOW oWnd FROM 1,1 TO GetSysMetrics(1)-100,GetSysMetrics(0)-200 TITLE "FiveWin XImage" PIXEL

   @ 1,1 XIMAGE oImage SIZE oWnd:nWidth-10,oWnd:nHeight-90 FILE "TesteXImage.bmp" NO BORDER OF oWnd

   ACTIVATE WINDOW oWnd

   oImage:End()

Return nil


The PPO generated:
Code (fw): Select all Collapse
#line 89 "c:\hb32\FWH\Include\Fivewin.ch"
         EXTERNAL FW_GT

extern errorsys

static aFwStack      := {}
static _fwhtmp_      := nil
#line 3 "TesteXImage.prg"
FUNCTION MAIN()

   Local oWnd
   LOCAL oImage

   oWnd := TWindow():New( 1, 1, GetSysMetrics(1)-100, GetSysMetrics(0)-200, "FiveWin XImage",,,,,,,,,,,, !.F., !.F., !.F., !.F., .T.,, "oWnd",, )

   oImage := TXImage():New( 1, 1, oWnd:nWidth-10, oWnd:nHeight-90, {|| "TesteXImage.bmp"}, oWnd, .F., .T. )

   oWnd:Activate(, oWnd:bLClicked, oWnd:bRClicked, oWnd:bMoved, oWnd:bResized, oWnd:bPainted, oWnd:bKeyDown, oWnd:bInit,,,,,,,,,,, oWnd:bLButtonUp, .F. )

   oImage:End()

Return nil


Does anyone have any clue ?

Regards,
Maurício Faria
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: Como mejorar la calidad de las imágenes
Posted: Mon Dec 30, 2019 01:37 PM

Yes, i have it too.

Already reported.

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Como mejorar la calidad de las imágenes
Posted: Mon Dec 30, 2019 02:02 PM
Add this setting
Code (fw): Select all Collapse
   oImage:lBmpTransparent := .f.

In the case of 2 color bitmaps (eg. black and white) we need to set lBmpTransparent to .F.

Suggested code:
Code (fw): Select all Collapse
function TestXImage2Clr()

   local oWnd, oImage

   DEFINE WINDOW oWnd

   @ 10,10 XIMAGE oImage SOURCE "TesteXImage.bmp" SIZE -10,-10 OF oWnd
   oImage:lBmpTransparent := .f.

   ACTIVATE WINDOW oWnd MAXIMIZED

return nil
Regards



G. N. Rao.

Hyderabad, India
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: Como mejorar la calidad de las imágenes
Posted: Mon Dec 30, 2019 03:06 PM

And this bug?

viewtopic.php?f=3t=38261

thanks

&

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Posts: 124
Joined: Mon Nov 14, 2005 10:15 AM
Re: Como mejorar la calidad de las imágenes
Posted: Mon Dec 30, 2019 05:37 PM
nageswaragunupudi wrote:Add this setting
Code (fw): Select all Collapse
   oImage:lBmpTransparent := .f.

In the case of 2 color bitmaps (eg. black and white) we need to set lBmpTransparent to .F.

Hi, thanks.
Better !

But still not as good as other apps, and worst in the bottom of the image:



And specially different when extreme zoomed:



Don't know it there is any importance, but its not a 2 colors image, its a 256 one ( 8 bit depth ).
And its a 150 dpi image.

[[]]
Maurício Faria
Posts: 124
Joined: Mon Nov 14, 2005 10:15 AM
Re: Como mejorar la calidad de las imágenes
Posted: Mon Dec 30, 2019 05:46 PM
nageswaragunupudi wrote:Add this setting
In the case of 2 color bitmaps (eg. black and white) we need to set lBmpTransparent to .F.


lBmpTransparent shouldn't be .F. by default ?

[[]]
Maurício Faria