[JVCL-Checkins] CVS: dev/JVCL3/design JvGradientCaptionForm.dfm,1.5,1.6 JvGradientCaptionForm.pas,1.5,1.6

[Marcel B. <jed...@us...>]

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

Modified Files:
	JvGradientCaptionForm.dfm JvGradientCaptionForm.pas 
Log Message:
JvAppFrm issues with storage solved.

Index: JvGradientCaptionForm.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvGradientCaptionForm.dfm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** JvGradientCaptionForm.dfm	28 Jul 2003 06:37:35 -0000	1.5
--- JvGradientCaptionForm.dfm	13 Sep 2003 09:39:31 -0000	1.6
***************
*** 192,199 ****
--- 192,202 ----
      Font.Name = 'MS Sans Serif'

      Font.Style = []

+     MinFontSize = 0

+     MaxFontSize = 0

      Left = 24

      Top = 76

    end

    object ColorDialog: TColorDialog

+     Ctl3D = True

      Left = 84

      Top = 76

***************
*** 206,216 ****
    end

    object FormStorage: TJvFormStorage

!     Active = False

!     RegistryRoot = hkClassesRoot

!     UseRegistry = True

      StoredValues = <

        item

        end>

      Left = 80

      Top = 24

    end

--- 209,222 ----
    end

    object FormStorage: TJvFormStorage

!     AppStorage = AppStore

      StoredValues = <

        item

        end>

      Left = 80

+     Top = 24

+   end

+   object AppStore: TJvAppRegistryStore

+     RegRoot = hkCurrentUser

+     Left = 133

      Top = 24

    end


Index: JvGradientCaptionForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvGradientCaptionForm.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** JvGradientCaptionForm.pas	28 Jul 2003 06:37:35 -0000	1.5
--- JvGradientCaptionForm.pas	13 Sep 2003 09:39:31 -0000	1.6
***************
*** 39,43 ****
    {$ENDIF}
    JvFormPlacement, JvGradientCaption, JvListBox, JvCtrls,
!   JvComponent, JvToolEdit;
  
  type
--- 39,43 ----
    {$ENDIF}
    JvFormPlacement, JvGradientCaption, JvListBox, JvCtrls,
!   JvComponent, JvToolEdit, JvAppStore, JvAppRegistryStore;
  
  type
***************
*** 64,67 ****
--- 64,68 ----
      CaptionList: TListBox;
      CaptionFont: TJvComboEdit;
+     AppStore: TJvAppRegistryStore;
      procedure FormCreate(Sender: TObject);
      procedure CaptionListClick(Sender: TObject);
***************
*** 309,313 ****
  procedure TGradCaptionsEditor.FormCreate(Sender: TObject);
  begin
!   FormStorage.IniFileName := SDelphiKey;
    CaptionInactiveColor.Items.BeginUpdate;
    try
--- 310,314 ----
  procedure TGradCaptionsEditor.FormCreate(Sender: TObject);
  begin
!   AppStore.Root := SDelphiKey;
    CaptionInactiveColor.Items.BeginUpdate;
    try