paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 04:59:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'IDE/TabOrder/RenameUpdate' into 'main'

Browse Source 
IDE/TabOrder: Update the list when a component is renamed

See merge request freepascal.org/lazarus/lazarus!424
This commit is contained in:
Juha Manninen 2025-01-31 22:17:06 +00:00
commit 712322c97e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/taborderdlg.pas
View File

@ -73,6 +73,7 @@ type
procedure PersistentDeleting({%H-}APersistent: TPersistent); procedure PersistentDeleting({%H-}APersistent: TPersistent);
procedure DeletePersistent(var {%H-}APersistent: TPersistent); procedure DeletePersistent(var {%H-}APersistent: TPersistent);
procedure SetSelection(const ASelection: TPersistentSelectionList); procedure SetSelection(const ASelection: TPersistentSelectionList);
procedure ComponentRenamed({%H-}AComponent: TComponent);
end; end;
{ TTabOrderPropEditor } { TTabOrderPropEditor }
@ -140,6 +141,7 @@ begin
GlobalDesignHook.AddHandlerPersistentDeleting(@PersistentDeleting); GlobalDesignHook.AddHandlerPersistentDeleting(@PersistentDeleting);
GlobalDesignHook.AddHandlerDeletePersistent(@DeletePersistent); GlobalDesignHook.AddHandlerDeletePersistent(@DeletePersistent);
GlobalDesignHook.AddHandlerSetSelection(@SetSelection); GlobalDesignHook.AddHandlerSetSelection(@SetSelection);
GlobalDesignHook.AddHandlerComponentRenamed(@ComponentRenamed);
IDEImages.AssignImage(ArrowDown, 'arrow_down'); IDEImages.AssignImage(ArrowDown, 'arrow_down');
IDEImages.AssignImage(ArrowUp, 'arrow_up'); IDEImages.AssignImage(ArrowUp, 'arrow_up');
@ -422,6 +424,11 @@ begin
FUpdating := false; FUpdating := false;
end; end;
procedure TTabOrderDialog.ComponentRenamed(AComponent: TComponent);
begin
SomethingChanged;
end;
procedure TTabOrderDialog.PersistentAdded(APersistent: TPersistent; Select: boolean); procedure TTabOrderDialog.PersistentAdded(APersistent: TPersistent; Select: boolean);
begin begin
SomethingChanged; SomethingChanged;