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.597 by h677, Sun Feb 26 16:40:52 2006 UTC revision 1.598 by h677, Sat Mar 4 12:31:45 2006 UTC
# Line 668  type Line 668  type
668                  procedure OpenThreadItem(Thread: TThreadItem; URL: String);                  procedure OpenThreadItem(Thread: TThreadItem; URL: String);
669                  //! ListView(スレッド一覧)を更新する                  //! ListView(スレッド一覧)を更新する
670                  procedure RefreshListView(Thread: TThreadItem);                  procedure RefreshListView(Thread: TThreadItem);
671                    //! スレッド一覧の表示範囲設定チェッククリア
672                    procedure ClearThreadRengeAction;
673          protected          protected
674                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
675                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 5810  end; Line 5812  end;
5812    
5813  procedure TGikoForm.SetSelectWord( const text : string );  procedure TGikoForm.SetSelectWord( const text : string );
5814  begin  begin
5815            // スレ一覧の範囲指定を解除
5816            ClearThreadRengeAction;
5817    
5818          if Length( text ) = 0 then          if Length( text ) = 0 then
5819          begin          begin
5820                  GikoDM.AllItemAction.Checked := True;                  GikoDM.AllItemAction.Checked := True;
                 GikoDM.LogItemAction.Checked := False;  
                 GikoDM.NewItemAction.Checked := False;  
         end else begin  
                 // チラつくと嫌だから、一応押してあるときだけ処理する  
                 if GikoDM.AllItemAction.Checked then  
                         GikoDM.AllItemAction.Checked := False;  
                 if GikoDM.LogItemAction.Checked then  
                         GikoDM.LogItemAction.Checked := False;  
                 if GikoDM.NewItemAction.Checked then  
                         GikoDM.NewItemaction.Checked := False;  
         end;  
   
         if Length( text ) = 0 then  
5821                  SetListViewType( gvtAll )                  SetListViewType( gvtAll )
5822          else          end else begin
5823                  SetListViewType( gvtUser, text, false );                  SetListViewType( gvtUser, text, false );
5824            end;
5825  end;  end;
5826    
5827  procedure TGikoForm.SelectComboBoxChange(Sender: TObject);  procedure TGikoForm.SelectComboBoxChange(Sender: TObject);
# Line 5866  begin Line 5857  begin
5857                          end else                          end else
5858                                  Str := SelectComboBox.Text + Str;                                  Str := SelectComboBox.Text + Str;
5859    
5860                          SetSelectWord(Str);                          if (Length(Str) > 0) then begin
5861                                    SetSelectWord(Str);
5862                            end;
5863                  end;                  end;
5864          end else if Length( SelectComboBox.Text ) = 0 then          end else if Length( SelectComboBox.Text ) = 0 then
5865          begin          begin
# Line 5875  begin Line 5868  begin
5868                   * (ここでは何もしない)                   * (ここでは何もしない)
5869                   *}                   *}
5870          end else begin          end else begin
5871                  // チラつくと嫌だから、一応押してあるときだけ処理する          // スレ一覧の範囲指定を解除
5872                  if GikoDM.AllItemAction.Checked then                  ClearThreadRengeAction;
                         GikoDM.AllItemAction.Checked := False;  
                 if GikoDM.LogItemAction.Checked then  
                         GikoDM.LogItemAction.Checked := False;  
                 if GikoDM.NewItemAction.Checked then  
                         GikoDM.NewItemaction.Checked := False;  
5873          end;          end;
5874    
5875  end;  end;
5876    //! スレッド一覧の表示範囲設定チェッククリア
5877    procedure TGikoForm.ClearThreadRengeAction;
5878    begin
5879            // チラつくと嫌だから、一応押してあるときだけ処理する
5880            if GikoDM.AllItemAction.Checked then
5881                    GikoDM.AllItemAction.Checked := False;
5882            if GikoDM.LogItemAction.Checked then
5883                    GikoDM.LogItemAction.Checked := False;
5884            if GikoDM.NewItemAction.Checked then
5885                    GikoDM.NewItemaction.Checked := False;
5886            if GikoDM.LiveItemAction.Checked then
5887                    GikoDM.LiveItemAction.Checked := False;
5888            if GikoDM.ArchiveItemAction.Checked then
5889                    GikoDM.ArchiveItemAction.Checked := False;
5890    
5891    end;
5892    
5893  procedure TGikoForm.SelectComboBoxExit(Sender: TObject);  procedure TGikoForm.SelectComboBoxExit(Sender: TObject);
5894  begin  begin

Legend:
Removed from v.1.597  
changed lines
  Added in v.1.598

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