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.451 by h677, Mon Oct 4 11:10:00 2004 UTC revision 1.452 by h677, Fri Oct 8 15:12:51 2004 UTC
# Line 9315  var Line 9315  var
9315          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
9316          i: Integer;          i: Integer;
9317  begin  begin
         GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag,1);  
9318          ThreadItem := GetActiveContent;          ThreadItem := GetActiveContent;
9319          for i := BrowserTab.Tabs.Count - 1 downto 0 do          GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 1, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG'));
9320                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;          FActiveContent.Repaint := true;
   
9321          if ThreadItem <> nil then          if ThreadItem <> nil then
9322                  InsertBrowserTab( ThreadItem, True );                  InsertBrowserTab( ThreadItem, True );
9323  end;  end;
# Line 9329  var Line 9327  var
9327          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
9328          i: Integer;          i: Integer;
9329  begin  begin
         GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag,0);  
9330          ThreadItem := GetActiveContent;          ThreadItem := GetActiveContent;
9331          for i := BrowserTab.Tabs.Count - 1 downto 0 do          GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 0, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG'));
9332                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;          FActiveContent.Repaint := true;
9333          if ThreadItem <> nil then          if ThreadItem <> nil then
9334                  InsertBrowserTab( ThreadItem, True );                  InsertBrowserTab( ThreadItem, True );
9335  end;  end;
9336  //個別あぼーん解除()  //個別あぼーん解除()
9337  procedure TGikoForm.AntiIndividualAbonClick(Sender: TObject);  procedure TGikoForm.AntiIndividualAbonClick(Sender: TObject);
9338  var  var
9339            IndividualForm :TIndividualAbonForm;
9340          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
9341          msg : String;          msg : String;
         i: Integer;  
9342  begin  begin
9343          if GikoSys.FAbon.GetAbonResCount <> 0 then begin          IndividualForm := TIndividualAbonForm.Create(Self);
9344                  GikoSys.FAbon.DeleteIndividualAbon(KokoPopupMenu.Tag);          try
9345                  ThreadItem := GetActiveContent;                  ThreadItem := GetActiveContent;
9346                  for i := BrowserTab.Tabs.Count - 1 downto 0 do                  if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
9347                          TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;                          if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin
9348                  if ThreadItem <> nil then                                  if IndividualForm.DeleteNG(KokoPopupMenu.Tag) then begin
9349                          InsertBrowserTab( ThreadItem, True );                                          FActiveContent.Repaint := true;
9350          end else begin                                          InsertBrowserTab( ThreadItem, True );
9351                  msg := 'このスレッドでは個別あぼ〜んを行ってません';                                  end;
9352                  MsgBox(Handle, msg, 'メッセージ', MB_OK);                          end else begin
9353                                    msg := 'このスレッドでは個別あぼ〜んを行ってません';
9354                                    MsgBox(Handle, msg, 'メッセージ', MB_OK);
9355                            end;
9356                    end;
9357            finally
9358                    IndividualForm.Release;
9359          end;          end;
9360  end;  end;
9361  //個別あぼーん解除  //個別あぼーん解除
# Line 9360  procedure TGikoForm.N42Click(Sender: TOb Line 9363  procedure TGikoForm.N42Click(Sender: TOb
9363  var  var
9364          IndividualForm :TIndividualAbonForm;          IndividualForm :TIndividualAbonForm;
9365          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
         i : Integer;  
9366          msg : String;          msg : String;
9367  begin  begin
9368          IndividualForm := TIndividualAbonForm.Create(Self);          IndividualForm := TIndividualAbonForm.Create(Self);
9369          try          try
                 if GikoSys.FAbon.GetAbonResCount <> 0 then begin  
                         for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin  
                         IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i));  
                         end;  
                         if IndividualForm.ShowModal = mrOK then begin  
                                 GikoSys.FAbon.DeleteIndividualAbon(IndividualForm.ResNumber);  
                 end;  
                 for i := BrowserTab.Tabs.Count - 1 downto 0 do  
                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;  
9370                  ThreadItem := GetActiveContent;                  ThreadItem := GetActiveContent;
9371                  if ThreadItem <> nil then                  if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
9372                          InsertBrowserTab( ThreadItem, True );                          if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin
9373                  end else begin                                  if IndividualForm.ShowModal = mrOK then begin
9374                          msg := 'このスレッドでは個別あぼ〜んを行ってません';                                          if IndividualForm.FRepaint then begin
9375                          MsgBox(Handle, msg, 'メッセージ', MB_OK);                                                  FActiveContent.Repaint := true;
9376                                                    InsertBrowserTab( ThreadItem, True );
9377                                            end;
9378                                    end;
9379                            end else begin
9380                                    msg := 'このスレッドでは個別あぼ〜んを行ってません';
9381                                    MsgBox(Handle, msg, 'メッセージ', MB_OK);
9382                            end;
9383                  end;                  end;
9384          finally          finally
9385                  IndividualForm.Free;                  IndividualForm.Release;
9386          end;          end;
9387  end;  end;
9388    
# Line 11214  var Line 11214  var
11214          i: Integer;          i: Integer;
11215  begin  begin
11216          for i := BROWSER_COUNT - 1 downto 0 do begin          for i := BROWSER_COUNT - 1 downto 0 do begin
11217                  SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER);                  SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOACTIVATE + SWP_NOCOPYBITS + SWP_NOREDRAW + SWP_NOMOVE + SWP_NOZORDER);
11218          end;          end;
11219    
11220  end;  end;
11221    
11222  procedure TGikoForm.LogFolderOpenActionExecute(Sender: TObject);  procedure TGikoForm.LogFolderOpenActionExecute(Sender: TObject);

Legend:
Removed from v.1.451  
changed lines
  Added in v.1.452

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