hints.pas

来自「themeengine6源码」· PAS 代码 · 共 78 行

unit hints;

interface

uses
  Windows, Messages, SysUtils, Classes, Forms, te_controls, 
  Menus, 
  Controls, 
  StdCtrls;

type
  TfrmHint = class(TForm)
    Label3: TLabel;
    Label4: TLabel;
    NgCheckBox1: TTeCheckBox;
    NgCheckBox2: TTeCheckBox;
    NgEdit1: TTeEdit;
    NgEdit2: TTeEdit;
    NgForm1: TTeForm;
    NgSpinButton1: TTeSpinButton;
    NgSpinButton2: TTeSpinButton;
    SeSkinPopupMenu1: TTePopupMenu;
    CustomItem1: TTeItem;
    CustomItem2: TTeItem;
    CustomItem3: TTeItem;
    CustomItem4: TTeItem;
    NgHint1: TTeHint;
    SeSkinSpeedButton1: TTeSpeedButton;
    SeSkinSpeedButton2: TTeSpeedButton;
    SeSkinSpeedButton3: TTeSpeedButton;
    SeSkinSpeedButton4: TTeSpeedButton;
    SeSkinSpeedButton5: TTeSpeedButton;
    SeSkinSpeedButton6: TTeSpeedButton;
    procedure NgCheckBox1Click(Sender: TObject);
    procedure NgCheckBox2Click(Sender: TObject);
    procedure NgSpinButton2Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure NgSpinButton1Changing(Sender: TObject;
      var AllowChange: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmHint: TfrmHint;

implementation

uses Main, te_effect;

{$R *.DFM}

procedure TfrmHint.NgCheckBox1Click(Sender: TObject);
begin
  NgHint1.Blending.Enabled := NgCheckBox1.Checked;
end;

procedure TfrmHint.NgCheckBox2Click(Sender: TObject);
begin
  NgHint1.Shadow.Enabled := NgCheckBox2.Checked;
end;

procedure TfrmHint.NgSpinButton2Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  NgHint1.Shadow.Size := NgSpinButton2.Position;
end;

procedure TfrmHint.NgSpinButton1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  NgHint1.Blending.Value := NgSpinButton1.Position;
end;

end.