| 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; |
| 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 |
|
|
| 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); |