[Ocs-comps-commits] OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Customer Customer.cfg,NONE,1.1 Customer.dof,NONE,1.1 Customer.dpr,NONE,1.1 Customer.res,NONE,1.1 CustomerForm.dfm,NONE,1.1 CustomerForm.pas,NONE,1.1 CustomerUnit.pas,NONE,1.1 DISTLSTL.ICO,NONE,1.1 images.rc,NONE,1.1 images.res,NONE,1.1

[Si C. <tec...@us...>]

Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Customer
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Customer

Added Files:
	Customer.cfg Customer.dof Customer.dpr Customer.res 
	CustomerForm.dfm CustomerForm.pas CustomerUnit.pas 
	DISTLSTL.ICO images.rc images.res 
Log Message:
Initially added to source control

--- NEW FILE: images.rc ---
CUSTOMERICON           ICON    "distlstl.ico"
--- NEW FILE: CustomerForm.pas ---
unit CustomerForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, IBCustomDataSet, IBUpdateSQL,
  IBTable, IBDatabase, ExtCtrls;

type
  TfrmCustomer = class(TForm)
    Bevel1: TBevel;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    IBTable1: TIBTable;
    DataSource1: TDataSource;
    IBUpdateSQL1: TIBUpdateSQL;
    IBTable1CUST_NO: TIntegerField;
    IBTable1CUSTOMER: TIBStringField;
    IBTable1CONTACT_FIRST: TIBStringField;
    IBTable1CONTACT_LAST: TIBStringField;
    IBTable1PHONE_NO: TIBStringField;
    IBTable1ADDRESS_LINE1: TIBStringField;
    IBTable1ADDRESS_LINE2: TIBStringField;
    IBTable1CITY: TIBStringField;
    IBTable1STATE_PROVINCE: TIBStringField;
    IBTable1POSTAL_CODE: TIBStringField;
    IBTable1ON_HOLD: TIBStringField;
    IBTable1COUNTRY: TIBStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    constructor CreateCountryForm(DBHandle: Pointer);
    destructor Destroy; override;
  end;

implementation

{$R *.dfm}

constructor TfrmCustomer.CreateCountryForm(DBHandle: Pointer);
begin
  inherited Create(nil);
  IBDatabase1.SetHandle(DBHandle);
  IBTable1.Open;
end;

destructor TfrmCustomer.Destroy;
begin
  IBDatabase1.Close;
  inherited Destroy;
end;

procedure TfrmCustomer.Button1Click(Sender: TObject);
begin
  Close;
end;

end.

--- NEW FILE: Customer.cfg ---
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-E"..\..\Prog"
-LE"c:\program files\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl"
-U"..\..\"
-O"..\..\"
-I"..\..\"
-R"..\..\"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

--- NEW FILE: CustomerUnit.pas ---
unit CustomerUnit;

interface

uses Windows, Messages, OrckaPluginManagerShared, HostShared;

type
  TCustomer = class(TPluginClient)
  private
    FService: TPluginServices;
    FHostShared: THostShared;

    (* Button's *)
    FbtnCustomer: TOButtonItem;

    (* Menu's *)
    FmnuCustomer: TOMenuItem;
  protected
    (* Button Click Events *)
    procedure btnCustomerClickEvent(Sender: TOButtonItem);

    (* Menu Click Events *)
    procedure mnuCustomerClickEvent(Sender: TOMenuItem);

    procedure ShowCustomerForm;
  public
    constructor CreateNew(AService: TPluginServices);
    destructor Destroy; override;

    (* Returns the name of the plugin *)
    function GetName: TOString; override;

    (* Functions which control the creation and deletion
      of menu items and toolbar buttons *)
    procedure CreateMenuItems; override;
    procedure DeleteMenuItems; override;
    procedure CreateButtons; override;
    procedure DeleteButtons; override;

    (* General functions for applications, can be used to control
     open/save/close/create documents, Close the application *)
    procedure Open(PEType: TPluginEventType; var Name: TLargeString;
      var Handled: Boolean); override;
    procedure Save(PEType: TPluginEventType; var Name: TLargeString;
      var Handled: Boolean); override;
    procedure BeforeClose(PEType: TPluginEventType;
      var Cancel: Boolean); override;
    procedure AfterClose(PEType: TPluginEventType); override;
    procedure BeforeNew(PEType: TPluginEventType;
      var Cancel: Boolean); override;
    procedure AfterNew(PEType: TPluginEventType); override;

    (* Application Events *)
    procedure OnActivate; override;
    procedure OnDeactivate; override;
    procedure OnMinimize; override;
    procedure OnRestore; override;
    procedure OnException(ClassName: TMediumString;
      ErrorMessage: TLargeString); override;
    procedure OnHelp(Command: Word; Data: Longint;
      var CallHelp: Boolean); override;
    procedure OnHint; override;
    procedure OnIdle(var Done: Boolean); override;
    procedure OnMessage(var Msg: TMsg; var Handled: Boolean); override;
    procedure OnSettingsChanged(Flag: Integer; const Section: string;
      var Result: Longint); override;
    procedure OnShortCut(var Msg: TWMKey; var Handled: Boolean); override;
  end;

implementation

uses SysUtils, CustomerForm;

var
  Plugin: TCustomer = nil;

procedure PluginUnload; stdcall;
begin
  Plugin.Free;
end;

function PluginLoad(InParams: TOrckaPluginManagerParams;
  var ExitProc: Pointer): Boolean; stdcall;
begin
  Result := True;
  try
    Plugin := TCustomer.CreateNew(TPluginServices(InParams.PluginService));
    Plugin.FHostShared := THostShared(InParams.User);
    ExitProc := @PluginUnload;
  except
    Result := False;
  end;
end;

procedure PluginDescription(var Name, Description: TMediumString); stdcall;
begin
  FillChar(Name, SizeOf(TMediumString), 0);
  StrPCopy(Name, 'Customer');
  FillChar(Description, SizeOf(TMediumString), 0);
  StrPCopy(Description, 'Customer Maintenance');
end;

exports
  PluginLoad name OrckaPluginManagerExportProc2,
  PluginDescription name OrckaPluginManagerDescription;

{ TNewPlugin }

{ Button Click Events }

procedure TCustomer.btnCustomerClickEvent(Sender: TOButtonItem);
begin
  ShowCustomerForm;
end;


(* Menu Click Events *)
procedure TCustomer.mnuCustomerClickEvent(Sender: TOMenuItem);
begin
  ShowCustomerForm;
end;

{ Standard methods }

procedure TCustomer.AfterClose(PEType: TPluginEventType);
begin
  
end;

procedure TCustomer.AfterNew(PEType: TPluginEventType);
begin
  
end;

procedure TCustomer.BeforeClose(PEType: TPluginEventType;
  var Cancel: Boolean);
begin
  
end;

procedure TCustomer.BeforeNew(PEType: TPluginEventType;
  var Cancel: Boolean);
begin
  
end;

procedure TCustomer.CreateButtons;
begin
  (* Add the Toolbar's *)
  FService.InsertToolbar(StringToOString('View'));

  (* Insert the Button's *)
  FbtnCustomer := FService.InsertButton(1, StringToOString('View'),
    StringToOString('Customer|View or ammend customer details'),
    btnCustomerClickEvent);
  FbtnCustomer.SetCaption('Customer');
  FbtnCustomer.SetImageIndex(FService.AddIcon(LoadIcon(Hinstance,
    'CUSTOMERICON')));
end;

procedure TCustomer.CreateMenuItems;
var
  mnuTemp: TOMenuItem;
begin
  mnuTemp := FService.FindMenu(StringToOString('View'));

  if not Assigned(mnuTemp) then
    mnuTemp := FService.InsertMenu(1, nil, '&View', nil);

  if Assigned(mnuTemp) then
    FmnuCustomer := FService.InsertMenu(1, mnuTemp, 
      StringToOString('&Customer'), mnuCustomerClickEvent);
end;

constructor TCustomer.CreateNew(AService: TPluginServices);
begin
  inherited Create;
  FService := AService;
  FService.PluginClientInsert(Self);
  FService.PluginClientIncludeAppEvent(Self, poAllowInsertToolbars);
  FService.PluginClientIncludeAppEvent(Self, poAllowRemoveToolbars);
end;

procedure TCustomer.DeleteButtons;
begin
  (* Remove the Button's *)
  FService.RemoveButton(FbtnCustomer);

  (* Remove the Toolbar's *)
  FService.DeleteToolbar(StringToOString('View'));
end;

procedure TCustomer.DeleteMenuItems;
begin
  FService.RemoveMenu(FmnuCustomer);
end;

destructor TCustomer.Destroy;
begin
  FService.PluginClientExcludeAppEvent(Self, poAllowInsertToolbars);
  FService.PluginClientExcludeAppEvent(Self, poAllowRemoveToolbars);
  FService.PluginClientRemove(Self);
  inherited Destroy;
end;

function TCustomer.GetName: TOString;
begin
  Result := StringToOString('Customer');
end;

procedure TCustomer.OnActivate;
begin

end;

procedure TCustomer.OnDeactivate;
begin

end;

procedure TCustomer.OnException(ClassName: TMediumString;
  ErrorMessage: TLargeString);
begin

end;

procedure TCustomer.OnHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean);
begin

end;

procedure TCustomer.OnHint;
begin

end;

procedure TCustomer.OnIdle(var Done: Boolean);
begin

end;

procedure TCustomer.OnMessage(var Msg: TMsg; var Handled: Boolean);
begin

end;

procedure TCustomer.OnMinimize;
begin

end;

procedure TCustomer.OnRestore;
begin

end;

procedure TCustomer.OnSettingsChanged(Flag: Integer;
  const Section: string; var Result: Integer);
begin

end;

procedure TCustomer.OnShortCut(var Msg: TWMKey; var Handled: Boolean);
begin

end;

procedure TCustomer.Open(PEType: TPluginEventType; var Name: TLargeString;
  var Handled: Boolean);
begin

end;

procedure TCustomer.Save(PEType: TPluginEventType; var Name: TLargeString;
  var Handled: Boolean);
begin

end;

procedure TCustomer.ShowCustomerForm;
var
  frmCustomer: TfrmCustomer;
begin
  frmCustomer := TfrmCustomer.CreateCountryForm(FService.GetDatabaseHandle);
  try
    FHostShared.SetTitle('[Customer]');
    frmCustomer.ShowModal;
  finally
    FHostShared.SetTitle('');
    FreeAndNil(frmCustomer);
  end;
end;

end.

--- NEW FILE: Customer.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: CustomerForm.dfm ---
object frmCustomer: TfrmCustomer
  Left = 361
  Top = 102
  BorderStyle = bsDialog
  Caption = 'Customer'
  ClientHeight = 577
  ClientWidth = 282
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 536
    Width = 265
    Height = 2
  end
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 51
    Height = 13
    Caption = 'CUST_NO'
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 8
    Top = 48
    Width = 61
    Height = 13
    Caption = 'CUSTOMER'
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 8
    Top = 88
    Width = 88
    Height = 13
    Caption = 'CONTACT_FIRST'
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 8
    Top = 128
    Width = 84
    Height = 13
    Caption = 'CONTACT_LAST'
    FocusControl = DBEdit4
  end
  object Label5: TLabel
    Left = 8
    Top = 168
    Width = 60
    Height = 13
    Caption = 'PHONE_NO'
    FocusControl = DBEdit5
  end
  object Label6: TLabel
    Left = 8
    Top = 208
    Width = 88
    Height = 13
    Caption = 'ADDRESS_LINE1'
    FocusControl = DBEdit6
  end
  object Label7: TLabel
    Left = 8
    Top = 248
    Width = 88
    Height = 13
    Caption = 'ADDRESS_LINE2'
    FocusControl = DBEdit7
  end
  object Label8: TLabel
    Left = 8
    Top = 288
    Width = 24
    Height = 13
    Caption = 'CITY'
    FocusControl = DBEdit8
  end
  object Label9: TLabel
    Left = 8
    Top = 328
    Width = 96
    Height = 13
    Caption = 'STATE_PROVINCE'
    FocusControl = DBEdit9
  end
  object Label10: TLabel
    Left = 8
    Top = 368
    Width = 78
    Height = 13
    Caption = 'POSTAL_CODE'
    FocusControl = DBEdit10
  end
  object Label11: TLabel
    Left = 8
    Top = 408
    Width = 52
    Height = 13
    Caption = 'ON_HOLD'
    FocusControl = DBEdit11
  end
  object Label12: TLabel
    Left = 8
    Top = 448
    Width = 53
    Height = 13
    Caption = 'COUNTRY'
    FocusControl = DBEdit12
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 504
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 0
  end
  object Button1: TButton
    Left = 200
    Top = 544
    Width = 75
    Height = 25
    Caption = '&Close'
    TabOrder = 1
    OnClick = Button1Click
  end
  object DBEdit1: TDBEdit
    Left = 8
    Top = 24
    Width = 134
    Height = 21
    DataField = 'CUST_NO'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit2: TDBEdit
    Left = 8
    Top = 64
    Width = 265
    Height = 21
    DataField = 'CUSTOMER'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit3: TDBEdit
    Left = 8
    Top = 104
    Width = 199
    Height = 21
    DataField = 'CONTACT_FIRST'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit4: TDBEdit
    Left = 8
    Top = 144
    Width = 264
    Height = 21
    DataField = 'CONTACT_LAST'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit5: TDBEdit
    Left = 8
    Top = 184
    Width = 264
    Height = 21
    DataField = 'PHONE_NO'
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBEdit6: TDBEdit
    Left = 8
    Top = 224
    Width = 265
    Height = 21
    DataField = 'ADDRESS_LINE1'
    DataSource = DataSource1
    TabOrder = 7
  end
  object DBEdit7: TDBEdit
    Left = 8
    Top = 264
    Width = 265
    Height = 21
    DataField = 'ADDRESS_LINE2'
    DataSource = DataSource1
    TabOrder = 8
  end
  object DBEdit8: TDBEdit
    Left = 8
    Top = 304
    Width = 265
    Height = 21
    DataField = 'CITY'
    DataSource = DataSource1
    TabOrder = 9
  end
  object DBEdit9: TDBEdit
    Left = 8
    Top = 344
    Width = 199
    Height = 21
    DataField = 'STATE_PROVINCE'
    DataSource = DataSource1
    TabOrder = 10
  end
  object DBEdit10: TDBEdit
    Left = 8
    Top = 384
    Width = 160
    Height = 21
    DataField = 'POSTAL_CODE'
    DataSource = DataSource1
    TabOrder = 11
  end
  object DBEdit11: TDBEdit
    Left = 8
    Top = 424
    Width = 17
    Height = 21
    DataField = 'ON_HOLD'
    DataSource = DataSource1
    TabOrder = 12
  end
  object DBEdit12: TDBEdit
    Left = 8
    Top = 464
    Width = 199
    Height = 21
    DataField = 'COUNTRY'
    DataSource = DataSource1
    TabOrder = 13
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'D:\Program Files\Common Files\Borland Shared\Data\employee.gdb'
    Params.Strings = (
      'user_name=sysdba')
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 8
    Top = 544
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    AutoStopAction = saNone
    Left = 40
    Top = 544
  end
  object IBTable1: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    TableName = 'CUSTOMER'
    UpdateObject = IBUpdateSQL1
    Left = 72
    Top = 544
    object IBTable1CUST_NO: TIntegerField
      FieldName = 'CUST_NO'
      Required = True
    end
    object IBTable1CUSTOMER: TIBStringField
      FieldName = 'CUSTOMER'
      Required = True
      Size = 25
    end
    object IBTable1CONTACT_FIRST: TIBStringField
      FieldName = 'CONTACT_FIRST'
      Size = 15
    end
    object IBTable1CONTACT_LAST: TIBStringField
      FieldName = 'CONTACT_LAST'
    end
    object IBTable1PHONE_NO: TIBStringField
      FieldName = 'PHONE_NO'
    end
    object IBTable1ADDRESS_LINE1: TIBStringField
      FieldName = 'ADDRESS_LINE1'
      Size = 30
    end
    object IBTable1ADDRESS_LINE2: TIBStringField
      FieldName = 'ADDRESS_LINE2'
      Size = 30
    end
    object IBTable1CITY: TIBStringField
      FieldName = 'CITY'
      Size = 25
    end
    object IBTable1STATE_PROVINCE: TIBStringField
      FieldName = 'STATE_PROVINCE'
      Size = 15
    end
    object IBTable1POSTAL_CODE: TIBStringField
      FieldName = 'POSTAL_CODE'
      Size = 12
    end
    object IBTable1ON_HOLD: TIBStringField
      FieldName = 'ON_HOLD'
      Size = 1
    end
    object IBTable1COUNTRY: TIBStringField
      FieldName = 'COUNTRY'
      Size = 15
    end
  end
  object DataSource1: TDataSource
    DataSet = IBTable1
    Left = 104
    Top = 544
  end
  object IBUpdateSQL1: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  RDB$DB_KEY as IBX_INTERNAL_DBKEY, '
      '  CUST_NO,'
      '  CUSTOMER,'
      '  CONTACT_FIRST,'
      '  CONTACT_LAST,'
      '  PHONE_NO,'
      '  ADDRESS_LINE1,'
      '  ADDRESS_LINE2,'
      '  CITY,'
      '  STATE_PROVINCE,'
      '  COUNTRY,'
      '  POSTAL_CODE,'
      '  ON_HOLD'
      'from CUSTOMER '
      'where'
      '  CUST_NO = :CUST_NO')
    ModifySQL.Strings = (
      'update CUSTOMER'
      'set'
      '  CUST_NO = :CUST_NO,'
      '  CUSTOMER = :CUSTOMER,'
      '  CONTACT_FIRST = :CONTACT_FIRST,'
      '  CONTACT_LAST = :CONTACT_LAST,'
      '  PHONE_NO = :PHONE_NO,'
      '  ADDRESS_LINE1 = :ADDRESS_LINE1,'
      '  ADDRESS_LINE2 = :ADDRESS_LINE2,'
      '  CITY = :CITY,'
      '  STATE_PROVINCE = :STATE_PROVINCE,'
      '  COUNTRY = :COUNTRY,'
      '  POSTAL_CODE = :POSTAL_CODE,'
      '  ON_HOLD = :ON_HOLD'
      'where'
      '  CUST_NO = :OLD_CUST_NO')
    InsertSQL.Strings = (
      'insert into CUSTOMER'
      
        '  (CUST_NO, CUSTOMER, CONTACT_FIRST, CONTACT_LAST, PHONE_NO, ADD' +
        'RESS_LINE1, '
      
        '   ADDRESS_LINE2, CITY, STATE_PROVINCE, COUNTRY, POSTAL_CODE, ON' +
        '_HOLD)'
      'values'
      
        '  (:CUST_NO, :CUSTOMER, :CONTACT_FIRST, :CONTACT_LAST, :PHONE_NO' +
        ', :ADDRESS_LINE1, '
      
        '   :ADDRESS_LINE2, :CITY, :STATE_PROVINCE, :COUNTRY, :POSTAL_COD' +
        'E, :ON_HOLD)')
    DeleteSQL.Strings = (
      'delete from CUSTOMER'
      'where'
      '  CUST_NO = :OLD_CUST_NO')
    Left = 136
    Top = 544
  end
end

--- NEW FILE: images.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Customer.dpr ---
library Customer;

{$R 'images.res' 'images.rc'}

uses
  CustomerUnit in 'CustomerUnit.pas',
  CustomerForm in 'CustomerForm.pas' {frmCustomer};

{$R *.res}

begin

end.

--- NEW FILE: DISTLSTL.ICO ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Customer.dof ---
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=..\..\Prog
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=..\..\
Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\prog\ib_db_share.exe
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=D:\Program Files\Borland\Delphi6\Bin\
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2057
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
c:\program files\borland\delphi7\Projects\Bpl\PLGMDO.bpl=(untitled)