[Ocs-comps-commits] OCS2/Samples/VCL/PluginManager/TB2000 Demo1.dfm,NONE,1.1 Demo1.pas,NONE,1.1 TB2K_Demo.cfg,NONE,1.1 TB2K_Demo.dof,NONE,1.1 TB2K_Demo.dpr,NONE,1.1 TB2K_Demo.res,NONE,1.1

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

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

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

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

{
  Toolbar2000 demo project

  $Id: Demo1.pas,v 1.1 2005/11/21 10:33:28 tectsoft Exp $
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Menus, ActnList, ImgList, ComCtrls,
  TB2Item, TB2ExtItems, TB2Dock, TB2Toolbar, TB2MRU, OrckaPluginManager;

type
  TForm1 = class(TForm)
    ActionList: TActionList;
    actNew: TAction;
    actOpen: TAction;
    actSave: TAction;
    actSaveAs: TAction;
    actPageSetup: TAction;
    actPrint: TAction;
    actExit: TAction;
    actUndo: TAction;
    actCut: TAction;
    actCopy: TAction;
    actPaste: TAction;
    actDelete: TAction;
    actSelectAll: TAction;
    actTimeDate: TAction;
    actWordWrap: TAction;
    actSetFont: TAction;
    actFind: TAction;
    actFindNext: TAction;
    actReplace: TAction;
    actHelpTopics: TAction;
    actAbout: TAction;
    actTestButton: TAction;
    actTestEdit: TTBEditAction;
    DockTop: TTBDock;
    MenuToolbar: TTBToolbar;
    ImageList: TTBImageList;
    FMenu: TTBSubmenuItem;
    FNew: TTBItem;
    FOpen: TTBItem;
    FSave: TTBItem;
    FSaveAs: TTBItem;
    FPageSetup: TTBItem;
    FPrint: TTBItem;
    FExit: TTBItem;
    EMenu: TTBSubmenuItem;
    EUndo: TTBItem;
    ECut: TTBItem;
    ECopy: TTBItem;
    EPaste: TTBItem;
    EDelete: TTBItem;
    ESelectAll: TTBItem;
    ETimeDate: TTBItem;
    EWordWrap: TTBItem;
    ESetFont: TTBItem;
    SMenu: TTBSubmenuItem;
    SFind: TTBItem;
    SFindNext: TTBItem;
    SReplace: TTBItem;
    HMenu: TTBSubmenuItem;
    HHelpTopics: TTBItem;
    HAbout: TTBItem;
    FMRU: TTBMRUListItem;
    NBSeparatorItem3: TTBSeparatorItem;
    NBSeparatorItem4: TTBSeparatorItem;
    TestEdit: TTBEditItem;
    MainToolbar: TTBToolbar;
    NewButton: TTBItem;
    OpenButton: TTBItem;
    SaveButton: TTBItem;
    DockBottom: TTBDock;
    DockLeft: TTBDock;
    DockRight: TTBDock;
    BottomToolbar: TTBToolbar;
    PopupMenuBarButton: TTBItem;
    PopupToolbarButton: TTBItem;
    Memo1: TMemo;
    ContextPopupMenu: TTBPopupMenu;
    StatusBar: TStatusBar;
    ToolbarPopupMenu: TTBPopupMenu;
    MRUList: TTBMRUList;
    PrintButton: TTBItem;
    CutButton: TTBItem;
    CopyButton: TTBItem;
    PasteButton: TTBItem;
    UndoButton: TTBSubmenuItem;
    actPrintPreview: TAction;
    TBItem1: TTBItem;
    FormatToolbar: TTBToolbar;
    BoldItem: TTBItem;
    ItalicItem: TTBItem;
    UnderlineItem: TTBItem;
    TBSeparatorItem1: TTBSeparatorItem;
    AlignLeftItem: TTBItem;
    CenterItem: TTBItem;
    AlignRightItem: TTBItem;
    TBSeparatorItem2: TTBSeparatorItem;
    BulletsItem: TTBItem;
    NBItem34: TTBItem;
    NBSeparatorItem6: TTBSeparatorItem;
    NBItem35: TTBItem;
    NBItem36: TTBItem;
    NBItem37: TTBItem;
    NBItem38: TTBItem;
    NBSeparatorItem7: TTBSeparatorItem;
    NBItem39: TTBItem;
    ComboBox1: TComboBox;
    TBControlItem1: TTBControlItem;
    TBSeparatorItem3: TTBSeparatorItem;
    TBControlItem2: TTBControlItem;
    ComboBox2: TComboBox;
    actBold: TAction;
    actItalic: TAction;
    actUnderline: TAction;
    actAlignLeft: TAction;
    actCenter: TAction;
    actAlignRight: TAction;
    TBSeparatorItem4: TTBSeparatorItem;
    actRedo: TAction;
    RedoButton: TTBSubmenuItem;
    TBItem2: TTBItem;
    TBItem3: TTBItem;
    TBItem4: TTBItem;
    ERedo: TTBItem;
    VMenu: TTBSubmenuItem;
    VToolbars: TTBSubmenuItem;
    VTStandard: TTBVisibilityToggleItem;
    VTFormatting: TTBVisibilityToggleItem;
    VTBottom: TTBVisibilityToggleItem;
    VStatusBar: TTBItem;
    TBToolsToolbar: TTBToolbar;
    TBItem5: TTBItem;
    OrckaPluginManager1: TOrckaPluginManager;
    procedure FormCreate(Sender: TObject);
    procedure ItemClick(Sender: TObject);
    procedure PopupMenuBarButtonClick(Sender: TObject);
    procedure PopupToolbarButtonClick(Sender: TObject);
    procedure MRUListClick(Sender: TObject; const Filename: String);
    procedure AlignClick(Sender: TObject);
    procedure BulletsItemClick(Sender: TObject);
    procedure BoldItemClick(Sender: TObject);
    procedure ItalicItemClick(Sender: TObject);
    procedure UnderlineItemClick(Sender: TObject);
    procedure VStatusBarClick(Sender: TObject);
    procedure VMenuClick(Sender: TObject);
    procedure TBItem5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure OrckaPluginManager1InsertButton(Sender: TObject;
      Button: TTBCustomItem; var ToolbarName: String);
  private
    { Private declarations }
    procedure OnHint (Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  CommCtrl, TB2Version;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
IniFilename: string;
begin
  Memo1.Text := 'Orka Plugin Manager 2 Running on TB2000 version ' + Toolbar2000Version;
  Application.OnHint := OnHint;
  // setup plugin manager
  IniFilename := ChangeFileExt(Application.ExeName, '.INI');
  OrckaPluginManager1.PluginIniFileName := IniFilename;
end;

procedure TForm1.OnHint (Sender: TObject);
begin
  StatusBar.Panels[0].Text := Application.Hint;
end;

procedure TForm1.ItemClick(Sender: TObject);
begin
  if Sender is TComponent then
    Application.MessageBox (PChar('You selected:'#13#10#13#10 +
      TComponent(Sender).Name), 'OnClick handler',
      MB_OK or MB_ICONINFORMATION);
end;

procedure TForm1.MRUListClick(Sender: TObject; const Filename: String);
begin
  Application.MessageBox (PChar(Format('You selected "%s" from the MRU list.',
    [Filename])), 'MRUListClick', MB_OK or MB_ICONINFORMATION);
end;

procedure TForm1.VMenuClick(Sender: TObject);
begin
  VStatusBar.Checked := StatusBar.Visible;
end;

procedure TForm1.VStatusBarClick(Sender: TObject);
begin
  { Force the StatusBar to always be at the bottom of the form. Without this
    line of code, the status bar sometimes may appear above the bottom dock.
    This is not a bug in Toolbar2000, but rather is due to the design of the
    VCL's alignment system. }
  StatusBar.Top := ClientHeight;

  { Toggle the status bar's visibility }
  StatusBar.Visible := not StatusBar.Visible;
end;

procedure TForm1.AlignClick(Sender: TObject);
begin
  AlignLeftItem.Checked := (Sender = actAlignLeft);
  CenterItem.Checked := (Sender = actCenter);
  AlignRightItem.Checked := (Sender = actAlignRight);
end;

procedure TForm1.BulletsItemClick(Sender: TObject);
begin
  BulletsItem.Checked := not BulletsItem.Checked;
end;

procedure TForm1.BoldItemClick(Sender: TObject);
begin
  BoldItem.Checked := not BoldItem.Checked;
end;

procedure TForm1.ItalicItemClick(Sender: TObject);
begin
  ItalicItem.Checked := not ItalicItem.Checked;
end;

procedure TForm1.UnderlineItemClick(Sender: TObject);
begin
  UnderlineItem.Checked := not UnderlineItem.Checked;
end;

procedure TForm1.PopupMenuBarButtonClick(Sender: TObject);
var
  P: TPoint;
begin
  P := Memo1.ClientToScreen(Point(8, 8));
  MenuToolbar.Items.Popup (P.X, P.Y, True);
end;

procedure TForm1.PopupToolbarButtonClick(Sender: TObject);
var
  P: TPoint;
begin
  P := Memo1.ClientToScreen(Point(8, 8));
  MainToolbar.Items.Popup (P.X, P.Y, True);
end;

procedure TForm1.TBItem5Click(Sender: TObject);
begin
   OrckaPluginManager1.Execute;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  (* Add the existing toolbars to the plugin managers list. *)
  OrckaPluginManager1.InsertToolbar('TBToolsToolbar', TBToolsToolbar);
  OrckaPluginManager1.InsertToolbar('Formatting', FormatToolbar);
  OrckaPluginManager1.InsertToolbar('Standard', MainToolbar);
  OrckaPluginManager1.InsertToolbar('Another Toolbar', BottomToolbar);
  
  OrckaPluginManager1.LoadFromPath(ExtractFilePath(ParamStr(0)));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  (* Remove existing toolbars *)
  OrckaPluginManager1.RemoveToolbar('TBToolsToolbar', TBToolsToolbar);
  OrckaPluginManager1.RemoveToolbar('Formatting', FormatToolbar);
  OrckaPluginManager1.RemoveToolbar('Standard', MainToolbar);
  OrckaPluginManager1.RemoveToolbar('Another Toolbar', BottomToolbar);

  OrckaPluginManager1.UnLoadAllPlugins;
end;

procedure TForm1.OrckaPluginManager1InsertButton(Sender: TObject;
  Button: TTBCustomItem; var ToolbarName: String);
begin
  ShowMessage(Button.Caption);
end;

end.

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

uses
  Forms,
  Demo1 in 'Demo1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.


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

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

--- NEW FILE: TB2K_Demo.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=0
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;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=D:\Program Files\Orcka\Component Suite\Plugin Wizard\Version 2 Source\
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=2
MinorVer=0
Release=0
Build=38
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2057
CodePage=1252
[Version Info Keys]
CompanyName=Orcka Development
FileDescription=
FileVersion=2.0.0.38
InternalName=PluginWizard
LegalCopyright=Copyright © 2002 Orcka Development.  All rights reserved.
LegalTrademarks=
OriginalFilename=PluginWizard
ProductName=TOrckaPluginWizard
ProductVersion=2.0
Comments=
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlOutputDirectorry]
Count=2
Item0=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\TBX
Item1=D:\Program Files\Other\TB2K\Demo

--- NEW FILE: TB2K_Demo.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"