Page 1 of 2

Como mejorar la calidad de las imágenes

Posted: Fri Oct 18, 2019 4:32 pm
by nanoespinoza
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.

Re: Como mejorar la calidad de las imágenes

Posted: Fri Oct 18, 2019 5:35 pm
by karinha
No comprendo. Las imagines con FiveWin son perfectas. Hable más porfa. Saludos.

Re: Como mejorar la calidad de las imágenes

Posted: Fri Oct 18, 2019 7:56 pm
by nanoespinoza
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.

Re: Como mejorar la calidad de las imágenes

Posted: Fri Oct 18, 2019 8:00 pm
by cnavarro
Fernando, no debes tener ningún problema con las imágenes

Re: Como mejorar la calidad de las imágenes

Posted: Sat Oct 19, 2019 12:58 am
by nanoespinoza
Continuando con este aprendizaje; les incluyo algunos detalles de como está mi aplicación.

Mi archivo manifest en Pelles C, con este contendido:

Code: Select all

<?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.

[img]
https://ibb.co/YcLfwN2
[/img]

Saludos

Fernando Espinoza A.

Re: Como mejorar la calidad de las imágenes

Posted: Sat Oct 19, 2019 9:02 am
by cnavarro
Fernando, podrías proporcionar esa imagen?
Bien en el foro o en privado como quieras.

Re: Como mejorar la calidad de las imágenes

Posted: Sat Oct 19, 2019 1:49 pm
by nanoespinoza
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.

Re: Como mejorar la calidad de las imágenes

Posted: Sat Oct 19, 2019 5:42 pm
by nageswaragunupudi
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: Select all

   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:
Image

Re: Como mejorar la calidad de las imágenes

Posted: Sat Oct 19, 2019 6:17 pm
by nageswaragunupudi
Reading image directly from a website and displaying in a dialog:

Code: Select all

   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:
Image

Re: Como mejorar la calidad de las imágenes

Posted: Mon Dec 30, 2019 1:03 pm
by concentra
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:

Image

You can download the BMP image from the below URL.

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

The source code:

Code: Select all

#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: Select all

#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

Re: Como mejorar la calidad de las imágenes

Posted: Mon Dec 30, 2019 1:37 pm
by MOISES
Yes, i have it too.

Already reported.

Re: Como mejorar la calidad de las imágenes

Posted: Mon Dec 30, 2019 2:02 pm
by nageswaragunupudi
Add this setting

Code: Select all

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

Suggested code:

Code: Select all

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
 

Re: Como mejorar la calidad de las imágenes

Posted: Mon Dec 30, 2019 3:06 pm
by MOISES

Re: Como mejorar la calidad de las imágenes

Posted: Mon Dec 30, 2019 5:37 pm
by concentra
nageswaragunupudi wrote:Add this setting

Code: Select all

   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:

Image

And specially different when extreme zoomed:

Image

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

Re: Como mejorar la calidad de las imágenes

Posted: Mon Dec 30, 2019 5:46 pm
by concentra
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