!CW Low-Level Run-Time API functions !Last Revised 09 11 95 !Copyright 1995 - TopSpeed Corporation module('CW_API') !Conversions AToF(*cstring),real,raw,name('_atof') AToI(*cstring),short,raw,name('_atoi') AToL(*cstring),long,raw,name('_atol') AToUL(*cstring),ulong,raw,name('_atoul') !Integer Math API_Abs(short),short,name('_abs') !Renamed to avoid conflict with Builtins.Clw LAbs(long),long,name('_labs') !Char Type Functions ToUpper(short),short,name('_toupper') ToLower(short),short,name('_tolower') API_IsAlpha(short),short,name('_isalpha') !Renamed to avoid conflict with Builtins.Clw API_IsLower(short),short,name('_islower') !Renamed to avoid conflict with Builtins.Clw API_IsUpper(short),short,name('_isupper') !Renamed to avoid conflict with Builtins.Clw IsAscii(short),short,name('_isascii') IsCntrl(short),short,name('_iscntrl') IsDigit(short),short,name('_isdigit') IsGraph(short),short,name('_isgraph') IsPrint(short),short,name('_isprint') IsPunct(short),short,name('_ispunct') IsSpace(short),short,name('_isspace') IsXDigit(short),short,name('_isxdigit') !Utility Functions Rand(),short,name('_rand') SRand(ushort),name('_srand') !C++ (nul terminated) String functions StrCat(*cstring,*cstring),cstring,raw,name('_strcat') StrCmp(*cstring,*cstring),short,raw,name('_strcmp') ChrCmp(byte,byte),short,name('_chrcmp') StrEqu(*cstring,*cstring),short,raw,name('_strequ') StrCpy(*cstring,*cstring),cstring,raw,name('_strcpy') StrLen(*cstring),ushort,raw,name('_strlen') StrChr(*cstring,short),cstring,raw,name('_strchr') StrCSpn(*cstring,*cstring),ushort,raw,name('_strcspn') StrError(short),cstring,raw,name('_strerror') StrSpn(*cstring,*cstring),ushort,raw,name('_strspn') StrStr(*cstring,*cstring),cstring,raw,name('_strstr') StrTok(*cstring,*cstring),cstring,raw,name('_strtok') StrPBrk(*cstring,*cstring),cstring,raw,name('_strpbrk') StrRChr(*cstring,short),cstring,raw,name('_strrchr') StrLwr(*cstring),cstring,raw,name('_strlwr') StrUpr(*cstring),cstring,raw,name('_strupr') StrDup(*cstring),cstring,raw,name('_strdup') StrRev(*cstring),cstring,raw,name('_strrev') StrNCat(*cstring,*cstring,ushort),cstring,raw,name('_strncat') StrNCmp(*cstring,*cstring,ushort),short,raw,name('_strncmp') StrNCpy(*cstring,*cstring,ushort),cstring,raw,name('_strncpy') StrNICmp(*cstring,*cstring,ushort),short,raw,name('_strnicmp') !Low-Level File Manipulation Access (*CSTRING,SIGNED),SIGNED,RAW,NAME('_access') ! April 11, 1999 corrected according to Alexey Solovjev !! Access(*cstring,short),short,raw,name('_access') ChMod(*cstring,short),short,raw,name('_chmod') API_Remove(*cstring),short,raw,name('_remove') !Renamed to avoid conflict with Builtins.Clw API_Rename(*cstring,*cstring),short,raw,name('_rename') !Renamed to avoid conflict with Builtins.Clw FnMerge(*cstring,*cstring,*cstring,*cstring,*cstring),raw,name('_fnmerge') FnSplit(*cstring,*cstring,*cstring,*cstring,*cstring),short,raw,name('_fnsplit') MkDir(*cstring),short,raw,name('_mkdir') RmDir(*cstring),short,raw,name('_rmdir') GetCurDir(short,*cstring),short,raw,name('_getcurdir') ChDir(*cstring),short,raw,name('_chdir') GetDisk(),short,name('_getdisk') SetDisk(short),short,name('_setdisk') end
Kategoriearchive: Clarion
Clarion: Equates for Paper
PAPER:LETTER EQUATE(1) ! Letter 8 1/2 x 11 in PAPER:LETTERSMALL EQUATE(2) ! Letter Small 8 1/2 x 11 in PAPER:TABLOID EQUATE(3) ! Tabloid 11 x 17 in PAPER:LEDGER EQUATE(4) ! Ledger 17 x 11 in PAPER:LEGAL EQUATE(5) ! Legal 8 1/2 x 14 in PAPER:STATEMENT EQUATE(6) ! Statement 5 1/2 x 8 1/2 in PAPER:EXECUTIVE EQUATE(7) ! Executive 7 1/4 x 10 1/2 in PAPER:A3 EQUATE(8) ! A3 297 x 420 mm PAPER:A4 EQUATE(9) ! A4 210 x 297 mm PAPER:A4SMALL EQUATE(10) ! A4 Small 210 x 297 mm PAPER:A5 EQUATE(11) ! A5 148 x 210 mm PAPER:B4 EQUATE(12) ! B4 250 x 354 PAPER:B5 EQUATE(13) ! B5 182 x 257 mm PAPER:FOLIO EQUATE(14) ! Folio 8 1/2 x 13 in PAPER:QUARTO EQUATE(15) ! Quarto 215 x 275 mm PAPER:10X14 EQUATE(16) ! 10x14 in PAPER:11X17 EQUATE(17) ! 11x17 in PAPER:NOTE EQUATE(18) ! Note 8 1/2 x 11 in PAPER:ENV_9 EQUATE(19) ! Envelope #9 3 7/8 x 8 7/8 PAPER:ENV_10 EQUATE(20) ! Envelope #10 4 1/8 x 9 1/2 PAPER:ENV_11 EQUATE(21) ! Envelope #11 4 1/2 x 10 3/8 PAPER:ENV_12 EQUATE(22) ! Envelope #12 4 \276 x 11 PAPER:ENV_14 EQUATE(23) ! Envelope #14 5 x 11 1/2 PAPER:CSHEET EQUATE(24) ! C size sheet PAPER:DSHEET EQUATE(25) ! D size sheet PAPER:ESHEET EQUATE(26) ! E size sheet PAPER:ENV_DL EQUATE(27) ! Envelope DL 110 x 220mm PAPER:ENV_C5 EQUATE(28) ! Envelope C5 162 x 229 mm PAPER:ENV_C3 EQUATE(29) ! Envelope C3 324 x 458 mm PAPER:ENV_C4 EQUATE(30) ! Envelope C4 229 x 324 mm PAPER:ENV_C6 EQUATE(31) ! Envelope C6 114 x 162 mm PAPER:ENV_C65 EQUATE(32) ! Envelope C65 114 x 229 mm PAPER:ENV_B4 EQUATE(33) ! Envelope B4 250 x 353 mm PAPER:ENV_B5 EQUATE(34) ! Envelope B5 176 x 250 mm PAPER:ENV_B6 EQUATE(35) ! Envelope B6 176 x 125 mm PAPER:ENV_ITALY EQUATE(36) ! Envelope 110 x 230 mm PAPER:ENV_MONARCH EQUATE(37) ! Envelope Monarch 3.875 x 7.5 in PAPER:ENV_PERSONAL EQUATE(38) ! 6 3/4 Envelope 3 5/8 x 6 1/2 in PAPER:FANFOLD_US EQUATE(39) ! US Std Fanfold 14 7/8 x 11 in PAPER:FANFOLD_STD_GERMAN EQUATE(40) ! German Std Fanfold 8 1/2 x 12 in PAPER:FANFOLD_LGL_GERMAN EQUATE(41) ! German Legal Fanfold 8 1/2 x 13 in PAPER:LAST EQUATE(41) PAPER:USER EQUATE(256)
Clarion: test if record changed
ThisWindow.TakeCompleted embed:
IF Access:MyFile.EqualBuffer(SELF.Saved) MESSAGE('No changes') ELSE MESSAGE('Changed') END
Clarion Equates for Cursors
CURSOR:None EQUATE ('<0FFH,01H,00H,00H>') CURSOR:Arrow EQUATE ('<0FFH,01H,01H,7FH>') CURSOR:IBeam EQUATE ('<0FFH,01H,02H,7FH>') CURSOR:Wait EQUATE ('<0FFH,01H,03H,7FH>') CURSOR:Cross EQUATE ('<0FFH,01H,04H,7FH>') CURSOR:UpArrow EQUATE ('<0FFH,01H,05H,7FH>') CURSOR:Size EQUATE ('<0FFH,01H,81H,7FH>') CURSOR:Icon EQUATE ('<0FFH,01H,82H,7FH>') CURSOR:SizeNWSE EQUATE ('<0FFH,01H,83H,7FH>') CURSOR:SizeNESW EQUATE ('<0FFH,01H,84H,7FH>') CURSOR:SizeWE EQUATE ('<0FFH,01H,85H,7FH>') CURSOR:SizeNS EQUATE ('<0FFH,01H,86H,7FH>') CURSOR:DragWE EQUATE ('<0FFH,02H,01H,7FH>') CURSOR:Drop EQUATE ('<0FFH,02H,02H,7FH>') CURSOR:NoDrop EQUATE ('<0FFH,02H,03H,7FH>') CURSOR:Zoom EQUATE ('<0FFH,02H,04H,7FH>')
Clarion Equates for Icons
ICON:None EQUATE ('<0FFH,01H,00H,00H>') ICON:Application EQUATE ('<0FFH,01H,01H,7FH>') ICON:Hand EQUATE ('<0FFH,01H,02H,7FH>') ICON:Question EQUATE ('<0FFH,01H,03H,7FH>') ICON:Exclamation EQUATE ('<0FFH,01H,04H,7FH>') ICON:Asterisk EQUATE ('<0FFH,01H,05H,7FH>') ICON:Pick EQUATE ('<0FFH,02H,01H,7FH>') ICON:Save EQUATE ('<0FFH,02H,02H,7FH>') ICON:Print EQUATE ('<0FFH,02H,03H,7FH>') ICON:Paste EQUATE ('<0FFH,02H,04H,7FH>') ICON:Open EQUATE ('<0FFH,02H,05H,7FH>') ICON:New EQUATE ('<0FFH,02H,06H,7FH>') ICON:Help EQUATE ('<0FFH,02H,07H,7FH>') ICON:Cut EQUATE ('<0FFH,02H,08H,7FH>') ICON:Copy EQUATE ('<0FFH,02H,09H,7FH>') ICON:Child EQUATE ('<0FFH,02H,0AH,7FH>') ICON:Frame EQUATE ('<0FFH,02H,0BH,7FH>') ICON:Clarion EQUATE ('<0FFH,02H,0CH,7FH>') ICON:NoPrint EQUATE ('<0FFH,02H,0DH,7FH>') ICON:Zoom EQUATE ('<0FFH,02H,0EH,7FH>') ICON:NextPage EQUATE ('<0FFH,02H,0FH,7FH>') ICON:PrevPage EQUATE ('<0FFH,02H,10H,7FH>') ICON:JumpPage EQUATE ('<0FFH,02H,11H,7FH>') ICON:Thumbnail EQUATE ('<0FFH,02H,12H,7FH>') ICON:Tick EQUATE ('<0FFH,02H,13H,7FH>') ICON:Cross EQUATE ('<0FFH,02H,14H,7FH>') ICON:Connect EQUATE ('<0FFH,02H,15H,7FH>') ICON:Print1 EQUATE ('<0FFH,02H,16H,7FH>') ICON:Ellipsis EQUATE ('<0FFH,02H,17H,7FH>')
Clarion Equates for Colors
COLOR:NONE EQUATE (-1) COLOR:SCROLLBAR EQUATE (80000000H) COLOR:BACKGROUND EQUATE (80000001H) COLOR:ACTIVECAPTION EQUATE (80000002H) COLOR:INACTIVECAPTION EQUATE (80000003H) COLOR:MENU EQUATE (80000004H) COLOR:WINDOW EQUATE (80000005H) COLOR:WINDOWFRAME EQUATE (80000006H) COLOR:MENUTEXT EQUATE (80000007H) COLOR:WINDOWTEXT EQUATE (80000008H) COLOR:CAPTIONTEXT EQUATE (80000009H) COLOR:ACTIVEBORDER EQUATE (8000000AH) COLOR:INACTIVEBORDER EQUATE (8000000BH) COLOR:APPWORKSPACE EQUATE (8000000CH) COLOR:HIGHLIGHT EQUATE (8000000DH) COLOR:HIGHLIGHTTEXT EQUATE (8000000EH) COLOR:BTNFACE EQUATE (8000000FH) COLOR:BTNSHADOW EQUATE (80000010H) COLOR:GRAYTEXT EQUATE (80000011H) COLOR:BTNTEXT EQUATE (80000012H) COLOR:INACTIVECAPTIONTEXT EQUATE (80000013H) COLOR:BTNHIGHLIGHT EQUATE (80000014H) COLOR:Black EQUATE (0000000H) COLOR:Maroon EQUATE (0000080H) COLOR:Green EQUATE (0008000H) COLOR:Olive EQUATE (0008080H) COLOR:Navy EQUATE (0800000H) COLOR:Purple EQUATE (0800080H) COLOR:Teal EQUATE (0808000H) COLOR:Gray EQUATE (0808080H) COLOR:Silver EQUATE (0C0C0C0H) COLOR:Red EQUATE (00000FFH) COLOR:Lime EQUATE (000FF00H) COLOR:Yellow EQUATE (000FFFFH) COLOR:Blue EQUATE (0FF0000H) COLOR:Fuschia EQUATE (0FF00FFH) COLOR:Aqua EQUATE (0FFFF00H) COLOR:White EQUATE (0FFFFFFH)