[JVCL-Checkins] dev/JVCL3/qdesign JvQCmpReg.pas,1.22,1.23 JvQCustomReg.pas,1.10,1.11 JvQDBReg.pas,1.4,1.5 JvQDataEmbeddedEditor.pas,1.16,1.17 JvQHtmlParserEditor.pas,1.14,1.15 JvQNetReg.pas,1.18,1.19 JvQOutlookBarEditors.pas,1.16,1.17 JvQPageListTreeViewReg.pas,1.16,1.17 JvQPatcherEditor.pas,1.13,1.14 JvQScheduleEditors.pas,1.1,1.2 JvQTreeItemsEditorForm.pas,1.14,1.15 JvQTreeItemsEditorForm.xfm,1.2,1.3 JvQUrlListGrabberEditors.pas,1.16,1.17 JvQWizardEditorForm.pas,1.17,1.18 JvQWizardReg.pas,1.16,1.17 JvQXPCtrlsReg.pas,1.12,1.13 JvQXPPropertyEditors.pas,1.15,1.16 - rename all PropertyEditor to Property and all ComponentEdito

[Robert M. <mar...@us...>]

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

Modified Files:
	JvQCmpReg.pas JvQCustomReg.pas JvQDBReg.pas 
	JvQDataEmbeddedEditor.pas JvQHtmlParserEditor.pas 
	JvQNetReg.pas JvQOutlookBarEditors.pas 
	JvQPageListTreeViewReg.pas JvQPatcherEditor.pas 
	JvQScheduleEditors.pas JvQTreeItemsEditorForm.pas 
	JvQTreeItemsEditorForm.xfm JvQUrlListGrabberEditors.pas 
	JvQWizardEditorForm.pas JvQWizardReg.pas JvQXPCtrlsReg.pas 
	JvQXPPropertyEditors.pas 
Log Message:
rename all PropertyEditor to Property and all ComponentEditor to Editor


Index: JvQWizardReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQWizardReg.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** JvQWizardReg.pas	7 Sep 2004 23:15:19 -0000	1.16
--- JvQWizardReg.pas	25 Dec 2004 09:02:37 -0000	1.17
***************
*** 73,80 ****
    RegisterClasses([TJvWizardCustomPage, TJvWizardWelcomePage,
      TJvWizardInteriorPage]);
!   RegisterComponentEditor(TJvWizard, TJvWizardComponentEditor);
!   RegisterComponentEditor(TJvWizardCustomPage, TJvWizardComponentEditor);
!   RegisterComponentEditor(TJvWizardWelcomePage, TJvWizardComponentEditor);
!   RegisterComponentEditor(TJvWizardInteriorPage, TJvWizardComponentEditor);
    RegisterPropertyEditor(TypeInfo(TJvWizardCustomPage), TJvWizard, cActivePage,
      TJvWizardActivePageProperty);
--- 73,80 ----
    RegisterClasses([TJvWizardCustomPage, TJvWizardWelcomePage,
      TJvWizardInteriorPage]);
!   RegisterComponentEditor(TJvWizard, TJvWizardEditor);
!   RegisterComponentEditor(TJvWizardCustomPage, TJvWizardEditor);
!   RegisterComponentEditor(TJvWizardWelcomePage, TJvWizardEditor);
!   RegisterComponentEditor(TJvWizardInteriorPage, TJvWizardEditor);
    RegisterPropertyEditor(TypeInfo(TJvWizardCustomPage), TJvWizard, cActivePage,
      TJvWizardActivePageProperty);

Index: JvQXPCtrlsReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQXPCtrlsReg.pas,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** JvQXPCtrlsReg.pas	7 Sep 2004 23:15:19 -0000	1.12
--- JvQXPCtrlsReg.pas	25 Dec 2004 09:02:37 -0000	1.13
***************
*** 62,66 ****
    RegisterComponents(RsPaletteXPControls, [TJvXPProgressBar]); 
    RegisterPropertyEditor(TypeInfo(TImageIndex), TJvXPBarItem, 'ImageIndex',
!     TJvXPItemImageIndexPropertyEditor);
    RegisterComponentEditor(TJvXPBar, TJvXPBarItemEditor);
  end;
--- 62,66 ----
    RegisterComponents(RsPaletteXPControls, [TJvXPProgressBar]); 
    RegisterPropertyEditor(TypeInfo(TImageIndex), TJvXPBarItem, 'ImageIndex',
!     TJvXPItemImageIndexProperty);
    RegisterComponentEditor(TJvXPBar, TJvXPBarItemEditor);
  end;

Index: JvQPageListTreeViewReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQPageListTreeViewReg.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** JvQPageListTreeViewReg.pas	7 Sep 2004 23:15:18 -0000	1.16
--- JvQPageListTreeViewReg.pas	25 Dec 2004 09:02:37 -0000	1.17
***************
*** 76,83 ****
    RegisterComponentEditor(TJvCustomPageList, TJvCustomPageEditor);
    RegisterComponentEditor(TJvCustomPage, TJvCustomPageEditor); 
!   RegisterComponentEditor(TCustomTreeView, TJvTreeViewComponentEditor);
!   RegisterComponentEditor(TJvCustomPageListTreeView, TJvPageTreeViewComponentEditor);
    // register for the standard TTreeView as well
!   //  RegisterComponentEditor(TTreeView, TJvTreeViewComponentEditor);
    RegisterPropertyEditor(TypeInfo(TJvPageLinks),
      TJvCustomPageListTreeView, '', TJvPageLinksProperty);
--- 76,83 ----
    RegisterComponentEditor(TJvCustomPageList, TJvCustomPageEditor);
    RegisterComponentEditor(TJvCustomPage, TJvCustomPageEditor); 
!   RegisterComponentEditor(TCustomTreeView, TJvTreeViewEditor);
!   RegisterComponentEditor(TJvCustomPageListTreeView, TJvPageTreeViewEditor);
    // register for the standard TTreeView as well
!   //  RegisterComponentEditor(TTreeView, TJvTreeViewEditor);
    RegisterPropertyEditor(TypeInfo(TJvPageLinks),
      TJvCustomPageListTreeView, '', TJvPageLinksProperty);

Index: JvQCustomReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQCustomReg.pas,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** JvQCustomReg.pas	7 Sep 2004 23:15:18 -0000	1.10
--- JvQCustomReg.pas	25 Dec 2004 09:02:36 -0000	1.11
***************
*** 82,90 ****
  
    RegisterPropertyEditor(TypeInfo(Integer), TJvCustomOutlookBar,
!     cActivePageIndex, TJvOutlookBarActivePageEditor);
    RegisterPropertyEditor(TypeInfo(TJvOutlookBarPages), TJvCustomOutlookBar,
!     '', TJvOutlookBarPagesPropertyEditor);
    RegisterPropertyEditor(TypeInfo(TJvOutlookBarButtons), TJvOutlookBarPage,
!     '', TJvOutlookBarPagesPropertyEditor);
    RegisterPropertyEditor(TypeInfo(TImageIndex), TJvOutlookBarButton,
      cImageIndex, TJvOutlookBarButtonImageIndexProperty);
--- 82,90 ----
  
    RegisterPropertyEditor(TypeInfo(Integer), TJvCustomOutlookBar,
!     cActivePageIndex, TJvOutlookBarActivePageProperty);
    RegisterPropertyEditor(TypeInfo(TJvOutlookBarPages), TJvCustomOutlookBar,
!     '', TJvOutlookBarPagesProperty);
    RegisterPropertyEditor(TypeInfo(TJvOutlookBarButtons), TJvOutlookBarPage,
!     '', TJvOutlookBarPagesProperty);
    RegisterPropertyEditor(TypeInfo(TImageIndex), TJvOutlookBarButton,
      cImageIndex, TJvOutlookBarButtonImageIndexProperty);
***************
*** 99,103 ****
  
  
!   RegisterComponentEditor(TJvCustomOutlookBar, TJvOutlookBarComponentEditor);
    RegisterComponentEditor(TJvCustomTimeLine, TJvTimeLineEditor);
    RegisterComponentEditor(TJvLookOut, TJvLookOutEditor);
--- 99,103 ----
  
  
!   RegisterComponentEditor(TJvCustomOutlookBar, TJvOutlookBarEditor);
    RegisterComponentEditor(TJvCustomTimeLine, TJvTimeLineEditor);
    RegisterComponentEditor(TJvLookOut, TJvLookOutEditor);

Index: JvQXPPropertyEditors.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQXPPropertyEditors.pas,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** JvQXPPropertyEditors.pas	7 Sep 2004 23:15:19 -0000	1.15
--- JvQXPPropertyEditors.pas	25 Dec 2004 09:02:37 -0000	1.16
***************
*** 52,56 ****
    end; 
  
!   TJvXPItemImageIndexPropertyEditor = class(TJvXPCustomImageIndexPropertyEditor)
    public
      function GetImageListAt(Index: Integer): TCustomImageList; override;
--- 52,56 ----
    end; 
  
!   TJvXPItemImageIndexProperty = class(TJvXPCustomImageIndexPropertyEditor)
    public
      function GetImageListAt(Index: Integer): TCustomImageList; override;
***************
*** 90,96 ****
  
  
! //=== { TJvXPItemImageIndexPropertyEditor } ==================================
  
! function TJvXPItemImageIndexPropertyEditor.GetImageListAt(Index: Integer): TCustomImageList;
  var
    Item: TPersistent;
--- 90,96 ----
  
  
! //=== { TJvXPItemImageIndexProperty } ========================================
  
! function TJvXPItemImageIndexProperty.GetImageListAt(Index: Integer): TCustomImageList;
  var
    Item: TPersistent;

Index: JvQTreeItemsEditorForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQTreeItemsEditorForm.pas,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** JvQTreeItemsEditorForm.pas	7 Sep 2004 23:15:18 -0000	1.14
--- JvQTreeItemsEditorForm.pas	25 Dec 2004 09:02:37 -0000	1.15
***************
*** 44,48 ****
    DesignEditors, DesignIntf, 
    QWindows, QMessages, QGraphics, QControls, QForms,
!   QDialogs, QStdCtrls, QExtCtrls, QActnList, QComCtrls, QMenus, QStdActns;
  
  type
--- 44,49 ----
    DesignEditors, DesignIntf, 
    QWindows, QMessages, QGraphics, QControls, QForms,
!   QDialogs, QStdCtrls, QExtCtrls, QActnList, QComCtrls, QMenus, QStdActns,
!   QTypes;
  
  type
***************
*** 53,57 ****
    end;
  
!   TJvTreeViewComponentEditor = class(TComponentEditor)
      function GetVerb(Index: Integer): string; override;
      function GetVerbCount: Integer; override;
--- 54,58 ----
    end;
  
!   TJvTreeViewEditor = class(TComponentEditor)
      function GetVerb(Index: Integer): string; override;
      function GetVerbCount: Integer; override;
***************
*** 60,64 ****
    end;
  
!   TJvPageTreeViewComponentEditor = class(TJvTreeViewComponentEditor)
      function GetVerb(Index: Integer): string; override;
      function GetVerbCount: Integer; override;
--- 61,65 ----
    end;
  
!   TJvPageTreeViewEditor = class(TJvTreeViewEditor)
      function GetVerb(Index: Integer): string; override;
      function GetVerbCount: Integer; override;
***************
*** 413,424 ****
  end;
  
! //=== { TJvTreeViewComponentEditor } =========================================
  
! procedure TJvTreeViewComponentEditor.Edit;
  begin
    ExecuteVerb(0);
  end;
  
! procedure TJvTreeViewComponentEditor.ExecuteVerb(Index: Integer);
  begin
    if Index = 0 then
--- 414,425 ----
  end;
  
! //=== { TJvTreeViewEditor } ==================================================
  
! procedure TJvTreeViewEditor.Edit;
  begin
    ExecuteVerb(0);
  end;
  
! procedure TJvTreeViewEditor.ExecuteVerb(Index: Integer);
  begin
    if Index = 0 then
***************
*** 428,432 ****
  end;
  
! function TJvTreeViewComponentEditor.GetVerb(Index: Integer): string;
  begin
    if Index = 0 then
--- 429,433 ----
  end;
  
! function TJvTreeViewEditor.GetVerb(Index: Integer): string;
  begin
    if Index = 0 then
***************
*** 436,440 ****
  end;
  
! function TJvTreeViewComponentEditor.GetVerbCount: Integer;
  begin
    Result := 1;
--- 437,441 ----
  end;
  
! function TJvTreeViewEditor.GetVerbCount: Integer;
  begin
    Result := 1;
***************
*** 538,544 ****
  end;
  
! //=== { TJvPageTreeViewComponentEditor } =====================================
  
! procedure TJvPageTreeViewComponentEditor.ExecuteVerb(Index: Integer);
  begin
    if Index = 1 then
--- 539,545 ----
  end;
  
! //=== { TJvPageTreeViewEditor } ==============================================
  
! procedure TJvPageTreeViewEditor.ExecuteVerb(Index: Integer);
  begin
    if Index = 1 then
***************
*** 548,552 ****
  end;
  
! function TJvPageTreeViewComponentEditor.GetVerb(Index: Integer): string;
  begin
    if Index = 1 then
--- 549,553 ----
  end;
  
! function TJvPageTreeViewEditor.GetVerb(Index: Integer): string;
  begin
    if Index = 1 then
***************
*** 556,560 ****
  end;
  
! function TJvPageTreeViewComponentEditor.GetVerbCount: Integer;
  begin
    Result := 2;
--- 557,561 ----
  end;
  
! function TJvPageTreeViewEditor.GetVerbCount: Integer;
  begin
    Result := 2;

Index: JvQScheduleEditors.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQScheduleEditors.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvQScheduleEditors.pas	4 Apr 2004 20:50:46 -0000	1.1
--- JvQScheduleEditors.pas	25 Dec 2004 09:02:37 -0000	1.2
***************
*** 39,43 ****
  
  type
!   TJvSchedulePropertyEditor = class(TPropertyEditor)
    public
      procedure Edit; override;
--- 39,43 ----
  
  type
!   TJvScheduleProperty = class(TPropertyEditor)
    public
      procedure Edit; override;
***************
*** 46,50 ****
    end;
  
!   TJvSchedEventComponentEditor = class(TComponentEditor)
    public
      procedure ExecuteVerb(Index: Integer); override;
--- 46,50 ----
    end;
  
!   TJvSchedEventEditor = class(TComponentEditor)
    public
      procedure ExecuteVerb(Index: Integer); override;
***************
*** 65,71 ****
  
  
! //=== TJvSchedulePropertyEditor ==============================================
  
! procedure TJvSchedulePropertyEditor.Edit;
  begin
    with TfrmScheduleEditor.Create(nil) do
--- 65,71 ----
  
  
! //=== TJvScheduleProperty ====================================================
  
! procedure TJvScheduleProperty.Edit;
  begin
    with TfrmScheduleEditor.Create(nil) do
***************
*** 79,95 ****
  end;
  
! function TJvSchedulePropertyEditor.GetAttributes: TPropertyAttributes;
  begin
    Result := [paDialog, paReadOnly];
  end;
  
! function TJvSchedulePropertyEditor.GetValue: string;
  begin
    Result := '(IJclSchedule)';
  end;
  
! //=== TJvSchedEventComponentEditor ===========================================
  
! procedure TJvSchedEventComponentEditor.ExecuteVerb(Index: Integer);
  begin
    ShowCollectionEditorClass(Designer, TCollectionEditor, Component,
--- 79,95 ----
  end;
  
! function TJvScheduleProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paDialog, paReadOnly];
  end;
  
! function TJvScheduleProperty.GetValue: string;
  begin
    Result := '(IJclSchedule)';
  end;
  
! //=== TJvSchedEventEditor ====================================================
  
! procedure TJvSchedEventEditor.ExecuteVerb(Index: Integer);
  begin
    ShowCollectionEditorClass(Designer, TCollectionEditor, Component,
***************
*** 97,106 ****
  end;
  
! function TJvSchedEventComponentEditor.GetVerb(Index: Integer): string;
  begin
    Result := RsEventEditor;
  end;
  
! function TJvSchedEventComponentEditor.GetVerbCount: Integer;
  begin
    Result := 1;
--- 97,106 ----
  end;
  
! function TJvSchedEventEditor.GetVerb(Index: Integer): string;
  begin
    Result := RsEventEditor;
  end;
  
! function TJvSchedEventEditor.GetVerbCount: Integer;
  begin
    Result := 1;

Index: JvQTreeItemsEditorForm.xfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQTreeItemsEditorForm.xfm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvQTreeItemsEditorForm.xfm	4 Apr 2004 20:45:13 -0000	1.2
--- JvQTreeItemsEditorForm.xfm	25 Dec 2004 09:02:37 -0000	1.3
***************
*** 29,33 ****
    ParentFont = False
    Scaled = False
!   PixelsPerInch = 113
    object Splitter1: TSplitter
      Left = 129
--- 29,33 ----
    ParentFont = False
    Scaled = False
!   PixelsPerInch = 96
    object Splitter1: TSplitter
      Left = 129
***************
*** 143,148 ****
          Left = 16
          Top = 24
!         Width = 23
!         Height = 13
          Caption = '&Text:'
        end
--- 143,148 ----
          Left = 16
          Top = 24
!         Width = 24
!         Height = 14
          Caption = '&Text:'
        end
***************
*** 150,155 ****
          Left = 16
          Top = 56
!         Width = 59
!         Height = 13
          Caption = '&Image Index:'
        end
--- 150,155 ----
          Left = 16
          Top = 56
!         Width = 60
!         Height = 14
          Caption = '&Image Index:'
        end
***************
*** 157,162 ****
          Left = 16
          Top = 88
!         Width = 71
!         Height = 13
          Caption = '&Selected Index:'
        end
--- 157,162 ----
          Left = 16
          Top = 88
!         Width = 74
!         Height = 14
          Caption = '&Selected Index:'
        end
***************
*** 165,169 ****
          Top = 120
          Width = 57
!         Height = 13
          Caption = 'State Inde&x:'
        end
--- 165,169 ----
          Top = 120
          Width = 57
!         Height = 14
          Caption = 'State Inde&x:'
        end
***************
*** 172,179 ****
          Top = 53
          Width = 88
!         Height = 21
          Anchors = [akLeft, akTop, akRight]
!         ItemHeight = 15
!         TabOrder = 0
          OnChange = edNodeTextChange
        end
--- 172,178 ----
          Top = 53
          Width = 88
!         Height = 22
          Anchors = [akLeft, akTop, akRight]
!         TabOrder = 2
          OnChange = edNodeTextChange
        end
***************
*** 182,189 ****
          Top = 85
          Width = 88
!         Height = 21
          Anchors = [akLeft, akTop, akRight]
!         ItemHeight = 15
!         TabOrder = 1
          OnChange = edNodeTextChange
        end
--- 181,187 ----
          Top = 85
          Width = 88
!         Height = 22
          Anchors = [akLeft, akTop, akRight]
!         TabOrder = 4
          OnChange = edNodeTextChange
        end
***************
*** 192,199 ****
          Top = 117
          Width = 88
!         Height = 21
          Anchors = [akLeft, akTop, akRight]
!         ItemHeight = 15
!         TabOrder = 2
          OnChange = edNodeTextChange
        end
--- 190,196 ----
          Top = 117
          Width = 88
!         Height = 22
          Anchors = [akLeft, akTop, akRight]
!         TabOrder = 6
          OnChange = edNodeTextChange
        end
***************
*** 202,208 ****
          Top = 19
          Width = 127
!         Height = 21
          Anchors = [akLeft, akTop, akRight]
!         TabOrder = 3
          OnChange = edNodeTextChange
        end
--- 199,205 ----
          Top = 19
          Width = 127
!         Height = 22
          Anchors = [akLeft, akTop, akRight]
!         TabOrder = 0
          OnChange = edNodeTextChange
        end
***************
*** 296,310 ****
    end
    object SaveDialog1: TSaveDialog
-     FilterIndex = 0
      Height = 0
-     Title = 'Save'
      Width = 0
      Left = 74
      Top = 56
    end
    object OpenDialog1: TOpenDialog
-     FilterIndex = 0
      Height = 0
      Width = 0
      Left = 42
      Top = 56
--- 293,308 ----
    end
    object SaveDialog1: TSaveDialog
      Height = 0
      Width = 0
+     FilterIndex = 0
+     Title = 'Save'
      Left = 74
      Top = 56
    end
    object OpenDialog1: TOpenDialog
      Height = 0
      Width = 0
+     FilterIndex = 0
+     Title = 'Open'
      Left = 42
      Top = 56

Index: JvQNetReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQNetReg.pas,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** JvQNetReg.pas	7 Sep 2004 23:15:18 -0000	1.18
--- JvQNetReg.pas	25 Dec 2004 09:02:37 -0000	1.19
***************
*** 70,80 ****
    {$IFDEF MSWINDOWS}
    RegisterPropertyEditor(TypeInfo(TStrings),
!     TJvHTMLParser, 'Parser', TJvHTMLParserEditor);
    RegisterPropertyEditor(TypeInfo(TJvUrlGrabberIndex),
      TJvUrlListGrabber, '', TJvUrlGrabberIndexProperty);
    RegisterPropertyEditor(TypeInfo(TJvUrlGrabberDefaultPropertiesList),
!     TJvUrlListGrabber, '', TJvUrlGrabberDefaultPropertiesListEditor);
    RegisterPropertyEditor(TypeInfo(TJvCustomUrlGrabberDefaultProperties),
!     TJvUrlGrabberDefPropEdTrick, '', TJvUrlGrabberDefaultPropertiesEditor); 
    {$ENDIF MSWINDOWS}
  end;
--- 70,80 ----
    {$IFDEF MSWINDOWS}
    RegisterPropertyEditor(TypeInfo(TStrings),
!     TJvHTMLParser, 'Parser', TJvHTMLParserProperty);
    RegisterPropertyEditor(TypeInfo(TJvUrlGrabberIndex),
      TJvUrlListGrabber, '', TJvUrlGrabberIndexProperty);
    RegisterPropertyEditor(TypeInfo(TJvUrlGrabberDefaultPropertiesList),
!     TJvUrlListGrabber, '', TJvUrlGrabberDefaultPropertiesListProperty);
    RegisterPropertyEditor(TypeInfo(TJvCustomUrlGrabberDefaultProperties),
!     TJvUrlGrabberDefPropEdTrick, '', TJvUrlGrabberDefaultPropertiesProperty); 
    {$ENDIF MSWINDOWS}
  end;

Index: JvQOutlookBarEditors.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQOutlookBarEditors.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** JvQOutlookBarEditors.pas	7 Sep 2004 23:15:18 -0000	1.16
--- JvQOutlookBarEditors.pas	25 Dec 2004 09:02:37 -0000	1.17
***************
*** 43,47 ****
  
  type
!   TJvOutlookBarActivePageEditor = class(TIntegerProperty)
    private
      function GetOL: TJvCustomOutlookBar;
--- 43,47 ----
  
  type
!   TJvOutlookBarActivePageProperty = class(TIntegerProperty)
    private
      function GetOL: TJvCustomOutlookBar;
***************
*** 56,60 ****
    end;
  
!   TJvOutlookBarComponentEditor = class(TComponentEditor)
    public
      procedure ExecuteVerb(Index: Integer); override;
--- 56,60 ----
    end;
  
!   TJvOutlookBarEditor = class(TComponentEditor)
    public
      procedure ExecuteVerb(Index: Integer); override;
***************
*** 63,67 ****
    end;
  
!   TJvOutlookBarPagesPropertyEditor = class(TPropertyEditor)
    private
      function GetOutlookBar: TJvCustomOutlookBar;
--- 63,67 ----
    end;
  
!   TJvOutlookBarPagesProperty = class(TPropertyEditor)
    private
      function GetOutlookBar: TJvCustomOutlookBar;
***************
*** 126,137 ****
  end;
  
! //=== { TJvOutlookBarPagesPropertyEditor } ===================================
  
! procedure TJvOutlookBarPagesPropertyEditor.Edit;
  begin
    ShowEditor(Designer, GetOutlookBar);
  end;
  
! function TJvOutlookBarPagesPropertyEditor.GetAttributes: TPropertyAttributes;
  begin
    Result := [paDialog, paReadOnly];
--- 126,137 ----
  end;
  
! //=== { TJvOutlookBarPagesProperty } =========================================
  
! procedure TJvOutlookBarPagesProperty.Edit;
  begin
    ShowEditor(Designer, GetOutlookBar);
  end;
  
! function TJvOutlookBarPagesProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paDialog, paReadOnly];
***************
*** 142,146 ****
    THackButtons = class(TJvOutlookBarButtons);
  
! function TJvOutlookBarPagesPropertyEditor.GetOutlookBar: TJvCustomOutlookBar;
  begin
    if GetComponent(0) is TJvCustomOutlookBar then
--- 142,146 ----
    THackButtons = class(TJvOutlookBarButtons);
  
! function TJvOutlookBarPagesProperty.GetOutlookBar: TJvCustomOutlookBar;
  begin
    if GetComponent(0) is TJvCustomOutlookBar then
***************
*** 153,164 ****
  end;
  
! function TJvOutlookBarPagesPropertyEditor.GetValue: string;
  begin
    Result := Format('(%s)', [GetPropType^.Name]);
  end;
  
! //=== { TJvOutlookBarComponentEditor } =======================================
  
! procedure TJvOutlookBarComponentEditor.ExecuteVerb(Index: Integer);
  begin
    case Index of
--- 153,164 ----
  end;
  
! function TJvOutlookBarPagesProperty.GetValue: string;
  begin
    Result := Format('(%s)', [GetPropType^.Name]);
  end;
  
! //=== { TJvOutlookBarEditor } ================================================
  
! procedure TJvOutlookBarEditor.ExecuteVerb(Index: Integer);
  begin
    case Index of
***************
*** 170,174 ****
  end;
  
! function TJvOutlookBarComponentEditor.GetVerb(Index: Integer): string;
  begin
    case Index of
--- 170,174 ----
  end;
  
! function TJvOutlookBarEditor.GetVerb(Index: Integer): string;
  begin
    case Index of
***************
*** 180,201 ****
  end;
  
! function TJvOutlookBarComponentEditor.GetVerbCount: Integer;
  begin
    Result := 1;
  end;
  
! //=== { TJvOutlookBarActivePageEditor } ======================================
  
! procedure TJvOutlookBarActivePageEditor.Edit;
  begin
    inherited Edit;
  end;
  
! function TJvOutlookBarActivePageEditor.GetAttributes: TPropertyAttributes;
  begin
    Result := [paValueList, paSortList, paRevertable];
  end;
  
! function TJvOutlookBarActivePageEditor.GetOL: TJvCustomOutlookBar;
  begin
    if GetComponent(0) is TJvCustomOutlookBar then
--- 180,201 ----
  end;
  
! function TJvOutlookBarEditor.GetVerbCount: Integer;
  begin
    Result := 1;
  end;
  
! //=== { TJvOutlookBarActivePageProperty } ====================================
  
! procedure TJvOutlookBarActivePageProperty.Edit;
  begin
    inherited Edit;
  end;
  
! function TJvOutlookBarActivePageProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paValueList, paSortList, paRevertable];
  end;
  
! function TJvOutlookBarActivePageProperty.GetOL: TJvCustomOutlookBar;
  begin
    if GetComponent(0) is TJvCustomOutlookBar then
***************
*** 205,209 ****
  end;
  
! function TJvOutlookBarActivePageEditor.GetValue: string;
  var
    I: Integer;
--- 205,209 ----
  end;
  
! function TJvOutlookBarActivePageProperty.GetValue: string;
  var
    I: Integer;
***************
*** 219,223 ****
  end;
  
! procedure TJvOutlookBarActivePageEditor.GetValues(Proc: TGetStrProc);
  var
    I: Integer;
--- 219,223 ----
  end;
  
! procedure TJvOutlookBarActivePageProperty.GetValues(Proc: TGetStrProc);
  var
    I: Integer;
***************
*** 227,231 ****
  end;
  
! procedure TJvOutlookBarActivePageEditor.SetValue(const Value: string);
  var
    I: Integer;
--- 227,231 ----
  end;
  
! procedure TJvOutlookBarActivePageProperty.SetValue(const Value: string);
  var
    I: Integer;

Index: JvQCmpReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQCmpReg.pas,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** JvQCmpReg.pas	14 Nov 2004 19:30:50 -0000	1.22
--- JvQCmpReg.pas	25 Dec 2004 09:02:36 -0000	1.23
***************
*** 90,94 ****
  //    'Data', TJvDataEmbeddedEditor);
    RegisterPropertyEditor(TypeInfo(TStrings), TJvPatchFile,
!     'Differences', TJvPatcherEditor);
    RegisterPropertyEditor(TypeInfo(TList), TJvPageManager,
      'PageProxies', TJvProxyListProperty);
--- 90,94 ----
  //    'Data', TJvDataEmbeddedEditor);
    RegisterPropertyEditor(TypeInfo(TStrings), TJvPatchFile,
!     'Differences', TJvPatcherProperty);
    RegisterPropertyEditor(TypeInfo(TList), TJvPageManager,
      'PageProxies', TJvProxyListProperty);
***************
*** 104,108 ****
    RegisterComponentEditor(TJvPageManager, TJvPageManagerEditor);
    RegisterComponentEditor(TJvStrHolder, TJvStringsEditor);
!   RegisterComponentEditor(TJvDataEmbedded,TJvDataEmbeddedComponentEditor);
  
    RegisterNoIcon([TJvPageProxy]);
--- 104,108 ----
    RegisterComponentEditor(TJvPageManager, TJvPageManagerEditor);
    RegisterComponentEditor(TJvStrHolder, TJvStringsEditor);
!   RegisterComponentEditor(TJvDataEmbedded, TJvDataEmbeddedEditor);
  
    RegisterNoIcon([TJvPageProxy]);

Index: JvQDBReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQDBReg.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** JvQDBReg.pas	22 Dec 2004 09:59:29 -0000	1.4
--- JvQDBReg.pas	25 Dec 2004 09:02:37 -0000	1.5
***************
*** 124,128 ****
    RegisterPropertyEditor(TypeInfo(string), TJvCsvDataSet, 'CsvFieldDef', TJvCsvDefStrProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvCsvDataSet, 'FileName', TJvFilenameProperty);
! //  RegisterPropertyEditor(TypeInfo(TJvDBGridControls), TJvDBGrid, cEditControls, TJvDBGridControlsEditor);
  //  RegisterPropertyEditor(TypeInfo(string), TJvDBUltimGrid, cSortedField, nil);
  //  RegisterPropertyEditor(TypeInfo(TSortMarker), TJvDBUltimGrid, cSortMarker, nil);
--- 124,128 ----
    RegisterPropertyEditor(TypeInfo(string), TJvCsvDataSet, 'CsvFieldDef', TJvCsvDefStrProperty);
    RegisterPropertyEditor(TypeInfo(string), TJvCsvDataSet, 'FileName', TJvFilenameProperty);
! //  RegisterPropertyEditor(TypeInfo(TJvDBGridControls), TJvDBGrid, cEditControls, TJvDBGridControlsProperty);
  //  RegisterPropertyEditor(TypeInfo(string), TJvDBUltimGrid, cSortedField, nil);
  //  RegisterPropertyEditor(TypeInfo(TSortMarker), TJvDBUltimGrid, cSortMarker, nil);

Index: JvQWizardEditorForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQWizardEditorForm.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** JvQWizardEditorForm.pas	7 Sep 2004 23:15:19 -0000	1.17
--- JvQWizardEditorForm.pas	25 Dec 2004 09:02:37 -0000	1.18
***************
*** 38,42 ****
    ---------------------------------------------------------------------------
    01/29/2002       Initial create
!                    1) Move TJvWizardActivePageProperty, TJvWizardComponentEditor
                        class from JvWizardReg to here
                     2) TJvWizardPageListProperty added
--- 38,42 ----
    ---------------------------------------------------------------------------
    01/29/2002       Initial create
!                    1) Move TJvWizardActivePageProperty, TJvWizardEditor
                        class from JvWizardReg to here
                     2) TJvWizardPageListProperty added
***************
*** 66,70 ****
  
    // JvWizard Component Local Menu Editor
!   TJvWizardComponentEditor = class(TComponentEditor)
    protected
      function GetWizard: TJvWizard; virtual;
--- 66,70 ----
  
    // JvWizard Component Local Menu Editor
!   TJvWizardEditor = class(TComponentEditor)
    protected
      function GetWizard: TJvWizard; virtual;
***************
*** 207,213 ****
  end;
  
! //=== { TJvWizardComponentEditor } ===========================================
  
! procedure TJvWizardComponentEditor.AddPage(Page: TJvWizardCustomPage);
  begin
    Page.Parent := Wizard;
--- 207,213 ----
  end;
  
! //=== { TJvWizardEditor } ====================================================
  
! procedure TJvWizardEditor.AddPage(Page: TJvWizardCustomPage);
  begin
    Page.Parent := Wizard;
***************
*** 218,222 ****
  end;
  
! procedure TJvWizardComponentEditor.AddInteriorPage;
  var
    Page: TJvWizardInteriorPage;
--- 218,222 ----
  end;
  
! procedure TJvWizardEditor.AddInteriorPage;
  var
    Page: TJvWizardInteriorPage;
***************
*** 232,236 ****
  end;
  
! procedure TJvWizardComponentEditor.AddWelcomePage;
  var
    Page: TJvWizardWelcomePage;
--- 232,236 ----
  end;
  
! procedure TJvWizardEditor.AddWelcomePage;
  var
    Page: TJvWizardWelcomePage;
***************
*** 246,250 ****
  end;
  
! procedure TJvWizardComponentEditor.ExecuteVerb(Index: Integer);
  begin
    case Index of
--- 246,250 ----
  end;
  
! procedure TJvWizardEditor.ExecuteVerb(Index: Integer);
  begin
    case Index of
***************
*** 269,273 ****
  end;
  
! function TJvWizardComponentEditor.GetWizard: TJvWizard;
  begin
    if Component is TJvWizard then
--- 269,273 ----
  end;
  
! function TJvWizardEditor.GetWizard: TJvWizard;
  begin
    if Component is TJvWizard then
***************
*** 277,281 ****
  end;
  
! function TJvWizardComponentEditor.GetVerb(Index: Integer): string;
  begin
    case Index of
--- 277,281 ----
  end;
  
! function TJvWizardEditor.GetVerb(Index: Integer): string;
  begin
    case Index of
***************
*** 295,304 ****
  end;
  
! function TJvWizardComponentEditor.GetVerbCount: Integer;
  begin
    Result := 6;
  end;
  
! procedure TJvWizardComponentEditor.NextPage(Step: Integer);
  var
    Page: TJvWizardCustomPage;
--- 295,304 ----
  end;
  
! function TJvWizardEditor.GetVerbCount: Integer;
  begin
    Result := 6;
  end;
  
! procedure TJvWizardEditor.NextPage(Step: Integer);
  var
    Page: TJvWizardCustomPage;

Index: JvQHtmlParserEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQHtmlParserEditor.pas,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** JvQHtmlParserEditor.pas	7 Sep 2004 23:15:18 -0000	1.14
--- JvQHtmlParserEditor.pas	25 Dec 2004 09:02:37 -0000	1.15
***************
*** 42,46 ****
  
  type
!   TJvHtmlParserEditor = class(TClassProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
--- 42,46 ----
  
  type
!   TJvHTMLParserProperty = class(TClassProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
***************
*** 56,80 ****
    QControls, QDialogs, JvQDsgnConsts;
  
! function TJvHtmlParserEditor.GetAttributes: TPropertyAttributes;
  begin
    Result := [paMultiSelect, paDialog, paReadOnly];
  end;
  
! function TJvHtmlParserEditor.GetValue: string;
  begin
    Result := RsJvEditorString; // GetStrValue;
  end;
  
! procedure TJvHtmlParserEditor.SetValue(const Value: string);
  begin
    SetStrValue(RsJvEditorString);
  end;
  
! procedure TJvHtmlParserEditor.GetValues(Proc: TGetStrProc);
  begin
    SetStrValue(RsJvEditorString);
  end;
  
! procedure TJvHtmlParserEditor.Edit;
  var
    Dlg: TJvHTMLParserForm;
--- 56,80 ----
    QControls, QDialogs, JvQDsgnConsts;
  
! function TJvHTMLParserProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paMultiSelect, paDialog, paReadOnly];
  end;
  
! function TJvHTMLParserProperty.GetValue: string;
  begin
    Result := RsJvEditorString; // GetStrValue;
  end;
  
! procedure TJvHTMLParserProperty.SetValue(const Value: string);
  begin
    SetStrValue(RsJvEditorString);
  end;
  
! procedure TJvHTMLParserProperty.GetValues(Proc: TGetStrProc);
  begin
    SetStrValue(RsJvEditorString);
  end;
  
! procedure TJvHTMLParserProperty.Edit;
  var
    Dlg: TJvHTMLParserForm;

Index: JvQPatcherEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQPatcherEditor.pas,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** JvQPatcherEditor.pas	7 Sep 2004 23:15:18 -0000	1.13
--- JvQPatcherEditor.pas	25 Dec 2004 09:02:37 -0000	1.14
***************
*** 41,45 ****
  
  type
!   TJvPatcherEditor = class(TClassProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
--- 41,45 ----
  
  type
!   TJvPatcherProperty = class(TClassProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
***************
*** 54,63 ****
    JvQDsgnConsts;
  
! function TJvPatcherEditor.GetAttributes: TPropertyAttributes;
  begin
    Result := [paMultiSelect, paDialog, paSortList];
  end;
  
! procedure TJvPatcherEditor.Edit;
  var
    Dlg: TPatchFrm;
--- 54,63 ----
    JvQDsgnConsts;
  
! function TJvPatcherProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paMultiSelect, paDialog, paSortList];
  end;
  
! procedure TJvPatcherProperty.Edit;
  var
    Dlg: TPatchFrm;
***************
*** 78,82 ****
  end;
  
! procedure TJvPatcherEditor.SetValue(const Value: string);
  begin
    inherited SetValue(Value);
--- 78,82 ----
  end;
  
! procedure TJvPatcherProperty.SetValue(const Value: string);
  begin
    inherited SetValue(Value);
***************
*** 85,89 ****
  end;
  
! function TJvPatcherEditor.GetValue: string;
  begin
    if TStrings(GetOrdValue).Count = 0 then
--- 85,89 ----
  end;
  
! function TJvPatcherProperty.GetValue: string;
  begin
    if TStrings(GetOrdValue).Count = 0 then

Index: JvQDataEmbeddedEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQDataEmbeddedEditor.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** JvQDataEmbeddedEditor.pas	6 Nov 2004 22:13:46 -0000	1.16
--- JvQDataEmbeddedEditor.pas	25 Dec 2004 09:02:37 -0000	1.17
***************
*** 42,46 ****
  
  type
!   TJvDataEmbeddedComponentEditor = class(TComponentEditor)
    private
      procedure LoadDataFromFile(Comp: TJvDataEmbedded);
--- 42,46 ----
  
  type
!   TJvDataEmbeddedEditor = class(TComponentEditor)
    private
      procedure LoadDataFromFile(Comp: TJvDataEmbedded);
***************
*** 59,63 ****
    JclFileUtils;
  
! procedure TJvDataEmbeddedComponentEditor.LoadDataFromFile(Comp: TJvDataEmbedded);
  var
    Stream: TFileStream;
--- 59,63 ----
    JclFileUtils;
  
! procedure TJvDataEmbeddedEditor.LoadDataFromFile(Comp: TJvDataEmbedded);
  var
    Stream: TFileStream;
***************
*** 85,89 ****
  end;
  
! procedure TJvDataEmbeddedComponentEditor.ExecuteVerb(Index: Integer);
  begin
    case Index of
--- 85,89 ----
  end;
  
! procedure TJvDataEmbeddedEditor.ExecuteVerb(Index: Integer);
  begin
    case Index of
***************
*** 97,101 ****
  end;
  
! function TJvDataEmbeddedComponentEditor.GetVerb(Index: Integer): string;
  begin
    case Index of
--- 97,101 ----
  end;
  
! function TJvDataEmbeddedEditor.GetVerb(Index: Integer): string;
  begin
    case Index of
***************
*** 109,113 ****
  end;
  
! function TJvDataEmbeddedComponentEditor.GetVerbCount: Integer;
  begin
    Result := 3;
--- 109,113 ----
  end;
  
! function TJvDataEmbeddedEditor.GetVerbCount: Integer;
  begin
    Result := 3;
***************
*** 115,119 ****
  
  
! procedure TJvDataEmbeddedComponentEditor.PrepareItem(Index: Integer;
    const AItem: IMenuItem);
  begin
--- 115,119 ----
  
  
! procedure TJvDataEmbeddedEditor.PrepareItem(Index: Integer;
    const AItem: IMenuItem);
  begin
***************
*** 126,130 ****
  
  
! procedure TJvDataEmbeddedComponentEditor.ViewAsText;
  var
    F:TFileStream;
--- 126,130 ----
  
  
! procedure TJvDataEmbeddedEditor.ViewAsText;
  var
    F:TFileStream;

Index: JvQUrlListGrabberEditors.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQUrlListGrabberEditors.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** JvQUrlListGrabberEditors.pas	7 Sep 2004 23:15:19 -0000	1.16
--- JvQUrlListGrabberEditors.pas	25 Dec 2004 09:02:37 -0000	1.17
***************
*** 41,45 ****
  
  type
!   TJvUrlGrabberDefaultPropertiesListEditor = class(TClassProperty)
    public
      function GetAttributes: TPropertyAttributes; override; 
--- 41,45 ----
  
  type
!   TJvUrlGrabberDefaultPropertiesListProperty = class(TClassProperty)
    public
      function GetAttributes: TPropertyAttributes; override; 
***************
*** 47,56 ****
    end;
  
!   TJvUrlGrabberDefaultPropertiesEditor = class (TClassProperty)
    public
      function GetName: string; override;
    end;
  
!   TJvUrlGrabberIndexProperty = class (TIntegerProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
--- 47,56 ----
    end;
  
!   TJvUrlGrabberDefaultPropertiesProperty = class(TClassProperty)
    public
      function GetName: string; override;
    end;
  
!   TJvUrlGrabberIndexProperty = class(TIntegerProperty)
    public
      function GetAttributes: TPropertyAttributes; override;
***************
*** 66,72 ****
    JvQUrlListGrabber, JvQDsgnConsts;
  
! //=== { TJvUrlGrabberDefaultPropertiesListEditor } ===========================
  
! function TJvUrlGrabberDefaultPropertiesListEditor.GetAttributes: TPropertyAttributes;
  begin
    Result := [paSubProperties, paReadOnly];
--- 66,72 ----
    JvQUrlListGrabber, JvQDsgnConsts;
  
! //=== { TJvUrlGrabberDefaultPropertiesListProperty } =========================
  
! function TJvUrlGrabberDefaultPropertiesListProperty.GetAttributes: TPropertyAttributes;
  begin
    Result := [paSubProperties, paReadOnly];
***************
*** 74,78 ****
  
  
! procedure TJvUrlGrabberDefaultPropertiesListEditor.GetProperties(Proc: TGetPropProc);
  var
    UrlListGrabber: TJvUrlListGrabber;
--- 74,78 ----
  
  
! procedure TJvUrlGrabberDefaultPropertiesListProperty.GetProperties(Proc: TGetPropProc);
  var
    UrlListGrabber: TJvUrlListGrabber;
***************
*** 92,98 ****
  
  
! //=== { TJvUrlGrabberDefaultPropertiesEditor } ===============================
  
! function TJvUrlGrabberDefaultPropertiesEditor.GetName: string;
  var
    EditorTrick: TJvUrlGrabberDefPropEdTrick;
--- 92,98 ----
  
  
! //=== { TJvUrlGrabberDefaultPropertiesProperty } =============================
  
! function TJvUrlGrabberDefaultPropertiesProperty.GetName: string;
  var
    EditorTrick: TJvUrlGrabberDefPropEdTrick;