Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.679 by h677, Tue Sep 23 11:06:17 2008 UTC revision 1.680 by h677, Tue Sep 23 12:44:37 2008 UTC
# Line 696  type Line 696  type
696          procedure AcceptDropFiles(var Msg: TMsg);          procedure AcceptDropFiles(var Msg: TMsg);
697          //! スレッド一覧更新処理          //! スレッド一覧更新処理
698          procedure UpdateListView();          procedure UpdateListView();
699            //! アイコン読み込み
700            procedure LoadIcon();
701          protected          protected
702                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
703                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 934  begin Line 935  begin
935          //手のカーソル          //手のカーソル
936          Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');          Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
937    
938        // アイコンの読み取り
939        LoadIcon;
940    
941          //アドレス履歴読み込み          //アドレス履歴読み込み
942          AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.MaxRecordCount);          AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.MaxRecordCount);
943    
# Line 7953  begin Line 7957  begin
7957          FResPopupBrowser.CurrentBrowser.ChildClear;          FResPopupBrowser.CurrentBrowser.ChildClear;
7958      end;      end;
7959  end;  end;
7960    //! アイコン読み込み
7961    procedure TGikoForm.LoadIcon();
7962    const
7963        ICONI6 = 'icon16.bmp';
7964        ICON32 = 'icon32.bmp';
7965        ICONSTAT  = 'state_icon.bmp';
7966        ICONMES = 'message_icon.bmp';
7967        ICONADD = 'address_icon.bmp';
7968        ICONITEM = 'item_icon.bmp';
7969        ICONTOOL = 'hottoolbar_icon.bmp';
7970    begin
7971        if FileExists(GikoSys.Setting.GetAppDir + ICONI6) then begin
7972            ItemIcon16.Clear;
7973            ItemIcon16.FileLoad(rtBitmap,
7974                GikoSys.Setting.GetAppDir + ICONI6, clPurple);
7975        end;
7976        if FileExists(GikoSys.Setting.GetAppDir + ICON32) then begin
7977            ItemIcon32.Clear;
7978            ItemIcon32.FileLoad(rtBitmap,
7979                GikoSys.Setting.GetAppDir + ICON32, clPurple);
7980        end;
7981        if FileExists(GikoSys.Setting.GetAppDir + ICONSTAT) then begin
7982            StateIconImageList.Clear;
7983            StateIconImageList.FileLoad(rtBitmap,
7984                GikoSys.Setting.GetAppDir + ICONSTAT, clPurple);
7985        end;
7986        if FileExists(GikoSys.Setting.GetAppDir + ICONMES) then begin
7987            MessageImageList.Clear;
7988            MessageImageList.FileLoad(rtBitmap,
7989                GikoSys.Setting.GetAppDir + ICONMES, clPurple);
7990        end;
7991        if FileExists(GikoSys.Setting.GetAppDir + ICONADD) then begin
7992            AddressImageList.Clear;
7993            AddressImageList.FileLoad(rtBitmap,
7994                GikoSys.Setting.GetAppDir + ICONADD, clPurple);
7995        end;
7996        if FileExists(GikoSys.Setting.GetAppDir + ICONITEM) then begin
7997            ItemImageList.Clear;
7998            ItemImageList.FileLoad(rtBitmap,
7999                GikoSys.Setting.GetAppDir + ICONITEM, clPurple);
8000        end;
8001        if FileExists(GikoSys.Setting.GetAppDir + ICONTOOL) then begin
8002            HotToobarImageList.Clear;
8003            HotToobarImageList.FileLoad(rtBitmap,
8004                GikoSys.Setting.GetAppDir + ICONTOOL, clPurple);
8005        end;
8006    end;
8007    
8008  initialization  initialization
8009                                  OleInitialize(nil);                                  OleInitialize(nil);

Legend:
Removed from v.1.679  
changed lines
  Added in v.1.680

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26