From 43b99f14d42466b9a36169bd584b0ed117b2ff85 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 8 Feb 2010 03:27:37 +0000
Subject: [PATCH] ideintf: add Default color to imagelist editor

git-svn-id: trunk@23661 -
---
 ideintf/imagelisteditor.lfm | 7 ++-----
 ideintf/imagelisteditor.pp  | 6 +++---
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/ideintf/imagelisteditor.lfm b/ideintf/imagelisteditor.lfm
index ab9ef0846e..45c9a74d80 100644
--- a/ideintf/imagelisteditor.lfm
+++ b/ideintf/imagelisteditor.lfm
@@ -12,7 +12,7 @@ object ImageListEditorDlg: TImageListEditorDlg
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.29'
   object GroupBoxR: TGroupBox
     AnchorSideTop.Control = Owner
     AnchorSideRight.Control = Owner
@@ -95,11 +95,9 @@ object ImageListEditorDlg: TImageListEditorDlg
       Top = 231
       Width = 96
       Selected = clFuchsia
-      Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
-      AutoComplete = False
+      Style = [cbStandardColors, cbExtendedColors, cbIncludeDefault, cbCustomColor, cbPrettyNames]
       Enabled = False
       ItemHeight = 16
-      ItemWidth = 0
       OnChange = ColorBoxTransparentClick
       TabOrder = 2
     end
@@ -154,7 +152,6 @@ object ImageListEditorDlg: TImageListEditorDlg
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Around = 6
       Caption = 'Add...'
-      Default = True
       OnClick = BtnAddClick
       TabOrder = 1
     end
diff --git a/ideintf/imagelisteditor.pp b/ideintf/imagelisteditor.pp
index 08890caf94..f7436e0246 100644
--- a/ideintf/imagelisteditor.pp
+++ b/ideintf/imagelisteditor.pp
@@ -148,9 +148,9 @@ begin
     Result.Canvas.FillRect(Bounds(0, 0, Width, Height));
 
     case Adjustment of
-    gaStretch: Result.Canvas.StretchDraw(Bounds(0, 0, Width, Height), B);
-    gaCrop: Result.Canvas.Draw(0, 0, B);
-    gaCenter: Result.Canvas.Draw((Width - B.Width) div 2, (Height - B.Height) div 2, B);
+      gaStretch: Result.Canvas.StretchDraw(Bounds(0, 0, Width, Height), B);
+      gaCrop: Result.Canvas.Draw(0, 0, B);
+      gaCenter: Result.Canvas.Draw((Width - B.Width) div 2, (Height - B.Height) div 2, B);
     end;
   end;
   if TransparentColor = clDefault then