sakurasuite/sample_editor/Unit1.dfm

   1 object Form1: TForm1
   2   Left = 281
   3   Top = 541
   4   Width = 531
   5   Height = 418
   6   Caption = 'SakuraScript Editor Test'
   7   Color = clBtnFace
   8   Font.Charset = SHIFTJIS_CHARSET
   9   Font.Color = clWindowText
  10   Font.Height = -12
  11   Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
  12   Font.Style = []
  13   OldCreateOrder = False
  14   Position = poDesktopCenter
  15   OnResize = FormResize
  16   PixelsPerInch = 96
  17   TextHeight = 12
  18   object Editor1: TEditor
  19     Left = 0
  20     Top = 0
  21     Width = 338
  22     Height = 391
  23     Cursor = crIBeam
  24     Align = alClient
  25     Caret.AutoCursor = True
  26     Caret.AutoIndent = False
  27     Caret.BackSpaceUnIndent = True
  28     Caret.Cursors.DefaultCursor = crIBeam
  29     Caret.Cursors.DragSelCursor = crDrag
  30     Caret.Cursors.DragSelCopyCursor = 2
  31     Caret.Cursors.InSelCursor = crDefault
  32     Caret.Cursors.LeftMarginCursor = 1
  33     Caret.Cursors.TopMarginCursor = crDefault
  34     Caret.FreeCaret = False
  35     Caret.FreeRow = False
  36     Caret.InTab = False
  37     Caret.KeepCaret = True
  38     Caret.LockScroll = False
  39     Caret.NextLine = True
  40     Caret.PrevSpaceIndent = False
  41     Caret.RowSelect = True
  42     Caret.SelDragMode = dmAutomatic
  43     Caret.SelMove = True
  44     Caret.SoftTab = True
  45     Caret.Style = csDefault
  46     Caret.TabIndent = False
  47     Caret.TabSpaceCount = 8
  48     Color = clWindow
  49     Fountain = SakuraScriptFountain1
  50     Font.Charset = SHIFTJIS_CHARSET
  51     Font.Color = clBlack
  52     Font.Height = -12
  53     Font.Name = #65325#65331' '#12468#12471#12483#12463
  54     Font.Style = []
  55     HitStyle = hsSelect
  56     Imagebar.DigitWidth = 8
  57     Imagebar.LeftMargin = 2
  58     Imagebar.MarkWidth = 0
  59     Imagebar.RightMargin = 2
  60     Imagebar.Visible = False
  61     Lines.Strings = (
  62       '\t\h\s[5]\_s'#12362#12399#12424#12358#12394#65374#12290'<br>\e')
  63     Marks.EofMark.Color = clGray
  64     Marks.EofMark.Visible = False
  65     Marks.RetMark.Color = clGray
  66     Marks.RetMark.Visible = False
  67     Marks.WrapMark.Color = clGray
  68     Marks.WrapMark.Visible = False
  69     Marks.HideMark.Color = clGray
  70     Marks.HideMark.Visible = False
  71     Marks.Underline.Color = clGray
  72     Marks.Underline.Visible = False
  73     Margin.Character = 0
  74     Margin.Left = 2
  75     Margin.Line = 0
  76     Margin.Top = 2
  77     Leftbar.BkColor = clSilver
  78     Leftbar.Color = clBlack
  79     Leftbar.Column = 1
  80     Leftbar.Edge = True
  81     Leftbar.LeftMargin = 2
  82     Leftbar.RightMargin = 2
  83     Leftbar.ShowNumber = True
  84     Leftbar.ShowNumberMode = nmRow
  85     Leftbar.Visible = False
  86     Leftbar.ZeroBase = False
  87     Leftbar.ZeroLead = True
  88     ReadOnly = False
  89     Ruler.BkColor = clSilver
  90     Ruler.Color = clBlack
  91     Ruler.Edge = True
  92     Ruler.GaugeRange = 10
  93     Ruler.MarkColor = clBlack
  94     Ruler.Visible = True
  95     ScrollBars = ssBoth
  96     Speed.CaretVerticalAc = 2
  97     Speed.InitBracketsFull = False
  98     Speed.PageVerticalRange = 2
  99     Speed.PageVerticalRangeAc = 2
 100     TabOrder = 0
 101     UndoListMax = 64
 102     View.Brackets = <>
 103     View.Colors.Ank.BkColor = clNone
 104     View.Colors.Ank.Color = clNone
 105     View.Colors.Ank.Style = []
 106     View.Colors.Comment.BkColor = clNone
 107     View.Colors.Comment.Color = clNone
 108     View.Colors.Comment.Style = []
 109     View.Colors.DBCS.BkColor = clNone
 110     View.Colors.DBCS.Color = clNone
 111     View.Colors.DBCS.Style = []
 112     View.Colors.Hit.BkColor = clNone
 113     View.Colors.Hit.Color = clNone
 114     View.Colors.Hit.Style = []
 115     View.Colors.Int.BkColor = clNone
 116     View.Colors.Int.Color = clNone
 117     View.Colors.Int.Style = []
 118     View.Colors.Mail.BkColor = clNone
 119     View.Colors.Mail.Color = clNone
 120     View.Colors.Mail.Style = []
 121     View.Colors.Reserve.BkColor = clNone
 122     View.Colors.Reserve.Color = clNone
 123     View.Colors.Reserve.Style = []
 124     View.Colors.Select.BkColor = clNavy
 125     View.Colors.Select.Color = clWhite
 126     View.Colors.Select.Style = []
 127     View.Colors.Str.BkColor = clNone
 128     View.Colors.Str.Color = clNone
 129     View.Colors.Str.Style = []
 130     View.Colors.Symbol.BkColor = clNone
 131     View.Colors.Symbol.Color = clNone
 132     View.Colors.Symbol.Style = []
 133     View.Colors.Url.BkColor = clNone
 134     View.Colors.Url.Color = clNone
 135     View.Colors.Url.Style = []
 136     View.ControlCode = False
 137     View.Mail = False
 138     View.Url = False
 139     WantReturns = True
 140     WantTabs = True
 141     WordWrap = True
 142     WrapOption.FollowRetMark = False
 143     WrapOption.FollowPunctuation = False
 144     WrapOption.FollowStr = #12289#12290#65292#65294#12539#65311#65281#12443#12444#12541#12542#12445#12446#12293#12540#65289#65341#65373#12301#12303'!),.:;?]}'#65377#65379#65380#65381#65392#65438#65439
 145     WrapOption.Leading = False
 146     WrapOption.LeadStr = #65288#65339#65371#12300#12302'([{'#65378
 147     WrapOption.PunctuationStr = #12289#12290#65292#65294',.'#65377#65380
 148     WrapOption.WordBreak = False
 149     WrapOption.WrapByte = 40
 150   end
 151   object Memo1: TMemo
 152     Left = 338
 153     Top = 0
 154     Width = 185
 155     Height = 391
 156     Align = alRight
 157     Lines.Strings = (
 158       'Memo1')
 159     TabOrder = 1
 160     OnClick = Memo1Click
 161   end
 162   object SakuraScriptFountain1: TSakuraScriptFountain
 163     Brackets = <>
 164     Reserve.BkColor = clNone
 165     Reserve.Color = clNone
 166     Reserve.Style = []
 167     Scope0Color.BkColor = clNone
 168     Scope0Color.Color = clNavy
 169     Scope0Color.Style = []
 170     Scope1Color.BkColor = clNone
 171     Scope1Color.Color = clOlive
 172     Scope1Color.Style = []
 173     TagColor.BkColor = clNone
 174     TagColor.Color = clLime
 175     TagColor.Style = []
 176     TagErrorColor.BkColor = clNone
 177     TagErrorColor.Color = clRed
 178     TagErrorColor.Style = [fsBold]
 179     MetaWordColor.BkColor = clNone
 180     MetaWordColor.Color = clBlue
 181     MetaWordColor.Style = [fsBold]
 182     SynchronizedColor.BkColor = clNone
 183     SynchronizedColor.Color = clFuchsia
 184     SynchronizedColor.Style = []
 185     SakuraScriptParser = SsParser1
 186     Left = 16
 187     Top = 320
 188   end
 189   object SsParser1: TSsParser
 190     TagPattern.Strings = (
 191       '\h'
 192       '\u'
 193       '\s[%D]'
 194       '\s[-%D]'
 195       '\s%d'
 196       '!s%b'
 197       '!s%.'
 198       '!b%b'
 199       '!b%.'
 200       '!f%b'
 201       '\n[half]'
 202       '!n%b'
 203       '\n'
 204       '\w%d'
 205       '!w%.'
 206       '\e'
 207       '\t'
 208       '\_s'
 209       '\_q'
 210       '!j%b'
 211       '!j'
 212       '\c'
 213       '\URL%b%b%b%b%b%b%b%b%b%b%b%b%b%b%b'
 214       '\URL%b%b%b%b%b%b%b%b%b%b%b%b%b'
 215       '\URL%b%b%b%b%b%b%b%b%b%b%b'
 216       '\URL%b%b%b%b%b%b%b%b%b'
 217       '\URL%b%b%b%b%b%b%b'
 218       '\URL%b%b%b%b%b'
 219       '\URL%b%b%b'
 220       '\URL%b'
 221       '!x'
 222       '!l%b'
 223       '!q%d%b%b'
 224       '!q%d%b'
 225       '!q%d'
 226       '!z'
 227       '!y'
 228       '!*'
 229       '!v'
 230       '!_v%b'
 231       '!_V'
 232       '!8%b'
 233       '!8'
 234       '!m%b'
 235       '!m'
 236       '!i[%D]'
 237       '!i%.'
 238       '!_i'
 239       '!a'
 240       '!_c%b'
 241       '!_c'
 242       '!__c'
 243       '!__t'
 244       '!-'
 245       '!+'
 246       '!_b%b'
 247       '!1'
 248       '!2'
 249       '!3'
 250       '!4'
 251       '!5'
 252       '!6'
 253       '!7'
 254       '!|'
 255       '!_w%b'
 256       '!_+')
 257     MetaPattern.Strings = (
 258       'selfname2'
 259       'selfname'
 260       'keroname'
 261       'username'
 262       'screenwidth'
 263       'screenheight'
 264       'month'
 265       'day'
 266       'hour'
 267       'minute'
 268       'second'
 269       'wronghour'
 270       'songname'
 271       'j%b'
 272       'exh'
 273       'by'
 274       'bm'
 275       'bd'
 276       'et'
 277       'ms'
 278       'mz'
 279       'ml'
 280       'mc'
 281       'mh'
 282       'mt'
 283       'me'
 284       'mp'
 285       'm?'
 286       'dms'
 287       'c'
 288       '0'
 289       '1')
 290     Left = 16
 291     Top = 288
 292   end
 293   object HTMLFountain1: THTMLFountain
 294     FileExtList.Strings = (
 295       '.htm'
 296       '.html')
 297     Brackets = <
 298       item
 299         ItemColor.BkColor = clNone
 300         ItemColor.Color = clPurple
 301         ItemColor.Style = []
 302         LeftBracket = '<!--'
 303         RightBracket = '-->'
 304       end>
 305     Reserve.BkColor = clNone
 306     Reserve.Color = clNone
 307     Reserve.Style = []
 308     Ampersand.BkColor = clNone
 309     Ampersand.Color = clNone
 310     Ampersand.Style = []
 311     Mail.BkColor = clNone
 312     Mail.Color = clGray
 313     Mail.Style = []
 314     Str.BkColor = clNone
 315     Str.Color = clNone
 316     Str.Style = []
 317     TagAttribute.BkColor = clNone
 318     TagAttribute.Color = clFuchsia
 319     TagAttribute.Style = []
 320     TagAttributeValue.BkColor = clNone
 321     TagAttributeValue.Color = clYellow
 322     TagAttributeValue.Style = []
 323     TagColor.BkColor = clNone
 324     TagColor.Color = clOlive
 325     TagColor.Style = []
 326     TagElement.BkColor = clNone
 327     TagElement.Color = clGreen
 328     TagElement.Style = [fsBold]
 329     Url.BkColor = clNone
 330     Url.Color = clNone
 331     Url.Style = []
 332     Left = 16
 333     Top = 216
 334   end
 335   object DelphiFountain1: TDelphiFountain
 336     FileExtList.Strings = (
 337       '.dpr'
 338       '.inc'
 339       '.pas')
 340     Brackets = <
 341       item
 342         ItemColor.BkColor = clNone
 343         ItemColor.Color = clOlive
 344         ItemColor.Style = []
 345         LeftBracket = '{'
 346         RightBracket = '}'
 347       end
 348       item
 349         ItemColor.BkColor = clNone
 350         ItemColor.Color = clOlive
 351         ItemColor.Style = []
 352         LeftBracket = '(*'
 353         RightBracket = '*)'
 354       end>
 355     Reserve.BkColor = clNone
 356     Reserve.Color = clBlue
 357     Reserve.Style = [fsBold]
 358     ReserveWordList.Strings = (
 359       'absolute'
 360       'abstract'
 361       'and'
 362       'array'
 363       'as'
 364       'asm'
 365       'assembler'
 366       'automated'
 367       'begin'
 368       'case'
 369       'cdecl'
 370       'class'
 371       'const'
 372       'constructor'
 373       'default'
 374       'destructor'
 375       'dispid'
 376       'dispinterface'
 377       'div'
 378       'do'
 379       'downto'
 380       'dynamic'
 381       'else'
 382       'end'
 383       'except'
 384       'export'
 385       'exports'
 386       'external'
 387       'far'
 388       'file'
 389       'finalization'
 390       'finally'
 391       'for'
 392       'forward'
 393       'function'
 394       'goto'
 395       'if'
 396       'implementation'
 397       'in'
 398       'inherited'
 399       'initialization'
 400       'inline'
 401       'interface'
 402       'is'
 403       'label'
 404       'library'
 405       'message'
 406       'mod'
 407       'near'
 408       'nil'
 409       'nodefault'
 410       'not'
 411       'object'
 412       'of'
 413       'or'
 414       'out'
 415       'overload'
 416       'override'
 417       'packed'
 418       'pascal'
 419       'private'
 420       'procedure'
 421       'program'
 422       'property'
 423       'protected'
 424       'public'
 425       'published'
 426       'raise'
 427       'readonly'
 428       'record'
 429       'register'
 430       'repeat'
 431       'resident'
 432       'resourcestring'
 433       'safecall'
 434       'set'
 435       'shl'
 436       'shr'
 437       'stdcall'
 438       'stored'
 439       'string'
 440       'then'
 441       'threadvar'
 442       'to'
 443       'try'
 444       'type'
 445       'unit'
 446       'until'
 447       'uses'
 448       'var'
 449       'virtual'
 450       'while'
 451       'with'
 452       'writeonly'
 453       'xor')
 454     Ank.BkColor = clNone
 455     Ank.Color = clBlack
 456     Ank.Style = []
 457     AsmBlock.BkColor = clNone
 458     AsmBlock.Color = clNone
 459     AsmBlock.Style = []
 460     Comment.BkColor = clNone
 461     Comment.Color = clOlive
 462     Comment.Style = []
 463     DBCS.BkColor = clNone
 464     DBCS.Color = clNone
 465     DBCS.Style = []
 466     Int.BkColor = clNone
 467     Int.Color = clNone
 468     Int.Style = []
 469     Str.BkColor = clNone
 470     Str.Color = clNone
 471     Str.Style = []
 472     Symbol.BkColor = clNone
 473     Symbol.Color = clNone
 474     Symbol.Style = []
 475     Left = 16
 476     Top = 248
 477   end
 478 end