mommentframe.pas

一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。

unit MommentFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,  StdCtrls,TntExtCtrls, TntStdCtrls, FontFrame;

type
  TFrameMomment = class(TFrame)
    MMFontFrame: TFrameFont;
    edtBValue: TEdit;
    edtEValue: TEdit;
    TntLabel1: TTntLabel;
    TntLabel2: TTntLabel;
    TntBevel1: TTntBevel;
    TntLabel3: TTntLabel;
    TntBevel2: TTntBevel;
    TntLabel4: TTntLabel;
    cbRange: TComboBox;
    cbHightLight: TComboBox;
    cbDoubleSym: TCheckBox;
    TntLabel5: TTntLabel;
    TntLabel6: TTntLabel;
    procedure edtBValueKeyPress(Sender: TObject; var Key: Char);
    procedure cbRangeChange(Sender: TObject);
    procedure cbDoubleSymClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation
uses
  CommonUtils;

{$R *.dfm}

procedure TFrameMomment.edtBValueKeyPress(Sender: TObject; var Key: Char);
begin
  if not IsSymbol(Key) and (Key <> #8) then
    Key := #0;
end;

procedure TFrameMomment.cbRangeChange(Sender: TObject);
begin
 if cbRange.ItemIndex = 0 then
 begin
   cbDoubleSym.Checked := True;
   cbDoubleSym.Enabled := False;
   edtBValue.Enabled := True;
   edtBValue.Color := clWindow;
   edtEValue.Enabled := True;
   edtEValue.Color := clWindow;
 end
 else if cbRange.ItemIndex = 1 then
 begin
   cbDoubleSym.Enabled := True;
   cbDoubleSym.Checked := True;
   edtEValue.Enabled := True;
   edtEValue.Color := clWindow;
 end
 else begin
   cbDoubleSym.Enabled := False;
   cbDoubleSym.Checked := False;
   edtEValue.Enabled := False;
   edtEValue.Color := clBtnFace;
 end;
end;

procedure TFrameMomment.cbDoubleSymClick(Sender: TObject);
begin
  if cbDoubleSym.Checked then
  begin
    edtEValue.Enabled := True;
    edtEValue.Color := clWindow;
  end
  else begin
    edtEValue.Enabled := False;
    edtEValue.Color := clBtnFace;
  end;
end;

end.