Menu
▾
▴
[JVCL-Checkins] SF.net SVN: jvcl:[12741] trunk/jvcl/run
|
From: <ah...@us...> - 2010-04-02 10:43:22
|
Revision: 12741
http://jvcl.svn.sourceforge.net/jvcl/?rev=12741&view=rev
Author: ahuser
Date: 2010-04-02 10:43:13 +0000 (Fri, 02 Apr 2010)
Log Message:
-----------
Remove unnecessary space from "ReplaceComponentReference ("
Modified Paths:
--------------
trunk/jvcl/run/JvActionsEngine.pas
trunk/jvcl/run/JvAppAnimatedIcon.pas
trunk/jvcl/run/JvAppStorage.pas
trunk/jvcl/run/JvAppStorageSelectList.pas
trunk/jvcl/run/JvAutoComplete.pas
trunk/jvcl/run/JvBDEProgress.pas
trunk/jvcl/run/JvBDESecurity.pas
trunk/jvcl/run/JvBalloonHint.pas
trunk/jvcl/run/JvBandForms.pas
trunk/jvcl/run/JvBaseDBDialog.pas
trunk/jvcl/run/JvButton.pas
trunk/jvcl/run/JvCSVBaseControls.pas
trunk/jvcl/run/JvComboListBox.pas
trunk/jvcl/run/JvControlPanelButton.pas
trunk/jvcl/run/JvDBActions.pas
trunk/jvcl/run/JvDBRemoteLogin.pas
trunk/jvcl/run/JvDSADialogs.pas
trunk/jvcl/run/JvDesktopAlert.pas
trunk/jvcl/run/JvDockControlForm.pas
trunk/jvcl/run/JvDragDrop.pas
trunk/jvcl/run/JvDriveCtrls.pas
trunk/jvcl/run/JvDualList.pas
trunk/jvcl/run/JvEmbeddedForms.pas
trunk/jvcl/run/JvErrorIndicator.pas
trunk/jvcl/run/JvFixedEditPopUp.pas
trunk/jvcl/run/JvFormAnimatedIcon.pas
trunk/jvcl/run/JvFormPlacementSelectList.pas
trunk/jvcl/run/JvFullColorCtrls.pas
trunk/jvcl/run/JvGradientCaption.pas
trunk/jvcl/run/JvHLEditor.pas
trunk/jvcl/run/JvHLEditorPropertyForm.pas
trunk/jvcl/run/JvInspector.pas
trunk/jvcl/run/JvLabel.pas
trunk/jvcl/run/JvLookOut.pas
trunk/jvcl/run/JvMRUManager.pas
trunk/jvcl/run/JvMTComponents.pas
trunk/jvcl/run/JvMenus.pas
trunk/jvcl/run/JvMergeManager.pas
trunk/jvcl/run/JvNavigationPane.pas
trunk/jvcl/run/JvPageManager.pas
trunk/jvcl/run/JvParameterList.pas
trunk/jvcl/run/JvParameterListParameter.pas
trunk/jvcl/run/JvProgramVersionCheck.pas
trunk/jvcl/run/JvPropertyStore.pas
trunk/jvcl/run/JvPropertyStoreEditor.pas
trunk/jvcl/run/JvPrvwRender.pas
trunk/jvcl/run/JvRegistryTreeview.pas
trunk/jvcl/run/JvRollOut.pas
trunk/jvcl/run/JvScheduledEvents.pas
trunk/jvcl/run/JvSimLogic.pas
trunk/jvcl/run/JvSimPID.pas
trunk/jvcl/run/JvSpeedButton.pas
trunk/jvcl/run/JvSpin.pas
trunk/jvcl/run/JvStaticText.pas
trunk/jvcl/run/JvStatusBar.pas
trunk/jvcl/run/JvSyncSplitter.pas
trunk/jvcl/run/JvSystemPopup.pas
trunk/jvcl/run/JvTFGlance.pas
trunk/jvcl/run/JvTMTimeLine.pas
trunk/jvcl/run/JvTabBar.pas
trunk/jvcl/run/JvThread.pas
trunk/jvcl/run/JvTipOfDay.pas
trunk/jvcl/run/JvToolEdit.pas
trunk/jvcl/run/JvTrayIcon.pas
trunk/jvcl/run/JvUnicodeHLEditor.pas
trunk/jvcl/run/JvValidators.pas
trunk/jvcl/run/JvVersionControlActions.pas
trunk/jvcl/run/JvXPButtons.pas
trunk/jvcl/run/JvXPCore.pas
trunk/jvcl/run/JvgAskListBox.pas
trunk/jvcl/run/JvgCheckBox.pas
trunk/jvcl/run/JvgCrossTable.pas
trunk/jvcl/run/JvgImage.pas
trunk/jvcl/run/JvgLabel.pas
trunk/jvcl/run/JvgListBox.pas
trunk/jvcl/run/JvgReportParamsEditor.pas
trunk/jvcl/run/JvgShadow.pas
Modified: trunk/jvcl/run/JvActionsEngine.pas
===================================================================
--- trunk/jvcl/run/JvActionsEngine.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvActionsEngine.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -233,7 +233,7 @@
else
intValue := nil;
Changed := FActionComponent <> intValue;
- ReplaceComponentReference (Self, intValue, FActionComponent);
+ ReplaceComponentReference(Self, intValue, FActionComponent);
if changed then
ChangeActionComponent(FActionComponent);
end;
Modified: trunk/jvcl/run/JvAppAnimatedIcon.pas
===================================================================
--- trunk/jvcl/run/JvAppAnimatedIcon.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvAppAnimatedIcon.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -128,7 +128,7 @@
procedure TJvAppAnimatedIcon.SetIcons(const Value: TImageList);
begin
- ReplaceComponentReference (Self, Value, TComponent(FIcons));
+ ReplaceComponentReference(Self, Value, TComponent(FIcons));
end;
{$IFDEF UNITVERSIONING}
Modified: trunk/jvcl/run/JvAppStorage.pas
===================================================================
--- trunk/jvcl/run/JvAppStorage.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvAppStorage.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -3188,7 +3188,7 @@
procedure TJvCustomAppStorage.SetTranslateStringEngine(const Value: TJvTranslateString);
begin
- ReplaceComponentReference (Self, Value, TComponent(FTranslateStringEngine));
+ ReplaceComponentReference(Self, Value, TComponent(FTranslateStringEngine));
end;
function TJvCustomAppStorage.ReadWideString(const Path: string;
@@ -3448,7 +3448,7 @@
begin
if (Value <> nil) and (Value.HasSubStorage(OwnerStore) or (Value = OwnerStore)) then
raise EJVCLAppStorageError.CreateRes(@RsECircularReferenceOfStorages);
- ReplaceComponentReference (OwnerStore, Value, TComponent(FAppstorage));
+ ReplaceComponentReference(OwnerStore, Value, TComponent(FAppstorage));
end;
end;
Modified: trunk/jvcl/run/JvAppStorageSelectList.pas
===================================================================
--- trunk/jvcl/run/JvAppStorageSelectList.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvAppStorageSelectList.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -147,7 +147,7 @@
procedure TJvAppStorageSelectList.SetAppStorage(Value: TJvCustomAppStorage);
begin
- ReplaceComponentReference (Self, Value, TComponent(FAppStorage));
+ ReplaceComponentReference(Self, Value, TComponent(FAppStorage));
end;
procedure TJvAppStorageSelectList.SetSelectPath(Value: string);
Modified: trunk/jvcl/run/JvAutoComplete.pas
===================================================================
--- trunk/jvcl/run/JvAutoComplete.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvAutoComplete.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -472,7 +472,7 @@
procedure TJvBaseEditListAutoComplete.SetEditCtrl(Value: TCustomEdit);
begin
- ReplaceComponentReference (Self, Value, TComponent(FEditCtrl));
+ ReplaceComponentReference(Self, Value, TComponent(FEditCtrl));
if FEditCtrl <> nil then
SetFilter(FEditCtrl.Text)
@@ -609,7 +609,7 @@
procedure TJvEditListBoxAutoComplete.SetListBox(Value: TCustomListBox);
begin
- ReplaceComponentReference (Self, Value, TComponent(FListBox));
+ ReplaceComponentReference(Self, Value, TComponent(FListBox));
if FListBox <> nil then
List := FListBox.Items
@@ -870,7 +870,7 @@
begin
if Value <> FListBox then
begin
- ReplaceComponentReference (Self, Value, TComponent(FListBox));
+ ReplaceComponentReference(Self, Value, TComponent(FListBox));
if Kind = akListBox then
begin
if FListBox <> nil then
Modified: trunk/jvcl/run/JvBDEProgress.pas
===================================================================
--- trunk/jvcl/run/JvBDEProgress.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvBDEProgress.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -518,12 +518,12 @@
procedure TJvDBProgress.SetMessageControl(Value: TControl);
begin
- ReplaceComponentReference (Self, Value, TComponent(FMessageControl));
+ ReplaceComponentReference(Self, Value, TComponent(FMessageControl));
end;
procedure TJvDBProgress.SetGauge(Value: TControl);
begin
- ReplaceComponentReference (Self, Value, TComponent(FGauge));
+ ReplaceComponentReference(Self, Value, TComponent(FGauge));
end;
procedure TJvDBProgress.Notification(AComponent: TComponent; AOperation: TOperation);
Modified: trunk/jvcl/run/JvBDESecurity.pas
===================================================================
--- trunk/jvcl/run/JvBDESecurity.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvBDESecurity.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -136,7 +136,7 @@
procedure TJvDBSecurity.SetDatabase(Value: TDatabase);
begin
- ReplaceComponentReference (Self, Value, TComponent(FDatabase));
+ ReplaceComponentReference(Self, Value, TComponent(FDatabase));
end;
procedure TJvDBSecurity.SetUsersTableName(const Value: TFileName);
Modified: trunk/jvcl/run/JvBalloonHint.pas
===================================================================
--- trunk/jvcl/run/JvBalloonHint.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvBalloonHint.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1661,7 +1661,7 @@
procedure TJvBalloonHint.SetImages(const Value: TCustomImageList);
begin
- ReplaceComponentReference (Self, Value, TComponent(FImages));
+ ReplaceComponentReference(Self, Value, TComponent(FImages));
end;
procedure TJvBalloonHint.SetOptions(const Value: TJvBalloonOptions);
Modified: trunk/jvcl/run/JvBandForms.pas
===================================================================
--- trunk/jvcl/run/JvBandForms.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvBandForms.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -382,7 +382,7 @@
procedure TJvBandForm.SetContextMenu(const Value: TPopupMenu);
begin
- ReplaceComponentReference (Self, Value, TComponent(FBandContextMenu));
+ ReplaceComponentReference(Self, Value, TComponent(FBandContextMenu));
end;
procedure TJvBandForm.Notification(AComponent: TComponent;
Modified: trunk/jvcl/run/JvBaseDBDialog.pas
===================================================================
--- trunk/jvcl/run/JvBaseDBDialog.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvBaseDBDialog.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -137,7 +137,7 @@
procedure TJvBaseDBDialog.SetAppStorage(Value: TJvCustomAppStorage);
begin
- ReplaceComponentReference (self, Value, TComponent(FAppStorage));
+ ReplaceComponentReference(self, Value, TComponent(FAppStorage));
end;
procedure TJvBaseDBDialog.SetAppStoragePath(Value: string);
@@ -148,7 +148,7 @@
procedure TJvBaseDBDialog.SetSession(const Value: TComponent);
begin
- ReplaceComponentReference (self, Value, FSession);
+ ReplaceComponentReference(self, Value, FSession);
end;
{$IFDEF UNITVERSIONING}
Modified: trunk/jvcl/run/JvButton.pas
===================================================================
--- trunk/jvcl/run/JvButton.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvButton.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -577,7 +577,7 @@
procedure TJvCustomGraphicButton.SetDropDownMenu(const Value: TPopupMenu);
begin
- if ReplaceComponentReference (Self, Value, TComponent(FDropDownMenu)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FDropDownMenu)) then
if DropArrow then
Invalidate;
end;
Modified: trunk/jvcl/run/JvCSVBaseControls.pas
===================================================================
--- trunk/jvcl/run/JvCSVBaseControls.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvCSVBaseControls.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -650,7 +650,7 @@
procedure TJvCSVEdit.SetCSVDataBase(const Value: TJvCSVBase);
begin
- ReplaceComponentReference (Self, Value, TComponent(FCSVDataBase));
+ ReplaceComponentReference(Self, Value, TComponent(FCSVDataBase));
end;
procedure TJvCSVEdit.SetCSVField(const Value: string);
@@ -791,7 +791,7 @@
procedure TJvCSVNavigator.SetCSVDataBase(const Value: TJvCSVBase);
begin
- ReplaceComponentReference (Self, Value, TComponent(FCSVDataBase));
+ ReplaceComponentReference(Self, Value, TComponent(FCSVDataBase));
end;
//=== { TJvCSVComboBox } =====================================================
@@ -809,7 +809,7 @@
procedure TJvCSVComboBox.SetCSVDataBase(const Value: TJvCSVBase);
begin
- ReplaceComponentReference (Self, Value, TComponent(FCSVDataBase));
+ ReplaceComponentReference(Self, Value, TComponent(FCSVDataBase));
end;
procedure TJvCSVComboBox.SetCSVField(const Value: string);
@@ -837,7 +837,7 @@
procedure TJvCSVCheckBox.SetCSVDataBase(const Value: TJvCSVBase);
begin
- ReplaceComponentReference (Self, Value, TComponent(FCSVDataBase));
+ ReplaceComponentReference(Self, Value, TComponent(FCSVDataBase));
end;
procedure TJvCSVCheckBox.SetCSVField(const Value: string);
Modified: trunk/jvcl/run/JvComboListBox.pas
===================================================================
--- trunk/jvcl/run/JvComboListBox.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvComboListBox.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -628,7 +628,7 @@
procedure TJvComboListBox.SetDropdownMenu(const Value: TPopupMenu);
begin
- ReplaceComponentReference (Self, Value, TComponent(FDropdownMenu));
+ ReplaceComponentReference(Self, Value, TComponent(FDropdownMenu));
end;
{$IFDEF UNITVERSIONING}
Modified: trunk/jvcl/run/JvControlPanelButton.pas
===================================================================
--- trunk/jvcl/run/JvControlPanelButton.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvControlPanelButton.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -177,7 +177,7 @@
procedure TJvControlPanelButton.SetImages(const Value: TCustomImageList);
begin
- if ReplaceComponentReference (Self, Value, TComponent(FImages)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FImages)) then
Refresh;
end;
Modified: trunk/jvcl/run/JvDBActions.pas
===================================================================
--- trunk/jvcl/run/JvDBActions.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvDBActions.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -554,7 +554,7 @@
var
I: Integer;
begin
- if ReplaceComponentReference (Self, Value, FDataComponent) then
+ if ReplaceComponentReference(Self, Value, FDataComponent) then
begin
for I := 0 to ActionCount - 1 do
if Actions[I] is TJvDatabaseBaseAction then
@@ -1196,7 +1196,7 @@
procedure TJvDatabaseInsertAction.SetSingleRecordWindowAction(const Value:
TJvDatabaseSingleRecordWindowAction);
begin
- ReplaceComponentReference (Self, Value, TComponent(FSingleRecordWindowAction));
+ ReplaceComponentReference(Self, Value, TComponent(FSingleRecordWindowAction));
end;
procedure TJvDatabaseInsertAction.SingleRecordOnFormShowEvent(ADatacomponent :
@@ -1290,7 +1290,7 @@
procedure TJvDatabaseCopyAction.SetSingleRecordWindowAction(const Value:
TJvDatabaseSingleRecordWindowAction);
begin
- ReplaceComponentReference (Self, Value, TComponent(FSingleRecordWindowAction));
+ ReplaceComponentReference(Self, Value, TComponent(FSingleRecordWindowAction));
end;
procedure TJvDatabaseCopyAction.SingleRecordOnFormShowEvent(ADatacomponent :
@@ -1335,7 +1335,7 @@
procedure TJvDatabaseEditAction.SetSingleRecordWindowAction(const Value:
TJvDatabaseSingleRecordWindowAction);
begin
- ReplaceComponentReference (Self, Value, TComponent(FSingleRecordWindowAction));
+ ReplaceComponentReference(Self, Value, TComponent(FSingleRecordWindowAction));
end;
procedure TJvDatabaseEditAction.SingleRecordOnFormShowEvent(ADatacomponent :
Modified: trunk/jvcl/run/JvDBRemoteLogin.pas
===================================================================
--- trunk/jvcl/run/JvDBRemoteLogin.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvDBRemoteLogin.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -159,7 +159,7 @@
if FRemoteServer <> Value then
begin
UnprepareRemoteServer;
- ReplaceComponentReference (Self, Value, TComponent(FRemoteServer));
+ ReplaceComponentReference(Self, Value, TComponent(FRemoteServer));
if FRemoteServer <> nil then
if not (csLoading in ComponentState) then
PrepareRemoteServer;
Modified: trunk/jvcl/run/JvDSADialogs.pas
===================================================================
--- trunk/jvcl/run/JvDSADialogs.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvDSADialogs.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -2449,7 +2449,7 @@
procedure TJvDSADialog.SetCheckControl(Value: TWinControl);
begin
- if ReplaceComponentReference (Self, Value, TComponent(FCheckControl)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FCheckControl)) then
if Value <> nil then
begin
if GetPropInfo(Value, 'Checked') = nil then
Modified: trunk/jvcl/run/JvDesktopAlert.pas
===================================================================
--- trunk/jvcl/run/JvDesktopAlert.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvDesktopAlert.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -975,7 +975,7 @@
procedure TJvDesktopAlert.SetImages(const Value: TCustomImageList);
begin
- ReplaceComponentReference (Self, Value, TComponent(FImages));
+ ReplaceComponentReference(Self, Value, TComponent(FImages));
end;
procedure TJvDesktopAlert.SetMessageText(const Value: string);
@@ -1727,7 +1727,7 @@
procedure TJvCustomDesktopAlert.SetAlertStack(const Value: TJvDesktopAlertStack);
begin
- if ReplaceComponentReference (Self, Value, TComponent(FStacker)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FStacker)) then
if FStacker <> nil then
Location.Position := FStacker.Position;
end;
Modified: trunk/jvcl/run/JvDockControlForm.pas
===================================================================
--- trunk/jvcl/run/JvDockControlForm.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvDockControlForm.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -2322,7 +2322,7 @@
RemoveDockStyle(FDockStyle);
end;
- ReplaceComponentReference (Self, ADockStyle, TComponent(FDockStyle));
+ ReplaceComponentReference(Self, ADockStyle, TComponent(FDockStyle));
if FDockStyle <> nil then
begin
@@ -3353,7 +3353,7 @@
Supports(TWinControlAccessProtected(FLastDockSite).DockManager, IJvDockManager, JvDockManager) then
JvDockManager.RemoveControl(Self.ParentForm);
end;
- ReplaceComponentReference (Self, ALastDockSite, TComponent(FLastDockSite));
+ ReplaceComponentReference(Self, ALastDockSite, TComponent(FLastDockSite));
end;
end;
@@ -3372,7 +3372,7 @@
procedure TJvDockClient.SetNCPopupMenu(Value: TPopupMenu);
begin
- ReplaceComponentReference (Self, Value, TComponent(FNCPopupMenu));
+ ReplaceComponentReference(Self, Value, TComponent(FNCPopupMenu));
end;
procedure TJvDockClient.SetParentVisible(const Value: Boolean);
Modified: trunk/jvcl/run/JvDragDrop.pas
===================================================================
--- trunk/jvcl/run/JvDragDrop.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvDragDrop.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -333,7 +333,7 @@
{ This will implicitly unhook the current DropTarget }
AcceptDrag := False;
- ReplaceComponentReference (Self, Value, TComponent(FDropTarget));
+ ReplaceComponentReference(Self, Value, TComponent(FDropTarget));
if WasActive then
{ And hook again.. }
@@ -560,7 +560,7 @@
if Value <> FControl then
begin
UnregisterControl;
- ReplaceComponentReference (Self, Value, TComponent(FControl));
+ ReplaceComponentReference(Self, Value, TComponent(FControl));
RegisterControl;
end;
end;
Modified: trunk/jvcl/run/JvDriveCtrls.pas
===================================================================
--- trunk/jvcl/run/JvDriveCtrls.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvDriveCtrls.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1166,14 +1166,14 @@
begin
if FFileList <> nil then
FFileList.FDirList := nil;
- ReplaceComponentReference (Self, Value, TComponent(FFileList));
+ ReplaceComponentReference(Self, Value, TComponent(FFileList));
if FFileList <> nil then
FFileList.Directory := Directory;
end;
procedure TJvDirectoryListBox.SetDirLabel(Value: TLabel);
begin
- ReplaceComponentReference (Self, Value, TComponent(FDirLabel));
+ ReplaceComponentReference(Self, Value, TComponent(FDirLabel));
SetDirLabelCaption;
end;
@@ -1495,7 +1495,7 @@
begin
if FDriveCombo <> nil then
FDriveCombo.FDirList := nil;
- ReplaceComponentReference (Self, Value, TComponent(FDriveCombo));
+ ReplaceComponentReference(Self, Value, TComponent(FDriveCombo));
if FDriveCombo <> nil then
begin
FDriveCombo.FDirList := Self;
Modified: trunk/jvcl/run/JvDualList.pas
===================================================================
--- trunk/jvcl/run/JvDualList.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvDualList.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -140,7 +140,7 @@
procedure TJvDualListDialog.SetCenterOnControl(const Value: TControl);
begin
- ReplaceComponentReference (Self, Value, TComponent(FCenterOnControl));
+ ReplaceComponentReference(Self, Value, TComponent(FCenterOnControl));
end;
procedure TJvDualListDialog.SetList1(Value: TStrings);
Modified: trunk/jvcl/run/JvEmbeddedForms.pas
===================================================================
--- trunk/jvcl/run/JvEmbeddedForms.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvEmbeddedForms.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -269,7 +269,7 @@
raise Exception.CreateRes(@RsELinkCircularRef)
else
begin
- ReplaceComponentReference (Self, Value, TComponent(FLink));
+ ReplaceComponentReference(Self, Value, TComponent(FLink));
InitLinkedForm;
end;
end;
Modified: trunk/jvcl/run/JvErrorIndicator.pas
===================================================================
--- trunk/jvcl/run/JvErrorIndicator.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvErrorIndicator.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -715,7 +715,7 @@
procedure TJvErrorControl.SetImageList(const Value: TCustomImageList);
begin
- if ReplaceComponentReference (Self, Value, TComponent(FImageList)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FImageList)) then
begin
if FImageList <> nil then
BoundsRect := CalcBoundsRect
@@ -729,7 +729,7 @@
begin
if FControl <> Value then
begin
- ReplaceComponentReference (Self, Value, TComponent(FControl));
+ ReplaceComponentReference(Self, Value, TComponent(FControl));
if FControl <> nil then
Parent := FControl.Parent
else
Modified: trunk/jvcl/run/JvFixedEditPopUp.pas
===================================================================
--- trunk/jvcl/run/JvFixedEditPopUp.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvFixedEditPopUp.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -501,7 +501,7 @@
procedure THiddenPopupObject.SetEdit(const Value: TWinControl);
begin
- ReplaceComponentReference (Self, Value, TComponent(FEdit));
+ ReplaceComponentReference(Self, Value, TComponent(FEdit));
end;
procedure THiddenPopupObject.Notification(AComponent: TComponent;
Modified: trunk/jvcl/run/JvFormAnimatedIcon.pas
===================================================================
--- trunk/jvcl/run/JvFormAnimatedIcon.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvFormAnimatedIcon.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -140,7 +140,7 @@
procedure TJvFormAnimatedIcon.SetIcons(const Value: TImageList);
begin
- ReplaceComponentReference (Self, Value, TComponent(FIcons));
+ ReplaceComponentReference(Self, Value, TComponent(FIcons));
end;
{$IFDEF UNITVERSIONING}
Modified: trunk/jvcl/run/JvFormPlacementSelectList.pas
===================================================================
--- trunk/jvcl/run/JvFormPlacementSelectList.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvFormPlacementSelectList.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -65,7 +65,7 @@
procedure TJvFormStorageSelectList.SetFormStorage(Value: TJvFormStorage);
begin
- ReplaceComponentReference (Self, Value, TComponent(FFormStorage));
+ ReplaceComponentReference(Self, Value, TComponent(FFormStorage));
end;
function TJvFormStorageSelectList.GetAppStorage: TJvCustomAppStorage;
Modified: trunk/jvcl/run/JvFullColorCtrls.pas
===================================================================
--- trunk/jvcl/run/JvFullColorCtrls.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvFullColorCtrls.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1294,7 +1294,7 @@
FColorTrackBar.FreeLink;
end;
- ReplaceComponentReference (Self, Value, TComponent(FColorTrackBar));
+ ReplaceComponentReference(Self, Value, TComponent(FColorTrackBar));
if Assigned(FColorTrackBar) then
begin
@@ -2073,7 +2073,7 @@
FBlueColorTrackBar.FreeLink;
end;
- ReplaceComponentReference (Self, Value, TComponent(FBlueColorTrackBar));
+ ReplaceComponentReference(Self, Value, TComponent(FBlueColorTrackBar));
if Assigned(FBlueColorTrackBar) then
begin
@@ -2097,7 +2097,7 @@
FGreenColorTrackBar.FreeLink;
end;
- ReplaceComponentReference (Self, Value, TComponent(FGreenColorTrackBar));
+ ReplaceComponentReference(Self, Value, TComponent(FGreenColorTrackBar));
if Assigned(FGreenColorTrackBar) then
begin
@@ -2121,7 +2121,7 @@
FRedColorTrackBar.FreeLink;
end;
- ReplaceComponentReference (Self, Value, TComponent(FRedColorTrackBar));
+ ReplaceComponentReference(Self, Value, TComponent(FRedColorTrackBar));
if Assigned(FRedColorTrackBar) then
begin
@@ -2145,7 +2145,7 @@
FCommonColorTrackBar.FreeLink;
end;
- ReplaceComponentReference (Self, Value, TComponent(FCommonColorTrackBar));
+ ReplaceComponentReference(Self, Value, TComponent(FCommonColorTrackBar));
if Assigned(FCommonColorTrackBar) then
begin
Modified: trunk/jvcl/run/JvGradientCaption.pas
===================================================================
--- trunk/jvcl/run/JvGradientCaption.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvGradientCaption.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -490,7 +490,7 @@
procedure TJvGradientCaption.SetPopupMenu(Value: TPopupMenu);
begin
- ReplaceComponentReference (Self, Value, TComponent(FPopupMenu));
+ ReplaceComponentReference(Self, Value, TComponent(FPopupMenu));
end;
procedure TJvGradientCaption.SetCaptions(Value: TJvCaptionList);
Modified: trunk/jvcl/run/JvHLEditor.pas
===================================================================
--- trunk/jvcl/run/JvHLEditor.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvHLEditor.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1874,7 +1874,7 @@
if FHighlighter = hlSyntaxHighlighter then
FHighlighter := hlNone;
- ReplaceComponentReference (Self, Value, TComponent(FSyntaxHighlighter));
+ ReplaceComponentReference(Self, Value, TComponent(FSyntaxHighlighter));
RescanLong(0);
Invalidate;
end;
Modified: trunk/jvcl/run/JvHLEditorPropertyForm.pas
===================================================================
--- trunk/jvcl/run/JvHLEditorPropertyForm.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvHLEditorPropertyForm.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -591,7 +591,7 @@
var
HLed: IJvHLEditor;
begin
- if ReplaceComponentReference (Self, Value, TComponent(FJvHLEditor)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FJvHLEditor)) then
if Value <> nil then
begin
if Value.GetInterface(IJvHLEditor, HLed) then
@@ -601,7 +601,7 @@
procedure TJvHLEdPropDlg.SetStorage(const Value: TJvFormStorage);
begin
- ReplaceComponentReference (Self, Value, TComponent(FStorage));
+ ReplaceComponentReference(Self, Value, TComponent(FStorage));
end;
//=== { TJvHLEditorParamsForm } ==============================================
Modified: trunk/jvcl/run/JvInspector.pas
===================================================================
--- trunk/jvcl/run/JvInspector.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvInspector.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -3628,7 +3628,7 @@
if Painter <> nil then
Painter.SetInspector(nil);
- ReplaceComponentReference (Self, Value, TComponent(FPainter));
+ ReplaceComponentReference(Self, Value, TComponent(FPainter));
if Painter <> nil then
begin
Modified: trunk/jvcl/run/JvLabel.pas
===================================================================
--- trunk/jvcl/run/JvLabel.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvLabel.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1047,7 +1047,7 @@
procedure TJvCustomLabel.SetFocusControl(Value: TWinControl);
begin
- ReplaceComponentReference (Self, Value, TComponent(FFocusControl));
+ ReplaceComponentReference(Self, Value, TComponent(FFocusControl));
if FShowFocus then
Invalidate;
end;
Modified: trunk/jvcl/run/JvLookOut.pas
===================================================================
--- trunk/jvcl/run/JvLookOut.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvLookOut.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1592,7 +1592,7 @@
procedure TJvCustomLookOutButton.SetPopupMenu(const Value: TPopupMenu);
begin
- ReplaceComponentReference (Self, Value, TComponent(FPopupMenu));
+ ReplaceComponentReference(Self, Value, TComponent(FPopupMenu));
end;
procedure TJvCustomLookOutButton.VisibleChanged;
Modified: trunk/jvcl/run/JvMRUManager.pas
===================================================================
--- trunk/jvcl/run/JvMRUManager.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvMRUManager.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -509,7 +509,7 @@
procedure TJvMRUManager.SetRecentMenu(Value: TMenuItem);
begin
ClearRecentMenu;
- ReplaceComponentReference (Self, Value, TComponent(FRecentMenu));
+ ReplaceComponentReference(Self, Value, TComponent(FRecentMenu));
FreeAndNil(FCanvas);
UpdateRecentMenu;
end;
Modified: trunk/jvcl/run/JvMTComponents.pas
===================================================================
--- trunk/jvcl/run/JvMTComponents.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvMTComponents.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -336,7 +336,7 @@
procedure TJvMTManagedComponent.SetManager(Value: TJvMTManager);
begin
- ReplaceComponentReference (Self, Value, TComponent(FManager));
+ ReplaceComponentReference(Self, Value, TComponent(FManager));
end;
//=== { TJvMTThread } ========================================================
Modified: trunk/jvcl/run/JvMenus.pas
===================================================================
--- trunk/jvcl/run/JvMenus.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvMenus.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1957,7 +1957,7 @@
if FItemPainter <> nil then
FItemPainter.Menu := nil;
- ReplaceComponentReference (Self, Value, TComponent(FItemPainter));
+ ReplaceComponentReference(Self, Value, TComponent(FItemPainter));
// set value and if not nil, setup the painter correctly
if FItemPainter <> nil then
begin
Modified: trunk/jvcl/run/JvMergeManager.pas
===================================================================
--- trunk/jvcl/run/JvMergeManager.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvMergeManager.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -177,7 +177,7 @@
procedure TJvMergeManager.SetMergeFrame(Value: TWinControl);
begin
- if ReplaceComponentReference (Self, Value, TComponent(FMergeFrame)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FMergeFrame)) then
FFormHistory.ResetHistory;
end;
Modified: trunk/jvcl/run/JvNavigationPane.pas
===================================================================
--- trunk/jvcl/run/JvNavigationPane.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvNavigationPane.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1258,7 +1258,7 @@
if FStyleManager <> nil then
FStyleManager.UnregisterChanges(FStyleLink);
- ReplaceComponentReference (Self, Value, TComponent(FStyleManager));
+ ReplaceComponentReference(Self, Value, TComponent(FStyleManager));
if FStyleManager <> nil then
begin
FStyleManager.RegisterChanges(FStyleLink);
@@ -1696,7 +1696,7 @@
ParentStyleManager := False;
if FStyleManager <> nil then
FStyleManager.UnregisterChanges(FStyleLink);
- ReplaceComponentReference (Self, Value, TComponent(FStyleManager));
+ ReplaceComponentReference(Self, Value, TComponent(FStyleManager));
if FStyleManager <> nil then
begin
FStyleManager.RegisterChanges(FStyleLink);
@@ -2181,7 +2181,7 @@
ParentStyleManager := False;
if FStyleManager <> nil then
FStyleManager.UnregisterChanges(FStyleLink);
- ReplaceComponentReference (Self, Value, TComponent(FStyleManager));
+ ReplaceComponentReference(Self, Value, TComponent(FStyleManager));
if FStyleManager <> nil then
begin
FStyleManager.RegisterChanges(FStyleLink);
@@ -2382,7 +2382,7 @@
if FStyleManager <> nil then
FStyleManager.UnregisterChanges(FStyleLink);
FStyleManager := Value;
- ReplaceComponentReference (Self, Value, TComponent(FStyleManager));
+ ReplaceComponentReference(Self, Value, TComponent(FStyleManager));
if FStyleManager <> nil then
begin
FStyleManager.RegisterChanges(FStyleLink);
@@ -2930,7 +2930,7 @@
if FStyleManager <> nil then
FStyleManager.UnregisterChanges(FStyleLink);
FStyleManager := Value;
- ReplaceComponentReference (Self, Value, TComponent(FStyleManager));
+ ReplaceComponentReference(Self, Value, TComponent(FStyleManager));
if FStyleManager <> nil then
begin
FStyleManager.RegisterChanges(FStyleLink);
@@ -2962,7 +2962,7 @@
begin
if (FIconPanel <> Value) and not (csDestroying in ComponentState) then
begin
- ReplaceComponentReference (Self, Value, TComponent(FIconPanel));
+ ReplaceComponentReference(Self, Value, TComponent(FIconPanel));
if IconButton <> nil then
if FIconPanel <> nil then
IconButton.Parent := FIconPanel
@@ -3276,7 +3276,7 @@
ParentStyleManager := False;
if FStyleManager <> nil then
FStyleManager.UnregisterChanges(FStyleLink);
- ReplaceComponentReference (Self, Value, tComponent(FStyleManager));
+ ReplaceComponentReference(Self, Value, tComponent(FStyleManager));
FStyleManager := Value;
if FStyleManager <> nil then
begin
@@ -3514,7 +3514,7 @@
ParentStyleManager := False;
if FStyleManager <> nil then
FStyleManager.UnregisterChanges(FStyleLink);
- ReplaceComponentReference (Self, Value, tComponent(FStyleManager));
+ ReplaceComponentReference(Self, Value, tComponent(FStyleManager));
if FStyleManager <> nil then
begin
FStyleManager.RegisterChanges(FStyleLink);
@@ -3712,7 +3712,7 @@
ParentStyleManager := False;
if FStyleManager <> nil then
FStyleManager.UnregisterChanges(FStyleLink);
- ReplaceComponentReference (Self, Value, tComponent(FStyleManager));
+ ReplaceComponentReference(Self, Value, tComponent(FStyleManager));
if FStyleManager <> nil then
begin
FStyleManager.RegisterChanges(FStyleLink);
@@ -4515,7 +4515,7 @@
ParentStyleManager := False;
if FStyleManager <> nil then
FStyleManager.UnregisterChanges(FStyleLink);
- ReplaceComponentReference (Self, Value, tComponent(FStyleManager));
+ ReplaceComponentReference(Self, Value, tComponent(FStyleManager));
if FStyleManager <> nil then
begin
FStyleManager.RegisterChanges(FStyleLink);
Modified: trunk/jvcl/run/JvPageManager.pas
===================================================================
--- trunk/jvcl/run/JvPageManager.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvPageManager.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -367,7 +367,7 @@
begin
if not (csLoading in ComponentState) then
SyncBtnClick(Index, False);
- ReplaceComponentReference (Self, Value, tComponent(FButtons[Boolean(Index)]));
+ ReplaceComponentReference(Self, Value, tComponent(FButtons[Boolean(Index)]));
if not (csLoading in ComponentState) then
SyncBtnClick(Index, True);
end;
@@ -445,7 +445,7 @@
procedure TJvPageManager.SetPageOwner(Value: TPageOwner);
begin
- if ReplaceComponentReference (Self, Value, tComponent(FPageOwner)) then
+ if ReplaceComponentReference(Self, Value, tComponent(FPageOwner)) then
begin
if not (csLoading in ComponentState) then
begin
Modified: trunk/jvcl/run/JvParameterList.pas
===================================================================
--- trunk/jvcl/run/JvParameterList.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvParameterList.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -968,7 +968,7 @@
begin
FJvDynControl := nil;
FJvDynControlCaption := nil;
- ReplaceComponentReference (Self, Value, TComponent(FWinControl));
+ ReplaceComponentReference(Self, Value, TComponent(FWinControl));
if not Assigned(Value) then
Exit;
Supports(FWinControl, IJvDynControl, FJvDynControl);
@@ -1151,7 +1151,7 @@
procedure TJvBaseParameter.SetParameterList(const Value: TJvParameterList);
begin
- ReplaceComponentReference (Self, Value, TComponent(FParameterList));
+ ReplaceComponentReference(Self, Value, TComponent(FParameterList));
end;
//=== { TJvParameterList } ===================================================
@@ -2163,7 +2163,7 @@
procedure TJvParameterListPropertyStore.SetParameterList(const Value: TJvParameterList);
begin
- ReplaceComponentReference (Self, Value, TComponent(FParameterList));
+ ReplaceComponentReference(Self, Value, TComponent(FParameterList));
end;
procedure TJvParameterListPropertyStore.StoreData;
@@ -2198,7 +2198,7 @@
procedure TJvParameterListSelectList.SetParameterList(Value: TJvParameterList);
begin
- ReplaceComponentReference (Self, Value, TComponent(FParameterList));
+ ReplaceComponentReference(Self, Value, TComponent(FParameterList));
end;
function TJvParameterListSelectList.GetAppStorage: TJvCustomAppStorage;
Modified: trunk/jvcl/run/JvParameterListParameter.pas
===================================================================
--- trunk/jvcl/run/JvParameterListParameter.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvParameterListParameter.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1290,7 +1290,7 @@
procedure TJvArrangeParameter.SetParentControl(const Value: TWinControl);
begin
- ReplaceComponentReference (Self, Value, TComponent(FParentControl));
+ ReplaceComponentReference(Self, Value, TComponent(FParentControl));
end;
//=== { TJvPanelParameter } ==================================================
Modified: trunk/jvcl/run/JvProgramVersionCheck.pas
===================================================================
--- trunk/jvcl/run/JvProgramVersionCheck.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvProgramVersionCheck.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1702,22 +1702,22 @@
procedure TJvProgramVersionCheck.SetLocationDatabase(const Value: TJvProgramVersionDatabaseLocation);
begin
- ReplaceComponentReference (Self, Value, TComponent(FLocationDatabase));
+ ReplaceComponentReference(Self, Value, TComponent(FLocationDatabase));
end;
procedure TJvProgramVersionCheck.SetLocationFTP(const Value: TJvProgramVersionFTPLocation);
begin
- ReplaceComponentReference (Self, Value, TComponent(FLocationFTP));
+ ReplaceComponentReference(Self, Value, TComponent(FLocationFTP));
end;
procedure TJvProgramVersionCheck.SetLocationHTTP(const Value: TJvProgramVersionHTTPLocation);
begin
- ReplaceComponentReference (Self, Value, TComponent(FLocationHTTP));
+ ReplaceComponentReference(Self, Value, TComponent(FLocationHTTP));
end;
procedure TJvProgramVersionCheck.SetLocationNetwork(const Value: TJvProgramVersionNetworkLocation);
begin
- ReplaceComponentReference (Self, Value, TComponent(FLocationNetwork));
+ ReplaceComponentReference(Self, Value, TComponent(FLocationNetwork));
end;
Modified: trunk/jvcl/run/JvPropertyStore.pas
===================================================================
--- trunk/jvcl/run/JvPropertyStore.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvPropertyStore.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -728,7 +728,7 @@
PropName: string;
PropertyStore: TJvCustomPropertyStore;
begin
- if ReplaceComponentReference (Self, Value, tComponent(FAppStorage)) then
+ if ReplaceComponentReference(Self, Value, tComponent(FAppStorage)) then
begin
for Index := 0 to GetPropCount(Self) - 1 do
begin
Modified: trunk/jvcl/run/JvPropertyStoreEditor.pas
===================================================================
--- trunk/jvcl/run/JvPropertyStoreEditor.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvPropertyStoreEditor.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1022,7 +1022,7 @@
Exit;
if Assigned(Value) and not Supports(Value, IJvPropertyEditorHandler) then
Raise Exception.Create ('TJvPropertyStoreEditorControl.SetPropertyStore : PropertyStore must support IJvPropertyEditorHandler');
- ReplaceComponentReference (Self, Value, TComponent(FPropertyStore));
+ ReplaceComponentReference(Self, Value, TComponent(FPropertyStore));
FillTreeView(Value);
end;
Modified: trunk/jvcl/run/JvPrvwRender.pas
===================================================================
--- trunk/jvcl/run/JvPrvwRender.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvPrvwRender.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -375,7 +375,7 @@
procedure TJvCustomPreviewRenderer.SetPrintPreview(
const Value: TJvCustomPreviewControl);
begin
- ReplaceComponentReference (Self, Value, tComponent(FPrintPreview));
+ ReplaceComponentReference(Self, Value, tComponent(FPrintPreview));
end;
//=== { TJvPreviewRenderRichEdit } ===========================================
@@ -454,7 +454,7 @@
procedure TJvPreviewRenderRichEdit.SetRichEdit(
const Value: TCustomRichEdit);
begin
- ReplaceComponentReference (Self, Value, tComponent(FRichEdit));
+ ReplaceComponentReference(Self, Value, tComponent(FRichEdit));
end;
//=== { TJvPreviewRenderJvRichEdit } =========================================
@@ -544,7 +544,7 @@
procedure TJvPreviewRenderJvRichEdit.SetRichEdit(const Value: TJvCustomRichEdit);
begin
- ReplaceComponentReference (Self, Value, tComponent(FRichEdit));
+ ReplaceComponentReference(Self, Value, tComponent(FRichEdit));
end;
//=== { TJvPreviewRenderStrings } ============================================
@@ -686,7 +686,7 @@
procedure TJvPreviewRenderControl.SetControl(const Value: TControl);
begin
- ReplaceComponentReference (Self, Value, tComponent(FControl));
+ ReplaceComponentReference(Self, Value, tComponent(FControl));
end;
procedure TJvPreviewRenderControl.DrawControl(ACanvas: TCanvas; AWidth, AHeight: Integer);
@@ -1017,7 +1017,7 @@
procedure TJvPreviewPrinter.SetPrintPreview(const Value: TJvCustomPreviewControl);
begin
CheckActive;
- ReplaceComponentReference (Self, Value, tComponent(FPrintPreview));
+ ReplaceComponentReference(Self, Value, tComponent(FPrintPreview));
end;
procedure TJvPreviewPrinter.SetTitle(const Value: string);
Modified: trunk/jvcl/run/JvRegistryTreeview.pas
===================================================================
--- trunk/jvcl/run/JvRegistryTreeview.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvRegistryTreeview.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -800,7 +800,7 @@
procedure TJvRegistryTreeView.SetListView(const Value: TCustomListView);
begin
- ReplaceComponentReference (Self, Value, TComponent(FListView));
+ ReplaceComponentReference(Self, Value, TComponent(FListView));
end;
{$IFDEF UNITVERSIONING}
Modified: trunk/jvcl/run/JvRollOut.pas
===================================================================
--- trunk/jvcl/run/JvRollOut.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvRollOut.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1228,7 +1228,7 @@
procedure TJvRollOutAction.SetRollOut(const Value: TJvCustomRollOut);
begin
- ReplaceComponentReference (Self, Value, TComponent(FRollOut));
+ ReplaceComponentReference(Self, Value, TComponent(FRollOut));
end;
procedure TJvRollOutAction.UpdateTarget(Target: TObject);
Modified: trunk/jvcl/run/JvScheduledEvents.pas
===================================================================
--- trunk/jvcl/run/JvScheduledEvents.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvScheduledEvents.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -519,7 +519,7 @@
procedure TJvCustomScheduledEvents.SetAppStorage(Value: TJvCustomAppStorage);
begin
- ReplaceComponentReference (Self, Value, TComponent(FAppStorage));
+ ReplaceComponentReference(Self, Value, TComponent(FAppStorage));
end;
procedure TJvCustomScheduledEvents.Notification(AComponent: TComponent; Operation: TOperation);
Modified: trunk/jvcl/run/JvSimLogic.pas
===================================================================
--- trunk/jvcl/run/JvSimLogic.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvSimLogic.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -823,7 +823,7 @@
procedure TJvSIMConnector.SetFromLogic(const Value: TJvLogic);
begin
- ReplaceComponentReference (Self, Value, TComponent(FFromLogic));
+ ReplaceComponentReference(Self, Value, TComponent(FFromLogic));
end;
procedure TJvSIMConnector.SetToGate(const Value: Integer);
@@ -833,7 +833,7 @@
procedure TJvSIMConnector.SetToLogic(const Value: TJvLogic);
begin
- ReplaceComponentReference (Self, Value, TComponent(FToLogic));
+ ReplaceComponentReference(Self, Value, TComponent(FToLogic));
end;
procedure TJvSIMConnector.SetFromPoint(const Value: TJvPointX);
Modified: trunk/jvcl/run/JvSimPID.pas
===================================================================
--- trunk/jvcl/run/JvSimPID.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvSimPID.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -332,7 +332,7 @@
procedure TJvSimPID.SetSource(const Value: TJvSimPID);
begin
- ReplaceComponentReference (Self, Value, TComponent(FSource));
+ ReplaceComponentReference(Self, Value, TComponent(FSource));
end;
procedure TJvSimPID.Execute;
Modified: trunk/jvcl/run/JvSpeedButton.pas
===================================================================
--- trunk/jvcl/run/JvSpeedButton.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvSpeedButton.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1445,7 +1445,7 @@
procedure TJvCustomSpeedButton.SetDropdownMenu(Value: TPopupMenu);
begin
- ReplaceComponentReference (Self, Value, TComponent(FDropDownMenu));
+ ReplaceComponentReference(Self, Value, TComponent(FDropDownMenu));
if FMarkDropDown then
Invalidate;
end;
Modified: trunk/jvcl/run/JvSpin.pas
===================================================================
--- trunk/jvcl/run/JvSpin.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvSpin.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1747,7 +1747,7 @@
procedure TJvSpinButton.SetFocusControl(Value: TWinControl);
begin
- ReplaceComponentReference (Self, Value, TComponent(FFocusControl));
+ ReplaceComponentReference(Self, Value, TComponent(FFocusControl));
end;
procedure TJvSpinButton.SetUpGlyph(Value: TBitmap);
Modified: trunk/jvcl/run/JvStaticText.pas
===================================================================
--- trunk/jvcl/run/JvStaticText.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvStaticText.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -411,7 +411,7 @@
procedure TJvCustomStaticText.SetFocusControl(Value: TWinControl);
begin
- ReplaceComponentReference (Self, Value, TComponent(FFocusControl));
+ ReplaceComponentReference(Self, Value, TComponent(FFocusControl));
end;
procedure TJvCustomStaticText.SetShowAccelChar(Value: Boolean);
Modified: trunk/jvcl/run/JvStatusBar.pas
===================================================================
--- trunk/jvcl/run/JvStatusBar.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvStatusBar.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -273,7 +273,7 @@
S: TJvStatusBar;
begin
S := TStatusPanelsAccessProtected(Collection).Owner as TJvStatusBar;
- ReplaceComponentReference (S, Value, TComponent(FControl));
+ ReplaceComponentReference(S, Value, TComponent(FControl));
if FControl <> nil then
begin
if FControl = S then
Modified: trunk/jvcl/run/JvSyncSplitter.pas
===================================================================
--- trunk/jvcl/run/JvSyncSplitter.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvSyncSplitter.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -84,7 +84,7 @@
begin
if Value <> Self then
begin
- ReplaceComponentReference (Self, Value, TComponent(FPartner));
+ ReplaceComponentReference(Self, Value, TComponent(FPartner));
VerifyPartner;
end
else
Modified: trunk/jvcl/run/JvSystemPopup.pas
===================================================================
--- trunk/jvcl/run/JvSystemPopup.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvSystemPopup.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -466,7 +466,7 @@
begin
if Assigned(FPopup) then
FPopup.OnChange := nil;
- ReplaceComponentReference (Self, Value, TComponent(FPopup));
+ ReplaceComponentReference(Self, Value, TComponent(FPopup));
//if Assigned(FPopup) then
// FPopup.OnChange := MenuChanged;
//if not (csLoading in ComponentState) then
Modified: trunk/jvcl/run/JvTFGlance.pas
===================================================================
--- trunk/jvcl/run/JvTFGlance.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvTFGlance.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -2143,7 +2143,7 @@
FViewer.Notify(Self, sncDisconnectControl);
if Assigned(Value) then
Value.Notify(Self, sncConnectControl);
- ReplaceComponentReference (Self, Value, TComponent(FViewer));
+ ReplaceComponentReference(Self, Value, TComponent(FViewer));
if Assigned(FViewer) then
begin
FViewer.MoveTo(Cells.Cells[0, 0]);
Modified: trunk/jvcl/run/JvTMTimeLine.pas
===================================================================
--- trunk/jvcl/run/JvTMTimeLine.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvTMTimeLine.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -922,7 +922,7 @@
begin
if Assigned(FImages) then
FImages.UnRegisterChanges(FChangeLink);
- ReplaceComponentReference (Self, Value, TComponent(FImages));
+ ReplaceComponentReference(Self, Value, TComponent(FImages));
if Assigned(FImages) then
FImages.RegisterChanges(FChangeLink);
Invalidate;
Modified: trunk/jvcl/run/JvTabBar.pas
===================================================================
--- trunk/jvcl/run/JvTabBar.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvTabBar.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -641,7 +641,7 @@
begin
if Assigned(FPainter) then
FPainter.FOnChangeList.Extract(Self);
- ReplaceComponentReference (Self, Value, tComponent(FPainter));
+ ReplaceComponentReference(Self, Value, tComponent(FPainter));
if Assigned(FPainter) then
begin
FreeAndNil(FDefaultPainter);
Modified: trunk/jvcl/run/JvThread.pas
===================================================================
--- trunk/jvcl/run/JvThread.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvThread.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1186,7 +1186,7 @@
procedure TJvThread.SetThreadDialog(const Value: TJvCustomThreadDialog);
begin
- ReplaceComponentReference (Self, Value, TComponent(FThreadDialog));
+ ReplaceComponentReference(Self, Value, TComponent(FThreadDialog));
end;
procedure TJvThread.ShowThreadDialogForm;
Modified: trunk/jvcl/run/JvTipOfDay.pas
===================================================================
--- trunk/jvcl/run/JvTipOfDay.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvTipOfDay.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -227,7 +227,7 @@
procedure TJvTipOfDay.SetAppStorage(Value: TJvCustomAppStorage);
begin
- ReplaceComponentReference (Self, Value, TComponent(FAppStorage));
+ ReplaceComponentReference(Self, Value, TComponent(FAppStorage));
end;
procedure TJvTipOfDay.AutoExecute;
Modified: trunk/jvcl/run/JvToolEdit.pas
===================================================================
--- trunk/jvcl/run/JvToolEdit.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvToolEdit.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -2753,7 +2753,7 @@
procedure TJvCustomComboEdit.SetImages(const Value: TCustomImageList);
begin
- ReplaceComponentReference (Self, Value, TComponent(FImages));
+ ReplaceComponentReference(Self, Value, TComponent(FImages));
if FImages = nil then
SetImageIndex(-1);
if ImageKind = ikCustom then
Modified: trunk/jvcl/run/JvTrayIcon.pas
===================================================================
--- trunk/jvcl/run/JvTrayIcon.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvTrayIcon.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1176,7 +1176,7 @@
procedure TJvTrayIcon.SetDropDownMenu(const Value: TPopupMenu);
begin
- ReplaceComponentReference (Self, Value, TComponent(FDropDownMenu));
+ ReplaceComponentReference(Self, Value, TComponent(FDropDownMenu));
end;
procedure TJvTrayIcon.SetHint(Value: string);
@@ -1210,7 +1210,7 @@
procedure TJvTrayIcon.SetIcons(const Value: TCustomImageList);
begin
- if ReplaceComponentReference (Self, Value, TComponent(FIcons)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FIcons)) then
IconPropertyChanged; //HEG: New
end;
@@ -1224,7 +1224,7 @@
procedure TJvTrayIcon.SetPopupMenu(const Value: TPopupMenu);
begin
- ReplaceComponentReference (Self, Value, TComponent(FPopupMenu));
+ ReplaceComponentReference(Self, Value, TComponent(FPopupMenu));
end;
procedure TJvTrayIcon.SetTask(const Value: Boolean);
Modified: trunk/jvcl/run/JvUnicodeHLEditor.pas
===================================================================
--- trunk/jvcl/run/JvUnicodeHLEditor.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvUnicodeHLEditor.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1814,7 +1814,7 @@
if FHighlighter = hlSyntaxHighlighter then
FHighlighter := hlNone;
- ReplaceComponentReference (Self, Value, TComponent(FSyntaxHighlighter));
+ ReplaceComponentReference(Self, Value, TComponent(FSyntaxHighlighter));
RescanLong(0);
Invalidate;
end;
Modified: trunk/jvcl/run/JvValidators.pas
===================================================================
--- trunk/jvcl/run/JvValidators.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvValidators.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -455,7 +455,7 @@
var
Obj: IJvValidationProperty;
begin
- if ReplaceComponentReference (Self, Value, TComponent(FControlToValidate)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FControlToValidate)) then
if FControlToValidate <> nil then
if not (csLoading in ComponentState) then
begin
@@ -468,7 +468,7 @@
procedure TJvBaseValidator.SetErrorControl(Value: TControl);
begin
- ReplaceComponentReference (Self, Value, TComponent(FErrorControl));
+ ReplaceComponentReference(Self, Value, TComponent(FErrorControl));
end;
procedure TJvBaseValidator.SetParentComponent(Value: TComponent);
@@ -683,7 +683,7 @@
var
Obj: IJvValidationProperty;
begin
- if ReplaceComponentReference (Self, Value, TComponent(FCompareToControl)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FCompareToControl)) then
if FCompareToControl <> nil then
begin
if Supports(FCompareToControl, IJvValidationProperty, Obj) then
Modified: trunk/jvcl/run/JvVersionControlActions.pas
===================================================================
--- trunk/jvcl/run/JvVersionControlActions.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvVersionControlActions.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -420,7 +420,7 @@
var
I: Integer;
begin
- if ReplaceComponentReference (Self, Value, TComponent(FVersionControlComponent)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FVersionControlComponent)) then
begin
for I := 0 to ActionCount - 1 do
if Actions[I] is TJvVersionControlBaseAction then
Modified: trunk/jvcl/run/JvXPButtons.pas
===================================================================
--- trunk/jvcl/run/JvXPButtons.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvXPButtons.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -923,7 +923,7 @@
procedure TJvXPCustomToolButton.SetDropDownMenu(const Value: TPopupMenu);
begin
- if ReplaceComponentReference (Self, Value, TComponent(FDropDownMenu)) then
+ if ReplaceComponentReference(Self, Value, TComponent(FDropDownMenu)) then
LockedInvalidate;
end;
Modified: trunk/jvcl/run/JvXPCore.pas
===================================================================
--- trunk/jvcl/run/JvXPCore.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvXPCore.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -774,7 +774,7 @@
Value.RegisterControls([Self])
else if Assigned(FStyleManager) then
FStyleManager.UnregisterControls([Self]);
- ReplaceComponentReference (Self, Value, TComponent(FStyleManager));
+ ReplaceComponentReference(Self, Value, TComponent(FStyleManager));
InternalRedraw;
end;
end;
Modified: trunk/jvcl/run/JvgAskListBox.pas
===================================================================
--- trunk/jvcl/run/JvgAskListBox.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvgAskListBox.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -639,7 +639,7 @@
procedure TJvgAskListBox.SetWallpaperImage(Value: TImage);
begin
- ReplaceComponentReference (Self, Value, TComponent(FWallpaperImage));
+ ReplaceComponentReference(Self, Value, TComponent(FWallpaperImage));
if (not IsItAFilledBitmap(FWallpaper)) and Assigned(Value) then
begin
WallpaperBmp := Value.Picture.Bitmap;
@@ -682,7 +682,7 @@
procedure TJvgAskListBox.SetGlyphs(Value: TImageList);
begin
//if (Value=nil)or(Value.Width<=0)or(Value.Height<=0) then Exit;
- ReplaceComponentReference (Self, Value, TComponent(FGlyphs));
+ ReplaceComponentReference(Self, Value, TComponent(FGlyphs));
if FShowGlyphs then
Invalidate;
end;
Modified: trunk/jvcl/run/JvgCheckBox.pas
===================================================================
--- trunk/jvcl/run/JvgCheckBox.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvgCheckBox.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -581,7 +581,7 @@
begin
if (fcoActiveWhileControlFocused in Options) and Assigned(FFocusControl) then
UnhookFocusControlWndProc;
- ReplaceComponentReference (Self, Value, TComponent(FFocusControl));
+ ReplaceComponentReference(Self, Value, TComponent(FFocusControl));
if (fcoActiveWhileControlFocused in Options) and Assigned(FFocusControl) then
HookFocusControlWndProc;
end;
Modified: trunk/jvcl/run/JvgCrossTable.pas
===================================================================
--- trunk/jvcl/run/JvgCrossTable.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvgCrossTable.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -1162,7 +1162,7 @@
procedure TJvgPrintCrossTable.SetDataSet(Value: TDataSet);
begin
- ReplaceComponentReference (Self, Value, TComponent(FDataSet));
+ ReplaceComponentReference(Self, Value, TComponent(FDataSet));
end;
procedure TJvgPrintCrossTable.SetColumnFieldName(const Value: string);
Modified: trunk/jvcl/run/JvgImage.pas
===================================================================
--- trunk/jvcl/run/JvgImage.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvgImage.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -414,7 +414,7 @@
procedure TJvgBitmapImage.SetImage(Value: TImage);
begin
- ReplaceComponentReference (Self, Value, TComponent(FImage));
+ ReplaceComponentReference(Self, Value, TComponent(FImage));
if Assigned(FImage) and Assigned(FImage.Picture) and
Assigned(FImage.Picture.Bitmap) then
FBmp := FImage.Picture.Bitmap
Modified: trunk/jvcl/run/JvgLabel.pas
===================================================================
--- trunk/jvcl/run/JvgLabel.pas 2010-04-02 10:39:13 UTC (rev 12740)
+++ trunk/jvcl/run/JvgLabel.pas 2010-04-02 10:43:13 UTC (rev 12741)
@@ -400,7 +400,7 @@
Exit;
if ActiveWhileControlFocused and Assigned(FFocusControl) then
UnhookFocusControlWndProc;
- ReplaceComponentReference (Self, Value, TComponent(FFocusControl));
+ ReplaceComponentReference(Self, Value, TComponent(FFocusControl));
if ActiveWhileControl...
[truncated message content] |