[Ocs-comps-commits] OCS2/Samples/CLX/AddinManager/Simple AddinForm.dfm,NONE,1.1 AddinForm.pas,NONE,1

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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

Added Files:
	AddinForm.dfm AddinForm.pas SimpleAddinManager.cfg 
	SimpleAddinManager.conf SimpleAddinManager.desk 
	SimpleAddinManager.dof SimpleAddinManager.dpr 
	SimpleAddinManager.kof 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 ---
-$A+
-$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
-LNd:\program files\borland\delphi4\Lib

--- NEW FILE: SimpleAddinManager.dof ---
[Compiler]
A=1
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=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;
[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=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
[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
  SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  OrckaAddinManager, QComCtrls, QMenus, QImgList, QExtCtrls,
  OrckaAddinManagerShared, QButtons, OrckaButton, QTypes, Qt;

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 OrckaAddinManager1GetRegLocation(Sender: TObject;
      var RegistryLocaion: String);
    procedure OrckaAddinManager1GetAddinParams(Sender: TObject;
      AddinManagerParams: TOrckaAddinManagerParams);
    procedure FormCreate(Sender: TObject);
    procedure OrckaAddinManager1GetHandle(Sender: TObject;
      var Hwnd: QWidgetH);
  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
  ShowMessage(sDemo);
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;

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

end.

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

--- NEW FILE: SimpleAddinManager.conf ---
-$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
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-U"/home/simon/kylix/lib/debug"
-O"/home/simon/kylix/lib/debug"
-I"/home/simon/kylix/lib/debug"
-R"/home/simon/kylix/lib/debug"
-DSHAREMEM

--- NEW FILE: SimpleAddinManager.kof ---
[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=

[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
DynamicLoader=/lib/ld-linux.so.2

[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=/home/simon/kylix/lib/debug
Packages=baseclx:visualclx:visualdbclx:dataclx:indy:orckak1
Conditionals=SHAREMEM
DebugSourceDirs=
UsePackages=0

[Parameters]
RunParams=
HostApplication=
Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
UseLauncher=0
DebugCWD=

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

uses
  QForms, qdialogs,
  AddinForm in 'AddinForm.pas' {Form4};

{$R *.res}

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

--- NEW FILE: SimpleAddinManager.desk ---
[Closed Files]
File_0=SourceModule,'/home/simon/orcka/source/OrckaAddinManager.pas',0,1,1,1,1,0,0
File_1=SourceModule,'/home/simon/orcka/Samples/SpellCheck/Visual/Unit1.pas',0,1,1,1,1,1,1
File_2=SourceModule,'/home/simon/orcka/Samples/Button/Unit1.pas',0,1,35,10,40,1,1
File_3=SourceModule,'/home/simon/kylix/source/clx/IniFiles.pas',0,1,744,1,760,0,0
File_4=SourceModule,'/home/simon/orcka/qikdic/Unit1.pas',0,1,148,1,153,1,1
File_5=SourceModule,'/home/simon/orcka/source/OrckaAddinManagerShared.pas',0,1,163,58,177,0,0
File_6=SourceModule,'/home/simon/orcka/source/OrckaStringGrid.pas',0,1,183,35,192,0,0
File_7=SourceModule,'/home/simon/orcka/source/OrckaRegister.pas',0,1,73,17,80,0,0
File_8=SourceModule,'/home/simon/orcka/source/CSVProcs.pas',0,1,35,13,40,0,0
File_9=SourceModule,'/home/simon/orcka/source/OrckaLibraryLoader.pas',0,1,33,58,43,0,0

[Modules]
Module0=/home/simon/orcka/Samples/AddinManager/Simple/AddinForm.pas
Module1=/home/simon/orcka/Samples/AddinManager/Simple/SimpleAddinManager.dpr
Count=2
EditWindowCount=1

[/home/simon/orcka/Samples/AddinManager/Simple/AddinForm.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0

[/home/simon/orcka/Samples/AddinManager/Simple/SimpleAddinManager.dpr]
ModuleType=SourceModule
FormState=0
FormOnTop=0

[/home/simon/ProjectGroup1.bpg]
FormState=0
FormOnTop=0

[EditWindow0]
ViewCount=2
CurrentView=0
View0=0
View1=1
CodeExplorer=CodeExplorer@EditWindow0
MessageView=MessageView@EditWindow0
Create=1
Visible=1
State=0
Left=302
Top=208
Width=696
Height=482
MaxLeft=-1
MaxTop=-1
ClientWidth=696
ClientHeight=482
LeftPanelSize=140
LeftPanelClients=CodeExplorer@EditWindow0
LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
RightPanelSize=0
BottomPanelSize=52
BottomPanelClients=MessageView@EditWindow0
BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF

[View0]
Module=/home/simon/orcka/Samples/AddinManager/Simple/AddinForm.pas
CursorX=61
CursorY=8
TopLine=1
LeftCol=17

[View1]
Module=/home/simon/orcka/Samples/AddinManager/Simple/SimpleAddinManager.dpr
CursorX=4
CursorY=4
TopLine=1
LeftCol=1

[Watches]
Count=0

[Breakpoints]
Count=0

[AddressBreakpoints]
Count=0

[Main Window]
Create=1
Visible=1
State=0
Left=3
Top=19
Width=1024
Height=87
MaxLeft=-1
MaxTop=-1
ClientWidth=1024
ClientHeight=87

[ProjectManager]
Create=1
Visible=1
State=0
Left=369
Top=372
Width=535
Height=368
MaxLeft=-1
MaxTop=-1
ClientWidth=529
ClientHeight=343
TBDockHeight=368
LRDockWidth=535
Dockable=1

[AlignmentPalette]
Create=1
Visible=0
State=0
Left=203
Top=117
Width=156
Height=85
MaxLeft=-1
MaxTop=-1
ClientWidth=150
ClientHeight=60

[PropertyInspector]
Create=1
Visible=1
State=0
Left=3
Top=117
Width=190
Height=494
MaxLeft=-1
MaxTop=-1
ClientWidth=182
ClientHeight=467
TBDockHeight=494
LRDockWidth=190
Dockable=1
SplitPos=85
ArrangeBy=Name
SelectedItem=OnGetHandle
ExpandedItems=
HiddenCategories=
ShowStatusBar=1

[WatchWindow]
Create=1
Visible=1
State=0
Left=0
Top=0
Width=407
Height=96
MaxLeft=-1
MaxTop=-1
ClientWidth=407
ClientHeight=96
TBDockHeight=149
LRDockWidth=421
Dockable=1

[BreakpointWindow]
Create=1
Visible=1
State=0
Left=0
Top=0
Width=407
Height=96
MaxLeft=-1
MaxTop=-1
ClientWidth=407
ClientHeight=96
TBDockHeight=119
LRDockWidth=293
Dockable=1
Column0Width=123
Column1Width=92
Column2Width=246
Column3Width=246
Column4Width=92
Column5Width=92

[CallStackWindow]
Create=1
Visible=1
State=0
Left=0
Top=0
Width=407
Height=96
MaxLeft=-1
MaxTop=-1
ClientWidth=407
ClientHeight=96
TBDockHeight=161
LRDockWidth=294
Dockable=1

[CodeExplorer@EditWindow0]
Create=1
Visible=1
State=0
Left=0
Top=12
Width=140
Height=394
MaxLeft=-1
MaxTop=-1
ClientWidth=140
ClientHeight=394
TBDockHeight=305
LRDockWidth=140
Dockable=1

[MessageView@EditWindow0]
Create=1
Visible=1
State=0
Left=12
Top=0
Width=684
Height=52
MaxLeft=-1
MaxTop=-1
ClientWidth=684
ClientHeight=52
TBDockHeight=52
LRDockWidth=443
Dockable=1

[DockHosts]
DockHostCount=1

[DockSite0]
DockSiteType=1
Create=1
Visible=0
State=0
Left=-3
Top=548
Width=421
Height=149
MaxLeft=-1
MaxTop=-1
ClientWidth=415
ClientHeight=124
TBDockHeight=149
LRDockWidth=421
Dockable=1
TabPosition=0
ActiveTab=Watch List
TabDockClients=WatchWindow,BreakpointWindow,CallStackWindow