[JVCL-Checkins] dev/JVCL3/qdesign JvQCtrlsReg.pas,1.44,1.45 JvQSpeedbarForm.pas,1.8,1.9 JvQSpeedbarForm.xfm,1.4,1.5 JvQValidatorsEditorForm.pas,1.16,1.17 JvQValidatorsReg.pas,1.13,1.14 - 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-serv5439/JVCL3/qdesign

Modified Files:
	JvQCtrlsReg.pas JvQSpeedbarForm.pas JvQSpeedbarForm.xfm 
	JvQValidatorsEditorForm.pas JvQValidatorsReg.pas 
Log Message:
rename all PropertyEditor to Property and all ComponentEditor to Editor


Index: JvQValidatorsEditorForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQValidatorsEditorForm.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** JvQValidatorsEditorForm.pas	10 Sep 2004 22:09:20 -0000	1.16
--- JvQValidatorsEditorForm.pas	25 Dec 2004 13:20:43 -0000	1.17
***************
*** 40,44 ****
    QDialogs, QComCtrls, QToolWin, QStdCtrls, QMenus, QActnList, QImgList, 
    DesignEditors, DesignIntf, QDesignWindows, 
!   JvQValidators;
  
  type
--- 40,44 ----
    QDialogs, QComCtrls, QToolWin, QStdCtrls, QMenus, QActnList, QImgList, 
    DesignEditors, DesignIntf, QDesignWindows, 
!   JvQValidators, QTypes, QExtCtrls;
  
  type
***************
*** 92,96 ****
    end;
  
!   TJvValidatorComponent = class(TComponentEditor)
    public
      function GetVerb(Index: Integer): string; override;
--- 92,96 ----
    end;
  
!   TJvValidatorEditor = class(TComponentEditor)
    public
      function GetVerb(Index: Integer): string; override;
***************
*** 156,162 ****
  end;
  
! //=== { TJvValidatorComponent } ==============================================
  
! procedure TJvValidatorComponent.ExecuteVerb(Index: Integer);
  begin
    if (Index = 0) and (Component is TJvValidators) then
--- 156,162 ----
  end;
  
! //=== { TJvValidatorEditor } =================================================
  
! procedure TJvValidatorEditor.ExecuteVerb(Index: Integer);
  begin
    if (Index = 0) and (Component is TJvValidators) then
***************
*** 166,175 ****
  end;
  
! function TJvValidatorComponent.GetVerb(Index: Integer): string;
  begin
    Result := RsJvValidatorsItemsEditorEllipsis;
  end;
  
! function TJvValidatorComponent.GetVerbCount: Integer;
  begin
    Result := 1;
--- 166,175 ----
  end;
  
! function TJvValidatorEditor.GetVerb(Index: Integer): string;
  begin
    Result := RsJvValidatorsItemsEditorEllipsis;
  end;
  
! function TJvValidatorEditor.GetVerbCount: Integer;
  begin
    Result := 1;

Index: JvQSpeedbarForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQSpeedbarForm.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** JvQSpeedbarForm.pas	31 May 2004 23:03:15 -0000	1.8
--- JvQSpeedbarForm.pas	25 Dec 2004 13:20:43 -0000	1.9
***************
*** 54,58 ****
    end;
  
!   TJvSpeedbarEditor = class(TDesignWindow)
      SectionsBox: TGroupBox;
      NewSection: TButton;
--- 54,58 ----
    end;
  
!   TJvSpeedbarEditorMain = class(TDesignWindow)
      SectionsBox: TGroupBox;
      NewSection: TButton;
***************
*** 154,158 ****
    end;
  
!   TJvSpeedbarCompEditor = class(TComponentEditor)
      procedure ExecuteVerb(Index: Integer); override;
      function GetVerb(Index: Integer): string; override;
--- 154,158 ----
    end;
  
!   TJvSpeedbarEditor = class(TComponentEditor)
      procedure ExecuteVerb(Index: Integer); override;
      function GetVerb(Index: Integer): string; override;
***************
*** 170,174 ****
  //== Utility routines ========================================================
  
! function FindEditor(JvSpeedBar: TJvSpeedBar): TJvSpeedbarEditor;
  var
    I: Integer;
--- 170,174 ----
  //== Utility routines ========================================================
  
! function FindEditor(JvSpeedBar: TJvSpeedBar): TJvSpeedbarEditorMain;
  var
    I: Integer;
***************
*** 176,183 ****
    Result := nil;
    for I := 0 to Screen.FormCount - 1 do
!     if Screen.Forms[I] is TJvSpeedbarEditor then
!       if TJvSpeedbarEditor(Screen.Forms[I]).JvSpeedBar = JvSpeedBar then
        begin
!         Result := TJvSpeedbarEditor(Screen.Forms[I]);
          Break;
        end;
--- 176,183 ----
    Result := nil;
    for I := 0 to Screen.FormCount - 1 do
!     if Screen.Forms[I] is TJvSpeedbarEditorMain then
!       if TJvSpeedbarEditorMain(Screen.Forms[I]).JvSpeedBar = JvSpeedBar then
        begin
!         Result := TJvSpeedbarEditorMain(Screen.Forms[I]);
          Break;
        end;
***************
*** 186,190 ****
  procedure ShowSpeedbarDesigner(Designer: IJvDesigner; JvSpeedBar: TJvSpeedBar);
  var
!   Editor: TJvSpeedbarEditor;
  begin
    if JvSpeedBar = nil then
--- 186,190 ----
  procedure ShowSpeedbarDesigner(Designer: IJvDesigner; JvSpeedBar: TJvSpeedBar);
  var
!   Editor: TJvSpeedbarEditorMain;
  begin
    if JvSpeedBar = nil then
***************
*** 199,203 ****
    else
    begin
!     Editor := TJvSpeedbarEditor.Create(Application);
      try
        Editor.Designer := IJvFormDesigner(Designer);
--- 199,203 ----
    else
    begin
!     Editor := TJvSpeedbarEditorMain.Create(Application);
      try
        Editor.Designer := IJvFormDesigner(Designer);
***************
*** 211,217 ****
  end;
  
! //=== TJvSpeedbarCompEditor ==================================================
  
! procedure TJvSpeedbarCompEditor.ExecuteVerb(Index: Integer);
  begin
    case Index of
--- 211,217 ----
  end;
  
! //=== TJvSpeedbarEditor ======================================================
  
! procedure TJvSpeedbarEditor.ExecuteVerb(Index: Integer);
  begin
    case Index of
***************
*** 221,225 ****
  end;
  
! function TJvSpeedbarCompEditor.GetVerb(Index: Integer): string;
  begin
    case Index of
--- 221,225 ----
  end;
  
! function TJvSpeedbarEditor.GetVerb(Index: Integer): string;
  begin
    case Index of
***************
*** 229,243 ****
  end;
  
! function TJvSpeedbarCompEditor.GetVerbCount: Integer;
  begin
    Result := 1;
  end;
  
! //=== TJvSpeedbarEditor ======================================================
  
  const
    MaxBtnListHeight = 158;
  
! function TJvSpeedbarEditor.UniqueName(Component: TComponent): string;
  var
    Temp: string;
--- 229,243 ----
  end;
  
! function TJvSpeedbarEditor.GetVerbCount: Integer;
  begin
    Result := 1;
  end;
  
! //=== TJvSpeedbarEditorMain ==================================================
  
  const
    MaxBtnListHeight = 158;
  
! function TJvSpeedbarEditorMain.UniqueName(Component: TComponent): string;
  var
    Temp: string;
***************
*** 253,257 ****
  end;
  
! function TJvSpeedbarEditor.GetEditState: TEditState;
  begin
    Result := [];
--- 253,257 ----
  end;
  
! function TJvSpeedbarEditorMain.GetEditState: TEditState;
  begin
    Result := [];
***************
*** 263,267 ****
  
  
! function TJvSpeedbarEditor.EditAction(Action: TEditAction): Boolean;
  begin
    Result := True;
--- 263,267 ----
  
  
! function TJvSpeedbarEditorMain.EditAction(Action: TEditAction): Boolean;
  begin
    Result := True;
***************
*** 284,288 ****
  
  
! procedure TJvSpeedbarEditor.SelectButton(Section: Integer; Item: TJvSpeedItem;
    SelectBar: Boolean);
  var
--- 284,288 ----
  
  
! procedure TJvSpeedbarEditorMain.SelectButton(Section: Integer; Item: TJvSpeedItem;
    SelectBar: Boolean);
  var
***************
*** 312,316 ****
  
  
! procedure TJvSpeedbarEditor.DesignerClosed(const ADesigner: IDesigner; AGoingDormant: Boolean);
  
  begin 
--- 312,316 ----
  
  
! procedure TJvSpeedbarEditorMain.DesignerClosed(const ADesigner: IDesigner; AGoingDormant: Boolean);
  
  begin 
***************
*** 320,324 ****
  
  
! procedure TJvSpeedbarEditor.ItemsModified(const Designer: IDesigner);
  
  begin
--- 320,324 ----
  
  
! procedure TJvSpeedbarEditorMain.ItemsModified(const Designer: IDesigner);
  
  begin
***************
*** 327,331 ****
  end;
  
! procedure TJvSpeedbarEditor.Activated;
  begin
    SelectButton(CurrentSection, ItemByRow(ButtonsList.Row), False);
--- 327,331 ----
  end;
  
! procedure TJvSpeedbarEditorMain.Activated;
  begin
    SelectButton(CurrentSection, ItemByRow(ButtonsList.Row), False);
***************
*** 334,343 ****
  end;
  
! function TJvSpeedbarEditor.ConfirmDelete: Boolean;
  begin
    Result := MessageDlg(RsConfirmSBDelete, mtWarning, mbYesNoCancel, 0) = mrYes;
  end;
  
! procedure TJvSpeedbarEditor.SaveSelection;
  begin
    with FSelectData do
--- 334,343 ----
  end;
  
! function TJvSpeedbarEditorMain.ConfirmDelete: Boolean;
  begin
    Result := MessageDlg(RsConfirmSBDelete, mtWarning, mbYesNoCancel, 0) = mrYes;
  end;
  
! procedure TJvSpeedbarEditorMain.SaveSelection;
  begin
    with FSelectData do
***************
*** 350,354 ****
  end;
  
! procedure TJvSpeedbarEditor.RestoreSelection;
  var
    NewSRow, NewBRow: Integer;
--- 350,354 ----
  end;
  
! procedure TJvSpeedbarEditorMain.RestoreSelection;
  var
    NewSRow, NewBRow: Integer;
***************
*** 371,375 ****
  end;
  
! procedure TJvSpeedbarEditor.UpdateEnabled(BtnRow, Section: Integer);
  var
    EnableSect, EnableBtn: Boolean;
--- 371,375 ----
  end;
  
! procedure TJvSpeedbarEditorMain.UpdateEnabled(BtnRow, Section: Integer);
  var
    EnableSect, EnableBtn: Boolean;
***************
*** 389,393 ****
  end;
  
! function TJvSpeedbarEditor.CheckSpeedBar: Boolean;
  begin
    Result := (FBar <> nil) and (FBar.Owner <> nil) and (FBar.Parent <> nil) and 
--- 389,393 ----
  end;
  
! function TJvSpeedbarEditorMain.CheckSpeedBar: Boolean;
  begin
    Result := (FBar <> nil) and (FBar.Owner <> nil) and (FBar.Parent <> nil) and 
***************
*** 395,399 ****
  end;
  
! function TJvSpeedbarEditor.CurrentSection: Integer;
  begin
    if CheckSpeedBar and (FBar.SectionCount > 0) then
--- 395,399 ----
  end;
  
! function TJvSpeedbarEditorMain.CurrentSection: Integer;
  begin
    if CheckSpeedBar and (FBar.SectionCount > 0) then
***************
*** 403,407 ****
  end;
  
! procedure TJvSpeedbarEditor.SetSection(Section: Integer);
  var
    I: Integer;
--- 403,407 ----
  end;
  
! procedure TJvSpeedbarEditorMain.SetSection(Section: Integer);
  var
    I: Integer;
***************
*** 425,429 ****
  end;
  
! procedure TJvSpeedbarEditor.UpdateData;
  begin
    Inc(FLocked);
--- 425,429 ----
  end;
  
! procedure TJvSpeedbarEditorMain.UpdateData;
  begin
    Inc(FLocked);
***************
*** 442,451 ****
  end;
  
! function TJvSpeedbarEditor.GetForm: TCustomForm;
  begin 
    Result := TCustomForm(Designer.Root); { GetParentForm(FBar) } 
  end;
  
! procedure TJvSpeedbarEditor.UpdateListHeight;
  var
    Cnt: Integer;
--- 442,451 ----
  end;
  
! function TJvSpeedbarEditorMain.GetForm: TCustomForm;
  begin 
    Result := TCustomForm(Designer.Root); { GetParentForm(FBar) } 
  end;
  
! procedure TJvSpeedbarEditorMain.UpdateListHeight;
  var
    Cnt: Integer;
***************
*** 462,466 ****
  end;
  
! procedure TJvSpeedbarEditor.SetJvSpeedBar(Value: TJvSpeedBar);
  var
    I: Integer;
--- 462,466 ----
  end;
  
! procedure TJvSpeedbarEditorMain.SetJvSpeedBar(Value: TJvSpeedBar);
  var
    I: Integer;
***************
*** 499,503 ****
  end;
  
! procedure TJvSpeedbarEditor.CMSpeedBarChanged(var Msg: TMessage);
  begin
    if Pointer(Msg.LParam) = FBar then
--- 499,503 ----
  end;
  
! procedure TJvSpeedbarEditorMain.CMSpeedBarChanged(var Msg: TMessage);
  begin
    if Pointer(Msg.LParam) = FBar then
***************
*** 519,523 ****
  end;
  
! function TJvSpeedbarEditor.ItemBySectionRow(Section, Row: Integer): TJvSpeedItem;
  begin
    if CheckSpeedBar then
--- 519,523 ----
  end;
  
! function TJvSpeedbarEditorMain.ItemBySectionRow(Section, Row: Integer): TJvSpeedItem;
  begin
    if CheckSpeedBar then
***************
*** 527,531 ****
  end;
  
! function TJvSpeedbarEditor.SectionByRow(Row: Integer): TJvSpeedbarSection;
  begin
    if CheckSpeedBar and (Row >= 0) and (Row < FBar.SectionCount) then
--- 527,531 ----
  end;
  
! function TJvSpeedbarEditorMain.SectionByRow(Row: Integer): TJvSpeedbarSection;
  begin
    if CheckSpeedBar and (Row >= 0) and (Row < FBar.SectionCount) then
***************
*** 535,544 ****
  end;
  
! function TJvSpeedbarEditor.ItemByRow(Row: Integer): TJvSpeedItem;
  begin
    Result := ItemBySectionRow(CurrentSection, Row);
  end;
  
! procedure TJvSpeedbarEditor.NewSectionClick(Sender: TObject);
  var
    S: string;
--- 535,544 ----
  end;
  
! function TJvSpeedbarEditorMain.ItemByRow(Row: Integer): TJvSpeedItem;
  begin
    Result := ItemBySectionRow(CurrentSection, Row);
  end;
  
! procedure TJvSpeedbarEditorMain.NewSectionClick(Sender: TObject);
  var
    S: string;
***************
*** 560,564 ****
  end;
  
! procedure TJvSpeedbarEditor.DelSectionClick(Sender: TObject);
  var
    Sect: Integer;
--- 560,564 ----
  end;
  
! procedure TJvSpeedbarEditorMain.DelSectionClick(Sender: TObject);
  var
    Sect: Integer;
***************
*** 591,595 ****
  end;
  
! procedure TJvSpeedbarEditor.Copy;
  var
    CompList: TDesignerSelectionList;
--- 591,595 ----
  end;
  
! procedure TJvSpeedbarEditorMain.Copy;
  var
    CompList: TDesignerSelectionList;
***************
*** 607,611 ****
  end;
  
! procedure TJvSpeedbarEditor.Paste;
  var
    CompList: TDesignerSelectionList;
--- 607,611 ----
  end;
  
! procedure TJvSpeedbarEditorMain.Paste;
  var
    CompList: TDesignerSelectionList;
***************
*** 624,628 ****
  end;
  
! procedure TJvSpeedbarEditor.Cut;
  begin
    Copy;
--- 624,628 ----
  end;
  
! procedure TJvSpeedbarEditorMain.Cut;
  begin
    Copy;
***************
*** 630,634 ****
  end;
  
! procedure TJvSpeedbarEditor.OnPasteItem(Item: TObject);
  begin
    if Item <> nil then
--- 630,634 ----
  end;
  
! procedure TJvSpeedbarEditorMain.OnPasteItem(Item: TObject);
  begin
    if Item <> nil then
***************
*** 640,644 ****
  end;
  
! procedure TJvSpeedbarEditor.AddButtonClick(Sender: TObject);
  var
    I: Integer;
--- 640,644 ----
  end;
  
! procedure TJvSpeedbarEditorMain.AddButtonClick(Sender: TObject);
  var
    I: Integer;
***************
*** 664,668 ****
  end;
  
! procedure TJvSpeedbarEditor.RemoveButtonClick(Sender: TObject);
  var
    Item: TJvSpeedItem;
--- 664,668 ----
  end;
  
! procedure TJvSpeedbarEditorMain.RemoveButtonClick(Sender: TObject);
  var
    Item: TJvSpeedItem;
***************
*** 678,687 ****
  end;
  
! procedure TJvSpeedbarEditor.CloseBtnClick(Sender: TObject);
  begin
    Close;
  end;
  
! procedure TJvSpeedbarEditor.UpBtnClick(Sender: TObject);
  var
    I, Sect: Integer;
--- 678,687 ----
  end;
  
! procedure TJvSpeedbarEditorMain.CloseBtnClick(Sender: TObject);
  begin
    Close;
  end;
  
! procedure TJvSpeedbarEditorMain.UpBtnClick(Sender: TObject);
  var
    I, Sect: Integer;
***************
*** 697,701 ****
  end;
  
! procedure TJvSpeedbarEditor.DownBtnClick(Sender: TObject);
  var
    I, Sect: Integer;
--- 697,701 ----
  end;
  
! procedure TJvSpeedbarEditorMain.DownBtnClick(Sender: TObject);
  var
    I, Sect: Integer;
***************
*** 711,730 ****
  end;
  
! procedure TJvSpeedbarEditor.CopyMenuClick(Sender: TObject);
  begin
    Copy;
  end;
  
! procedure TJvSpeedbarEditor.PasteMenuClick(Sender: TObject);
  begin
    Paste;
  end;
  
! procedure TJvSpeedbarEditor.CutMenuClick(Sender: TObject);
  begin
    Cut;
  end;
  
! procedure TJvSpeedbarEditor.SectionNameExit(Sender: TObject);
  var
    I: Integer;
--- 711,730 ----
  end;
  
! procedure TJvSpeedbarEditorMain.CopyMenuClick(Sender: TObject);
  begin
    Copy;
  end;
  
! procedure TJvSpeedbarEditorMain.PasteMenuClick(Sender: TObject);
  begin
    Paste;
  end;
  
! procedure TJvSpeedbarEditorMain.CutMenuClick(Sender: TObject);
  begin
    Cut;
  end;
  
! procedure TJvSpeedbarEditorMain.SectionNameExit(Sender: TObject);
  var
    I: Integer;
***************
*** 741,745 ****
  end;
  
! procedure TJvSpeedbarEditor.SectionListSelectCell(Sender: TObject; Col,
    Row: Longint; var CanSelect: Boolean);
  begin
--- 741,745 ----
  end;
  
! procedure TJvSpeedbarEditorMain.SectionListSelectCell(Sender: TObject; Col,
    Row: Longint; var CanSelect: Boolean);
  begin
***************
*** 758,762 ****
  end;
  
! procedure TJvSpeedbarEditor.SectionListDrawCell(Sender: TObject; Col,
    Row: Longint; Rect: TRect; State: TGridDrawState);
  begin
--- 758,762 ----
  end;
  
! procedure TJvSpeedbarEditorMain.SectionListDrawCell(Sender: TObject; Col,
    Row: Longint; Rect: TRect; State: TGridDrawState);
  begin
***************
*** 767,771 ****
  end;
  
! procedure TJvSpeedbarEditor.SectionListKeyDown(Sender: TObject;
    var Key: Word; Shift: TShiftState);
  begin
--- 767,771 ----
  end;
  
! procedure TJvSpeedbarEditorMain.SectionListKeyDown(Sender: TObject;
    var Key: Word; Shift: TShiftState);
  begin
***************
*** 784,788 ****
  end;
  
! procedure TJvSpeedbarEditor.ButtonsListKeyDown(Sender: TObject;
    var Key: Word; Shift: TShiftState);
  begin
--- 784,788 ----
  end;
  
! procedure TJvSpeedbarEditorMain.ButtonsListKeyDown(Sender: TObject;
    var Key: Word; Shift: TShiftState);
  begin
***************
*** 801,805 ****
  end;
  
! procedure TJvSpeedbarEditor.ButtonsListDblClick(Sender: TObject);
  const 
    cSender: string[6] = 'Sender'; 
--- 801,805 ----
  end;
  
! procedure TJvSpeedbarEditorMain.ButtonsListDblClick(Sender: TObject);
  const 
    cSender: string[6] = 'Sender'; 
***************
*** 877,881 ****
  end;
  
! procedure TJvSpeedbarEditor.ButtonsListMouseDown(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
--- 877,881 ----
  end;
  
! procedure TJvSpeedbarEditorMain.ButtonsListMouseDown(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
***************
*** 903,907 ****
  end;
  
! procedure TJvSpeedbarEditor.ButtonsListMouseMove(Sender: TObject;
    Shift: TShiftState; X, Y: Integer);
  var
--- 903,907 ----
  end;
  
! procedure TJvSpeedbarEditorMain.ButtonsListMouseMove(Sender: TObject;
    Shift: TShiftState; X, Y: Integer);
  var
***************
*** 920,924 ****
  end;
  
! procedure TJvSpeedbarEditor.ButtonsListMouseUp(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
--- 920,924 ----
  end;
  
! procedure TJvSpeedbarEditorMain.ButtonsListMouseUp(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
***************
*** 949,953 ****
  end;
  
! procedure TJvSpeedbarEditor.ButtonsListSelectCell(Sender: TObject;
    Col, Row: Longint; var CanSelect: Boolean);
  var
--- 949,953 ----
  end;
  
! procedure TJvSpeedbarEditorMain.ButtonsListSelectCell(Sender: TObject;
    Col, Row: Longint; var CanSelect: Boolean);
  var
***************
*** 972,976 ****
  end;
  
! procedure TJvSpeedbarEditor.FormCreate(Sender: TObject);
  begin
    FImage := TJvButtonImage.Create;
--- 972,976 ----
  end;
  
! procedure TJvSpeedbarEditorMain.FormCreate(Sender: TObject);
  begin
    FImage := TJvButtonImage.Create;
***************
*** 983,992 ****
  end;
  
! procedure TJvSpeedbarEditor.FormDestroy(Sender: TObject);
  begin
    FImage.Free;
  end;
  
! procedure TJvSpeedbarEditor.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
    Action := caFree;
--- 983,992 ----
  end;
  
! procedure TJvSpeedbarEditorMain.FormDestroy(Sender: TObject);
  begin
    FImage.Free;
  end;
  
! procedure TJvSpeedbarEditorMain.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
    Action := caFree;
***************
*** 1002,1006 ****
  end;
  
! procedure TJvSpeedbarEditor.SectionNameKeyDown(Sender: TObject;
    var Key: Word; Shift: TShiftState);
  begin
--- 1002,1006 ----
  end;
  
! procedure TJvSpeedbarEditorMain.SectionNameKeyDown(Sender: TObject;
    var Key: Word; Shift: TShiftState);
  begin
***************
*** 1013,1017 ****
  end;
  
! procedure TJvSpeedbarEditor.ButtonsListDrawCell(Sender: TObject; Col,
    Row: Longint; Rect: TRect; State: TGridDrawState);
  var
--- 1013,1017 ----
  end;
  
! procedure TJvSpeedbarEditorMain.ButtonsListDrawCell(Sender: TObject; Col,
    Row: Longint; Rect: TRect; State: TGridDrawState);
  var
***************
*** 1023,1027 ****
  end;
  
! procedure TJvSpeedbarEditor.SectionListMouseDown(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
--- 1023,1027 ----
  end;
  
! procedure TJvSpeedbarEditorMain.SectionListMouseDown(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
***************
*** 1037,1041 ****
  end;
  
! procedure TJvSpeedbarEditor.SectionListDragDrop(Sender, Source: TObject; X,
    Y: Integer);
  var
--- 1037,1041 ----
  end;
  
! procedure TJvSpeedbarEditorMain.SectionListDragDrop(Sender, Source: TObject; X,
    Y: Integer);
  var
***************
*** 1053,1057 ****
  end;
  
! procedure TJvSpeedbarEditor.SectionListDragOver(Sender, Source: TObject; X,
    Y: Integer; State: TDragState; var Accept: Boolean);
  var
--- 1053,1057 ----
  end;
  
! procedure TJvSpeedbarEditorMain.SectionListDragOver(Sender, Source: TObject; X,
    Y: Integer; State: TDragState; var Accept: Boolean);
  var
***************
*** 1062,1066 ****
  end;
  
! procedure TJvSpeedbarEditor.FormShow(Sender: TObject);
  begin
    if FBar <> nil then
--- 1062,1066 ----
  end;
  
! procedure TJvSpeedbarEditorMain.FormShow(Sender: TObject);
  begin
    if FBar <> nil then

Index: JvQCtrlsReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQCtrlsReg.pas,v
retrieving revision 1.44
retrieving revision 1.45
diff -C2 -d -r1.44 -r1.45
*** JvQCtrlsReg.pas	14 Nov 2004 19:33:12 -0000	1.44
--- JvQCtrlsReg.pas	25 Dec 2004 13:20:43 -0000	1.45
***************
*** 122,126 ****
    RegisterComponentEditor(TJvImageListBox, TJvItemsEditor);
    RegisterComponentEditor(TJvImageComboBox, TJvItemsEditor);
!   RegisterComponentEditor(TJvSpeedBar, TJvSpeedbarCompEditor);
  
    RegisterNoIcon([TJvSpeedItem, TJvSpeedbarSection]);
--- 122,126 ----
    RegisterComponentEditor(TJvImageListBox, TJvItemsEditor);
    RegisterComponentEditor(TJvImageComboBox, TJvItemsEditor);
!   RegisterComponentEditor(TJvSpeedBar, TJvSpeedbarEditor);
  
    RegisterNoIcon([TJvSpeedItem, TJvSpeedbarSection]);

Index: JvQSpeedbarForm.xfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQSpeedbarForm.xfm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** JvQSpeedbarForm.xfm	6 Apr 2004 23:03:38 -0000	1.4
--- JvQSpeedbarForm.xfm	25 Dec 2004 13:20:43 -0000	1.5
***************
*** 1,9 ****
! object JvSpeedbarEditor: TJvSpeedbarEditor
    Left = 393
    Top = 299
    Width = 437
    Height = 285
-   HorzScrollBar.Range = 434
    VertScrollBar.Range = 281
    ActiveControl = SectionList
    BorderIcons = [biSystemMenu, biMinimize]
--- 1,9 ----
! object JvSpeedbarEditorMain: TJvSpeedbarEditorMain
    Left = 393
    Top = 299
    Width = 437
    Height = 285
    VertScrollBar.Range = 281
+   HorzScrollBar.Range = 434
    ActiveControl = SectionList
    BorderIcons = [biSystemMenu, biMinimize]
***************
*** 50,58 ****
    OnDestroy = FormDestroy
    OnShow = FormShow
!   PixelsPerInch = 113
    object SectionNameLabel: TLabel
      Left = 180
      Top = 10
!     Width = 68
      Height = 13
      Caption = '&Section name: '
--- 50,58 ----
    OnDestroy = FormDestroy
    OnShow = FormShow
!   PixelsPerInch = 96
    object SectionNameLabel: TLabel
      Left = 180
      Top = 10
!     Width = 71
      Height = 13
      Caption = '&Section name: '

Index: JvQValidatorsReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qdesign/JvQValidatorsReg.pas,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** JvQValidatorsReg.pas	7 Sep 2004 23:15:19 -0000	1.13
--- JvQValidatorsReg.pas	25 Dec 2004 13:20:43 -0000	1.14
***************
*** 59,63 ****
      TJvRangeValidator, TJvRegularExpressionValidator, TJvCustomValidator, TJvControlsCompareValidator]);
  
!   RegisterComponentEditor(TJvValidators, TJvValidatorComponent);
    RegisterPropertyEditor(TypeInfo(Integer), TJvErrorIndicator,
      'ImageIndex', TJvDefaultImageIndexProperty);
--- 59,63 ----
      TJvRangeValidator, TJvRegularExpressionValidator, TJvCustomValidator, TJvControlsCompareValidator]);
  
!   RegisterComponentEditor(TJvValidators, TJvValidatorEditor);
    RegisterPropertyEditor(TypeInfo(Integer), TJvErrorIndicator,
      'ImageIndex', TJvDefaultImageIndexProperty);