GikoFormで利用しているImageListに外部のbmpファイルを読み込む処理を追加。

（ファイルパス、ファイル名固定で、存在すれば読み込む）

diff --git a/Giko.pas b/Giko.pas
index 575b7be..9fc829b 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -696,7 +696,8 @@ type
         procedure AcceptDropFiles(var Msg: TMsg);
         //! \83X\83\8c\83b\83h\88ê\97\97\8dX\90V\8f\88\97\9d
         procedure UpdateListView();
-
+        //! \83A\83C\83R\83\93\93Ç\82Ý\8d\9e\82Ý
+        procedure LoadIcon();
        protected
                procedure CreateParams(var Params: TCreateParams); override;
                procedure WndProc(var Message: TMessage); override;
@@ -934,6 +935,9 @@ begin
        //\8eè\82Ì\83J\81[\83\\83\8b
        Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
 
+    // \83A\83C\83R\83\93\82Ì\93Ç\82Ý\8eæ\82è
+    LoadIcon;
+
        //\83A\83h\83\8c\83X\97\9a\97ð\93Ç\82Ý\8d\9e\82Ý
        AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.MaxRecordCount);
 
@@ -7953,6 +7957,53 @@ begin
         FResPopupBrowser.CurrentBrowser.ChildClear;
     end;
 end;
+//! \83A\83C\83R\83\93\93Ç\82Ý\8d\9e\82Ý
+procedure TGikoForm.LoadIcon();
+const
+    ICONI6 = 'icon16.bmp';
+    ICON32 = 'icon32.bmp';
+    ICONSTAT  = 'state_icon.bmp';
+    ICONMES = 'message_icon.bmp';
+    ICONADD = 'address_icon.bmp';
+    ICONITEM = 'item_icon.bmp';
+    ICONTOOL = 'hottoolbar_icon.bmp';
+begin
+    if FileExists(GikoSys.Setting.GetAppDir + ICONI6) then begin
+        ItemIcon16.Clear;
+        ItemIcon16.FileLoad(rtBitmap,
+            GikoSys.Setting.GetAppDir + ICONI6, clPurple);
+    end;
+    if FileExists(GikoSys.Setting.GetAppDir + ICON32) then begin
+        ItemIcon32.Clear;
+        ItemIcon32.FileLoad(rtBitmap,
+            GikoSys.Setting.GetAppDir + ICON32, clPurple);
+    end;
+    if FileExists(GikoSys.Setting.GetAppDir + ICONSTAT) then begin
+        StateIconImageList.Clear;
+        StateIconImageList.FileLoad(rtBitmap,
+            GikoSys.Setting.GetAppDir + ICONSTAT, clPurple);
+    end;
+    if FileExists(GikoSys.Setting.GetAppDir + ICONMES) then begin
+        MessageImageList.Clear;
+        MessageImageList.FileLoad(rtBitmap,
+            GikoSys.Setting.GetAppDir + ICONMES, clPurple);
+    end;
+    if FileExists(GikoSys.Setting.GetAppDir + ICONADD) then begin
+        AddressImageList.Clear;
+        AddressImageList.FileLoad(rtBitmap,
+            GikoSys.Setting.GetAppDir + ICONADD, clPurple);
+    end;
+    if FileExists(GikoSys.Setting.GetAppDir + ICONITEM) then begin
+        ItemImageList.Clear;
+        ItemImageList.FileLoad(rtBitmap,
+            GikoSys.Setting.GetAppDir + ICONITEM, clPurple);
+    end;
+    if FileExists(GikoSys.Setting.GetAppDir + ICONTOOL) then begin
+        HotToobarImageList.Clear;
+        HotToobarImageList.FileLoad(rtBitmap,
+            GikoSys.Setting.GetAppDir + ICONTOOL, clPurple);
+    end;
+end;
 
 initialization
                                OleInitialize(nil);

diff --git a/gikoNavi.res b/gikoNavi.res
index 982f1d3..45cdc0f 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ