Fazer assinatura em .BMP

[kapiaba]

#include "FiveWin.ch"


function CaptureSignature()


   local oDlg, oSig, lPaint := .F., cFile := Lower( "signature.bmp" ), hDC

   local lReset := .f.

   local oBrush

   local nPenWidth := 4, oPenSig

   local nTop := 2, nBottom := 0

   local aCoord

   local nColor := CLR_WHITE


   oBrush := TBrush():New( , nColor )

   DEFINE DIALOG oDlg TITLE "Signature" PIXEL ;

      RESOURCE "DLG_Sign"


   DEFINE PEN oPenSig  WIDTH nPenWidth COLOR CLR_BLACK


   REDEFINE SAY oSig ID 200 PROMPT "" OF oDlg

   oSig:nClrPane := nRgb( 255,255,255 )

   oSig:oBrush  := oBrush


   redefine button prompt 'Save';

      id 100 of oDlg update;

      ACTION ( oSig:SaveToBmp( cFile ), oDlg:End() )


   redefine button prompt 'Cancel';

      id 101 of oDlg ;

      action ( lReturn := .f., oDlg:End() )


   redefine button prompt 'Clear';

      id 102 of oDlg ;

      action ( lPaint := .F., ;

         FillRect( hDC, GetClientRect( oSig:hWnd ), oBrush:hBrush ), ;

         oSig:refresh(.t.) )


   oSig:lWantClick := .T.

   // Fixed row, col to y, x conversion, x/y designation was reversed

   oSig:bLButtonUp := { | y, x, z | DoDraw( hDC, x, y, lPaint := .F.,, oPenSig ) }

   // Added limits to Top and Bottom in case users draw off canvas

   oSig:bMMoved    := { | y, x, z | ( ;

      if( y >= nBottom .or. y <= nTop , lReset := .T., lReset := .f. ), ;

      DoDraw( hDC, x, y , lPaint, lReset, oPenSig )) }

   oSig:bLClicked  := { | y, x, z | DoDraw( hDC, x, y, lPaint := .T., .t., oPenSig  ) }

   // If button released when not on Signature area

   oDlg:bLButtonUp := { || lPaint := .F. }


   ACTIVATE DIALOG oDlg CENTER ;

      ON INIT ( aCoord := GetCoors( oSig:hWnd ), ;

         nBottom := aCoord[3]- aCoord[1]-2, ;

         hDC := GetDC( oSig:hWnd ), oSig:nClrPane := nColor ) ;

      VALID ( ReleaseDC( oSig:hWnd, hDC ), .T. )

   RELEASE PEN oPenSig


return nil


static function DoDraw( hDc, x, y, lPaint, lReset, oPen )

   if ! lPaint .or. ( lReset != nil .and. lReset )

      MoveTo( hDC, x, y )

   else

      LineTo( hDc, x, y, oPen:hPen )

   endIf

return nil


/* // .RC

DLG_Sign DIALOG -32768, 65, 204, 99

STYLE DS_SYSMODAL | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION

CAPTION "Signature"

FONT 12, "MS Sans Serif"

{

 PUSHBUTTON "Save", 100, 6, 3, 46, 14

 PUSHBUTTON "Cancel", 101, 84, 3, 35, 14

 PUSHBUTTON "Clear", 102, 162, 3, 35, 14

 GROUPBOX "", 104, 4, 17, 198, 68, BS_GROUPBOX

 CONTROL "", 200, "STATIC", SS_WHITERECT | WS_CHILD | WS_VISIBLE, 5, 22, 196, 61

 RTEXT "X", -1, 1, 78, 5, 9

 CTEXT "I agree that this inspection is correct.", -1, 13, 88, 172, 9

}

*/