[JVCL-Checkins] CVS: dev/JVCL3/examples/JvPlugin/5DataAware DataAwareDemo.bpg,NONE,1.1 DataPlugInDemo.dof,NONE,1.1 DataPlugInDemo.dpr,NONE,1.1 DataPlugInDemo.res,NONE,1.1 DataPlugin.dof,NONE,1.1 DataPlugin.dpr,NONE,1.1 DataPluginU.dfm,NONE,1.1 DataPluginU.pas,NONE,1.1 PlugInDemoU.dfm,NONE,1.1 PlugInDemoU.pas,NONE,1.1

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvPlugin/5DataAware
In directory sc8-pr-cvs1:/tmp/cvs-serv4702/JVCL3/examples/JvPlugin/5DataAware

Added Files:
	DataAwareDemo.bpg DataPlugInDemo.dof DataPlugInDemo.dpr 
	DataPlugInDemo.res DataPlugin.dof DataPlugin.dpr 
	DataPluginU.dfm DataPluginU.pas PlugInDemoU.dfm 
	PlugInDemoU.pas 
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter

--- NEW FILE: DataAwareDemo.bpg ---
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = DataPlugin.dll DataPlugInDemo.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------

DataPlugInDemo.exe: DataPlugInDemo.dpr
  $(DCC)

DataPlugin.dll: DataPlugin.dpr
  $(DCC)



--- NEW FILE: DataPlugInDemo.dof ---
[Directories]
OutputDir=..\..\..\Bin
UnitOutputDir=..\..\..\Dcu
SearchPath=..\..\..\Source;..\..\..\Common

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

uses
  ShareMem,
  Forms,
  PlugInDemoU in 'PlugInDemoU.pas' {Form1};

{$R *.RES}

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

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

--- NEW FILE: DataPlugin.dof ---
[Directories]
OutputDir=..\..\..\Bin
UnitOutputDir=..\..\..\Dcu
SearchPath=..\..\..\Source;..\..\..\Common

--- NEW FILE: DataPlugin.dpr ---
library DataPlugin;
uses

  ShareMem,

  DataPluginU in 'DataPluginU.pas' {uilPlugin1: TJvPlugin};



exports

  RegisterPlugin;


begin

end.

--- NEW FILE: DataPluginU.dfm ---
object uilPlugin1: TuilPlugin1
  OldCreateOrder = False
  OnCreate = uilPlugin1Create
  Author = 'Tim Sullivan'
  Commands = <>
  Description = 'Sample Data-Aware plugin'
  Copyright = '(c) 1999, Unlimited Intelligence Limited'
  PluginID = 'UIL.Data Aware Sample'
  OnInitialize = uilPlugin1Initialize
  Left = 227
  Top = 147
  Height = 150
  Width = 215
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'biolife.db'
    Left = 28
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 104
    Top = 8
  end
end

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


interface


uses

   Windows, Messages, SysUtils, Classes, Dialogs, Forms,

   JvPlugin, Db, DBTables, DBGrids;


type


  TuilPlugin1 = class(TJvPlugin)

    Table1: TTable;

    DataSource1: TDataSource;

    procedure uilPlugin1Create(Sender: TObject);

    procedure uilPlugin1Initialize(Sender: TObject;
      var AllowLoad: Boolean);

  private

    { Private declarations }

  public

    { Public declarations }

  end;


function RegisterPlugin : TuilPlugin1; stdcall;


implementation


{$R *.DFM}


// IMPORTANT NOTE: If you change the name of the Plugin container,

// you must set the type below to the same type. (Delphi changes

// the declaration, but not the procedure itself. Both the return

// type and the type created must be the same as the declared type above.

function RegisterPlugin : TuilPlugin1;

begin

  Result := TuilPlugin1.Create(nil);

end;


procedure TuilPlugin1.uilPlugin1Create(Sender: TObject);
begin
   Table1.Open;
end;

procedure TuilPlugin1.uilPlugin1Initialize(Sender: TObject;
  var AllowLoad: Boolean);
var
   Comp : TComponent;
begin
   Comp := HostApplication.MainForm.FindComponent('dbgrid1');
   if assigned(Comp) then
      TDBGrid(Comp).DataSource := DataSource1;
end;

end.

--- NEW FILE: PlugInDemoU.dfm ---
object Form1: TForm1
  Left = 449
  Top = 148
  Width = 414
  Height = 315
  Caption = 'Sample Plugin Host Application'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 406
    Height = 269
    Align = alClient
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object uilPluginManager: TJvPluginManager
    Extension = 'dll'
    PluginKind = plgDLL
    Left = 44
    Top = 44
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 44
    object File1: TMenuItem
      Caption = '&File'
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Plugin1: TMenuItem
      Caption = '&Plug-in'
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object About1: TMenuItem
        Caption = '&About...'
        OnClick = About1Click
      end
    end
  end
end

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  JvPluginMan, StdCtrls, Buttons, Menus, ExtCtrls, ImgList, Grids, DBGrids,
  JvComponent;

type
  TForm1 = class(TForm)
    uilPluginManager: TJvPluginManager;
    MainMenu1: TMainMenu;
    Plugin1: TMenuItem;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    DBGrid1: TDBGrid;
    procedure Exit1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure SendMessagetoPlugins1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    NumButtons : integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Exit1Click(Sender: TObject);
begin
   Close;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
   ShowMessage('A simple host application for demoing JEDI plug-ins.'#13#10#13#10'(c) 1999, Unlimited Intelligence Limited.');
end;

procedure TForm1.SendMessagetoPlugins1Click(Sender: TObject);
begin
   uilPluginManager.SendMessage(1000, InputBox('Enter message to send to plugin', 'Message', 'Your message here'));
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   uilPluginManager.LoadPlugins;
end;

end.