Module: _memosys      Library: Clipper 5.3


This module contains the following functions and procedures:

function CLOSEMEMO
function DRAWMEMOAR( Arg1, Arg2 )
function EDITMEMO( Arg1, Arg2, Arg3, Arg4 )
function OPENMEMO( Arg1, Arg2, Arg3, Arg4 )
function RESTOREMEM( Arg1, Arg2 )

Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally 
performed based on the contents of STD.CH and other .CH files
 
#include "common.ch"
#include "inkey.ch"

//---------------------------------------------------[top]-
//  CLOSEMEMO
//
function CLOSEMEMO

   return .T.

//---------------------------------------------------[top]-
//  DRAWMEMOAR( Arg1, Arg2 )
//
function DRAWMEMOAR( Arg1, Arg2 )

   local Local1 := Arg1[ Arg2 ][ 2 ], Local2:= Arg1[ Arg2 ][ 3 ], ;
      Local3 := Arg1[ Arg2 ][ 4 ], Local4:= Arg1[ Arg2 ][ 5 ]
   Arg1[ Arg2 ][ 1 ] := SaveScreen(Local1, Local2, Local3, Local4)
   Scroll(Local1, Local2, Local3, Local4, 0)
   if ( Arg1[ Arg2 ][ 6 ] == .T. )
      @ Local1, Local2, Local3, Local4 box "ÚÄ¿³ÙÄÀ³"
   endif
   return .T.

//---------------------------------------------------[top]-
//  EDITMEMO( Arg1, Arg2, Arg3, Arg4 )
//
function EDITMEMO( Arg1, Arg2, Arg3, Arg4 )

   if ( Arg1[ Arg3 ][ 6 ] == .T. )
      Arg1[ Arg2 ] := memoedit(Arg1[ Arg2 ], Arg1[ Arg3 ][ 2 ] + 1, ;
         Arg1[ Arg3 ][ 3 ] + 1, Arg1[ Arg3 ][ 4 ] - 1, ;
         Arg1[ Arg3 ][ 5 ] - 1, Arg4)
   else
      Arg1[ Arg2 ] := memoedit(Arg1[ Arg2 ], Arg1[ Arg3 ][ 2 ], ;
         Arg1[ Arg3 ][ 3 ], Arg1[ Arg3 ][ 4 ], Arg1[ Arg3 ][ 5 ], ;
         Arg4)
   endif
   return .T.

//---------------------------------------------------[top]-
//  OPENMEMO( Arg1, Arg2, Arg3, Arg4 )
//
function OPENMEMO( Arg1, Arg2, Arg3, Arg4 )

   drawmemoar(Arg1, Arg3)
   editmemo(Arg1, Arg2, Arg3, Arg4)
   restoremem(Arg1, Arg3)
   return .T.

//---------------------------------------------------[top]-
//  RESTOREMEM( Arg1, Arg2 )
//
function RESTOREMEM( Arg1, Arg2 )

   RestScreen(Arg1[ Arg2 ][ 2 ], Arg1[ Arg2 ][ 3 ], ;
      Arg1[ Arg2 ][ 4 ], Arg1[ Arg2 ][ 5 ], Arg1[ Arg2 ][ 1 ])
   return .T.

//---EOF


Use your Browser's BACK button to return to Function Listings