FiveTech Support Forums

#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