upasfileeditsetform.pas

Delphi函数工厂。。。。。。。。。。。。。

          Foreground := pnlFColor.Color;
      11:
        with PasFileEditForm.SynPasSyn.SymbolAttri do
          Foreground := pnlFColor.Color;
    end;
  end
  else
  begin
    case Kind.ItemIndex of
      0:
        with PasFileEditForm.SynPasSyn.AsmAttri do
          Foreground := pnlFColor.Color;
      1:
        with PasFileEditForm.SynPasSyn.CharAttri do
          Foreground := pnlFColor.Color;
      2:
        with PasFileEditForm.SynPasSyn.CommentAttri do
          Foreground := pnlFColor.Color;
      3:
        with PasFileEditForm.SynPasSyn.DirectiveAttri do
          Foreground := pnlFColor.Color;
      4:
        with PasFileEditForm.SynPasSyn.FloatAttri do
          Foreground := pnlFColor.Color;
      5:
        with PasFileEditForm.SynPasSyn.HexAttri do
          Foreground := pnlFColor.Color;
      6:
        with PasFileEditForm.SynPasSyn.IdentifierAttri do
          Foreground := pnlFColor.Color;
      7:
        with PasFileEditForm.SynPasSyn.KeyAttri do
          Foreground := pnlFColor.Color;
      8:
        with PasFileEditForm.SynPasSyn.NumberAttri do
          Foreground := pnlFColor.Color;
      9:
        with PasFileEditForm.SynPasSyn.SpaceAttri do
          Foreground := pnlFColor.Color;
      10:
        with PasFileEditForm.SynPasSyn.StringAttri do
          Foreground := pnlFColor.Color;
      11:
        with PasFileEditForm.SynPasSyn.SymbolAttri do
          Foreground := pnlFColor.Color;
    end;
  end;
  pnlFColor.Caption := ColorToString(pnlFColor.Color);
end;

procedure TPasFileEditSetForm.BColorClick(Sender: TObject);
begin
  if not BColor.Checked then
  begin
    pnlBColor.Color := clNone;
    case Kind.ItemIndex of
      0:
        with PasFileEditForm.SynPasSyn.AsmAttri do
          Background := pnlBColor.Color;
      1:
        with PasFileEditForm.SynPasSyn.CharAttri do
          Background := pnlBColor.Color;
      2:
        with PasFileEditForm.SynPasSyn.CommentAttri do
          Background := pnlBColor.Color;
      3:
        with PasFileEditForm.SynPasSyn.DirectiveAttri do
          Background := pnlBColor.Color;
      4:
        with PasFileEditForm.SynPasSyn.FloatAttri do
          Background := pnlBColor.Color;
      5:
        with PasFileEditForm.SynPasSyn.HexAttri do
          Background := pnlBColor.Color;
      6:
        with PasFileEditForm.SynPasSyn.IdentifierAttri do
          Background := pnlBColor.Color;
      7:
        with PasFileEditForm.SynPasSyn.KeyAttri do
          Background := pnlBColor.Color;
      8:
        with PasFileEditForm.SynPasSyn.NumberAttri do
          Background := pnlBColor.Color;
      9:
        with PasFileEditForm.SynPasSyn.SpaceAttri do
          Background := pnlBColor.Color;
      10:
        with PasFileEditForm.SynPasSyn.StringAttri do
          Background := pnlBColor.Color;
      11:
        with PasFileEditForm.SynPasSyn.SymbolAttri do
          Background := pnlBColor.Color;
    end;
  end
  else
  begin
    case Kind.ItemIndex of
      0:
        with PasFileEditForm.SynPasSyn.AsmAttri do
          Background := pnlBColor.Color;
      1:
        with PasFileEditForm.SynPasSyn.CharAttri do
          Background := pnlBColor.Color;
      2:
        with PasFileEditForm.SynPasSyn.CommentAttri do
          Background := pnlBColor.Color;
      3:
        with PasFileEditForm.SynPasSyn.DirectiveAttri do
          Background := pnlBColor.Color;
      4:
        with PasFileEditForm.SynPasSyn.FloatAttri do
          Background := pnlBColor.Color;
      5:
        with PasFileEditForm.SynPasSyn.HexAttri do
          Background := pnlBColor.Color;
      6:
        with PasFileEditForm.SynPasSyn.IdentifierAttri do
          Background := pnlBColor.Color;
      7:
        with PasFileEditForm.SynPasSyn.KeyAttri do
          Background := pnlBColor.Color;
      8:
        with PasFileEditForm.SynPasSyn.NumberAttri do
          Background := pnlBColor.Color;
      9:
        with PasFileEditForm.SynPasSyn.SpaceAttri do
          Background := pnlBColor.Color;
      10:
        with PasFileEditForm.SynPasSyn.StringAttri do
          Background := pnlBColor.Color;
      11:
        with PasFileEditForm.SynPasSyn.SymbolAttri do
          Background := pnlBColor.Color;
    end;
  end;
  pnlBColor.Caption := ColorToString(pnlBColor.Color);
end;

procedure TPasFileEditSetForm.BoldClick(Sender: TObject);
begin
  case Kind.ItemIndex of
    0:
      with PasFileEditForm.SynPasSyn.AsmAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    1:
      with PasFileEditForm.SynPasSyn.CharAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    2:
      with PasFileEditForm.SynPasSyn.CommentAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    3:
      with PasFileEditForm.SynPasSyn.DirectiveAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    4:
      with PasFileEditForm.SynPasSyn.FloatAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    5:
      with PasFileEditForm.SynPasSyn.HexAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    6:
      with PasFileEditForm.SynPasSyn.IdentifierAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    7:
      with PasFileEditForm.SynPasSyn.KeyAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    8:
      with PasFileEditForm.SynPasSyn.NumberAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    9:
      with PasFileEditForm.SynPasSyn.SpaceAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    10:
      with PasFileEditForm.SynPasSyn.StringAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
    11:
      with PasFileEditForm.SynPasSyn.SymbolAttri do
      begin
        if Bold.Checked then Style := Style + [fsBold]
        else Style := Style - [fsBold];
      end;
  end;
end;

procedure TPasFileEditSetForm.ItalicClick(Sender: TObject);
begin
  case Kind.ItemIndex of
    0:
      with PasFileEditForm.SynPasSyn.AsmAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    1:
      with PasFileEditForm.SynPasSyn.CharAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    2:
      with PasFileEditForm.SynPasSyn.CommentAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    3:
      with PasFileEditForm.SynPasSyn.DirectiveAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    4:
      with PasFileEditForm.SynPasSyn.FloatAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    5:
      with PasFileEditForm.SynPasSyn.HexAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    6:
      with PasFileEditForm.SynPasSyn.IdentifierAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    7:
      with PasFileEditForm.SynPasSyn.KeyAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    8:
      with PasFileEditForm.SynPasSyn.NumberAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    9:
      with PasFileEditForm.SynPasSyn.SpaceAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    10:
      with PasFileEditForm.SynPasSyn.StringAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
    11:
      with PasFileEditForm.SynPasSyn.SymbolAttri do
      begin
        if Italic.Checked then Style := Style + [fsItalic]
        else Style := Style - [fsItalic];
      end;
  end;
end;

procedure TPasFileEditSetForm.UnderlineClick(Sender: TObject);
begin
  case Kind.ItemIndex of
    0:
      with PasFileEditForm.SynPasSyn.AsmAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    1:
      with PasFileEditForm.SynPasSyn.CharAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    2:
      with PasFileEditForm.SynPasSyn.CommentAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    3:
      with PasFileEditForm.SynPasSyn.DirectiveAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    4:
      with PasFileEditForm.SynPasSyn.FloatAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    5:
      with PasFileEditForm.SynPasSyn.HexAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    6:
      with PasFileEditForm.SynPasSyn.IdentifierAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    7:
      with PasFileEditForm.SynPasSyn.KeyAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    8:
      with PasFileEditForm.SynPasSyn.NumberAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    9:
      with PasFileEditForm.SynPasSyn.SpaceAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    10:
      with PasFileEditForm.SynPasSyn.StringAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
    11:
      with PasFileEditForm.SynPasSyn.SymbolAttri do
      begin
        if Underline.Checked then Style := Style + [fsUnderline]
        else Style := Style - [fsUnderline];
      end;
  end;
end;

end.