object frmHighLighter: TfrmHighLighter
  Left = 246
  Top = 51
  BorderStyle = bsDialog
  Caption = #32534#36753#22120
  ClientHeight = 548
  ClientWidth = 751
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 15
  object btnClose: TButton
    Left = 637
    Top = 506
    Width = 75
    Height = 25
    Caption = #20851#38381
    Default = True
    TabOrder = 0
    OnClick = btnCloseClick
  end
  object SynEdit1: TSynEdit
    Left = 22
    Top = 14
    Width = 715
    Height = 483
    Color = clBlack
    CodeFolding.CaseSensitive = False
    CodeFolding.FolderBarLinesColor = 9617866
    ActiveLine.Background = clMenuHighlight
    ActiveLine.Foreground = clNavy
    ActiveLine.Visible = True
    LineDivider.Visible = False
    LineDivider.Color = clRed
    LineDivider.Style = psSolid
    RightEdge.MouseMove = False
    RightEdge.Visible = True
    RightEdge.Position = 80
    RightEdge.Color = clSilver
    RightEdge.Style = psSolid
    LineSpacing = 0
    LineSpacingRule = lsSingle
    Background.Visible = False
    Background.RepeatMode = brmNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    TabOrder = 1
    BorderStyle = bsNone
    Gutter.ShowLineModified = False
    Gutter.LineModifiedColor = clYellow
    Gutter.LineNormalColor = clLime
    Gutter.Font.Charset = DEFAULT_CHARSET
    Gutter.Font.Color = clWindowText
    Gutter.Font.Height = -11
    Gutter.Font.Name = 'Courier New'
    Gutter.Font.Style = []
    Gutter.LeftOffsetColor = clNone
    Gutter.RightOffsetColor = clNone
    Highlighter = SynPasSyn1
    Lines.Strings = (
      '  function Clone(AHighLighter: THighLightInfo): THighLightInfo;'
      '  begin'
      '    Result := THighLightInfo.Create;'
      '    Result.Title := AHighLighter.Title;'
      '    Result.ForeGround := AHighLighter.ForeGround;'
      '    Result.BackGround := AHighLighter.BackGround;'
      '    Result.BoldStyle := AHighLighter.BoldStyle;'
      '    Result.ItalicStyle := AHighLighter.ItalicStyle;'
      '    Result.UnderlineStyle := AHighLighter.UnderlineStyle;'
      '    Result.StrikeOutStyle := AHighLighter.StrikeOutStyle;'
      '  end;'
      'begin'
      '  Result := TStringList.Create;'
      ''
      '  if ADefault then'
      '  begin'
      
        '    for I := 0 to frmHighLighter.LstDefaultHightLighter.Count - ' +
        '1 do'
      '    begin'
      
        '      Result.AddObject('#39#39', Clone(THighLightInfo(frmHighLighter.L' +
        'stDefaultHightLighter.Objects[I])));'
      '    end;'
      '  end'
      '  else begin'
      '    objHighLighter := THighLightInfo.Create;'
      '    objHighLighter.Title := '#39#32972#26223#33394#39';'
      '    objHighLighter.BackGround := frmHighLighter.SynEdit1.Color;'
      '    Result.AddObject('#39#39',objHighLighter);'
      
        '    Result.AddObject('#39#39',GetHighLight('#39#27719#32534#39', frmHighLighter.SynPas' +
        'Syn1.AsmAttri));'
      
        '    Result.AddObject('#39#39',GetHighLight('#39#27880#37322#39', frmHighLighter.SynPas' +
        'Syn1.CommentAttri));'
      
        '    Result.AddObject('#39#39',GetHighLight('#39#25351#31034#31526#39', frmHighLighter.SynPa' +
        'sSyn1.DirectiveAttri));')
    WordWrap.Enabled = False
    WordWrap.Position = 80
    WordWrap.Style = wwsClientWidth
  end
  object SynPasSyn1: TSynPasSyn
    AsmAttri.Foreground = clAqua
    CommentAttri.Foreground = clGreen
    IdentifierAttri.Foreground = clWhite
    KeyAttri.Foreground = clAqua
    NumberAttri.Foreground = clFuchsia
    FloatAttri.Foreground = clFuchsia
    HexAttri.Foreground = clFuchsia
    SpaceAttri.Foreground = clGreen
    StringAttri.Foreground = clYellow
    CharAttri.Foreground = clYellow
    SymbolAttri.Foreground = clAqua
    Left = 103
    Top = 308
  end
end
