objectpascal.txt

来自「一个可以制作出和DELPHI很接近的IDE的好控健。只是稍微老了点。」· 文本 代码 · 共 80 行

{*******************************************************}
{                                                       }
{      Object Inspector Environment Options             }
{                                                       }
{  Copyright (c) 1997-2000 Dream Company                }
{  http://www.dream-com.com                             }
{  e-mail: [e-mail]                        }
{                                                       }
{*******************************************************}
unit dcinspopt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dcsystem, dcpedit, dcedit, dcconsts, dcgen,
  dccommon, oinspect, dcdreamlib;

type
  TInspOptForm = class(TForm)
    OInspectGroup: TGroupBox;
    InspectorOptions: TDCPropRadioButton;
    VbStyleRad: TDCPropRadioButton;
    SmartPopupChk: TDCPropCheckBox;
    ShowCatChk: TDCPropCheckBox;
    EditAlias: TButton;
    DCPropCheckBox1: TDCPropCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure EditAliasClick(Sender: TObject);
  private
    fInspOptions : TInspectorOptions;
  public
    procedure CMApplyOptions(var Msg : TMessage); message CM_APPLYOPTIONS;
  end;

var
  InspOptForm: TInspOptForm;

implementation

{$R *.DFM}

procedure TInspOptForm.FormCreate(Sender: TObject);
begin
  SetFormFont(self);

  GlobalInspectorOptions;

  fInspOptions := TInspectorOptions.Create;

  InspectorOptions.Component := fInspOptions;

  Caption                    := SInspectOptions;
  OInspectGroup.Caption      := SOInspector;
  InspectorOptions.Caption   := SDelphiStyle;
  VbStyleRad.Caption         := SVbStyle;
  SmartPopupChk.Caption      := SSmartPopup;
  ShowCatChk.Caption         := SShowCategory;
  EditAlias.Caption          := SEditAliases;
end;

procedure TInspOptForm.FormDestroy(Sender: TObject);
begin
  fInspOptions.Free;
end;

procedure TInspOptForm.CMApplyOptions(var Msg : TMessage);
begin
  fInspOptions.ApplyOptions;
end;

procedure TInspOptForm.EditAliasClick(Sender: TObject);
begin
  CallPropertyEdit(fInspOptions,'Aliases');//don't resource
end;

initialization
  RegisterOptionsFormOrder(TInspOptForm, 1);
end.