[Ocs-comps-commits] OCS2/Samples/VCL/PluginManager/TBX TBX_Demo.cfg,NONE,1.1 TBX_Demo.dof,NONE,1.1 TBX_Demo.dpr,NONE,1.1 TBX_Demo.res,NONE,1.1 Unit1.dfm,NONE,1.1 Unit1.pas,NONE,1.1 Unit2.dfm,NONE,1.1 Unit2.pas,NONE,1.1

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

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

Added Files:
	TBX_Demo.cfg TBX_Demo.dof TBX_Demo.dpr TBX_Demo.res Unit1.dfm 
	Unit1.pas Unit2.dfm Unit2.pas 
Log Message:
Initially added to source control

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

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

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

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

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

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
  private
    procedure WMEraseBkgnd(var Message: TMessage); message WM_ERASEBKGND;
  public
    constructor Create(AOwner: TComponent); override;
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

var
  N: Integer = 1;

{ TForm2 }

constructor TForm2.Create(AOwner: TComponent);
begin
  inherited;
  ControlStyle := ControlStyle + [csOpaque];
  Caption := 'MDI Child Window ' + IntToStr(N);
  Inc(N);
end;

procedure TForm2.WMEraseBkgnd(var Message: TMessage);
begin
  Message.Result := 1;
end;

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

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus,
  Dialogs, ImgList, StdCtrls, ExtCtrls, ComCtrls, TBX, TB2Dock, TB2Toolbar,
  TB2Item, TB2Common, TB2ExtItems, TBXMDI, TBXSwitcher, TBXExtItems,
  TBXLists, TBXDkPanels, TBXToolPals, TBXStatusBars,
  TBXDefaultTheme, TBXOfficeXPTheme, TBXStripesTheme, 
  OrckaAddinManager, Buttons, OrckaButton, OrckaPluginManager;

type
  TForm1 = class(TForm)
    TBDock1: TTBDock;
    TBXToolbar0: TTBXToolbar;
    TBXSubmenuItem1: TTBXSubmenuItem;
    TBXItem1: TTBXItem;
    TBXItem2: TTBXItem;
    TBXItem3: TTBXItem;
    TBXItem4: TTBXItem;
    mnEdit: TTBXSubmenuItem;
    TBXItem5: TTBXItem;
    TBXSeparatorItem1: TTBXSeparatorItem;
    TBXSeparatorItem2: TTBXSeparatorItem;
    TBXItem6: TTBXItem;
    ImageList1: TImageList;
    TBXItem7: TTBXItem;
    TBXSeparatorItem3: TTBXSeparatorItem;
    TBXItem8: TTBXItem;
    TBXSubmenuItem3: TTBXSubmenuItem;
    TBXSubmenuItem4: TTBXSubmenuItem;
    TBXSeparatorItem4: TTBXSeparatorItem;
    TBXItem9: TTBXItem;
    TBXItem10: TTBXItem;
    TBXItem11: TTBXItem;
    TBXItem15: TTBXItem;
    TBDock2: TTBDock;
    TBDock3: TTBDock;
    TBDock4: TTBDock;
    ImageList2: TImageList;
    TBXSeparatorItem11: TTBXSeparatorItem;
    TBXItem29: TTBXItem;
    TBXItem28: TTBXItem;
    TBXItem38: TTBXItem;
    TBXToolbar2: TTBXToolbar;
    TBXItem40: TTBXItem;
    TBXItem41: TTBXItem;
    TBXItem42: TTBXItem;
    TBXSeparatorItem12: TTBXSeparatorItem;
    TBXItem43: TTBXItem;
    TBXItem44: TTBXItem;
    TBXSeparatorItem13: TTBXSeparatorItem;
    TBXItem45: TTBXItem;
    TBXItem46: TTBXItem;
    TBXItem47: TTBXItem;
    TBXSeparatorItem14: TTBXSeparatorItem;
    mnUndoItems: TTBXSubmenuItem;
    TBXSubmenuItem9: TTBXSubmenuItem;
    TBXItem12: TTBXItem;
    TBXItem13: TTBXItem;
    TBXSeparatorItem6: TTBXSeparatorItem;
    bColorItem: TTBXColorItem;
    TBXSubmenuItem6: TTBXSubmenuItem;
    ColorDialog: TColorDialog;
    TBXSubmenuItem2: TTBXSubmenuItem;
    TBXItem16: TTBXItem;
    TBXItem17: TTBXItem;
    TBXItem18: TTBXItem;
    TBXItem19: TTBXItem;
    TBXSeparatorItem9: TTBXSeparatorItem;
    TBXItem20: TTBXItem;
    TBXItem21: TTBXItem;
    TBXSeparatorItem10: TTBXSeparatorItem;
    TBXItem22: TTBXItem;
    TBXMDIHandler1: TTBXMDIHandler;
    TBXSubmenuItem5: TTBXSubmenuItem;
    TBXMDIWindowItem1: TTBXMDIWindowItem;
    TBXItem23: TTBXItem;
    TBXItem26: TTBXItem;
    TBXSeparatorItem16: TTBXSeparatorItem;
    TBXSwitcher: TTBXSwitcher;
    TBXPopupMenu1: TTBXPopupMenu;
    TBXItem36: TTBXItem;
    TBXItem37: TTBXItem;
    TBXSubmenuItem7: TTBXSubmenuItem;
    TBXItem39: TTBXItem;
    TBXItem55: TTBXItem;
    TBXSeparatorItem17: TTBXSeparatorItem;
    TBXItem56: TTBXItem;
    TBXItem57: TTBXItem;
    TBXItem58: TTBXItem;
    TBXItem59: TTBXItem;
    TBXToolbar3: TTBXToolbar;
    TBXItem60: TTBXItem;
    TBXSeparatorItem18: TTBXSeparatorItem;
    TBXItem61: TTBXItem;
    TBXItem62: TTBXItem;
    TBXItem64: TTBXItem;
    TBXItem65: TTBXItem;
    TBXItem66: TTBXItem;
    TBXSeparatorItem19: TTBXSeparatorItem;
    TBXSubmenuItem8: TTBXSubmenuItem;
    TBXSeparatorItem20: TTBXSeparatorItem;
    MoreColors: TTBXItem;
    TBXSeparatorItem5: TTBXSeparatorItem;
    TBXLabelItem1: TTBXLabelItem;
    TBXToolbar5: TTBXToolbar;
    be1: TTBXSubmenuItem;
    TBXItem24: TTBXItem;
    TBXItem25: TTBXItem;
    TBXItem30: TTBXItem;
    be2: TTBXSubmenuItem;
    be3: TTBXItem;
    be4: TTBXItem;
    TBXSeparatorItem8: TTBXSeparatorItem;
    be5: TTBXItem;
    be6: TTBXItem;
    be7: TTBXSubmenuItem;
    TBXItem27: TTBXItem;
    TBXItem31: TTBXItem;
    TBXEditItem2: TTBXEditItem;
    TBXSeparatorItem7: TTBXSeparatorItem;
    UndoList: TTBXUndoList;
    UndoLabel: TTBXLabelItem;
    lstFonts: TTBXComboList;
    TBXComboList1: TTBXComboList;
    ColorCombo: TTBXComboItem;
    TBXSubmenuItem10: TTBXSubmenuItem;
    TBXList1: TTBXList;
    TBXSeparatorItem15: TTBXSeparatorItem;
    DockablePanel: TTBXDockablePanel;
    TBXPageScroller1: TTBXPageScroller;
    TBXLabel1: TTBXLabel;
    TBXLabel2: TTBXLabel;
    TBXLabel3: TTBXLabel;
    TBXAlignmentPanel2: TTBXAlignmentPanel;
    ListBox1: TListBox;
    TBXLabel4: TTBXLabel;
    TBXAlignmentPanel4: TTBXAlignmentPanel;
    TBXToolbar1: TTBXToolbar;
    TBXSubmenuItem11: TTBXSubmenuItem;
    TBXSeparatorItem21: TTBXSeparatorItem;
    TBXComboList2: TTBXComboList;
    ClrDefault: TTBXColorItem;
    ColorPalette: TTBXColorPalette;
    TBXSeparatorItem26: TTBXSeparatorItem;
    ToolPalette: TTBXToolPalette;
    TBXCheckBox1: TTBXCheckBox;
    TBXRadioButton1: TTBXRadioButton;
    TBXRadioButton2: TTBXRadioButton;
    TBXRadioButton3: TTBXRadioButton;
    TBXCheckBox2: TTBXCheckBox;
    TBXLink1: TTBXLink;
    TBXLabel5: TTBXLabel;
    TBXStatusBar: TTBXStatusBar;
    Edit1: TEdit;
    bColorButton: TTBXSubmenuItem;
    TBXSeparatorItem22: TTBXSeparatorItem;
    OrckaPluginManager1: TOrckaPluginManager;
    TBXItem14: TTBXItem;
    TBXSeparatorItem23: TTBXSeparatorItem;
    TBXSeparatorItem24: TTBXSeparatorItem;
    procedure TBXItem31Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure MakeNewWindow(Sender: TObject);
    procedure TBXItem23Click(Sender: TObject);
    procedure TBXItem26Click(Sender: TObject);
    procedure TBXItem27Click(Sender: TObject);
    procedure mnUndoItemsPopup(Sender: TTBCustomItem; FromLink: Boolean);
    procedure UndoListChange(Sender: TObject);
    procedure lstFontsMeasureHeight(Sender: TTBXStringList;
      ACanvas: TCanvas; var AHeight: Integer);
    procedure lstFontsDrawItem(Sender: TTBXStringList; ACanvas: TCanvas;
      ARect: TRect; AIndex: Integer; Selected: Boolean; var DrawDefault: Boolean);
    procedure TBXItem60Click(Sender: TObject);
    procedure MoreColorsClick(Sender: TObject);
    procedure ColorPaletteChange(Sender: TObject);
    procedure ClrDefaultClick(Sender: TObject);
    procedure TBXRadioButton1Change(Sender: TObject);
    procedure TBXRadioButton2Change(Sender: TObject);
    procedure TBXRadioButton3Change(Sender: TObject);
    procedure TBXCheckBox1Change(Sender: TObject);
    procedure TBXStatusBarPanelClick(Sender: TTBXCustomStatusBar;
      Panel: TTBXStatusPanel);
    procedure TBXSubmenuItem8AdjustFont(Item: TTBCustomItem;
      Viewer: TTBItemViewer; Font: TFont; StateFlags: Integer);
    procedure bColorButtonDrawImage(Item: TTBCustomItem;
      Viewer: TTBItemViewer; Canvas: TCanvas; ImageRect: TRect;
      ImageOffset: TPoint; StateFlags: Integer);
    procedure FormShow(Sender: TObject);
    procedure TBXItem14Click(Sender: TObject);
    procedure OrckaPluginManager1InsertButton(Sender: TObject;
      Button: TTBCustomItem; var ToolbarName: String);
  end;

var
  Form1: TForm1;

implementation

uses Unit2, TBXUtils;

{$R *.DFM}

procedure TForm1.TBXItem31Click(Sender: TObject);
begin
  TTBXItem(Sender).Checked := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  C: HCURSOR;
  IniFilename: string;
begin
  if not IsWindowsXP then
  begin
    TBXLabel1.Enabled := False;
    TBXCheckBox1.Enabled := False;
  end;
  TBXGetThemes(ListBox1.Items);
  lstFonts.Strings := Screen.Fonts;

  { Replace Borland's hand cursor with windows default one, if available }
  C := LoadCursor(0, IDC_HAND);
  if C <> 0 then Screen.Cursors[crHandPoint] := C;

  IniFilename := ChangeFileExt(Application.ExeName, '.INI');
  OrckaPluginManager1.PluginIniFileName := IniFilename;
  OrckaPluginManager1.LoadFromPath(ExtractFilePath(ParamStr(0)));
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  TBXSetTheme(ListBox1.Items[ListBox1.ItemIndex]);
end;

procedure TForm1.MakeNewWindow(Sender: TObject);
begin
  TForm2.Create(Self);
end;

procedure TForm1.TBXItem23Click(Sender: TObject);
begin
  Cascade;
end;

procedure TForm1.TBXItem26Click(Sender: TObject);
begin
  Tile;
end;

procedure TForm1.TBXItem27Click(Sender: TObject);
begin
  TTBXItem(Sender).Checked := True;
end;

type
  TTBViewAccess = class(TTBView);

procedure TForm1.mnUndoItemsPopup(Sender: TTBCustomItem; FromLink: Boolean);
begin
  UndoList.ItemIndex := 0;
end;

procedure TForm1.UndoListChange(Sender: TObject);
const
  Actns: array [Boolean] of string = (' Action', ' Actions');
begin
  with UndoList do
    UndoLabel.UpdateCaption('Undo ' + IntToStr(ItemIndex + 1) + Actns[ItemIndex <> 0]);
end;

procedure TForm1.lstFontsMeasureHeight(Sender: TTBXStringList;
  ACanvas: TCanvas; var AHeight: Integer);
begin
  AHeight := AHeight * 3 div 2;
end;

procedure TForm1.lstFontsDrawItem(Sender: TTBXStringList; ACanvas: TCanvas;
  ARect: TRect; AIndex: Integer; Selected: Boolean;
  var DrawDefault: Boolean);
var
  S: string;
begin
  S := lstFonts.Strings[AIndex];
  ACanvas.Font.Size := 12;
  ACanvas.Font.Name := S;
end;

procedure TForm1.TBXItem60Click(Sender: TObject);
begin
  DockablePanel.Visible := True;
end;

procedure TForm1.MoreColorsClick(Sender: TObject);
begin
  with ColorDialog do
  begin
    Color := ColorPalette.Color;
    if Execute then ColorPalette.Color := Color;
  end;
end;

procedure TForm1.ColorPaletteChange(Sender: TObject);
begin
  ClrDefault.Checked := ColorPalette.Color = clNone;
  ColorCombo.Text := ColorPalette.ColorToString(ColorPalette.Color);
  bColorItem.Color := ColorPalette.Color;
  bColorItem.Caption := 'Current Color: ' + ColorPalette.ColorToString(ColorPalette.Color);
  bColorButton.Invalidate;
end;

procedure TForm1.ClrDefaultClick(Sender: TObject);
begin
  ColorPalette.Color := clNone;
  ClrDefault.Checked := True;
end;

procedure TForm1.TBXRadioButton1Change(Sender: TObject);
begin
  TBXSwitcher.FlatMenuStyle := fmsAuto;
end;

procedure TForm1.TBXRadioButton2Change(Sender: TObject);
begin
  TBXSwitcher.FlatMenuStyle := fmsEnable;
end;

procedure TForm1.TBXRadioButton3Change(Sender: TObject);
begin
  TBXSwitcher.FlatMenuStyle := fmsDisable;
end;

procedure TForm1.TBXCheckBox1Change(Sender: TObject);
begin
  TBXSwitcher.EnableXPStyles := TBXCheckBox1.Checked;
end;

procedure TForm1.TBXStatusBarPanelClick(Sender: TTBXCustomStatusBar; Panel: TTBXStatusPanel);
begin
  if Panel.Index in [2, 4] then Panel.Enabled := not Panel.Enabled;
end;

procedure TForm1.TBXSubmenuItem8AdjustFont(Item: TTBCustomItem;
  Viewer: TTBItemViewer; Font: TFont; StateFlags: Integer);
begin
  { Note, you can't change color here }
  Font.Style := Font.Style + [fsUnderline];
end;

procedure TForm1.bColorButtonDrawImage(Item: TTBCustomItem;
  Viewer: TTBItemViewer; Canvas: TCanvas; ImageRect: TRect;
  ImageOffset: TPoint; StateFlags: Integer);
var
  Color: TColor;
begin
  if not Boolean(StateFlags and ISF_DISABLED) then
  begin
    Color := ColorPalette.Color;
    OffsetRect(ImageRect, ImageOffset.X, ImageOffset.Y);
    ImageRect.Top := ImageRect.Bottom - 4;
    if Color <> clNone then
    begin
      Canvas.Brush.Color := Color;
      Canvas.FillRect(ImageRect);
    end
    else
    begin
      FrameRectEx(Canvas, ImageRect, clBtnShadow, True);
      DitherRect(Canvas, ImageRect, clBtnFace, clBtnShadow);
    end;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  OrckaPluginManager1.InsertToolbar('TBXToolbar0', TBXToolbar0);
  OrckaPluginManager1.InsertToolbar('TBXToolbar1', TBXToolbar1);
  OrckaPluginManager1.InsertToolbar('TBXToolbar2', TBXToolbar2);
  OrckaPluginManager1.InsertToolbar('TBXToolbar3', TBXToolbar3);
  OrckaPluginManager1.InsertToolbar('TBXToolbar5', TBXToolbar5);
  OrckaPluginManager1.LoadFromPath(ExtractFilePath(ParamStr(0)));
end;

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

procedure TForm1.OrckaPluginManager1InsertButton(Sender: TObject;
  Button: TTBCustomItem; var ToolbarName: String);
begin
  if Button.Hint = 'Configure Tools' then
    ToolbarName := 'TTBXToolbar5';
end;

end.

--- NEW FILE: TBX_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: Unit1.dfm ---
(This appears to be a binary file; contents omitted.)