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.658 by h677, Mon Feb 11 16:42:40 2008 UTC revision 1.659 by h677, Thu Feb 14 16:20:15 2008 UTC
# Line 1290  begin Line 1290  begin
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    
# Line 1550  begin Line 1542  begin
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    
# Line 1570  begin Line 1566  begin
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
# Line 1707  begin Line 1702  begin
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
# Line 2453  begin Line 2443  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  // *************************************************************************  // *************************************************************************
# Line 2467  var Line 2459  var
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
# Line 2608  procedure TGikoForm.WorkBegin(Sender: TO Line 2602  procedure TGikoForm.WorkBegin(Sender: TO
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;
# Line 2617  end; Line 2614  end;
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 + ' - ダウンロードが完了しました';
# Line 2624  end; Line 2623  end;
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) + ')';
# Line 7844  initialization Line 7845  initialization
7845  finalization  finalization
7846                                  OleUninitialize;                                  OleUninitialize;
7847    
7848    
7849  end.  end.

Legend:
Removed from v.1.658  
changed lines
  Added in v.1.659

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