| 1290 |
dummy1.Caption := ItemReservPMenu.Caption; |
dummy1.Caption := ItemReservPMenu.Caption; |
| 1291 |
dummy1.Hint := ItemReservPMenu.Hint; |
dummy1.Hint := ItemReservPMenu.Hint; |
| 1292 |
|
|
| 1293 |
|
// マウスジェスチャー |
| 1294 |
|
MouseGesture := TMouseGesture.Create; |
| 1295 |
|
|
| 1296 |
{$IFDEF SPAM_FILTER_ENABLED} |
{$IFDEF SPAM_FILTER_ENABLED} |
| 1297 |
// スパムフィルタ学習履歴 |
// スパムフィルタ学習履歴 |
| 1298 |
GikoSys.Bayesian.LoadFromFile( GikoSys.Setting.GetSpamFilterFileName ); |
GikoSys.Bayesian.LoadFromFile( GikoSys.Setting.GetSpamFilterFileName ); |
| 1299 |
{$ENDIF} |
{$ENDIF} |
| 1300 |
|
|
|
// マウスジェスチャー |
|
|
MouseGesture := TMouseGesture.Create; |
|
|
GikoSys.Setting.Gestures.LoadGesture( |
|
|
GikoSys.Setting.GetGestureFileName, GikoDM.GikoFormActionList ); |
|
|
MouseGesture.Margin := GikoSys.Setting.Gestures.Margin; |
|
|
MouseGesture.OnGestureStart := OnGestureStart; |
|
|
MouseGesture.OnGestureMove := OnGestureMove; |
|
|
MouseGesture.OnGestureEnd := OnGestureEnd; |
|
|
if GikoSys.Setting.GestureEnabled then |
|
|
MouseGesture.SetHook( Handle ); |
|
|
|
|
| 1301 |
//2ch言語読み出し |
//2ch言語読み出し |
| 1302 |
GikoSys.SetGikoMessage; |
GikoSys.SetGikoMessage; |
| 1303 |
|
|
| 1542 |
GikoDM.CloseAllEditorAction.Execute; |
GikoDM.CloseAllEditorAction.Execute; |
| 1543 |
|
|
| 1544 |
Application.UnhookMainWindow(Hook); |
Application.UnhookMainWindow(Hook); |
| 1545 |
//アプリケーション終了の前にダウンロードスレッドに正常終了を促す |
//アプリケーション終了の前にダウンロードスレッドに正常終了を促す |
| 1546 |
FControlThread.Terminate; |
try |
| 1547 |
|
FControlThread.Terminate; |
| 1548 |
|
FControlThread.WaitFor; |
| 1549 |
|
except |
| 1550 |
|
end; |
| 1551 |
Application.Terminate; |
Application.Terminate; |
| 1552 |
end; |
end; |
| 1553 |
|
|
| 1566 |
end; |
end; |
| 1567 |
MouseGesture.Clear; |
MouseGesture.Clear; |
| 1568 |
MouseGesture.UnHook; |
MouseGesture.UnHook; |
| 1569 |
// MouseGesture.Free; // Free するといけない? |
MouseGesture.Free; |
|
// MouseGesture := nil; |
|
| 1570 |
except |
except |
| 1571 |
end; |
end; |
| 1572 |
try |
try |
| 1702 |
end; |
end; |
| 1703 |
|
|
| 1704 |
try |
try |
| 1705 |
try |
FControlThread.Free; |
| 1706 |
FControlThread.Terminate; |
except |
|
FControlThread.WaitFor; |
|
|
except |
|
|
end; |
|
|
finally |
|
|
FControlThread.Free; |
|
| 1707 |
end; |
end; |
| 1708 |
// プラグインによって追加されたメニューを開放する |
// プラグインによって追加されたメニューを開放する |
| 1709 |
for i := GikoForm.PlugInMenu.Count - 1 downto 0 do begin |
for i := GikoForm.PlugInMenu.Count - 1 downto 0 do begin |
| 2443 |
end; |
end; |
| 2444 |
procedure TGikoForm.DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon); |
procedure TGikoForm.DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon); |
| 2445 |
begin |
begin |
| 2446 |
|
if csDestroying in Self.ComponentState then |
| 2447 |
|
Exit; |
| 2448 |
AddMessageList(Msg, nil, Icon); |
AddMessageList(Msg, nil, Icon); |
| 2449 |
end; |
end; |
| 2450 |
// ************************************************************************* |
// ************************************************************************* |
| 2459 |
Res : TResRec; |
Res : TResRec; |
| 2460 |
begin |
begin |
| 2461 |
try |
try |
| 2462 |
|
if csDestroying in Self.ComponentState then |
| 2463 |
|
Exit; |
| 2464 |
if Item.DownType = gdtBoard then |
if Item.DownType = gdtBoard then |
| 2465 |
ATitle := Item.Board.Title |
ATitle := Item.Board.Title |
| 2466 |
else |
else |
| 2602 |
begin |
begin |
| 2603 |
// SetProgressValue(Number, 0, AWorkCountMax); |
// SetProgressValue(Number, 0, AWorkCountMax); |
| 2604 |
// ProgressBar.Visible := True; |
// ProgressBar.Visible := True; |
| 2605 |
|
if csDestroying in Self.ComponentState then |
| 2606 |
|
Exit; |
| 2607 |
|
|
| 2608 |
ProgressBar.Position := 0; |
ProgressBar.Position := 0; |
| 2609 |
ProgressBar.Max := AWorkCountMax; |
ProgressBar.Max := AWorkCountMax; |
| 2610 |
FDownloadTitle := AWorkTitle; |
FDownloadTitle := AWorkTitle; |
| 2614 |
|
|
| 2615 |
procedure TGikoForm.WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer); |
procedure TGikoForm.WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer); |
| 2616 |
begin |
begin |
| 2617 |
|
if csDestroying in Self.ComponentState then |
| 2618 |
|
Exit; |
| 2619 |
ProgressBar.Position := 0; |
ProgressBar.Position := 0; |
| 2620 |
if FDownloadMax <> 0 then |
if FDownloadMax <> 0 then |
| 2621 |
StatusBar.Panels[1].Text := FDownloadTitle + ' - ダウンロードが完了しました'; |
StatusBar.Panels[1].Text := FDownloadTitle + ' - ダウンロードが完了しました'; |
| 2623 |
|
|
| 2624 |
procedure TGikoForm.Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer); |
procedure TGikoForm.Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer); |
| 2625 |
begin |
begin |
| 2626 |
|
if csDestroying in Self.ComponentState then |
| 2627 |
|
Exit; |
| 2628 |
ProgressBar.Position := AWorkCount; |
ProgressBar.Position := AWorkCount; |
| 2629 |
// SetProgressValue(Number, AWorkCount); |
// SetProgressValue(Number, AWorkCount); |
| 2630 |
StatusBar.Panels[1].Text := FDownloadTitle + ' - ダウンロード中 (' + IntToStr(AWorkCount) + '/' + IntToStr(FDownloadMax) + ')'; |
StatusBar.Panels[1].Text := FDownloadTitle + ' - ダウンロード中 (' + IntToStr(AWorkCount) + '/' + IntToStr(FDownloadMax) + ')'; |
| 7845 |
finalization |
finalization |
| 7846 |
OleUninitialize; |
OleUninitialize; |
| 7847 |
|
|
| 7848 |
|
|
| 7849 |
end. |
end. |