XIMAGE : Gamma Level Adjustment

[nageswaragunupudi]

Upcoming Enhancement to TXImage class:

New Data nGamma. Default value 1.0
Programmer can assign any value 0.0 or greater to change the Gamma value.

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oDlg, oImage, oFont, cFile
   local oGamma, nGamma  := 100.0, oSay

   cFile := "..\bitmaps\olga1.jpg"

   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 600,800 PIXEL TRUEPIXEL RESIZABLE FONT oFont ;
      TITLE Upper( cFileName( cFile ) )

   @ 60,20 XIMAGE oImage FILE cfile SIZE -20,-20 OF oDlg
   oImage:FitRect()

   @ 10,20 SAY "Gamma" SIZE 100,20 PIXEL OF oDlg

   @ 10,120 SLIDER oGamma VAR nGamma SIZE oDlg:nWidth - 260,20 PIXEL OF oDlg ;
      HORIZONTAL RANGE 0,300 UPDATE TOP DIRECTION ;
      ON CHANGE ( oImage:nGamma :=  nVar * 0.01, oDlg:Update() ) ;
      ON THUMBPOS ( nGamma := nVar, oImage:nGamma := nVar * 0.01, oDlg:Update() ) ;
      SLIMSTYLE

   @ 10,oDlg:nWidth - 120 SAY oSay PROMPT { || oImage:nGamma } PICTURE "9.9999" SIZE 100,20 PIXEL OF oDlg RIGHT UPDATE

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

[cmsoft]

Excelente trabajo Mr. Rao!!
Muchas gracias!

[Antonio Linares]

Dear Rao, excellent work as usual.

thank you very much!

[Armando]

Mr. Rao:

Excellent work, congratulations

Regards

[nageswaragunupudi]

Varying
Gamma, Brightness, Contrast, AlphaLevel, Blurr and Toggling Gray

[Antonio Linares]

Great work!

Many thanks

[RAMESHBABU]

Dear Nageswara Rao gaaru,

Thank you for your additions to xImage Class for Image Editing.

It is a great help to me to completely avoid using FreeImage.dll wrapper
function for Image editing.

The following is my Image editing dialog which is almost similar to your
functionality.



Thank you once again.

- Ramesh Babu P