[Ocs-comps-commits] OCS2/Samples/VCL/AddinManager/Simple AddinForm.dfm,NONE,1.1 AddinForm.pas,NONE,1.1 SimpleAddinManager.cfg,NONE,1.1 SimpleAddinManager.dof,NONE,1.1 SimpleAddinManager.dpr,NONE,1.1 SimpleAddinManager.res,NONE,1.1

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

Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/AddinManager/Simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/AddinManager/Simple

Added Files:
	AddinForm.dfm AddinForm.pas SimpleAddinManager.cfg 
	SimpleAddinManager.dof SimpleAddinManager.dpr 
	SimpleAddinManager.res 
Log Message:
Initially added to source control

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

--- NEW FILE: SimpleAddinManager.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
-LE"d:\program files\borland\delphi6\Projects\Bpl"
-LN"d:\program files\borland\delphi6\Projects\Bpl"

--- NEW FILE: SimpleAddinManager.dof ---
[FileVersion]
Version=6.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=0
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;
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
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;inetdbbde;inet;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k;ibam;tb2k_d6;OrckaD6
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[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=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OrckaAddinManager, ComCtrls, Menus, ImgList, ExtCtrls,
  OrckaAddinManagerShared, Buttons, OrckaButton, StdCtrls;

type
  TForm4 = class(TForm)
    OrckaAddinManager1: TOrckaAddinManager;
    MainMenu1: TMainMenu;
    mnuFile: TMenuItem;
    mnuClose: TMenuItem;
    mnuPlugins: TMenuItem;
    mnuLoad: TMenuItem;
    mnuUnload: TMenuItem;
    mnuHelp: TMenuItem;
    mnuAbout: TMenuItem;
    StatusBar1: TStatusBar;
    OpenDialog1: TOpenDialog;
    ControlBar1: TControlBar;
    ImageList1: TImageList;
    procedure mnuCloseClick(Sender: TObject);
    procedure mnuLoadClick(Sender: TObject);
    procedure mnuUnloadClick(Sender: TObject);
    procedure mnuAboutClick(Sender: TObject);
    procedure OrckaAddinManager1GetHandle(Sender: TObject;
      var Hwnd: Integer);
    procedure OrckaAddinManager1GetRegLocation(Sender: TObject;
      var RegistryLocaion: String);
    procedure OrckaAddinManager1GetAddinParams(Sender: TObject;
      AddinManagerParams: TOrckaAddinManagerParams);
    procedure FormCreate(Sender: TObject);
  private
    procedure AppHint(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.DFM}

resourcestring
sDemo = 'Demo Application for Orcka Addin Manager' + 
  #13#13'Copyright © 2000.  Orcka.';
sRegLocation = 'Software\Orcka\AddinManagerDemo\';

procedure TForm4.mnuCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TForm4.mnuLoadClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    OrckaAddinManager1.LoadAddin(OpenDialog1.FileName);
    mnuLoad.Enabled := False;
    mnuUnLoad.Enabled := True;
  end;
end;

procedure TForm4.mnuUnloadClick(Sender: TObject);
begin
  {Unload the first plugin}
  OrckaAddinManager1.UnloadAddin(OpenDialog1.FileName);
  mnuUnLoad.Enabled := False;
  mnuLoad.Enabled := True;
end;

procedure TForm4.mnuAboutClick(Sender: TObject);
begin
  MessageBox(Handle, PChar(sDemo), PChar(Application.Title), 
    MB_OK or MB_ICONINFORMATION);
end;

procedure TForm4.OrckaAddinManager1GetHandle(Sender: TObject;
  var Hwnd: Integer);
begin
  Hwnd := Handle;
end;

procedure TForm4.OrckaAddinManager1GetRegLocation(Sender: TObject;
  var RegistryLocaion: String);
begin
  RegistryLocaion := sRegLocation;
end;

procedure TForm4.OrckaAddinManager1GetAddinParams(Sender: TObject;
  AddinManagerParams: TOrckaAddinManagerParams);
begin
  AddinManagerParams.AppHandle := Application.Handle;
end;

procedure TForm4.AppHint(Sender: TObject);
begin
  StatusBar1.SimpleText := Application.Hint;
  StatusBar1.SimplePanel := CompareText(StatusBar1.SimpleText, '') <> 0;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
  Application.OnHint := AppHint;
end;

end.

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

--- NEW FILE: SimpleAddinManager.dpr ---
program SimpleAddinManager;

uses
  Forms,
  AddinForm in 'AddinForm.pas' {Form4};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm4, Form4);
  Application.Run;
end.