From 84775a80a01aaa0635d5314710c04327951966b4 Mon Sep 17 00:00:00 2001
From: yangjixian <yangjixian@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 5 Feb 2013 15:15:06 +0000
Subject: [PATCH] add a icon select dialog.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2657 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../lazimageeditor/iconsizeselection.lfm      | 42 +++++++++++++++++++
 .../lazimageeditor/iconsizeselection.pas      | 31 ++++++++++++++
 .../lazimageeditor/lazimageeditor.ini         |  2 +-
 .../lazimageeditor/lazimageeditor.lpi         |  9 +++-
 .../lazimageeditor/lazimageeditor.pas         |  4 +-
 applications/lazimageeditor/main.pas          |  4 +-
 6 files changed, 88 insertions(+), 4 deletions(-)
 create mode 100644 applications/lazimageeditor/iconsizeselection.lfm
 create mode 100644 applications/lazimageeditor/iconsizeselection.pas

diff --git a/applications/lazimageeditor/iconsizeselection.lfm b/applications/lazimageeditor/iconsizeselection.lfm
new file mode 100644
index 000000000..32158c39e
--- /dev/null
+++ b/applications/lazimageeditor/iconsizeselection.lfm
@@ -0,0 +1,42 @@
+object SelectIconSizeForm: TSelectIconSizeForm
+  Left = 304
+  Height = 99
+  Top = 61
+  Width = 213
+  BorderStyle = bsDialog
+  Caption = 'Select a size of the ICON'
+  ClientHeight = 99
+  ClientWidth = 213
+  Font.CharSet = GB2312_CHARSET
+  Font.Height = -13
+  Font.Name = '微软雅黑'
+  Font.Pitch = fpVariable
+  Font.Quality = fqDraft
+  Position = poMainFormCenter
+  LCLVersion = '1.1'
+  object IconSizeComboBox: TComboBox
+    Left = 28
+    Height = 27
+    Top = 19
+    Width = 159
+    ItemHeight = 19
+    ItemIndex = 0
+    Items.Strings = (
+      '32'
+      '48'
+      '64'
+    )
+    Style = csDropDownList
+    TabOrder = 0
+    Text = '32'
+  end
+  object Button1: TButton
+    Left = 104
+    Height = 29
+    Top = 56
+    Width = 83
+    Caption = '&OK'
+    ModalResult = 1
+    TabOrder = 1
+  end
+end
diff --git a/applications/lazimageeditor/iconsizeselection.pas b/applications/lazimageeditor/iconsizeselection.pas
new file mode 100644
index 000000000..800c70dbf
--- /dev/null
+++ b/applications/lazimageeditor/iconsizeselection.pas
@@ -0,0 +1,31 @@
+unit iconsizeselection;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
+
+type
+
+  { TSelectIconSizeForm }
+
+  TSelectIconSizeForm = class(TForm)
+    Button1: TButton;
+    IconSizeComboBox: TComboBox;
+  private
+    { private declarations }
+  public
+    { public declarations }
+  end;
+
+var
+  SelectIconSizeForm: TSelectIconSizeForm;
+
+implementation
+
+{$R *.lfm}
+
+end.
+
diff --git a/applications/lazimageeditor/lazimageeditor.ini b/applications/lazimageeditor/lazimageeditor.ini
index e6a50d93a..3ed8894cf 100644
--- a/applications/lazimageeditor/lazimageeditor.ini
+++ b/applications/lazimageeditor/lazimageeditor.ini
@@ -2,4 +2,4 @@
 Language=0
 
 [UNIX]
-MyDirectory=T:\LazImageEditor\
+MyDirectory=T:\ImageEditor\
diff --git a/applications/lazimageeditor/lazimageeditor.lpi b/applications/lazimageeditor/lazimageeditor.lpi
index b05e3ddcc..13acc15ff 100644
--- a/applications/lazimageeditor/lazimageeditor.lpi
+++ b/applications/lazimageeditor/lazimageeditor.lpi
@@ -76,7 +76,7 @@
         <PackageName Value="LCL"/>
       </Item3>
     </RequiredPackages>
-    <Units Count="15">
+    <Units Count="16">
       <Unit0>
         <Filename Value="lazimageeditor.pas"/>
         <IsPartOfProject Value="True"/>
@@ -172,6 +172,13 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="lieconstants"/>
       </Unit14>
+      <Unit15>
+        <Filename Value="iconsizeselection.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="SelectIconSizeForm"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="iconsizeselection"/>
+      </Unit15>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
diff --git a/applications/lazimageeditor/lazimageeditor.pas b/applications/lazimageeditor/lazimageeditor.pas
index 53fc5ba38..91caab76c 100644
--- a/applications/lazimageeditor/lazimageeditor.pas
+++ b/applications/lazimageeditor/lazimageeditor.pas
@@ -16,7 +16,8 @@ uses
   ResizeDialog,
   ResizePaperDialog,
   PictureDialog,
-  AboutDialog, DLBitmap, IconStrConsts, appsettings, lieconstants;
+  AboutDialog, DLBitmap, IconStrConsts, appsettings, lieconstants, 
+iconsizeselection;
 
 {$R *.res}
 
@@ -37,6 +38,7 @@ begin
     MainForm.OpenImageFile(ParamStr(1))
   else
     MainForm.FileNewOnStart;
+  Application.CreateForm(TSelectIconSizeForm, SelectIconSizeForm);
   Application.Run;
 end.
 
diff --git a/applications/lazimageeditor/main.pas b/applications/lazimageeditor/main.pas
index 4b1ce8d88..bbfd67ad4 100644
--- a/applications/lazimageeditor/main.pas
+++ b/applications/lazimageeditor/main.pas
@@ -340,7 +340,7 @@ var
 
 implementation
 
-uses Test, IconStrConsts;
+uses Test, IconStrConsts, iconsizeselection;
 
 procedure SetControlsEnabled(AControl: TControl; AEnabled: boolean);
 var
@@ -1230,6 +1230,8 @@ end;
 
 procedure TMainForm.OpenImageFile(FileName: string);
 begin
+  if UpperCase(ExtractFileExt(FileName)) = '.ICO' then
+    SelectIconSizeForm.ShowModal;
   Pictures.Load(FileName);
 end;