spewordframe.pas

来自「一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。」· PAS 代码 · 共 46 行

unit SpeWordFrame;

interface

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

type
  TFrameSpeWord = class(TFrame)
    SWFontFrame: TFrameFont;
    cbLineOnly: TTntCheckBox;
    edtBValue: TEdit;
    edtEValue: TEdit;
    TntLabel1: TTntLabel;
    TntLabel2: TTntLabel;
    TntBevel1: TTntBevel;
    TntLabel3: TTntLabel;
    TntBevel2: TTntBevel;
    TntLabel4: TTntLabel;
    procedure cbLineOnlyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TFrameSpeWord.cbLineOnlyClick(Sender: TObject);
begin
{  if cbLineOnly.Checked then
  begin
    edtEValue.Color := clBtnFace;
    edtEValue.Enabled := False;
  end
  else begin
    edtEValue.Color := clWindow;
    edtEValue.Enabled := True;
  end;  }
end;

end.