📄 jvhleditorpropertyform.pas
字号:
' miFileSave.Enabled := Modified;'#10 +
' end;'#10 +
'end;'#10 +
'[]'#10 +
''#10 +
'[CBuilder]'#10 +
'/* Syntax highlighting */'#10 +
'#include "zlib.h"'#10 +
''#10 +
'#define local static'#10 +
''#10 +
'local int crc_table_empty = 1;'#10 +
''#10 +
'local void make_crc_table()'#10 +
'{'#10 +
' uLong c;'#10 +
' int n, k;'#10 +
' uLong poly; /* polynomial exclusive-or pattern */'#10 +
' /* terms of polynomial defining this crc (except x^32): */'#10 +
' static Byte p[] = {0,1,2,4,5,7,8,10,11,12,16,22,23,26};'#10 +
''#10 +
' /* make exclusive-or pattern from polynomial (0xedb88320L) */'#10 +
' poly = 0L;'#10 +
' for (n = 0; n < sizeof(p)/sizeof(Byte); n++)'#10 +
' poly |= 1L << (31 - p[n]);'#10 +
''#10 +
' for (n = 0; n < 256; n++)'#10 +
' {'#10 +
' c = (uLong)n;'#10 +
' for (k = 0; k < 8; k++)'#10 +
' c = c & 1 ? poly ^ (c >> 1) : c >> 1;'#10 +
' crc_table[n] = c;'#10 +
' }'#10 +
' crc_table_empty = 0;'#10 +
'}'#10 +
'[]'#10 +
''#10 +
'[VB]'#10 +
'Rem Syntax highlighting'#10 +
'Sub Main()'#10 +
' Dim S as String'#10 +
' If S = "" Then'#10 +
' '#39' Do something'#10 +
' MsgBox "Hallo World"'#10 +
' End If'#10 +
'End Sub'#10 +
'[]'#10 +
''#10 +
'[Sql]'#10 +
'/* Syntax highlighting */'#10 +
'declare external function Copy'#10 +
' cstring(255), integer, integer'#10 +
' returns cstring(255)'#10 +
' entry_point "Copy" module_name "nbsdblib";'#10 +
'[]'#10 +
''#10 +
'[Python]'#10 +
'# Syntax highlighting'#10 +
''#10 +
'from Tkinter import *'#10 +
'from Tkinter import _cnfmerge'#10 +
''#10 +
'class Dialog(Widget):'#10 +
' def __init__(self, master=None, cnf={}, **kw):'#10 +
' cnf = _cnfmerge((cnf, kw))'#10 +
' self.widgetName = '#39'__dialog__'#39 +
' Widget._setup(self, master, cnf)'#10 +
' self.num = self.tk.getint('#10 +
' apply(self.tk.call,'#10 +
' ('#39'tk_dialog'#39', self._w,'#10 +
' cnf['#39'title'#39'], cnf['#39'text'#39'],'#10 +
' cnf['#39'bitmap'#39'], cnf['#39'default'#39'])'#10 +
' + cnf['#39'strings'#39']))'#10 +
' try: Widget.destroy(self)'#10 +
' except TclError: pass'#10 +
' def destroy(self): pass'#10 +
'[]'#10 +
''#10 +
'[Java]'#10 +
'/* Syntax highlighting */'#10 +
'public class utils {'#10 +
' public static String GetPropsFromTag(String str, String props) {'#10 +
' int bi;'#10 +
' String Res = "";'#10 +
' bi = str.indexOf(props);'#10 +
' if (bi > -1) {'#10 +
' str = str.substring(bi);'#10 +
' bi = str.indexOf("\"");'#10 +
' if (bi > -1) {'#10 +
' str = str.substring(bi+1);'#10 +
' Res = str.substring(0, str.indexOf("\""));'#10 +
' } else Res = "true";'#10 +
' }'#10 +
' return Res;'#10 +
' }'#10 +
'[]'#10 +
''#10 +
'[Html]'#10 +
'<html>'#10 +
'<head>'#10 +
'<meta name="GENERATOR" content="Microsoft FrontPage 3.0">'#10 +
'<title>JVCLmp;A Library home page</title>'#10 +
'</head>'#10 +
''#10 +
'<body background="zertxtr.gif" bgcolor="#000000" text="#FFFFFF" link="#FF0000"'#10 +
'alink="#FFFF00">'#10 +
''#10 +
'<p align="left">Download last JVCLmp;A Library version now - <font face="Arial"'#10 +
'color="#00FFFF"><a href="http://www.torry.ru/vcl/packs/ralib.zip"><small>ralib110.zip</small></a>'#10 +
'</font><font face="Arial" color="#008080"><small><small>(575 Kb)</small></small></font>.</p>'#10 +
''#10 +
'</body>'#10 +
'</html>'#10 +
'[]'#10 +
''#10 +
'[Perl]'#10 +
'#!/usr/bin/perl'#10 +
'# Syntax highlighting'#10 +
''#10 +
'require "webtester.pl";'#10 +
''#10 +
'$InFile = "/usr/foo/scripts/index.shtml";'#10 +
'$OutFile = "/usr/foo/scripts/sitecheck.html";'#10 +
'$MapFile = "/usr/foo/scripts/sitemap.html";'#10 +
''#10 +
'sub MainProg {'#10 +
#9'require "find.pl";'#10 +
#9'&Initialize;'#10 +
#9'&SiteCheck;'#10 +
#9'if ($MapFile) { &SiteMap; }'#10 +
#9'exit;'#10 +
'}'#10 +
'[Ini]'#10 +
' ; Syntax highlighting'#10 +
' [drivers]'#10 +
' wave=mmdrv.dll'#10 +
' timer=timer.drv'#10 +
''#10 +
' plain text'#10 +
'[Coco/R]'#10 +
'TOKENS'#10 +
' NUMBER = digit { digit } .'#10 +
' EOL = eol .'#10 +
''#10 +
'PRODUCTIONS'#10 +
''#10 +
'ExprPostfix ='#10 +
' (. Output := '#39#39'; .)'#10 +
' Expression<Output> EOL'#10 +
' (. ShowOutput(Output); .)'#10 +
' .'#10 +
'[]';
end;
(*
object raColorSamples: TJvRegAuto
RegPath = 'Software\nbs\RANotepad'
Storage = raIniStrings
IniFile = '$HOME/.JvInterpreterTest'
IniStrings.Strings = (
'[Default]'
'Plain text'
'Selected text'
''
'[Pascal]'
'{ Syntax highlighting }'
'procedure TMain.JvHLEditorPreviewChangeStatus(Sender: TObject);'
'const'
' Modi: array [Boolean] of string[10] = ('#39#39', '#39'Modified'#39');'
' Modes: array [Boolean] of string[10] = ('#39'Overwrite'#39', '#39'Insert'#39');'
'begin'
' with StatusBar, JvHLEditorPreview do'
' begin'
' Panels[0].Text := IntToStr(CaretY) + '#39':'#39' + IntToStr(CaretX);'
' Panels[1].Text := Modi[Modified];'
' if ReadOnly then'
' Panels[2].Text := '#39'ReadOnly'#39
' else'
' if Recording then'
' Panels[2].Text := '#39'Recording'#39
' else'
' Panels[2].Text := Modes[InsertMode];'
' miFileSave.Enabled := Modified;'
' end;'
'end;'
'[]'
''
'[CBuilder]'
'/* Syntax highlighting */'
'#include "zlib.h"'
''
'#define local static'
''
'local int crc_table_empty = 1;'
''
'local void make_crc_table()'
'{'
' uLong c;'
' int n, k;'
' uLong poly; /* polynomial exclusive-or pattern */'
' /* terms of polynomial defining this crc (except x^32): */'
' static Byte p[] = {0,1,2,4,5,7,8,10,11,12,16,22,23,26};'
''
' /* make exclusive-or pattern from polynomial (0xedb88320L) */'
' poly = 0L;'
' for (n = 0; n < sizeof(p)/sizeof(Byte); n++)'
' poly |= 1L << (31 - p[n]);'
''
' for (n = 0; n < 256; n++)'
' {'
' c = (uLong)n;'
' for (k = 0; k < 8; k++)'
' c = c & 1 ? poly ^ (c >> 1) : c >> 1;'
' crc_table[n] = c;'
' }'
' crc_table_empty = 0;'
'}'
'[]'
''
'[VB]'
'Rem Syntax highlighting'
'Sub Main()'
' Dim S as String'
' If S = "" Then'
' '#39' Do something'
' MsgBox "Hallo"'
' End If'
'End Sub'
'[]'
''
'[Sql]'
'/* Syntax highlighting */'
'declare external function Copy'
' cstring(255), integer, integer'
' returns cstring(255)'
' entry_point "Copy" module_name "nbsdblib";'
'[]'
''
'[Python]'
'# Syntax highlighting'
''
'from Tkinter import *'
'from Tkinter import _cnfmerge'
''
'class Dialog(Widget):'
' def __init__(self, master=None, cnf={}, **kw):'
' cnf = _cnfmerge((cnf, kw))'
' self.widgetName = '#39'__dialog__'#39
' Widget._setup(self, master, cnf)'
' self.num = self.tk.getint('
' apply(self.tk.call,'
' ('#39'tk_dialog'#39', self._w,'
' cnf['#39'title'#39'], cnf['#39'text'#39'],'
' cnf['#39'bitmap'#39'], cnf['#39'default'#39'])'
' + cnf['#39'strings'#39']))'
' try: Widget.destroy(self)'
' except TclError: pass'
' def destroy(self): pass'
'[]'
''
'[Java]'
'/* Syntax highlighting */'
'public class utils {'
' public static String GetPropsFromTag(String str, String props)' +
' {'
' int bi;'
' String Res = "";'
' bi = str.indexOf(props);'
' if (bi > -1) {'
' str = str.substring(bi);'
' bi = str.indexOf("\"");'
' if (bi > -1) {'
' str = str.substring(bi+1);'
' Res = str.substring(0, str.indexOf("\""));'
' } else Res = "true";'
' }'
' return Res;'
' }'
'[]'
''
'[Html]'
'<html>'
'<head>'
'<meta name="GENERATOR" content="Microsoft FrontPage 3.0">'
'<title>JVCLmp;A Library home page</title>'
'</head>'
''
'<body background="zertxtr.gif" bgcolor="#000000" text="#FFFFFF" ' +
'link="#FF0000"'
'alink="#FFFF00">'
''
'<p align="left">Download last JVCLmp;A Library version now - <fo' +
'nt face="Arial"'
'color="#00FFFF"><a href="http://www.torry.ru/vcl/packs/ralib.zip' +
'"><small>ralib110.zip</small></a>'
'</font><font face="Arial" color="#008080"><small><small>(575 Kb)' +
'</small></small></font>.</p>'
''
'</body>'
'</html>'
'[]'
''
'[Perl]'
'#!/usr/bin/perl'
'# Syntax highlighting'
''
'require "webtester.pl";'
''
'$InFile = "/usr/foo/scripts/index.shtml";'
'$OutFile = "/usr/foo/scripts/sitecheck.html";'
'$MapFile = "/usr/foo/scripts/sitemap.html";'
''
'sub MainProg {'
#9'require "find.pl";'
#9'&Initialize;'
#9'&SiteCheck;'
#9'if ($MapFile) { &SiteMap; }'
#9'exit;'
'}'
'[Ini]'
' ; Syntax highlighting'
' [drivers]'
' wave=mmdrv.dll'
' timer=timer.drv'
''
' plain text'
'[Coco/R]'
'TOKENS'
' NUMBER = digit { digit } .'
' EOL = eol .'
''
'PRODUCTIONS'
''
'ExprPostfix ='
' (. Output := '#39#39'; .)'
' Expression<Output> EOL'
' (. ShowOutput(Output); .)'
' .'
'[]')
*)
{$IFDEF UNITVERSIONING}
initialization
RegisterUnitVersion(HInstance, UnitVersioning);
finalization
UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -