| 501 |
ToolButton20: TToolButton; |
ToolButton20: TToolButton; |
| 502 |
AHundredResButton: TToolButton; |
AHundredResButton: TToolButton; |
| 503 |
N60: TMenuItem; |
N60: TMenuItem; |
|
N61: TMenuItem; |
|
| 504 |
ExportFavoriteFileAction1: TMenuItem; |
ExportFavoriteFileAction1: TMenuItem; |
| 505 |
ExportFavoriteFile: TFileSaveAs; |
ExportFavoriteFile: TFileSaveAs; |
| 506 |
ToolButton21: TToolButton; |
ToolButton21: TToolButton; |
| 516 |
N20: TMenuItem; |
N20: TMenuItem; |
| 517 |
N24: TMenuItem; |
N24: TMenuItem; |
| 518 |
N62: TMenuItem; |
N62: TMenuItem; |
| 519 |
N63: TMenuItem; |
N61: TMenuItem; |
|
N441: TMenuItem; |
|
| 520 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 521 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 522 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 822 |
procedure UpBoardActionUpdate(Sender: TObject); |
procedure UpBoardActionUpdate(Sender: TObject); |
| 823 |
procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint; |
procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint; |
| 824 |
var Handled: Boolean); |
var Handled: Boolean); |
|
procedure N441Click(Sender: TObject); |
|
| 825 |
private |
private |
| 826 |
{ Private 宣言 } |
{ Private 宣言 } |
| 827 |
|
|
| 1115 |
//手のカーソル |
//手のカーソル |
| 1116 |
Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND'); |
Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND'); |
| 1117 |
|
|
|
//巡回データ読み込み |
|
|
RoundList := TRoundList.Create; |
|
|
RoundList.LoadRoundFile; |
|
| 1118 |
|
|
| 1119 |
//アドレス履歴読み込み |
//アドレス履歴読み込み |
| 1120 |
AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount); |
AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount); |
| 1123 |
InitializeBoardPlugIns; |
InitializeBoardPlugIns; |
| 1124 |
|
|
| 1125 |
EnabledCloseButton := True; |
EnabledCloseButton := True; |
| 1126 |
|
|
| 1127 |
|
|
| 1128 |
|
//巡回データ読み込み |
| 1129 |
|
RoundList := TRoundList.Create; |
| 1130 |
|
RoundList.LoadRoundBoardFile; |
| 1131 |
|
|
| 1132 |
// ボードファイル読込(ReadFavorite より先に行うこと) |
// ボードファイル読込(ReadFavorite より先に行うこと) |
| 1133 |
GikoSys.ReadBoardFile; |
GikoSys.ReadBoardFile; |
| 1134 |
// SetBoardTreeNode; //ツリーにボード追加 |
|
| 1135 |
|
RoundList.LoadRoundThreadFile; |
| 1136 |
|
|
| 1137 |
|
|
| 1138 |
|
|
| 1139 |
|
// SetBoardTreeNode; //ツリーにボード追加 |
| 1140 |
// メニューに追加 |
// メニューに追加 |
| 1141 |
for i := Length( BBSs ) - 1 downto 0 do begin |
for i := Length( BBSs ) - 1 downto 0 do begin |
| 1142 |
try |
try |
| 1154 |
end; |
end; |
| 1155 |
end; |
end; |
| 1156 |
|
|
| 1157 |
|
|
| 1158 |
// ヒストリリスト(LoadHistory よりも先に行うこと) |
// ヒストリリスト(LoadHistory よりも先に行うこと) |
| 1159 |
FHistoryList := TList.Create; |
FHistoryList := TList.Create; |
| 1160 |
|
|
| 8711 |
|
|
| 8712 |
end; |
end; |
| 8713 |
|
|
|
procedure TGikoForm.N441Click(Sender: TObject); |
|
|
begin |
|
|
RoundList.ConvertRoundFile; |
|
|
end; |
|
|
|
|
| 8714 |
initialization |
initialization |
| 8715 |
OleInitialize(nil); |
OleInitialize(nil); |
| 8716 |
finalization |
finalization |