topic-22000

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

FWPPV to FW
Posted: Mon Jul 25, 2011 10:06 AM

Could someone please help to convert this fivewin PPC sample to Fivewin.

Thanks in advance
Otto

// FiveWin for Pocket PC - Capturing a signature

//#include "FWCE.ch"
#include "FiveWin.ch"

static oWnd, oSay

//----------------------------------------------------------------------------//

function Main()

   local hDC, lPaint := .f.

   DEFINE WINDOW oWnd TITLE "Please sign" //;
    //  MENU BuildMenu()

   @ 40, 5 SAY oSay PROMPT "" SIZE 230, 150 PIXEL BORDER 

   hDC = oSay:GetDC()

   oSay:bLClicked  = { | nRow, nCol | lPaint := .t., MoveTo( hDC, nCol, nRow ) }
   oSay:bLButtonUp = { | nRow, nCol | LineTo( hDC, nCol, nRow ), lPaint := .f. }
   oSay:bMMoved    = { | nRow, nCol | If( lPaint, LineTo( hDC, nCol, nRow ),) }

   ACTIVATE WINDOW oWnd ;
      VALID ( oSay:ReleaseDC(), .t. )
      
return nil

//----------------------------------------------------------------------------//

Carles

Posts: 1283