From bc0015e05400dc302e6ea873ac86b8854770f6e3 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 27 Nov 2014 21:41:53 +0000
Subject: [PATCH] IDE: fixed hints

git-svn-id: trunk@47011 -
---
 ide/componentpalette.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/ide/componentpalette.pas b/ide/componentpalette.pas
index e00c2c3c92..79e01ea08c 100644
--- a/ide/componentpalette.pas
+++ b/ide/componentpalette.pas
@@ -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;