[JVCL-Checkins] dev/JVCL3/examples/JvPlugin/3ChangingProperties PlugInDemoU.dfm,1.1,1.2 PlugInDemoU.pas,1.3,1.4 - Tidying up and some fixing of examples

[Chris L. <chr...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvPlugin/3ChangingProperties
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19845/JVCL3/examples/JvPlugin/3ChangingProperties

Modified Files:
	PlugInDemoU.dfm PlugInDemoU.pas 
Log Message:
Tidying up and some fixing of examples


Index: PlugInDemoU.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvPlugin/3ChangingProperties/PlugInDemoU.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** PlugInDemoU.dfm	23 Aug 2003 23:18:27 -0000	1.1
--- PlugInDemoU.dfm	19 Feb 2004 22:47:30 -0000	1.2
***************
*** 2,9 ****
    Left = 451
    Top = 149
!   Width = 292
!   Height = 245
    Caption = 'Sample Plugin Host Application'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
--- 2,12 ----
    Left = 451
    Top = 149
!   BorderIcons = [biSystemMenu, biMinimize]
!   BorderStyle = bsSingle
    Caption = 'Sample Plugin Host Application'
+   ClientHeight = 191
+   ClientWidth = 284
    Color = clBtnFace
+   DefaultMonitor = dmDesktop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
***************
*** 13,17 ****
    Menu = MainMenu1
    OldCreateOrder = False
!   Position = poScreenCenter
    OnCreate = FormCreate
    PixelsPerInch = 96
--- 16,21 ----
    Menu = MainMenu1
    OldCreateOrder = False
!   Position = poDesktopCenter
!   Scaled = False
    OnCreate = FormCreate
    PixelsPerInch = 96

Index: PlugInDemoU.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvPlugin/3ChangingProperties/PlugInDemoU.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** PlugInDemoU.pas	8 Jan 2004 09:50:56 -0000	1.3
--- PlugInDemoU.pas	19 Feb 2004 22:47:30 -0000	1.4
***************
*** 49,55 ****
      procedure Exit1Click(Sender: TObject);
      procedure About1Click(Sender: TObject);
-     procedure uilPluginManagerNewCommand(Sender: TObject; ACaption, AHint,
-       AData: String; ABitmap: TBitmap; AEvent: TNotifyEvent);
      procedure SendMessagetoPlugins1Click(Sender: TObject);
    private
      { Private declarations }
--- 49,56 ----
      procedure Exit1Click(Sender: TObject);
      procedure About1Click(Sender: TObject);
      procedure SendMessagetoPlugins1Click(Sender: TObject);
+     procedure uilPluginManagerNewCommand(Sender: TObject; ACaption, AHint,
+       AData: String; AShortCut: TShortCut; ABitmap: TBitmap;
+       AEvent: TNotifyEvent);
    private
      { Private declarations }
***************
*** 80,85 ****
  end;
  
  procedure TForm1.uilPluginManagerNewCommand(Sender: TObject; ACaption,
!   AHint, AData: String; ABitmap: TBitmap; AEvent: TNotifyEvent);
  var
     Item : TMenuItem;
--- 81,93 ----
  end;
  
+ 
+ procedure TForm1.SendMessagetoPlugins1Click(Sender: TObject);
+ begin
+    uilPluginManager.SendMessage(1000, InputBox('Enter message to send to plugin', 'Message', 'Your message here'));
+ end;
+ 
  procedure TForm1.uilPluginManagerNewCommand(Sender: TObject; ACaption,
!   AHint, AData: String; AShortCut: TShortCut; ABitmap: TBitmap;
!   AEvent: TNotifyEvent);
  var
     Item : TMenuItem;
***************
*** 105,112 ****
  end;
  
- procedure TForm1.SendMessagetoPlugins1Click(Sender: TObject);
- begin
-    uilPluginManager.SendMessage(1000, InputBox('Enter message to send to plugin', 'Message', 'Your message here'));
- end;
- 
  end.
--- 113,115 ----