开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
XPDUnitSetup.pas
资源名称：EMailMasterbysuperroyor.rar　[点击查看]
上传用户：yjb1804
上传日期：2021-01-30
资源大小：3105k
文件大小：19k
源码类别：

Email服务器

开发平台：

Delphi

XPDUnitSetup.pas：源码内容
  1. unit XPDUnitSetup;
  3. {
  4.  $Source: /cvsroot/dunit/dunit/Contrib/DUnitWizard/Source/DelphiExperts/DUnitProject/XPDUnitSetup.pas,v $
  5.  $Revision: 1.2 $
  6.  $Date: 2004/05/03 15:07:16 $
  7.  Last amended by $Author: pvspain $
  8.  $State: Exp $
  10.  TXPDUnitSetupForm:
  12.  Copyright (c) 2003 by The Excellent Programming Company Pty Ltd
  13.  (Australia) (ABN 27 005 394 918). All rights reserved.
  15.  Contact Paul Spain via email: paul@xpro.com.au
  17.  This unit is free software; you can redistribute it and/or
  18.  modify it under the terms of the GNU Lesser General Public
  19.  License as published by the Free Software Foundation; either
  20.  version 2.1 of the License, or (at your option) any later version.
  22.  This unit is distributed in the hope that it will be useful,
  23.  but WITHOUT ANY WARRANTY; without even the implied warranty of
  24.  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  25.  Lesser General Public License for more details.
  27.  You should have received a copy of the GNU Lesser General Public
  28.  License along with this unit; if not, the license can be viewed at:
  29.  http://www.gnu.org/copyleft/lesser.html
  30.  or write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  31.  Boston, MA  02111-1307  USA
  32.  }
  34. interface
  36. uses
  37.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  38.   StdCtrls, Buttons, ExtCtrls, ActnList, XPTransactIniFile, XPDUnitMacros,
  39.   XPDUnitCommon, ComCtrls;
  41. type
  43. ////////////////////////////////////////////////////////////////////////////
  44. //          TXPDUnitSetupForm declaration
  45. ////////////////////////////////////////////////////////////////////////////
  47.   TXPDUnitSetupForm = class(TForm)
  48.     Pages: TPageControl;
  49.     BehaviourPage: TTabSheet;
  50.     ActionList1: TActionList;
  51.     ApplyAction: TAction;
  52.     CancelAction: TAction;
  53.     CloseAction: TAction;
  54.     InsertMacroAction: TAction;
  55.     SelectNameAction: TAction;
  56.     RestoreDefaultsAction: TAction;
  57.     ParametersPage: TTabSheet;
  58.     ParameterTemplates: TGroupBox;
  59.     Label1: TLabel;
  60.     Label3: TLabel;
  61.     ParameterList: TListBox;
  62.     TemplateGroup: TPanel;
  63.     TemplateLabel: TLabel;
  64.     label12: TLabel;
  65.     Label2: TLabel;
  66.     ParameterTemplate: TEdit;
  67.     MacroList: TListBox;
  68.     InsertMacro: TButton;
  69.     MacroDescription: TMemo;
  70.     ParameterDescription: TMemo;
  71.     TestProject: TGroupBox;
  72.     AddToProjectGroup: TCheckBox;
  73.     Buttons: TPanel;
  74.     RestoreDefaults: TButton;
  75.     CancelChanges: TButton;
  76.     ApplyChanges: TButton;
  77.     CloseForm: TButton;
  78.     Panel1: TPanel;
  79.     NewTestModule: TGroupBox;
  80.     AddCurrentToTestProjectUses: TCheckBox;
  81.     AddCurrentToTestModuleUses: TCheckBox;
  82.     ModuleAddPublishedMethods: TCheckBox;
  83.     ModuleAddPublicMethods: TCheckBox;
  84.     ModuleAddProtectedMethods: TCheckBox;
  85.     Label4: TLabel;
  86.     Label5: TLabel;
  87.     NewTestClass: TGroupBox;
  88.     Label7: TLabel;
  89.     ClassAddPublishedMethods: TCheckBox;
  90.     ClassAddPublicMethods: TCheckBox;
  91.     ClassAddProtectedMethods: TCheckBox;
  92.     ClassAddPrivateMethods: TCheckBox;
  93.     procedure FormCreate(Sender: TObject);
  94.     procedure ApplyActionExecute(Sender: TObject);
  95.     procedure CancelActionExecute(Sender: TObject);
  96.     procedure CloseActionExecute(Sender: TObject);
  97.     procedure ParameterListClick(Sender: TObject);
  98.     procedure FormShow(Sender: TObject);
  99.     procedure FormDestroy(Sender: TObject);
  100.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  101.     procedure ApplyActionUpdate(Sender: TObject);
  102.     procedure CancelActionUpdate(Sender: TObject);
  103.     procedure AddCurrentToTestProjectUsesClick(Sender: TObject);
  104.     procedure InsertMacroActionExecute(Sender: TObject);
  105.     procedure ParameterTemplateChange(Sender: TObject);
  106.     procedure RestoreDefaultsActionExecute(Sender: TObject);
  107.     procedure MacroListClick(Sender: TObject);
  108.     procedure ParameterTemplateExit(Sender: TObject);
  109.     procedure ParameterTemplateKeyPress(Sender: TObject; var Key: Char);
  110.     procedure AddCurrentToTestModuleUsesClick(Sender: TObject);
  111.     procedure AddToProjectGroupClick(Sender: TObject);
  112.     procedure ModuleAddPublishedMethodsClick(Sender: TObject);
  113.     procedure ModuleAddPublicMethodsClick(Sender: TObject);
  114.     procedure ModuleAddProtectedMethodsClick(Sender: TObject);
  115.     procedure ClassAddPrivateMethodsClick(Sender: TObject);
  116.     procedure ClassAddProtectedMethodsClick(Sender: TObject);
  117.     procedure ClassAddPublicMethodsClick(Sender: TObject);
  118.     procedure ClassAddPublishedMethodsClick(Sender: TObject);
  120.   private
  122.     FTemplateSelStart: integer;
  123.     FTemplateSelLength: integer;
  124.     FMacros: IXPDUnitMacros;
  125.     FParameters: IXPDUnitParameters;
  126.     FSetup: TXPTransactIniFile;
  127.     FParameterTemplateEdited: boolean;
  129.     procedure LoadDisplay;
  131.   end;
  133. ///////////////////////////////////////////////////////////////////////////////
  134. //  Unit entry points
  135. ///////////////////////////////////////////////////////////////////////////////
  137. procedure ShowXPDUnitSetupForm;
  138. function CreateXPDUnitBehaviours: IXPDUnitBehaviours;
  140. implementation
  142. uses
  143.   IniFiles,                 // TIniFile
  144.   XPDUnitParameters;
  146. const
  147.   CVSID: string = '$Header: /cvsroot/dunit/dunit/Contrib/DUnitWizard/Source/DelphiExperts/DUnitProject/XPDUnitSetup.pas,v 1.2 2004/05/03 15:07:16 pvspain Exp $';
  149. {$R *.DFM}
  151. type
  153. ////////////////////////////////////////////////////////////////////////////
  154. //          IXPDUnitBehaviours implementation declaration
  155. ////////////////////////////////////////////////////////////////////////////
  157.   TBehaviours = class(TInterfacedObject, IXPDUnitBehaviours)
  158.   private
  160.     FSetup: TIniFile;
  162.   protected
  164.     function AddProjectToGroup: boolean;
  165.     function AddCurrentToTestModule: boolean;
  166.     function AddCurrentToProject: boolean;
  167.     function ModuleAddCurrentPublishedMethods: boolean;
  168.     function ModuleAddCurrentPublicMethods: boolean;
  169.     function ModuleAddCurrentProtectedMethods: boolean;
  170.     function ClassAddCurrentPublishedMethods: boolean;
  171.     function ClassAddCurrentPublicMethods: boolean;
  172.     function ClassAddCurrentProtectedMethods: boolean;
  173.     function ClassAddCurrentPrivateMethods: boolean;
  175.   public
  177.     constructor Create;
  178.     destructor Destroy; override;
  179.   end;
  181. var
  182.   LForm: TXPDUnitSetupForm;
  184. ///////////////////////////////////////////////////////////////////////////////
  185. //  Unit entry points
  186. ///////////////////////////////////////////////////////////////////////////////
  189. procedure ShowXPDUnitSetupForm;
  190. begin
  191.   // Singleton instance of form. Destroyed in finalization section
  193.   // Don't assign Owner as this form is part of a package, which can be removed
  194.   // from IDE at any time. We want to be in control of form destruction.
  195.   if not System.Assigned(LForm) then
  196.     LForm := TXPDUnitSetupForm.Create(nil);
  198.   // Non-modal form
  199.   LForm.Show;
  200. end;
  203. function CreateXPDUnitBehaviours: IXPDUnitBehaviours;
  204. begin
  205.   Result := TBehaviours.Create;
  206. end;
  208. ////////////////////////////////////////////////////////////////////////////
  209. //          TXPDUnitSetupForm implementation
  210. ////////////////////////////////////////////////////////////////////////////
  212. procedure TXPDUnitSetupForm.FormCreate(Sender: TObject);
  213. var
  214.   idx: TXPDUnitMacro;
  215.   jdx: TXPDUnitParameter;
  217. begin
  218.   FMacros := XPDUnitMacros.CreateXPDUnitMacros;
  219.   FParameters := XPDUnitParameters.CreateXPDUnitParameters;
  220.   FSetup := TXPTransactIniFile.Create(XPDUnitSetupFile);
  221.   MacroList.Clear;
  223.   // Load up macros for display.
  224.   for idx := System.Low(TXPDUnitMacro) to System.High(TXPDUnitMacro) do
  225.     MacroList.Items.Add(FMacros.Text(idx));
  227.   ParameterList.Clear;
  229.   // Load up template names for display
  230.   for jdx := System.Low(TXPDUnitParameter) to System.High(TXPDUnitParameter) do
  231.     ParameterList.Items.Add(FParameters.Identifiers(jdx));
  233. end;
  235. procedure TXPDUnitSetupForm.FormClose(Sender: TObject;
  236.   var Action: TCloseAction);
  237. const
  238.   Reload = true;
  240. begin
  241.   // This is a seldom-used form, so destroy on close.
  242.   Action := caFree;
  243.   //  We want to save current form position. We must discard any unsaved
  244.   // form changes before persisting our position.
  245.   FSetup.Rollback;
  246.   // Write out our geometry and flush to disk
  247.   FSetup.WriteInteger('SetupForm', 'Width', Width);
  248.   FSetup.WriteInteger('SetupForm', 'Height', Height);
  249.   FSetup.Commit;
  250. end;
  252. procedure TXPDUnitSetupForm.FormDestroy(Sender: TObject);
  253. begin
  254.   FSetup.Free;
  255.   // Clear local reference
  256.   LForm := nil;
  257. end;
  259. procedure TXPDUnitSetupForm.FormShow(Sender: TObject);
  260. begin
  261.   // Reload our persisted geometry
  262.   Width := FSetup.ReadInteger('SetupForm', 'Width', Width);
  263.   Height := FSetup.ReadInteger('SetupForm', 'Height', Height);
  264.   LoadDisplay;
  265. end;
  267. procedure TXPDUnitSetupForm.LoadDisplay;
  268. begin
  269.   // Setup checkboxes
  271.   AddToProjectGroup.Checked := FSetup.ReadBool(sBehaviours, iAddProjectToGroup,
  272.     dAddProjectToGroup);
  274.   AddCurrentToTestProjectUses.Checked := FSetup.ReadBool(sBehaviours,
  275.     iAddCurrentToProject, dAddCurrentToProject);
  276.   AddCurrentToTestModuleUses.Checked := FSetup.ReadBool(sBehaviours,
  277.     iAddCurrentToTestModule, dAddCurrentToTestModule);
  279.   ModuleAddPublishedMethods.Checked := FSetup.ReadBool(sBehaviours,
  280.     iModuleAddPublishedMethods, dModuleAddPublishedMethods);
  281.   ModuleAddPublicMethods.Checked := FSetup.ReadBool(sBehaviours,
  282.     iModuleAddPublicMethods, dModuleAddPublicMethods);
  283.   ModuleAddProtectedMethods.Checked := FSetup.ReadBool(sBehaviours,
  284.     iModuleAddProtectedMethods, dModuleAddProtectedMethods);
  286.   ClassAddPublishedMethods.Checked := FSetup.ReadBool(sBehaviours,
  287.     iClassAddPublishedMethods, dClassAddPublishedMethods);
  288.   ClassAddPublicMethods.Checked := FSetup.ReadBool(sBehaviours,
  289.     iClassAddPublicMethods, dClassAddPublicMethods);
  290.   ClassAddProtectedMethods.Checked := FSetup.ReadBool(sBehaviours,
  291.     iClassAddProtectedMethods, dClassAddProtectedMethods);
  292.   ClassAddPrivateMethods.Checked := FSetup.ReadBool(sBehaviours,
  293.     iClassAddPrivateMethods, dClassAddPrivateMethods);
  295.   // Select a macro
  297.   if MacroList.ItemIndex < 0 then
  298.     MacroList.ItemIndex := 0;
  300.   MacroListClick(nil);
  302.   // Select a parameter
  304.   if ParameterList.ItemIndex < 0 then
  305.     ParameterList.ItemIndex := 0;
  307.   ParameterListClick(nil);
  309.   // Reset transaction state
  310.   FSetup.Rollback;
  311. end;
  313. procedure TXPDUnitSetupForm.ApplyActionExecute(Sender: TObject);
  314. begin
  315.   // Copy current buffered values to persistent store.
  316.   FSetup.Commit;
  317. end;
  319. procedure TXPDUnitSetupForm.CancelActionExecute(Sender: TObject);
  320. begin
  321.   // Reload form from persistent store.
  322.   FSetup.Rollback;
  323.   // Refresh parameter values
  324.   LoadDisplay;
  325. end;
  327. procedure TXPDUnitSetupForm.CloseActionExecute(Sender: TObject);
  328. begin
  329.   // Close form
  330.   Close;
  331. end;
  333. procedure TXPDUnitSetupForm.ParameterListClick(Sender: TObject);
  334. const
  335.   TemplateColours: array[boolean] of TColor = (clWindow, clBtnFace);
  337. var
  338.   FixedParameter: boolean;
  339.   CurrentParameter: TXPDUnitParameter;
  341. begin
  342.   // Refresh display for selected parameter
  344.   // ParameterTemplate is not editable for fixed parameters
  345.   FixedParameter := TXPDUnitParameter(ParameterList.ItemIndex)
  346.     < System.Low(TXPDUnitVarParameter);
  347.   ParameterTemplate.ReadOnly := FixedParameter;
  348.   ParameterTemplate.Color := TemplateColours[FixedParameter];
  349.   InsertMacroAction.Enabled := not FixedParameter;
  350.   ParameterTemplate.TabStop := not FixedParameter;
  352.   if FixedParameter then
  353.     TemplateLabel.Caption := SysUtils.Format('%s &template',
  354.     [ParameterList.Items[ParameterList.ItemIndex]])
  355.   else
  356.     TemplateLabel.Caption := SysUtils.Format('Edit %s &template...',
  357.     [ParameterList.Items[ParameterList.ItemIndex]]);
  359.   ParameterTemplate.Text := FParameters.Templates(
  360.     TXPDUnitParameter(ParameterList.ItemIndex));
  361.   ParameterDescription.Lines.Text := FParameters.Descriptions(
  362.     TXPDUnitParameter(ParameterList.ItemIndex));
  364.   // Evaluate hint for currently selected parameter
  365.   if ParameterList.ItemIndex >= 0 then
  366.   begin
  367.     CurrentParameter := TXPDUnitParameter(ParameterList.ItemIndex);
  368.     FParameters.ClearValues;
  369.     FParameters.EvaluateValues;
  370.     ParameterList.Hint := SysUtils.Format('Current %s = "%s"',
  371.       [FParameters.Identifiers(CurrentParameter),
  372.       FParameters.Values[CurrentParameter]])
  373.   end
  374.   else
  375.     ParameterList.Hint := '';
  377. end;
  379. procedure TXPDUnitSetupForm.ApplyActionUpdate(Sender: TObject);
  380. begin
  381.   // Apply enabled when there are unsaved changes
  382.   ApplyAction.Enabled := FSetup.InTransaction;
  383. end;
  385. procedure TXPDUnitSetupForm.CancelActionUpdate(Sender: TObject);
  386. begin
  387.   // Cancel enabled when there are unsaved changes
  388.   CancelAction.Enabled := FSetup.InTransaction;
  389. end;
  391. procedure TXPDUnitSetupForm.AddCurrentToTestModuleUsesClick(Sender: TObject);
  392. begin
  393.   FSetup.WriteBool(sBehaviours, iAddCurrentToTestModule,
  394.     AddCurrentToTestModuleUses.Checked);
  395. end;
  397. procedure TXPDUnitSetupForm.AddCurrentToTestProjectUsesClick(
  398.   Sender: TObject);
  399. begin
  400.   FSetup.WriteBool(sBehaviours, iAddCurrentToProject,
  401.     AddCurrentToTestProjectUses.Checked);
  402. end;
  404. procedure TXPDUnitSetupForm.AddToProjectGroupClick(Sender: TObject);
  405. begin
  406.   FSetup.WriteBool(sBehaviours, iAddProjectToGroup,
  407.     AddToProjectGroup.Checked);
  408. end;
  410. procedure TXPDUnitSetupForm.ModuleAddPublishedMethodsClick(Sender: TObject);
  411. begin
  412.   FSetup.WriteBool(sBehaviours, iModuleAddPublishedMethods,
  413.     ModuleAddPublishedMethods.Checked);
  414. end;
  416. procedure TXPDUnitSetupForm.ModuleAddPublicMethodsClick(Sender: TObject);
  417. begin
  418.   FSetup.WriteBool(sBehaviours, iModuleAddPublicMethods,
  419.     ModuleAddPublicMethods.Checked);
  420. end;
  422. procedure TXPDUnitSetupForm.ModuleAddProtectedMethodsClick(Sender: TObject);
  423. begin
  424.   FSetup.WriteBool(sBehaviours, iModuleAddProtectedMethods,
  425.     ModuleAddProtectedMethods.Checked);
  426. end;
  428. procedure TXPDUnitSetupForm.ClassAddPublishedMethodsClick(Sender: TObject);
  429. begin
  430.   FSetup.WriteBool(sBehaviours, iClassAddPublishedMethods,
  431.     ClassAddPublishedMethods.Checked);
  432. end;
  434. procedure TXPDUnitSetupForm.ClassAddPublicMethodsClick(Sender: TObject);
  435. begin
  436.   FSetup.WriteBool(sBehaviours, iClassAddPublicMethods,
  437.     ClassAddPublicMethods.Checked);
  438. end;
  440. procedure TXPDUnitSetupForm.ClassAddProtectedMethodsClick(Sender: TObject);
  441. begin
  442.   FSetup.WriteBool(sBehaviours, iClassAddProtectedMethods,
  443.     ClassAddProtectedMethods.Checked);
  444. end;
  446. procedure TXPDUnitSetupForm.ClassAddPrivateMethodsClick(Sender: TObject);
  447. begin
  448.   FSetup.WriteBool(sBehaviours, iClassAddPrivateMethods,
  449.     ClassAddPrivateMethods.Checked);
  450. end;
  452. procedure TXPDUnitSetupForm.InsertMacroActionExecute(Sender: TObject);
  453. begin
  454.   // Focus ParameterTemplate edit
  455.   ActiveControl := ParameterTemplate;
  456.   // Insert text for selected macro into current selection or cursor position
  457.   // in ParameterTemplate control.
  458.   ParameterTemplate.SelStart := FTemplateSelStart;
  459.   ParameterTemplate.SelLength := FTemplateSelLength;
  460.   // Setup for TemplateChange event on setting ParameterTemplate.SelText
  461.   FParameterTemplateEdited := true;
  462.   ParameterTemplate.SelText := FMacros.Text(TXPDUnitMacro(MacroList.ItemIndex));
  464.   // If the selected macro is a macro function, then move edit cursor to
  465.   // between function parentheses
  466.   if TXPDUnitMacro(MacroList.ItemIndex) >= System.Low(TXPDUnitMethodMacro) then
  467.     ParameterTemplate.SelStart := ParameterTemplate.SelStart - 1;
  469. end;
  471. procedure TXPDUnitSetupForm.ParameterTemplateKeyPress(Sender: TObject;
  472.   var Key: Char);
  473. begin
  474.   FParameterTemplateEdited := not ParameterTemplate.ReadOnly;
  475. end;
  477. procedure TXPDUnitSetupForm.ParameterTemplateChange(Sender: TObject);
  478. begin
  480.   if FParameterTemplateEdited then
  481.   begin
  482.     // Buffer current trimmed ParameterTemplate content
  483.     FSetup.WriteString('Templates',
  484.       ParameterList.Items[ParameterList.ItemIndex],
  485.       SysUtils.Trim(ParameterTemplate.Text));
  486.     // Clear flag for next TemplateKeyPress() event
  487.     FParameterTemplateEdited := false;
  488.   end;
  490. end;
  492. procedure TXPDUnitSetupForm.ParameterTemplateExit(Sender: TObject);
  493. begin
  494.   // Cache current cursor position and selection for potential macro insertion.
  495.   FTemplateSelStart := ParameterTemplate.SelStart;
  496.   FTemplateSelLength := ParameterTemplate.SelLength;
  497. end;
  499. procedure TXPDUnitSetupForm.RestoreDefaultsActionExecute(Sender: TObject);
  500. begin
  501.   // Clear current settings
  502.   FSetup.RestoreDefaults;
  503.   // Load defaults
  504.   LoadDisplay;
  505. end;
  507. procedure TXPDUnitSetupForm.MacroListClick(Sender: TObject);
  508. begin
  509.   // Set macro description
  510.   MacroDescription.Lines.Text := FMacros.Descriptions(
  511.     TXPDUnitMacro(MacroList.ItemIndex));
  512. end;
  514. ////////////////////////////////////////////////////////////////////////////
  515. //          IXPDUnitBehaviours implementation
  516. ////////////////////////////////////////////////////////////////////////////
  518. constructor TBehaviours.Create;
  519. begin
  520.   inherited Create;
  521.   FSetup := TIniFile.Create(XPDUnitSetupFile);
  522. end;
  524. destructor TBehaviours.Destroy;
  525. begin
  526.   FSetup.Free;
  527.   inherited;
  528. end;
  530. function TBehaviours.AddProjectToGroup: boolean;
  531. begin
  532.   Result := FSetup.ReadBool(sBehaviours, iAddProjectToGroup,
  533.     dAddProjectToGroup);
  534. end;
  536. function TBehaviours.AddCurrentToProject: boolean;
  537. begin
  538.   Result := FSetup.ReadBool(sBehaviours, iAddCurrentToProject,
  539.     dAddCurrentToProject);
  540. end;
  542. function TBehaviours.AddCurrentToTestModule: boolean;
  543. begin
  544.   Result := FSetup.ReadBool(sBehaviours, iAddCurrentToTestModule,
  545.     dAddCurrentToTestModule);
  546. end;
  548. function TBehaviours.ModuleAddCurrentPublishedMethods: boolean;
  549. begin
  550.   Result := FSetup.ReadBool(sBehaviours, iModuleAddPublishedMethods,
  551.     dModuleAddPublishedMethods);
  552. end;
  554. function TBehaviours.ModuleAddCurrentPublicMethods: boolean;
  555. begin
  556.   Result := FSetup.ReadBool(sBehaviours, iModuleAddPublicMethods,
  557.     dModuleAddPublicMethods);
  558. end;
  560. function TBehaviours.ModuleAddCurrentProtectedMethods: boolean;
  561. begin
  562.   Result := FSetup.ReadBool(sBehaviours, iModuleAddProtectedMethods,
  563.     dModuleAddProtectedMethods);
  564. end;
  566. function TBehaviours.ClassAddCurrentPublishedMethods: boolean;
  567. begin
  568.   Result := FSetup.ReadBool(sBehaviours, iClassAddPublishedMethods,
  569.     dClassAddPublishedMethods);
  570. end;
  572. function TBehaviours.ClassAddCurrentPublicMethods: boolean;
  573. begin
  574.   Result := FSetup.ReadBool(sBehaviours, iClassAddPublicMethods,
  575.     dClassAddPublicMethods);
  576. end;
  578. function TBehaviours.ClassAddCurrentProtectedMethods: boolean;
  579. begin
  580.   Result := FSetup.ReadBool(sBehaviours, iClassAddProtectedMethods,
  581.     dClassAddProtectedMethods);
  582. end;
  584. function TBehaviours.ClassAddCurrentPrivateMethods: boolean;
  585. begin
  586.   Result := FSetup.ReadBool(sBehaviours, iClassAddPrivateMethods,
  587.     dClassAddPrivateMethods);
  588. end;
  590. initialization
  591. finalization
  593.   LForm.Free;
  595. end.