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

IdeIntf: harmonize event type names.

Browse Source 
git-svn-id: trunk@42571 -
This commit is contained in:
juha 2013-09-03 12:02:36 +00:00
parent 31b1199fa8
commit 639b9cb1f4
1 changed files with 3 additions and 3 deletions

6
components/ideintf/componentreg.pas
View File

@ -134,7 +134,7 @@ type
);
TEndUpdatePaletteEvent = procedure(Sender: TObject; PaletteChanged: boolean) of object;
TGetComponentClass = procedure(const AClass: TComponentClass) of object;
TGetComponentClassEvent = procedure(const AClass: TComponentClass) of object;
TUpdateCompVisibleEvent = procedure(AComponent: TRegisteredComponent;
var VoteVisible: integer { Visible>0 } ) of object;
TComponentAddedEvent = procedure of object;
@ -196,7 +196,7 @@ type
function CreateNewClassName(const Prefix: string): string;
function IndexOfPageComponent(AComponent: TComponent): integer;
procedure UpdateVisible; virtual;
procedure IterateRegisteredClasses(Proc: TGetComponentClass);
procedure IterateRegisteredClasses(Proc: TGetComponentClassEvent);
procedure RegisterCustomIDEComponents(
const RegisterProc: RegisterUnitComponentProc); virtual;
procedure RemoveAllHandlersOfObject(AnObject: TObject);
@ -787,7 +787,7 @@ begin
EndUpdate;
end;
procedure TBaseComponentPalette.IterateRegisteredClasses(Proc: TGetComponentClass);
procedure TBaseComponentPalette.IterateRegisteredClasses(Proc: TGetComponentClassEvent);
var
i, j: Integer;
APage: TBaseComponentPage;