home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
udfs
/
udf2.prg
< prev
next >
Wrap
Text File
|
1992-05-06
|
1KB
|
37 lines
/*
Author: DAVID -(FLASH)- GORDON CompuServ ID - 75130,3664
Originally: Program COPYRIGHT 1991, FlashPoint
Now and Forever: Released into the Public Domain
Note: FlashPoint is a Registered Trademark
Purpose: CheckMark() was designed as a type a button for simple
GET fields. When getting several fields that are user
options, it does not really matter what key the user
presses to select a feature. All that matters is that
the LEN(TRIM( cField )) # 0. This function will display
a check mark "√" (or square root symbol) which is visually
pleasing to the end user.
*/
* Usage In Your Application
******************************************************************************
LOCAL cField := SPACE(1)
@ 10,30 GET cField PICTURE "@!" VALID CheckMark(10, 30, @cField)
******************************************************************************
FUNCTION CheckMark(nRow, nColumn, cField)
IF VALTYPE(cField) # "C" .or. VALTYPE(nRow) # "N" .or. VALTYPE(nColumn) # "N"
RETU .F.
ELSE
IIF(LEN(TRIM(cField)) == 0, cField := " ", cField := "√")
@ nRow,nColumn SAY cField
ENDIF
RETURN .T.