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.373 by genyakun, Sat Jul 31 08:20:34 2004 UTC revision 1.374 by yoffy, Mon Aug 2 12:48:18 2004 UTC
# Line 3544  begin Line 3544  begin
3544                          Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']';                          Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']';
3545                          //Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき                          //Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき
3546                          //新規にThreadを開いたときに真になっている。                          //新規にThreadを開いたときに真になっている。
3547                          if(Thread.Repaint) or (Thread.OnlyHundred <> GikoSys.OnlyAHundredRes)then begin  //                      if(Thread.Repaint) or (Thread.OnlyHundred <> GikoSys.OnlyAHundredRes)then begin
3548                            if Thread.Repaint then begin
3549                                  //Thread.LastSize := ThreadItem.Size;                                  //Thread.LastSize := ThreadItem.Size;
3550                                  Thread.Repaint := false;                                  Thread.Repaint := false;
3551                                  try                                  try
# Line 6120  begin Line 6121  begin
6121                                  FBrowsers.Move(BROWSER_COUNT - 1, 0);                                  FBrowsers.Move(BROWSER_COUNT - 1, 0);
6122                          end;                          end;
6123                          TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;                          TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;
6124                          GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;  //                      GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;
6125                          OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;  //                      OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;
6126                          SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx]));                          SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx]));
6127    
6128                          if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then                          if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then
# Line 8593  var Line 8594  var
8594          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
8595          FilterList : TStringList;          FilterList : TStringList;
8596          i, idx : Integer;          i, idx : Integer;
8597            lastStatus      : Integer;
8598  begin  begin
8599            if Length( SelectComboBox.Text ) > 0 then lastStatus := 1
8600            else if GikoSys.OnlyAHundredRes then lastStatus := 2
8601            else lastStatus := 0;
8602          Dlg := TListSelectDialog.Create(Self);          Dlg := TListSelectDialog.Create(Self);
8603          try          try
8604                  Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList);                  Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList);
# Line 8601  begin Line 8606  begin
8606                  Dlg.ShowModal;                  Dlg.ShowModal;
8607                  if Dlg.ModalResult = mrOK then begin                  if Dlg.ModalResult = mrOK then begin
8608                          if Length( Dlg.SelectComboBox.Text ) = 0 then begin                          if Length( Dlg.SelectComboBox.Text ) = 0 then begin
8609                                  // 空入力で OK は全レス表示と同意義                                  // 空入力で OK はキャンセルと同意義
8610                                  AllResAction.Execute;                                  case lastStatus of
8611                                    0:      AllResAction.Execute;
8612                                    1:      AllResAction.Execute;
8613                                    2:      OnlyAHundredRes.Execute;
8614                                    end;
8615                          end else begin                          end else begin
8616                                  // ボタンの更新                                  // ボタンの更新
8617                                  AllResAction.Checked := False;                                  AllResAction.Checked := False;
8618                                  SelectResAction.Checked := True;                                  SelectResAction.Checked := True;
8619                                    OnlyAHundredRes.Checked := False;
8620    
8621                                  // 最後に設定したものを覚えておく                                  // 最後に設定したものを覚えておく
8622                                  FSelectResWord := Dlg.SelectComboBox.Text;                                  FSelectResWord := Dlg.SelectComboBox.Text;
# Line 8646  begin Line 8656  begin
8656                                  if ThreadItem <> nil then                                  if ThreadItem <> nil then
8657                                          InsertBrowserTab( ThreadItem, True );                                          InsertBrowserTab( ThreadItem, True );
8658                          end;                          end;
8659                  end else if Length( FSelectResWord ) > 0 then begin                  end else begin
8660                            // キャンセル
8661                            case lastStatus of
8662                            0:      AllResAction.Execute;
8663                            2:      OnlyAHundredRes.Execute;
8664                            end;
8665                          // ボタンの更新                          // ボタンの更新
8666                          AllResAction.Checked := False;  //                      AllResAction.Checked := False;
8667                          SelectResAction.Checked := True;  //                      SelectResAction.Checked := True;
8668    //                      OnlyAHundredRes.Checked := False;
8669    //                      GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked;
8670                  end;                  end;
8671          finally          finally
8672                  Dlg.Release;                  Dlg.Release;
# Line 8680  begin Line 8697  begin
8697          // ボタンの更新          // ボタンの更新
8698          AllResAction.Checked := True;          AllResAction.Checked := True;
8699          SelectResAction.Checked := False;          SelectResAction.Checked := False;
8700            OnlyAHundredRes.Checked := False;
8701    
8702            if (Length( FSelectResWord ) > 0) or GikoSys.OnlyAHundredRes then begin
8703                    GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked;
8704    
         if Length( FSelectResWord ) > 0 then begin  
8705                  // フィルタ文字列を空にする                  // フィルタ文字列を空にする
8706                  FilterList := TStringList.Create;                  FilterList := TStringList.Create;
8707                  try                  try
# Line 9674  begin Line 9694  begin
9694  end;  end;
9695    
9696  procedure TGikoForm.OnlyAHundredResExecute(Sender: TObject);  procedure TGikoForm.OnlyAHundredResExecute(Sender: TObject);
9697    var
9698            ThreadItem : TThreadItem;
9699            FilterList : TStringList;
9700            i: Integer;
9701  begin  begin
9702          if (FActiveContent <> nil) and (FActiveContent.FBrowser.Busy) then begin          if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
9703                  AHundredResButton.Down := not AHundredResButton.Down;                  and (FActiveContent.FBrowser.Busy) then Exit;
9704                  Exit;  
9705          end;          // 表示の更新
9706          GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked;          AllResAction.Checked := False;
9707          if FActiveContent <> nil then begin          SelectResAction.Checked := False;
9708                  SetContent(FActiveContent);          OnlyAHundredRes.Checked := True;
9709    
9710            if (Length( FSelectResWord ) > 0) or (not GikoSys.OnlyAHundredRes) then begin
9711                    // フィルタ文字列を空にする
9712                    FilterList := TStringList.Create;
9713                    try
9714                            GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
9715                            GikoSys.FSelectResFilter.Reverse := False;
9716                    finally
9717                            FilterList.Destroy;
9718                    end;
9719    
9720                    FSelectResWord := '';
9721                    GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked;
9722    
9723                    // スレッドを再描画
9724                    for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
9725                            TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
9726                    end;
9727                    ThreadItem := GetActiveContent;
9728                    if ThreadItem <> nil then
9729                            InsertBrowserTab( ThreadItem, True );
9730          end;          end;
9731  end;  end;
9732    

Legend:
Removed from v.1.373  
changed lines
  Added in v.1.374

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