[JVCL-Checkins] dev/JVCL3/design JvAppFrmReg.pas,1.25,1.26 JvBDEReg.pas,1.20,1.21 JvBDESecurityEdito

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Update of /cvsroot/jvcl/dev/JVCL3/design
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30294/JVCL3/design

Modified Files:
	JvAppFrmReg.pas JvBDEReg.pas JvBDESecurityEditor.pas 
	JvCsvBaseEditor.pas JvDBGridExportEditors.pas JvDBReg.pas 
	JvGradientCaptionForm.dfm JvGradientCaptionForm.pas 
	JvHMIReg.pas JvJansReg.pas JvMinMaxForm.pas 
	JvSegmentedLEDDisplayEditors.pas JvSystemReg.pas 
Log Message:
some property editors needed TJv prefix


Index: JvHMIReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvHMIReg.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** JvHMIReg.pas	1 Sep 2004 07:24:37 -0000	1.17
--- JvHMIReg.pas	22 Dec 2004 09:59:29 -0000	1.18
***************
*** 58,62 ****
      TJvDialButton]);
    RegisterPropertyEditor(TypeInfo(TJvSegmentedLEDDigitClassName), TPersistent, '', TJvSegmentedLEDDigitClassProperty);
!   RegisterPropertyEditor(TypeInfo(TUnlitColor), TPersistent, '', TUnlitColorProperty);
    RegisterComponentEditor(TJvCustomSegmentedLEDDisplay, TJvSegmentedLEDDisplayEditor);
    RegisterCustomModule(TfmeJvSegmentedLEDDisplayMapper, TCustomModule);
--- 58,62 ----
      TJvDialButton]);
    RegisterPropertyEditor(TypeInfo(TJvSegmentedLEDDigitClassName), TPersistent, '', TJvSegmentedLEDDigitClassProperty);
!   RegisterPropertyEditor(TypeInfo(TUnlitColor), TPersistent, '', TJvUnlitColorProperty);
    RegisterComponentEditor(TJvCustomSegmentedLEDDisplay, TJvSegmentedLEDDisplayEditor);
    RegisterCustomModule(TfmeJvSegmentedLEDDisplayMapper, TCustomModule);

Index: JvGradientCaptionForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvGradientCaptionForm.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** JvGradientCaptionForm.pas	22 Jul 2004 07:36:34 -0000	1.16
--- JvGradientCaptionForm.pas	22 Dec 2004 09:59:29 -0000	1.17
***************
*** 95,99 ****
    end;
  
!   TGradientCaptionEditor = class(TComponentEditor)
    public
      procedure Edit; override;
--- 95,99 ----
    end;
  
!   TJvGradientCaptionEditor = class(TComponentEditor)
    public
      procedure Edit; override;
***************
*** 125,136 ****
  end;
  
! //=== { TGradientCaptionEditor } =============================================
  
! procedure TGradientCaptionEditor.Edit;
  begin
    EditGradientCaption(TJvGradientCaption(Component), Designer);
  end;
  
! procedure TGradientCaptionEditor.ExecuteVerb(Index: Integer);
  begin
    if Index = 0 then
--- 125,136 ----
  end;
  
! //=== { TJvGradientCaptionEditor } ===========================================
  
! procedure TJvGradientCaptionEditor.Edit;
  begin
    EditGradientCaption(TJvGradientCaption(Component), Designer);
  end;
  
! procedure TJvGradientCaptionEditor.ExecuteVerb(Index: Integer);
  begin
    if Index = 0 then
***************
*** 138,142 ****
  end;
  
! function TGradientCaptionEditor.GetVerb(Index: Integer): string;
  begin
    if Index = 0 then
--- 138,142 ----
  end;
  
! function TJvGradientCaptionEditor.GetVerb(Index: Integer): string;
  begin
    if Index = 0 then
***************
*** 146,150 ****
  end;
  
! function TGradientCaptionEditor.GetVerbCount: Integer;
  begin
    Result := 1;
--- 146,150 ----
  end;
  
! function TJvGradientCaptionEditor.GetVerbCount: Integer;
  begin
    Result := 1;

Index: JvAppFrmReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvAppFrmReg.pas,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** JvAppFrmReg.pas	9 Dec 2004 07:40:05 -0000	1.25
--- JvAppFrmReg.pas	22 Dec 2004 09:59:28 -0000	1.26
***************
*** 68,72 ****
       TJvEmbeddedFormPanel, TJvEmbeddedInstanceFormPanel, TJvEmbeddedFormLink]);
  
!   RegisterComponentEditor(TJvGradientCaption, TGradientCaptionEditor);
    //RegisterPropertyEditor(TypeInfo(TPicture), TJvFormWallpaper, 'Image', TJvFormWallpaperEditor);
  end;
--- 68,72 ----
       TJvEmbeddedFormPanel, TJvEmbeddedInstanceFormPanel, TJvEmbeddedFormLink]);
  
!   RegisterComponentEditor(TJvGradientCaption, TJvGradientCaptionEditor);
    //RegisterPropertyEditor(TypeInfo(TPicture), TJvFormWallpaper, 'Image', TJvFormWallpaperEditor);
  end;

Index: JvDBGridExportEditors.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvDBGridExportEditors.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** JvDBGridExportEditors.pas	22 Jul 2004 07:36:34 -0000	1.5
--- JvDBGridExportEditors.pas	22 Dec 2004 09:59:29 -0000	1.6
***************
*** 39,43 ****
  
  type
!   TDBGridExportWordFormatProperty = class(TIntegerProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
--- 39,43 ----
  
  type
!   TJvDBGridExportWordFormatProperty = class(TIntegerProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
***************
*** 53,62 ****
    JvDBGridExport, JvDsgnConsts;
  
! function TDBGridExportWordFormatProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paValueList, paMultiSelect, paRevertable];
  end;
  
! function TDBGridExportWordFormatProperty.GetValue: string;
  begin
    if not IntToWordGridFormatIdent(GetOrdValue, Result) then
--- 53,62 ----
    JvDBGridExport, JvDsgnConsts;
  
! function TJvDBGridExportWordFormatProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paValueList, paMultiSelect, paRevertable];
  end;
  
! function TJvDBGridExportWordFormatProperty.GetValue: string;
  begin
    if not IntToWordGridFormatIdent(GetOrdValue, Result) then
***************
*** 64,73 ****
  end;
  
! procedure TDBGridExportWordFormatProperty.GetValues(Proc: TGetStrProc);
  begin
    GetWordGridFormatValues(Proc);
  end;
  
! procedure TDBGridExportWordFormatProperty.SetValue(const Value: string);
  var
    N: Integer;
--- 64,73 ----
  end;
  
! procedure TJvDBGridExportWordFormatProperty.GetValues(Proc: TGetStrProc);
  begin
    GetWordGridFormatValues(Proc);
  end;
  
! procedure TJvDBGridExportWordFormatProperty.SetValue(const Value: string);
  var
    N: Integer;

Index: JvDBReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvDBReg.pas,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** JvDBReg.pas	21 Dec 2004 09:34:40 -0000	1.38
--- JvDBReg.pas	22 Dec 2004 09:59:29 -0000	1.39
***************
*** 104,108 ****
    RegisterPropertyEditor(TypeInfo(string), TJvDBLookupTreeView, cDetailField, TJvListFieldProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvDBLookupTreeView, cIconField, TJvListFieldProperty);
!   RegisterPropertyEditor(TypeInfo(TWordGridFormat), TJvDBGridWordExport, '', TDBGridExportWordFormatProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvCustomAppDBStorage, cSectionField, TJvDataFieldProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvCustomAppDBStorage, cKeyField, TJvDataFieldProperty);
--- 104,108 ----
    RegisterPropertyEditor(TypeInfo(string), TJvDBLookupTreeView, cDetailField, TJvListFieldProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvDBLookupTreeView, cIconField, TJvListFieldProperty);
!   RegisterPropertyEditor(TypeInfo(TJvWordGridFormat), TJvDBGridWordExport, '', TJvDBGridExportWordFormatProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvCustomAppDBStorage, cSectionField, TJvDataFieldProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvCustomAppDBStorage, cKeyField, TJvDataFieldProperty);

Index: JvJansReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvJansReg.pas,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** JvJansReg.pas	1 Sep 2004 07:24:37 -0000	1.20
--- JvJansReg.pas	22 Dec 2004 09:59:29 -0000	1.21
***************
*** 92,99 ****
    RegisterComponents(RsPaletteJansCsv, [TJvCSVBase, TJvCSVEdit, TJvCSVComboBox,
      TJvCSVCheckBox, TJvCSVNavigator]);
!   RegisterPropertyEditor(TypeInfo(string), TJvCSVBase, cCSVFieldName, TCSVFileNameProperty);
!   RegisterPropertyEditor(TypeInfo(string), TJvCSVEdit, cCSVField, TCSVFieldProperty);
!   RegisterPropertyEditor(TypeInfo(string), TJvCSVComboBox, cCSVField, TCSVFieldProperty);
!   RegisterPropertyEditor(TypeInfo(string), TJvCSVCheckBox, cCSVField, TCSVFieldProperty);
  end;
  
--- 92,99 ----
    RegisterComponents(RsPaletteJansCsv, [TJvCSVBase, TJvCSVEdit, TJvCSVComboBox,
      TJvCSVCheckBox, TJvCSVNavigator]);
!   RegisterPropertyEditor(TypeInfo(string), TJvCSVBase, cCSVFieldName, TJvCSVFileNameProperty);
!   RegisterPropertyEditor(TypeInfo(string), TJvCSVEdit, cCSVField, TJvCSVFieldProperty);
!   RegisterPropertyEditor(TypeInfo(string), TJvCSVComboBox, cCSVField, TJvCSVFieldProperty);
!   RegisterPropertyEditor(TypeInfo(string), TJvCSVCheckBox, cCSVField, TJvCSVFieldProperty);
  end;
  

Index: JvSegmentedLEDDisplayEditors.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvSegmentedLEDDisplayEditors.pas,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** JvSegmentedLEDDisplayEditors.pas	22 Jul 2004 07:37:58 -0000	1.18
--- JvSegmentedLEDDisplayEditors.pas	22 Dec 2004 09:59:29 -0000	1.19
***************
*** 72,76 ****
  
    {$IFDEF VCL}
!   TUnlitColorProperty = class(TColorProperty {$IFDEF COMPILER6_UP}, ICustomPropertyDrawing, ICustomPropertyListDrawing {$ENDIF})
      {$IFDEF COMPILER6_UP}
      procedure ICustomPropertyListDrawing.ListDrawValue = ListDrawValue;
--- 72,76 ----
  
    {$IFDEF VCL}
!   TJvUnlitColorProperty = class(TColorProperty {$IFDEF COMPILER6_UP}, ICustomPropertyDrawing, ICustomPropertyListDrawing {$ENDIF})
      {$IFDEF COMPILER6_UP}
      procedure ICustomPropertyListDrawing.ListDrawValue = ListDrawValue;
***************
*** 90,94 ****
  
    {$IFDEF VisualCLX}
!   TUnlitColorProperty = class(TJvColorProperty)
    public
      function GetValue: string; override;
--- 90,94 ----
  
    {$IFDEF VisualCLX}
!   TJvUnlitColorProperty = class(TJvColorProperty)
    public
      function GetValue: string; override;
***************
*** 208,214 ****
  end;
  
! //=== { TUnlitColorProperty } ================================================
  
! function TUnlitColorProperty.GetValue: string;
  begin
    case GetOrdValue of
--- 208,214 ----
  end;
  
! //=== { TJvUnlitColorProperty } ==============================================
  
! function TJvUnlitColorProperty.GetValue: string;
  begin
    case GetOrdValue of
***************
*** 222,226 ****
  end;
  
! procedure TUnlitColorProperty.GetValues(Proc: TGetStrProc);
  begin
    inherited GetValues(Proc);
--- 222,226 ----
  end;
  
! procedure TJvUnlitColorProperty.GetValues(Proc: TGetStrProc);
  begin
    inherited GetValues(Proc);
***************
*** 229,233 ****
  end;
  
! procedure TUnlitColorProperty.SetValue(const Value: string);
  var
    NewValue: Longint;
--- 229,233 ----
  end;
  
! procedure TJvUnlitColorProperty.SetValue(const Value: string);
  var
    NewValue: Longint;
***************
*** 241,245 ****
  {$IFDEF VCL}
  
! procedure TUnlitColorProperty.ListDrawValue(const Value: string; ACanvas: TCanvas;
    const ARect: TRect; ASelected: Boolean);
  var
--- 241,245 ----
  {$IFDEF VCL}
  
! procedure TJvUnlitColorProperty.ListDrawValue(const Value: string; ACanvas: TCanvas;
    const ARect: TRect; ASelected: Boolean);
  var
***************
*** 269,273 ****
  
  {$IFDEF COMPILER6_UP}
! procedure TUnlitColorProperty.PropDrawValue(ACanvas: TCanvas; const ARect: TRect;
    ASelected: Boolean);
  begin
--- 269,273 ----
  
  {$IFDEF COMPILER6_UP}
! procedure TJvUnlitColorProperty.PropDrawValue(ACanvas: TCanvas; const ARect: TRect;
    ASelected: Boolean);
  begin

Index: JvMinMaxForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvMinMaxForm.pas,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** JvMinMaxForm.pas	24 Aug 2004 13:33:08 -0000	1.15
--- JvMinMaxForm.pas	22 Dec 2004 09:59:29 -0000	1.16
***************
*** 84,88 ****
    end;
  
!   TMinMaxProperty = class(TClassProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
--- 84,88 ----
    end;
  
!   TJvMinMaxProperty = class(TClassProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
***************
*** 122,128 ****
  end;
  
! //=== { TMinMaxProperty } ====================================================
  
! function TMinMaxProperty.GetValue: string;
  var
    WinMinMaxInfo: TJvWinMinMaxInfo;
--- 122,128 ----
  end;
  
! //=== { TJvMinMaxProperty } ==================================================
  
! function TJvMinMaxProperty.GetValue: string;
  var
    WinMinMaxInfo: TJvWinMinMaxInfo;
***************
*** 140,149 ****
  end;
  
! function TMinMaxProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paSubProperties, paDialog, paReadOnly];
  end;
  
! procedure TMinMaxProperty.Edit;
  begin
    if EditMinMaxInfo(GetComponent(0) as TJvFormPlacement) then
--- 140,149 ----
  end;
  
! function TJvMinMaxProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paSubProperties, paDialog, paReadOnly];
  end;
  
! procedure TJvMinMaxProperty.Edit;
  begin
    if EditMinMaxInfo(GetComponent(0) as TJvFormPlacement) then

Index: JvBDESecurityEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvBDESecurityEditor.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** JvBDESecurityEditor.pas	22 Jul 2004 07:36:32 -0000	1.9
--- JvBDESecurityEditor.pas	22 Dec 2004 09:59:29 -0000	1.10
***************
*** 46,50 ****
    end;
  
!   TLoginNameFieldProperty = class(TJvDBStringProperty)
    public
      procedure GetValueList(List: TStrings); override;
--- 46,50 ----
    end;
  
!   TJvLoginNameFieldProperty = class(TJvDBStringProperty)
    public
      procedure GetValueList(List: TStrings); override;
***************
*** 65,71 ****
  end;
  
! //=== { TLoginNameFieldProperty } ============================================
  
! procedure TLoginNameFieldProperty.GetValueList(List: TStrings);
  var
    Security: TJvDBSecurity;
--- 65,71 ----
  end;
  
! //=== { TJvLoginNameFieldProperty } ==========================================
  
! procedure TJvLoginNameFieldProperty.GetValueList(List: TStrings);
  var
    Security: TJvDBSecurity;

Index: JvGradientCaptionForm.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvGradientCaptionForm.dfm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** JvGradientCaptionForm.dfm	3 Sep 2004 20:28:02 -0000	1.10
--- JvGradientCaptionForm.dfm	22 Dec 2004 09:59:29 -0000	1.11
***************
*** 143,147 ****
        Width = 133
        Height = 21
-       ButtonFlat = False
        ButtonWidth = 17
        ImageKind = ikEllipsis
--- 143,146 ----
***************
*** 157,160 ****
--- 156,162 ----
      Caption = '&Captions'
      TabOrder = 0
+     DesignSize = (
+       137
+       157)
      object NewButton: TButton
        Left = 8
***************
*** 209,212 ****
--- 211,215 ----
    object FormStorage: TJvFormStorage
      AppStorage = AppStorage
+     AppStoragePath = '%FORM_NAME%'
      StoredValues = <
        item
***************
*** 218,221 ****
--- 221,225 ----
      StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
      StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
+     Root = '%NONE%'
      SubStorages = <>
      Left = 133

Index: JvBDEReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvBDEReg.pas,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** JvBDEReg.pas	1 Sep 2004 07:24:36 -0000	1.20
--- JvBDEReg.pas	22 Dec 2004 09:59:29 -0000	1.21
***************
*** 75,79 ****
      TJvUserTableNameProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvDBSecurity, cLoginNameField,
!     TLoginNameFieldProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvBDESQLScript, cDatabaseName,
      TJvDatabaseNameProperty);
--- 75,79 ----
      TJvUserTableNameProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvDBSecurity, cLoginNameField,
!     TJvLoginNameFieldProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvBDESQLScript, cDatabaseName,
      TJvDatabaseNameProperty);

Index: JvSystemReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvSystemReg.pas,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** JvSystemReg.pas	21 Dec 2004 09:34:40 -0000	1.38
--- JvSystemReg.pas	22 Dec 2004 09:59:29 -0000	1.39
***************
*** 108,112 ****
  
    RegisterPropertyEditor(TypeInfo(TJvWinMinMaxInfo), TJvFormPlacement,
!     'MinMaxInfo', TMinMaxProperty);
    RegisterPropertyEditor(TypeInfo(TStrings), TJvFormStorage,
      'StoredProps', TJvStoredPropsProperty);
--- 108,112 ----
  
    RegisterPropertyEditor(TypeInfo(TJvWinMinMaxInfo), TJvFormPlacement,
!     'MinMaxInfo', TJvMinMaxProperty);
    RegisterPropertyEditor(TypeInfo(TStrings), TJvFormStorage,
      'StoredProps', TJvStoredPropsProperty);

Index: JvCsvBaseEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvCsvBaseEditor.pas,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** JvCsvBaseEditor.pas	22 Jul 2004 07:36:34 -0000	1.12
--- JvCsvBaseEditor.pas	22 Dec 2004 09:59:29 -0000	1.13
***************
*** 40,44 ****
  
  type
!   TCSVFileNameProperty = class(TStringProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
--- 40,44 ----
  
  type
!   TJvCSVFileNameProperty = class(TStringProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
***************
*** 46,50 ****
    end;
  
!   TCSVFieldProperty = class(TStringProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
--- 46,50 ----
    end;
  
!   TJvCSVFieldProperty = class(TStringProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
***************
*** 57,63 ****
    Forms, Dialogs;
  
! //=== { TCSVFileNameProperty } ===============================================
  
! procedure TCSVFileNameProperty.Edit;
  begin
    with TOpenDialog.Create(Application) do
--- 57,63 ----
    Forms, Dialogs;
  
! //=== { TJvCSVFileNameProperty } =============================================
  
! procedure TJvCSVFileNameProperty.Edit;
  begin
    with TOpenDialog.Create(Application) do
***************
*** 71,87 ****
  end;
  
! function TCSVFileNameProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paDialog];
  end;
  
! //=== { TCSVFieldProperty } ==================================================
  
! function TCSVFieldProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paValueList];
  end;
  
! procedure TCSVFieldProperty.GetValues(Proc: TGetStrProc);
  var
    I, C: Integer;
--- 71,87 ----
  end;
  
! function TJvCSVFileNameProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paDialog];
  end;
  
! //=== { TJvCSVFieldProperty } ================================================
  
! function TJvCSVFieldProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paValueList];
  end;
  
! procedure TJvCSVFieldProperty.GetValues(Proc: TGetStrProc);
  var
    I, C: Integer;

[JVCL-Checkins] dev/JVCL3/design JvAppFrmReg.pas,1.25,1.26 JvBDEReg.pas,1.20,1.21 JvBDESecurityEdito

JEDI VCL for Delphi