由于UEDIT32仅支持MS的东西突出显示,使得我们这些使用DELPHI的兄弟极不方便,我自己给它增加了这个东东,对大家应该有一点点用处DI,HOHO!!把下面的东东增加到UEDIT32目录下的WORDFILE.TXT文件中去,就OK啦,当然还不是很完整,如果有哪位兄弟把它更加完善一下的话,还请您送给大家啦!!注意:前面的第三个字符“6”是根据上面的“5”来的,你可以自己修改!!/L6"Delphi" Line Comment = // Block Comment On = { Block Comment Off = } File Extensions = Pas Dpr Dfm
/Function String = "%[PF]*)$"
/Delimiters = ~!@$%^&*()+=|\/[]:;"'<> ,.?/
/Indent Strings = "begin"
/Unindent Strings = "end"/C1"常用"
as array
As Arraybegin
Begincase class continue const
Case Class Continue Constdo
Doelse end exit except
Else End Exit Exceptfinally for function file
Finally For Function Fileif interface implementation is
If Interface Implementation Isof
Ofprocedure private protected public
Procedure Private Protected Publicrecord Result
self stdcall string
String
then type try
uses unit
var
while with /C2"函数"
Rect
OffsetRect
UnionRect
InvalidateRect
CallNextHookEx/C3"类型"
Boolean
boolean
Char
integer
Integer
HDC HWnd
hWnd
pchar
Pchar
string
THandle TButton TRect TFont TDate TDateTime TTime TColor TPanel TMenuItem TLabel TListView
TTabSheet TPageControl TImageList TPoint
TMemo TObject TMouseButton TShiftState TMessage TListItem TBitMap TStaticText TEdit TForm
word
Word/C4"属性"
Canvas
canvas
/Function String = "%[PF]*)$"
/Delimiters = ~!@$%^&*()+=|\/[]:;"'<> ,.?/
/Indent Strings = "begin"
/Unindent Strings = "end"/C1"常用"
as array
As Arraybegin
Begincase class continue const
Case Class Continue Constdo
Doelse end exit except
Else End Exit Exceptfinally for function file
Finally For Function Fileif interface implementation is
If Interface Implementation Isof
Ofprocedure private protected public
Procedure Private Protected Publicrecord Result
self stdcall string
String
then type try
uses unit
var
while with /C2"函数"
Rect
OffsetRect
UnionRect
InvalidateRect
CallNextHookEx/C3"类型"
Boolean
boolean
Char
integer
Integer
HDC HWnd
hWnd
pchar
Pchar
string
THandle TButton TRect TFont TDate TDateTime TTime TColor TPanel TMenuItem TLabel TListView
TTabSheet TPageControl TImageList TPoint
TMemo TObject TMouseButton TShiftState TMessage TListItem TBitMap TStaticText TEdit TForm
word
Word/C4"属性"
Canvas
canvas
解决方案 »
- 关于用ReportMachine打印问题
- 怎么做这样的窗体?
- 在DBGrid表格中如何在某列内容的前面显示一个小图片??请进
- !!婚!!外!!情!!管!!理!!试!!行!!条!!例!!!!!!!!!!
- 做复杂报表,各位有什么技巧吗
- 如何打开子窗口?
- 求一个关于时间的公式或函数?
- 在DbGrid中如何设置某列特定行的字体变红,或单元变红?
- 关于MDI的打开、显示、释放的问题
- 为什么我动态的将数据加入InfoPower2000 的TwwDBComboBox 中并且将其属性中的MapList设置为True 可是使用GetComboValue获得的值为空?
- ★★★最后一搏,提供源代码,求高手救我!!
- 关于treeview 的问题
/Delimiters = #$&'()*+,-./;<>@[]^{}
/Function String = "%^{procedure^}^{function^}"
/Indent Strings = "begin" "repeat" "asm"
/Unindent Strings = "end" "until"
/C1"Reserved words"
array asm
begin
case class const constructor
destructor dispinterface do downto
else end except exports
file finalization finally for function
goto
if implementation inherited initialization inline interface
label library
nil
object of out
packed procedure program property
raise record repeat resourcestring
set string
then threadvar to try type
unit until
uses
var
while with
/C2"Directives"
absolute abstract assembler automated
cdecl contains
default dispid dynamic
export external
far forward
implements index
message
name near nodefault
overload override
package pascal private protected public published
read readonly register reintroduce requires resident
safecall stdcall stored
virtual
write writeonly
/C3"Operators"
*
+
-
// /
< <= <>
=
> >=
@
and as
div
in is
mod
not
or
shl shr
xor
/C4"Special symbols"
#
$
&
(
(.
)
,
.
.)
..
:
:=
;
[
]
^
/ \
|.|
|.|
|:| __
,_|:|_, / )
(Oo / _I_
+\ \ ||^^|
\ \||_0→| 顶阿~~
\ /.:.\-\
|.:. /-----\
|___|::oOo::|
/ |:<_T_>:|
""....""
String Chars = ' File Extensions = pas dpr
改为
String Chars = ' File Extensions = pas dpr dpk
更好些
刚才没有看到 shuixin13(犬犬(心帆)) 已经贴出下载地址了,不好意思,你还是自己去下载吧:
http://www.ultraedit.com/downloads/additional.html