From f5a8d28ec24dd447bf5a9d4aac58bce510957cc6 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 9 Sep 2015 21:28:25 +0000
Subject: [PATCH] ColorPalette: Fix palette size after loading from stream.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4322 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/colorpalette/colorpalette.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/colorpalette/colorpalette.pas b/components/colorpalette/colorpalette.pas
index 767aa6c48..6a6d1869a 100644
--- a/components/colorpalette/colorpalette.pas
+++ b/components/colorpalette/colorpalette.pas
@@ -145,6 +145,7 @@ type
     function GetCellWidth: Integer; inline;
     function GetColorIndex(X,Y: Integer): Integer;
     function GetHintText(AIndex: Integer): String; virtual;
+    procedure Loaded; override;
     procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X, Y:Integer); override;
     procedure MouseEnter; override;
     procedure MouseLeave; override;
@@ -507,6 +508,12 @@ begin
   DoInsertColor(AIndex, AColor, AColorName);
 end;
 
+procedure TCustomColorPalette.Loaded;
+begin
+  inherited;
+  UpdateSize;
+end;
+
 procedure TCustomColorPalette.LoadPalette(const FileName: String;
   AItems: TPaletteItems = [piColors, piColumnCount]);
 var