paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Restore the "const" removed in r64300 #943e4e4ff7. Affected 3rd party components.

Browse Source 
git-svn-id: trunk@64312 -
This commit is contained in:
juha 2020-12-31 10:57:48 +00:00
parent 6780d0d9dc
commit b4fc035018
10 changed files with 35 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/ideintf/actionseditor.pas
View File

@ -139,7 +139,7 @@ type
procedure lstActionNameDblClick(Sender: TObject);
protected
procedure OnComponentRenamed(AComponent: TComponent);
procedure OnComponentSelection(NewSelection: TPersistentSelectionList);
procedure OnComponentSelection(const NewSelection: TPersistentSelectionList);
procedure OnComponentDelete(APersistent: TPersistent);
procedure OnRefreshPropertyValues;
function GetSelectedAction: TContainedAction;
@ -477,7 +477,8 @@ begin
lstActionName.Items[i] := AComponent.Name;
end;
procedure TActionListEditor.OnComponentSelection(NewSelection: TPersistentSelectionList);
procedure TActionListEditor.OnComponentSelection(
const NewSelection: TPersistentSelectionList);
var
CurAct: TContainedAction;
tmpCategory: String;

10
components/ideintf/fieldseditor.pas
View File

@ -81,8 +81,8 @@ type
procedure SelectionChanged(AOrderChanged: Boolean = false);
procedure OnComponentRenamed(AComponent: TComponent);
procedure OnPersistentDeleting(APersistent: TPersistent);
procedure OnGetSelection(ASelection: TPersistentSelectionList);
procedure OnSetSelection(ASelection: TPersistentSelectionList);
procedure OnGetSelection(const ASelection: TPersistentSelectionList);
procedure OnSetSelection(const ASelection: TPersistentSelectionList);
procedure OnPersistentAdded(APersistent: TPersistent; Select: boolean);
private
LinkDataset: TDataset;
@ -450,7 +450,8 @@ begin
FieldsListBox.Items.Delete(i);
end;
procedure TDSFieldsEditorFrm.OnGetSelection(ASelection: TPersistentSelectionList);
procedure TDSFieldsEditorFrm.OnGetSelection(
const ASelection: TPersistentSelectionList);
var i: integer;
begin
if Not Assigned(ASelection) then exit;
@ -460,7 +461,8 @@ begin
ASelection.Add(TPersistent(FieldsListBox.Items.Objects[i]));
end;
procedure TDSFieldsEditorFrm.OnSetSelection(ASelection: TPersistentSelectionList);
procedure TDSFieldsEditorFrm.OnSetSelection(
const ASelection: TPersistentSelectionList);
var i, j: integer;
begin
if Assigned(ASelection) then begin

8
components/ideintf/objectinspector.pp
View File

@ -766,8 +766,8 @@ type
procedure HookRefreshPropertyValues;
procedure FillPersistentComboBox;
procedure SetAvailComboBoxText;
procedure HookGetSelection(ASelection: TPersistentSelectionList);
procedure HookSetSelection(ASelection: TPersistentSelectionList);
procedure HookGetSelection(const ASelection: TPersistentSelectionList);
procedure HookSetSelection(const ASelection: TPersistentSelectionList);
procedure DestroyNoteBook;
procedure CreateNoteBook;
procedure ShowNextPage(Delta: integer);
@ -5258,13 +5258,13 @@ begin
end;
end;
procedure TObjectInspectorDlg.HookGetSelection(ASelection: TPersistentSelectionList);
procedure TObjectInspectorDlg.HookGetSelection(const ASelection: TPersistentSelectionList);
begin
if ASelection=nil then exit;
ASelection.Assign(FSelection);
end;
procedure TObjectInspectorDlg.HookSetSelection(ASelection: TPersistentSelectionList);
procedure TObjectInspectorDlg.HookSetSelection(const ASelection: TPersistentSelectionList);
begin
Selection := ASelection;
end;

6
components/ideintf/propedits.pp
View File

@ -1359,8 +1359,10 @@ type
) of object;
TPropHookPersistentDel = procedure(APersistent: TPersistent) of object;
TPropHookDeletePersistent = procedure(var APersistent: TPersistent) of object;
TPropHookGetSelection = procedure(ASelection: TPersistentSelectionList) of object;
TPropHookSetSelection = procedure(ASelection: TPersistentSelectionList) of object;
TPropHookGetSelection = procedure(const ASelection: TPersistentSelectionList
) of object;
TPropHookSetSelection = procedure(const ASelection: TPersistentSelectionList
) of object;
TPropHookAddDependency = procedure(const AClass: TClass;
const AnUnitName: shortstring) of object;
// persistent objects

4
components/sparta/smartformeditor/source/sparta_componentpalette.pas
View File

@ -71,7 +71,7 @@ type
procedure RefreshSearchResult;
procedure UpdateComponentsList;
procedure OnDesignSetSelection(ASelection: TPersistentSelectionList);
procedure OnDesignSetSelection(const ASelection: TPersistentSelectionList);
public
constructor Create(AOwner: TComponent; AParent: TWinControl; AIgnoreRoot: Boolean = False); reintroduce;
destructor Destroy; override;
@ -609,7 +609,7 @@ begin
RefreshSearchResult;
end;
procedure TComponentsPalette.OnDesignSetSelection(ASelection: TPersistentSelectionList);
procedure TComponentsPalette.OnDesignSetSelection(const ASelection: TPersistentSelectionList);
begin
// to replace original components palette
if not FIgnoreRoot or (csDestroying in ComponentState) then

10
components/tachart/editors/tasubcomponentseditor.pas
View File

@ -66,10 +66,10 @@ type
function FindChild(ACandidate: TPersistent; out AIndex: Integer): Boolean;
procedure MoveSelection(AStart, ADir: Integer);
procedure OnComponentRenamed(AComponent: TComponent);
procedure OnGetSelection(ASelection: TPersistentSelectionList);
procedure OnGetSelection(const ASelection: TPersistentSelectionList);
procedure OnPersistentAdded(APersistent: TPersistent; ASelect: Boolean);
procedure OnPersistentDeleting(APersistent: TPersistent);
procedure OnSetSelection(ASelection: TPersistentSelectionList);
procedure OnSetSelection(const ASelection: TPersistentSelectionList);
procedure RefreshList;
procedure SelectionChanged(AOrderChanged: Boolean = false);
protected
@ -298,7 +298,8 @@ begin
BuildCaption;
end;
procedure TComponentListEditorForm.OnGetSelection(ASelection: TPersistentSelectionList);
procedure TComponentListEditorForm.OnGetSelection(
const ASelection: TPersistentSelectionList);
var
i: Integer;
begin
@ -335,7 +336,8 @@ begin
end;
end;
procedure TComponentListEditorForm.OnSetSelection(ASelection: TPersistentSelectionList);
procedure TComponentListEditorForm.OnSetSelection(
const ASelection: TPersistentSelectionList);
var
i, j: Integer;
begin

9
designer/anchoreditor.pas
View File

@ -183,7 +183,7 @@ type
FSideControls: array[TAnchorKind] of TAnchorDesignerSideControls;
procedure Refresh;
procedure OnRefreshPropertyValues;
procedure OnSetSelection(ASelection: TPersistentSelectionList);
procedure OnSetSelection(const ASelection: TPersistentSelectionList);
function GetSelectedControls: TList;
function FindSibling(const Sibling: string): TControl;
procedure FillComboBoxWithSiblings(AComboBox: TComboBox);
@ -409,7 +409,7 @@ begin
end;
procedure TAnchorDesigner.FormDestroy(Sender: TObject);
var
var
i: TAnchorKind;
begin
FreeAndNil(Values);
@ -1167,7 +1167,7 @@ begin
end;
end;
procedure TAnchorDesigner.OnSetSelection(ASelection: TPersistentSelectionList);
procedure TAnchorDesigner.OnSetSelection(const ASelection: TPersistentSelectionList);
begin
if FSelection.IsEqual(ASelection) then exit;
Refresh;
@ -1175,8 +1175,7 @@ end;
{ TAnchorDesignerValues }
function TAnchorDesignerValues.GetSides(Kind: TAnchorKind
): TAnchorDesignerSideValues;
function TAnchorDesignerValues.GetSides(Kind: TAnchorKind): TAnchorDesignerSideValues;
begin
Result:=FSides[Kind];
end;

4
designer/menueditorform.pas
View File

@ -90,7 +90,7 @@ type
procedure HidePopupAssignmentsInfo;
procedure InitializeStatisticVars;
procedure LoadFixedButtonGlyphs;
procedure OnDesignerSetSelection(ASelection: TPersistentSelectionList);
procedure OnDesignerSetSelection(const ASelection: TPersistentSelectionList);
procedure ProcessForPopup(aControl: TControl);
procedure SetupPopupAssignmentsDisplay;
public
@ -279,7 +279,7 @@ begin
OpenURL(helpPath);
end;
procedure TMenuDesignerForm.OnDesignerSetSelection(ASelection: TPersistentSelectionList);
procedure TMenuDesignerForm.OnDesignerSetSelection(const ASelection: TPersistentSelectionList);
var
mnu: TMenu;
mi, tmp: TMenuItem;

4
designer/taborderdlg.pas
View File

@ -72,7 +72,7 @@ type
procedure PersistentAdded({%H-}APersistent: TPersistent; {%H-}Select: boolean);
procedure PersistentDeleting({%H-}APersistent: TPersistent);
procedure DeletePersistent(var {%H-}APersistent: TPersistent);
procedure SetSelection(ASelection: TPersistentSelectionList);
procedure SetSelection(const ASelection: TPersistentSelectionList);
end;
{ TTabOrderPropEditor }
@ -438,7 +438,7 @@ begin
SomethingChanged;
end;
procedure TTabOrderDialog.SetSelection(ASelection: TPersistentSelectionList);
procedure TTabOrderDialog.SetSelection(const ASelection: TPersistentSelectionList);
// Select item also in TreeView when selection in Designer changes.
function FindSelection: TTreeNode;

4
ide/main.pp
View File

@ -579,7 +579,7 @@ type
procedure ControlSelectionChanged(Sender: TObject; ForceUpdate: Boolean);
procedure ControlSelectionPropsChanged(Sender: TObject);
procedure ControlSelectionFormChanged(Sender: TObject; OldForm, NewForm: TCustomForm);
procedure GetDesignerSelection(ASelection: TPersistentSelectionList);
procedure GetDesignerSelection(const ASelection: TPersistentSelectionList);
// project inspector event handlers
function ProjInspectorAddUnitToProject(Sender: TObject;
@ -9484,7 +9484,7 @@ begin
MainIDEBar.UpdateIDEComponentPalette(true);
end;
procedure TMainIDE.GetDesignerSelection(ASelection: TPersistentSelectionList);
procedure TMainIDE.GetDesignerSelection(const ASelection: TPersistentSelectionList);
begin
if TheControlSelection=nil then exit;
TheControlSelection.GetSelection(ASelection);