paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:02:41 +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 CreatePopupMenu;
procedure UnselectAllButtons; procedure UnselectAllButtons;
protected protected
procedure AssignOrigCompsForPage(DestComps: TStringList; PageName: string); override;
function RefOrigCompsForPage(PageName: string): TStringList; override;
function RefUserCompsForPage(PageName: string): TStringList; override;
procedure DoBeginUpdate; override; procedure DoBeginUpdate; override;
procedure DoEndUpdate(Changed: boolean); override; procedure DoEndUpdate(Changed: boolean); override;
procedure OnPageAddedComponent(Component: TRegisteredComponent); override; procedure OnPageAddedComponent(Component: TRegisteredComponent); override;
@ -149,6 +146,9 @@ type
procedure RegisterCustomIDEComponents( procedure RegisterCustomIDEComponents(
const RegisterProc: RegisterUnitComponentProc); override; const RegisterProc: RegisterUnitComponentProc); override;
procedure UpdateVisible; override; procedure UpdateVisible; override;
procedure AssignOrigCompsForPage(DestComps: TStringList; PageName: string); override;
function RefOrigCompsForPage(PageName: string): TStringList; override;
function RefUserCompsForPage(PageName: string): TStringList; override;
public public
property PageControl: TPageControl read FPageControl write SetPageControl; property PageControl: TPageControl read FPageControl write SetPageControl;
property SelectionMode: TComponentSelectionMode read FSelectionMode write FSelectionMode; property SelectionMode: TComponentSelectionMode read FSelectionMode write FSelectionMode;
@ -445,7 +445,8 @@ begin
CurPage:=Pages[i]; CurPage:=Pages[i];
if (FSelected=nil) or (FSelected.RealPage<>CurPage) then begin if (FSelected=nil) or (FSelected.RealPage<>CurPage) then begin
SelectButtonOnPage:=TSpeedButton(CurPage.SelectButton); SelectButtonOnPage:=TSpeedButton(CurPage.SelectButton);
if SelectButtonOnPage<>nil then SelectButtonOnPage.Down:=true; if SelectButtonOnPage<>nil then
SelectButtonOnPage.Down:=true;
end; end;
end; end;
end; end;