[JVCL-Checkins] CVS: dev/JVCL3/run JvFormPlacement.pas,1.8,1.9

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

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1:/tmp/cvs-serv9526/JVCL3/run

Modified Files:
	JvFormPlacement.pas 
Log Message:
- Added Notification procedure

Index: JvFormPlacement.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvFormPlacement.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** JvFormPlacement.pas	12 Sep 2003 11:47:18 -0000	1.8
--- JvFormPlacement.pas	20 Sep 2003 09:54:03 -0000	1.9
***************
*** 113,116 ****
--- 113,118 ----
      procedure RestorePlacement; virtual;
      property Form: TForm read GetForm;
+     procedure Notification(AComponent: TComponent; Operation: TOperation);
+       override;
    public
      constructor Create(AOwner: TComponent); override;
***************
*** 124,127 ****
--- 126,130 ----
      procedure WriteInteger(const Ident: string; Value: Longint);
      procedure EraseSections;
+ 
    published
      property Active: Boolean read FActive write FActive default True;
***************
*** 684,687 ****
--- 687,698 ----
    FRestored := True;
    UpdatePlacement;
+ end;
+ 
+ procedure TJvFormPlacement.Notification(AComponent: TComponent;
+   Operation: TOperation);
+ begin
+   inherited;
+   if (Operation = opRemove) and (AComponent = AppStorage) then
+     AppStorage := nil;
  end;