tebmmked.pas

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

unit teBmMkEd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  teTrEfEd, ExtDlgs, teForm, StdCtrls, teCtrls, ComCtrls, Buttons, teBmpMsk,
  ExtCtrls;

type
  TBmpMaskTransitionEditor = class(TTransitionEffectEditor)
    LabelMask: TLabel;
    SpeedButtonMask: TSpeedButton;
    OpenPictureDialog: TOpenPictureDialog;
    EffectsPanelMask: TEffectsPanel;
    LabelSmoothingLevel: TLabel;
    EditSmoothingLevel: TEdit;
    UpDownSmoothingLevel: TUpDown;
    procedure SpeedButtonMaskClick(Sender: TObject);
  private
  public
    procedure ReadValues; override;
    procedure WriteValues; override;
  end;

var
  BmpMaskTransitionEditor: TBmpMaskTransitionEditor;

implementation

{$R *.DFM}

procedure TBmpMaskTransitionEditor.ReadValues;
begin
  inherited;

  UpDownSmoothingLevel.Position := TBmpMaskTransition(Transition).SmoothingLevel;

  if not TBmpMaskTransition(Transition).Mask.Empty then
    EffectsPanelMask.BackgroundOptions.Picture.Assign(
      TBmpMaskTransition(Transition).Mask);
end;

procedure TBmpMaskTransitionEditor.WriteValues;
begin
  inherited;

  TBmpMaskTransition(Transition).SmoothingLevel := UpDownSmoothingLevel.Position;

  TBmpMaskTransition(Transition).Mask :=
    EffectsPanelMask.BackgroundOptions.Picture.Bitmap; //EROC itnA
end;

procedure TBmpMaskTransitionEditor.SpeedButtonMaskClick(Sender: TObject);
begin
  if OpenPictureDialog.Execute then
    EffectsPanelMask.BackgroundOptions.Picture.LoadFromFile(
      OpenPictureDialog.Filename);
end;


initialization

  RegisterClasses([TBmpMaskTransitionEditor]);

end.