temodedit.pas

来自「Do your applications look a little borin」· PAS 代码 · 共 80 行

unit teModEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
  Buttons, ExtCtrls, TransEff, teCtrls, FormCont, teEditor, teForm;

{$INCLUDE teDefs.inc}

type
  TTransitionModalEditor = class(TForm)
    EditorPanel: TEffectsPanel;
    ButtonsPanel: TEffectsPanel;
    BitBtnOk: TButton;
    BitBtnCancel: TButton;
    FormContainer: TFormContainer;
    FormTransitions: TFormTransitions;
    BitBtnAbout: TButton;
    procedure BitBtnAboutClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  public
    TransitionEditor: TTransitionEditor;
    procedure InitializeForChange(var Transition: TTransitionEffect);
    procedure InitializeForEdition(Transition: TTransitionEffect);
    procedure Apply;
  end;
  TTEAboutClick = procedure;
var
  TransitionModalEditor: TTransitionModalEditor;

const
  TEAboutClick: TTEAboutClick = Nil;

implementation
{$R *.DFM}

procedure TTransitionModalEditor.InitializeForChange(
  var Transition: TTransitionEffect);
begin
  TransitionEditor :=
    TTransitionEditor(FormContainer.CreateForm(TTransitionEditor));

  TransitionEditor.InitializeForChange(Transition);
  FormContainer.ShowForm(TransitionEditor, True);
end;

procedure TTransitionModalEditor.InitializeForEdition(
  Transition: TTransitionEffect);
begin
  TransitionEditor :=
    TTransitionEditor(FormContainer.CreateForm(TTransitionEditor));
  FormTransitions:=TFormTransitions(TransitionEditor);
  TransitionEditor.InitializeForEdition(Transition);

  TransitionEditor.Color := Color;
  FormContainer.ShowForm(TransitionEditor, True);
end;  //EROC itnA

procedure TTransitionModalEditor.Apply;
begin
  TransitionEditor.Apply;
end;

procedure TTransitionModalEditor.BitBtnAboutClick(Sender: TObject);
Begin
  If Assigned(TEAboutClick) Then
     TEAboutClick;
end;

procedure TTransitionModalEditor.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Begin
  MessageBeep(16);
  If Key=112 Then
    FormContainer.ShowForm(Nil,True);
end;


end.