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

IDE: fixed hints

Browse Source 
git-svn-id: trunk@47011 -
This commit is contained in:
mattias 2014-11-27 21:41:53 +00:00
parent 304f54dde0
commit bc0015e054
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/componentpalette.pas
View File

@ -118,9 +118,6 @@ type
procedure CreatePopupMenu;
procedure UnselectAllButtons;
protected
procedure AssignOrigCompsForPage(DestComps: TStringList; PageName: string); override;
function RefOrigCompsForPage(PageName: string): TStringList; override;
function RefUserCompsForPage(PageName: string): TStringList; override;
procedure DoBeginUpdate; override;
procedure DoEndUpdate(Changed: boolean); override;
procedure OnPageAddedComponent(Component: TRegisteredComponent); override;
@ -149,6 +146,9 @@ type
procedure RegisterCustomIDEComponents(
const RegisterProc: RegisterUnitComponentProc); override;
procedure UpdateVisible; override;
procedure AssignOrigCompsForPage(DestComps: TStringList; PageName: string); override;
function RefOrigCompsForPage(PageName: string): TStringList; override;
function RefUserCompsForPage(PageName: string): TStringList; override;
public
property PageControl: TPageControl read FPageControl write SetPageControl;
property SelectionMode: TComponentSelectionMode read FSelectionMode write FSelectionMode;
@ -445,7 +445,8 @@ begin
CurPage:=Pages[i];
if (FSelected=nil) or (FSelected.RealPage<>CurPage) then begin
SelectButtonOnPage:=TSpeedButton(CurPage.SelectButton);
if SelectButtonOnPage<>nil then SelectButtonOnPage.Down:=true;
if SelectButtonOnPage<>nil then
SelectButtonOnPage.Down:=true;
end;
end;
end;