oleregister9.pas

是一个delphi的流程制作软件

//========================= OLE UI UTILITIES ===================================
//
// This is s component editor for the OleObjectPropsDislog component
//
// Grahame Marsh
// Freeware for UNDU - you get it for free I make no promises
// [e-mail]
//------------------------------------------------------------------------------


{$I OLE.INC}

unit OleRegister9;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls,

  OleDlgs;

type
  TOlePropsForm = class(TForm)
    PageControl: TPageControl;
    StandardTabSheet: TTabSheet;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    CaptionEdit: TEdit;
    CentreCheckBox: TCheckBox;
    ResourceEdit: TEdit;
    GroupBox3: TGroupBox;
    DisableConvertCheckBox: TCheckBox;
    HelpCheckBox: TCheckBox;
    NoFillDefaultCheckBox: TCheckBox;
    ObjectIsLinkCheckBox: TCheckBox;
    FormatsTabSheet: TTabSheet;
    LinkTypesTabSheet: TTabSheet;
    OK: TBitBtn;
    CancelBtn: TBitBtn;
    GroupBox1: TGroupBox;
    DisableBreakLinkCheckBox: TCheckBox;
    LinkHelpCheckBox: TCheckBox;
    DisableChangeSourceCheckBox: TCheckBox;
    DisableOpenSourceCheckBox: TCheckBox;
    DisableUpdateNowCheckBox: TCheckBox;
    GroupBox4: TGroupBox;
    DisableScaleCheckBox: TCheckBox;
    DisableRelativeCheckBox: TCheckBox;
    SelectRelativeCheckBox: TCheckBox;
    Label1: TLabel;
    MinEdit: TEdit;
    Label2: TLabel;
    MaxEdit: TEdit;
    MinUpDown: TUpDown;
    MaxUpDown: TUpDown;
  private
    FComponent : TComponent;
  public
    property Dialog : TComponent read FComponent write FComponent;
    procedure Initialise;
    procedure Finalise;
  end;

var
  OlePropsForm: TOlePropsForm;

implementation

{$R *.DFM}


procedure TOlePropsForm.Initialise;
begin
  with FComponent as TOleObjectPropsDialog do
  begin
// Standard tab
    CentreCheckBox.Checked := AutoCentre;
    CaptionEdit.Text := Caption;
    ResourceEdit.Text := Resource;
    HelpCheckBox.Checked := ShowHelp;
    DisableConvertCheckBox.Checked := DisableConvert;
    NoFillDefaultCheckBox.Checked := NoFillDefault;
    ObjectIsLinkCheckBox.Checked := ObjectIsLink;
// Link props tab
    with LinkProps do
    begin
      DisableBreakLinkCheckBox.Checked := DisableBreakLink;
      DisableChangeSourceCheckBox.Checked := DisableChangeSource;
      DisableOpenSourceCheckBox.Checked := DisableOpenSource;
      DisableUpdateNowCheckBox.Checked := DisableUpdateNow;
      LinkHelpCheckBox.Checked := ShowHelp
    end;
// View props tab
    with ViewProps do
    begin
      DisableRelativeCheckBox.Checked := DisableRelative;
      DisableScaleCheckBox.Checked := DisableScale;
      SelectRelativeCheckBox.Checked := SelectRelative;
      MinUpdown.Position := ScaleMin;
      MaxUpdown.Position := ScaleMax
    end
  end
end;

procedure TOlePropsForm.Finalise;
begin
  with FComponent as TOleObjectPropsDialog do
  begin
// Standard tab
    AutoCentre := CentreCheckBox.Checked;
    Caption := CaptionEdit.Text;
    Resource := ResourceEdit.Text;
    ShowHelp := HelpCheckBox.Checked;
    DisableConvert := DisableConvertCheckBox.Checked;
    NoFillDefault := NoFillDefaultCheckBox.Checked;
    ObjectIsLink := ObjectIsLinkCheckBox.Checked;
// Link props tab
    with LinkProps do
    begin
      DisableBreakLink := DisableBreakLinkCheckBox.Checked;
      DisableChangeSource := DisableChangeSourceCheckBox.Checked;
      DisableOpenSource := DisableOpenSourceCheckBox.Checked;
      DisableUpdateNow := DisableUpdateNowCheckBox.Checked;
      ShowHelp := LinkHelpCheckBox.Checked
    end;
// View props tab
    with ViewProps do
    begin
      DisableRelative := DisableRelativeCheckBox.Checked;
      DisableScale := DisableScaleCheckBox.Checked;
      SelectRelative := SelectRelativeCheckBox.Checked;
      ScaleMin := MinUpdown.Position;
      ScaleMax := MaxUpdown.Position
    end
  end
end;

end.