Como mejorar la calidad de las imágenes

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

[karinha]

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

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

[cnavarro]

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

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

[cnavarro]

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

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

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

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

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



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

[MOISES]

Yes, i have it too.

Already reported.

[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
 

[MOISES]

And this bug?

http://forums.fivetechsupport.com/viewt ... =3&t=38261

thanks

[concentra]

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:



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

[concentra]

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