📄 ca-clipper.xml
字号:
<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
<SyntaxColoring>
<Info>
<General Name="CA-Clipper" Extensions="PRG CH INC" Version="1" Revision="0" Sample="* CA-CLIPPER 5.xx VERSION
#include "Directry.CH"
STATIC aErrTxt := CP_ERRMSG
STATIC bHitKey := { || DevPos (MaxRow(), 32), DevOut ( 'Hit any key ....' ),;
InKey ( 0 ) }
FUNCTION RCmpDemo
*-- Main menu
LOCAL nChoice := 1 && Menu choice
SetColor ( 'W+/B' )
DO WHILE .t.
*-- Display header lines
Eval ( bHeader )
cOldCol := SetColor ( 'W+/R' )
nRetCode := R_CmpFile ( { 'RCmpLib.*', '*.PRG', 'Dutch.REG' }, ;
'Archive.RCP', .F., 30, 7, 25, Chr ( 177 ), 'GR+/R', nil, .T., ;
{ |x| DispName ( x, 9, 38 ) } )
ENDDO
RETURN nil
" History=""/>
<Author Name="Vitaly Nevzorov" Mail="nevzorov@yahoo.com" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark="Translated from SynHighlighterCAC.pas in modification"/>
</Info>
<Schemes/>
<Editor/>
<MainRules Name="Root" Style="Root">
<Attributes Foreground="clBlack" Background="clWhite"/>
<Delimiters Value="!$%&()+,-:;<=>?@[\]^`{|}~"/>
<SubRules>
<Range Name="Directive" CaseSensitive="True" Style="Directive">
<Attributes Foreground="$000080FF" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties CloseOnTerm="True"/>
<MultiTokens>
<Tokens Open="#"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Strings '..'" CaseSensitive="True" Style="Strings '..'">
<Attributes Foreground="clRed" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open="'" Close="'"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Strings &qt;..&qt;" CaseSensitive="True" Style="Strings &qt;..&qt;">
<Attributes Foreground="clRed" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open=""" Close="""/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Remarks /*..*/" CaseSensitive="True" Style="Remarks /*..*/">
<Attributes Foreground="$00A00000" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine="" PartOfTerm="Left"/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open="/*" Close="*/"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Remarks //" Style="Remarks //">
<Attributes Foreground="$00A00000" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties CloseOnEol="True"/>
<MultiTokens>
<Tokens Open="//"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Remarks *" Style="Remarks *">
<Attributes Foreground="$00A00000" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine="" PartOfTerm="Left"/>
<CloseToken StartLine=""/>
<Properties CloseOnEol="True"/>
<MultiTokens>
<Tokens Open="*"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Params" Style="Params">
<Attributes Foreground="$00FF0080" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open="." Close="."/>
</MultiTokens>
<SubRules/>
</Range>
<KeyList Name="Key words" Enabled="True" Style="" Words="AADD
IF
AND
AT
GO
ABS
BOF
ASC
IIF
EOF
READ
CALL
CHR
DAY
DATE
COL
PACK
LEN
DIR
GET
FILE
FIND
OR
LOG
VAL
FIELD
MIN
BEGIN
BREAK
ENDIF
CANCEL
MAX
CLEAR
FOR
SEEK
ELSE
LOCK
ENDDO
CTOD
DOW
DTOC
LOCAL
INT
EJECT
ZAP
SPACE
SAY
EXP
CDOW
USE
PCOL
FLOCK
TIME
SAVE
DECLARE
ERASE
JOIN
NOT
YEAR
RECALL
DELETE
ENDCASE
INIT
CREATE
WAIT
SUM
RUN
CLOSE
NOTE
DELETED
SKIP
RECNO
ROW
INDEX
LOCATE
RENAME
ELSEIF
WHILE
STR
EXIT
DTOS
RLOCK
COPY
AVERAGE
REPLACE
LIST
TRIM
WORD
FOUND
PUBLIC
SELECT
INKEY
RELEASE
TYPE
UPDATE
QUIT
TOTAL
TEXT
FIELDNAME
MONTH
ROUND
LTRIM
MEMVAR
SORT
STATIC
PROW
LOWER
COUNT
COMMIT
CMONTH
SQRT
UPPER
UNLOCK
STORE
RTRIM
LASTREC
EMPTY
FCOUNT
SECONDS
REINDEX
INPUT
KEYBOARD
DEVPOS
DISPLAY
ANNOUNCE
PCOUNT
REPLICATE
SEQUENCE
PRIVATE
SETPOS
RETURN
PROMPT
RECCOUNT
EXTERNAL
SUBSTR
RESTORE
CONTINUE
VALTYPE
FUNCTION
REQUEST
PROCEDURE
PARAMETERS
TRANSFORM
accept
append
all
alternate
box
blank
bell
century
color
confirm
console
cursor
decimals
default
delimiters
device
extended
epoch
escape
exact
exclusive
form
from
filter
fixed
format
gets
key
label
memory
menu
margin
message
order
path
printer
report
relation
screen
structure
set
scoreboard
softseek
to
typeahead
unique
wrap
case
do
end
loop
next
otherwise
recover
step
using
with
achoice
aclone
acopy
adel
adir
aeval
afields
afill
ains
alert
alias
alltrim
altd
array
ascan
asize
asort
atail
bin2i
bin2l
bin2w
browse
colorselect
curdir
dbappend
dbclearfilter
dbclearindex
dbclearrelation
dbcloseall
dbclosearea
dbcommit
dbcommitall
dbcreate
dbcreateindex
dbdelete
dbedit
dbeval
dbf
dbfilter
dbgobottom
dbgoto
dbgotop
dbrecall
dbreindex
dbrelation
dbrselect
dbseek
dbselectarea
dbsetdriver
dbsetfilter
dbsetindex
dbsetorder
dbsetrelation
dbskip
dbstruct
dbunlock
dbunlockall
dbusearea
descend
devout
devoutpict
directory
diskspace
dispbegin
dispbox
dispcount
dispend
dispout
doserror
errorblock
errorlevel
eval
fclose
fcreate
ferase
ferror
fieldblock
fieldget
fieldpos
fieldput
fieldwblock
fklabel
fkmax
fopen
fread
freadstr
frename
fseek
fwrite
getenv
hardcr
header
i2bin
indexext
indexkey
indexord
isalpha
iscolor
isdigit
islower
isprinter
isupper
l2bin
lastkey
left
lupdate
maxcol
maxrow
memoedit
memoline
memoread
memotran
memowrit
memvarblock
mlcount
mlctopos
mlpos
mod
mpostolc
neterr
netname
nextkey
nosnow
os
outerr
outstd
pad
procline
procname
qout
rat
readexit
readinsert
readkey
readmodal
readvar
recsize
restscreen
right
savescreen
scroll
setblink
setcancel
setcolor
setcursor
setkey
setmode
setprc
soundex
strtran
stuff
tone
updated
version
">
<Attributes Foreground="clGreen" Background="clWhite"/>
</KeyList>
</SubRules>
</MainRules>
</SyntaxColoring>
<CodeFolding/>
<CustomData/>
</SynUniHighlighter>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -