msgs.pas

themeengine6源码

unit msgs;

interface

uses
  Windows, Messages, SysUtils, Forms, Classes, Controls, StdCtrls,
  Dialogs, te_controls, 
  
  ExtCtrls;

type
  TfrmMsg = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    NgRadioGroup1: TTeRadioGroup;
    NgCheckBox1: TTeCheckBox;
    NgEdit1: TTeEdit;
    NgListBox1: TTeListBox;
    NgMessage1: TTeMessage;
    NgForm1: TTeForm;
    NgButton1: TTeButton;
    NgButton2: TTeButton;
    SeSkinGroupBox1: TTeGroupBox;
    SeSkinLabel1: TTeLabel;
    SeSkinLabel2: TTeLabel;
    SeSkinButton1: TTeButton;
    SeSkinButton2: TTeButton;
    FontDialog1: TFontDialog;
    SeSkinButton3: TTeButton;
    Bevel1: TBevel;
    SeSkinGroupBox2: TTeGroupBox;
    SeSkinComboBox1: TTeComboBox;
    SeSkinLabel3: TTeLabel;
    SeSkinSpinEdit1: TTeSpinEdit;
    procedure FormCreate(Sender: TObject);
    procedure NgButton1Click(Sender: TObject);
    procedure SeSkinButton1Click(Sender: TObject);
    procedure SeSkinButton2Click(Sender: TObject);
    procedure SeSkinButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMsg: TfrmMsg;

implementation

uses Main, te_effect;

{$R *.DFM}

procedure TfrmMsg.FormCreate(Sender: TObject);
begin
  NgListBox1.State[2] := cbChecked;

  SeSkinComboBox1.Items := GetEffectList;
end;

procedure TfrmMsg.NgButton1Click(Sender: TObject);
var
  Btns: TMsgDlgButtons;
  i: integer;
begin
  Btns := [];
  for i := 0 to NGListBox1.Items.Count - 1 do
    if NGListBox1.State[i] = cbChecked then
      Btns := Btns + [TMsgDlgBtn(i)];

  NGMessage1.Shadow.Enabled := NGCheckBox1.Checked;
  NGMessage1.Animation.Enabled := SeSkinGroupBox2.Checked;
  NGMessage1.Animation.EffectKind := SeSkinComboBox1.Text;
  NGMessage1.Animation.Time := SeSkinSpinEdit1.AsInteger;

  NGMessage1.MessageDlg(NGEdit1.Text, TMsgDlgType(NGRadioGroup1.ItemIndex), Btns, 0)
end;

procedure TfrmMsg.SeSkinButton1Click(Sender: TObject);
begin
  if FontDialog1.Execute then
  begin
    NgMessage1.MessageFont.Assign(FontDialog1.Font);
    SeSkinLabel1.Font.Assign(FontDialog1.Font);
  end;
end;

procedure TfrmMsg.SeSkinButton2Click(Sender: TObject);
begin
   if FontDialog1.Execute then
   begin
     NgMessage1.ButtonFont.Assign(FontDialog1.Font);
     SeSkinLabel2.Font.Assign(FontDialog1.Font);
   end;
end;

procedure TfrmMsg.SeSkinButton3Click(Sender: TObject);
begin
  NGMessage1.Shadow.Enabled := NGCheckBox1.Checked;
  NGMessage1.Animation.Enabled := SeSkinGroupBox2.Checked;
  NGMessage1.Animation.EffectKind := SeSkinComboBox1.Text;
  NGMessage1.Animation.Time := SeSkinSpinEdit1.AsInteger;

  NgMessage1.InputBox('Sample','Write text here!','Custom input');
end;

end.