|
From: Robert M. <mar...@us...> - 2004-12-25 13:20:56
|
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); |