paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 05:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: added TComponentPalette.DoAfterComponentAdded

Browse Source 
git-svn-id: trunk@29599 -
This commit is contained in:
mattias 2011-02-18 18:15:06 +00:00
parent f8078acc5b
commit a28c311a69
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/componentpalette.pas
View File

@ -96,7 +96,7 @@ type
public
constructor Create;
destructor Destroy; override;
procedure DoAfterComponentAdded;
procedure DoAfterComponentAdded; override;
function GetUnregisteredIcon: TCustomBitmap;
function GetSelectButtonIcon: TCustomBitmap;
procedure ClearButtons; override;
@ -431,6 +431,7 @@ end;
procedure TComponentPalette.DoAfterComponentAdded;
begin
inherited DoAfterComponentAdded;
if not (ssShift in GetKeyShiftState) and (SelectionMode = csmSingle) then
Selected := nil;
end;

6
ideintf/componentreg.pas
View File

@ -187,6 +187,7 @@ type
procedure BeginUpdate(Change: boolean);
procedure EndUpdate;
function IsUpdateLocked: boolean;
procedure DoAfterComponentAdded; virtual;
procedure ConsistencyCheck;
function Count: integer;
function GetPage(const APageName: string;
@ -655,6 +656,11 @@ begin
Result:=FUpdateLock>0;
end;
procedure TBaseComponentPalette.DoAfterComponentAdded;
begin
end;
procedure TBaseComponentPalette.ConsistencyCheck;
begin