paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 03:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Rename event handlers in TabOrder dialog.

Browse Source 
git-svn-id: trunk@64196 -
This commit is contained in:
juha 2020-12-12 11:41:01 +00:00
parent aa8f480e17
commit 277bee311d
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
designer/taborderdlg.pas
View File

@ -66,11 +66,11 @@ type
procedure CreateNodes(ParentControl: TWinControl; ParentNode: TTreeNode; procedure CreateNodes(ParentControl: TWinControl; ParentNode: TTreeNode;
Candidates: TAvlTree); Candidates: TAvlTree);
procedure RefreshTree; procedure RefreshTree;
procedure OnSomethingChanged; procedure SomethingChanged;
procedure OnPersistentAdded({%H-}APersistent: TPersistent; {%H-}Select: boolean); procedure PersistentAdded({%H-}APersistent: TPersistent; {%H-}Select: boolean);
procedure OnPersistentDeleting({%H-}APersistent: TPersistent); procedure PersistentDeleting({%H-}APersistent: TPersistent);
procedure OnDeletePersistent(var {%H-}APersistent: TPersistent); procedure DeletePersistent(var {%H-}APersistent: TPersistent);
procedure OnSetSelection(const ASelection: TPersistentSelectionList); procedure SetSelection(const ASelection: TPersistentSelectionList);
end; end;
{ TTabOrderPropEditor } { TTabOrderPropEditor }
@ -132,12 +132,12 @@ procedure TTabOrderDialog.TabOrderDialogCreate(Sender: TObject);
begin begin
Name := NonModalIDEWindowNames[nmiwTabOrderEditor]; Name := NonModalIDEWindowNames[nmiwTabOrderEditor];
GlobalDesignHook.AddHandlerChangeLookupRoot(@OnSomethingChanged); GlobalDesignHook.AddHandlerChangeLookupRoot(@SomethingChanged);
GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnSomethingChanged); GlobalDesignHook.AddHandlerRefreshPropertyValues(@SomethingChanged);
GlobalDesignHook.AddHandlerPersistentAdded(@OnPersistentAdded); GlobalDesignHook.AddHandlerPersistentAdded(@PersistentAdded);
GlobalDesignHook.AddHandlerPersistentDeleting(@OnPersistentDeleting); GlobalDesignHook.AddHandlerPersistentDeleting(@PersistentDeleting);
GlobalDesignHook.AddHandlerDeletePersistent(@OnDeletePersistent); GlobalDesignHook.AddHandlerDeletePersistent(@DeletePersistent);
GlobalDesignHook.AddHandlerSetSelection(@OnSetSelection); GlobalDesignHook.AddHandlerSetSelection(@SetSelection);
IDEImages.AssignImage(ArrowDown, 'arrow_down'); IDEImages.AssignImage(ArrowDown, 'arrow_down');
IDEImages.AssignImage(ArrowUp, 'arrow_up'); IDEImages.AssignImage(ArrowUp, 'arrow_up');
@ -158,7 +158,7 @@ begin
Sel := TPersistentSelectionList.Create; Sel := TPersistentSelectionList.Create;
try try
GlobalDesignHook.GetSelection(Sel); GlobalDesignHook.GetSelection(Sel);
OnSetSelection(Sel); SetSelection(Sel);
finally finally
Sel.Free; Sel.Free;
end; end;
@ -411,7 +411,7 @@ begin
end; end;
end; end;
procedure TTabOrderDialog.OnSomethingChanged; procedure TTabOrderDialog.SomethingChanged;
begin begin
if FUpdating then Exit; if FUpdating then Exit;
FUpdating := true; FUpdating := true;
@ -420,23 +420,23 @@ begin
FUpdating := false; FUpdating := false;
end; end;
procedure TTabOrderDialog.OnPersistentAdded(APersistent: TPersistent; Select: boolean); procedure TTabOrderDialog.PersistentAdded(APersistent: TPersistent; Select: boolean);
begin begin
OnSomethingChanged; SomethingChanged;
end; end;
procedure TTabOrderDialog.OnPersistentDeleting(APersistent: TPersistent); procedure TTabOrderDialog.PersistentDeleting(APersistent: TPersistent);
begin begin
OnSomethingChanged; SomethingChanged;
end; end;
procedure TTabOrderDialog.OnDeletePersistent(var APersistent: TPersistent); procedure TTabOrderDialog.DeletePersistent(var APersistent: TPersistent);
begin begin
ShowMessage('TTabOrderDialog.OnDeletePersistent is never called for some reason!'); ShowMessage('TTabOrderDialog.OnDeletePersistent is never called for some reason!');
OnSomethingChanged; SomethingChanged;
end; end;
procedure TTabOrderDialog.OnSetSelection(const ASelection: TPersistentSelectionList); procedure TTabOrderDialog.SetSelection(const ASelection: TPersistentSelectionList);
// Select item also in TreeView when selection in Designer changes. // Select item also in TreeView when selection in Designer changes.
function FindSelection: TTreeNode; function FindSelection: TTreeNode;