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.42 by h677, Fri Sep 5 11:24:33 2003 UTC revision 1.43 by yoffy, Sun Sep 7 01:21:19 2003 UTC
# Line 895  uses Line 895  uses
895  const  const
896          CAPTION_NAME: string = 'ギコナビ';          CAPTION_NAME: string = 'ギコナビ';
897          BLANK_HTML: string = 'about:blank';          BLANK_HTML: string = 'about:blank';
898    SELECTCOMBOBOX_NAME: string = 'スレッド絞込検索';    SELECTCOMBOBOX_NAME: string = ''; // 'スレッド絞込検索';
899      SELECTCOMBOBOX_COLOR: TColor = clWindow;
900    
901          //ツリー・リストアイコン          //ツリー・リストアイコン
902          ITEM_ICON_2CH1                                  = 0;            //2chアイコン          ITEM_ICON_2CH1                                  = 0;            //2chアイコン
# Line 3680  begin Line 3681  begin
3681      // SelectComboBox の値をクリア      // SelectComboBox の値をクリア
3682      if SelectComboBox.Parent <> nil then begin      if SelectComboBox.Parent <> nil then begin
3683        SelectComboBox.Text := SELECTCOMBOBOX_NAME;        SelectComboBox.Text := SELECTCOMBOBOX_NAME;
3684        SelectComboBox.Color := clSkyBlue;        SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
3685        ListView.SetFocus;        ListView.SetFocus;
3686      end;      end;
3687    except    except
# Line 3701  begin Line 3702  begin
3702      // SelectComboBox の値をクリア      // SelectComboBox の値をクリア
3703      if SelectComboBox.Parent <> nil then begin      if SelectComboBox.Parent <> nil then begin
3704        SelectComboBox.Text := SELECTCOMBOBOX_NAME;        SelectComboBox.Text := SELECTCOMBOBOX_NAME;
3705        SelectComboBox.Color := clSkyBlue;        SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
3706        ListView.SetFocus;        ListView.SetFocus;
3707      end;      end;
3708    except    except
# Line 3723  begin Line 3724  begin
3724      // SelectComboBox の値をクリア      // SelectComboBox の値をクリア
3725      if SelectComboBox.Parent <> nil then begin      if SelectComboBox.Parent <> nil then begin
3726        SelectComboBox.Text := SELECTCOMBOBOX_NAME;        SelectComboBox.Text := SELECTCOMBOBOX_NAME;
3727        SelectComboBox.Color := clSkyBlue;        SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
3728        ListView.SetFocus;        ListView.SetFocus;
3729      end;      end;
3730    except    except
# Line 3765  begin Line 3766  begin
3766        if Length( SelectComboBox.Text ) = 0 then begin        if Length( SelectComboBox.Text ) = 0 then begin
3767          AllItemAction.Checked := True;          AllItemAction.Checked := True;
3768          SelectComboBox.Text := SELECTCOMBOBOX_NAME;          SelectComboBox.Text := SELECTCOMBOBOX_NAME;
3769          SelectComboBox.Color := clSkyBlue;          SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
3770        end;        end;
3771    
3772        if GetActiveList is TBoard then        if GetActiveList is TBoard then
# Line 3781  begin Line 3782  begin
3782    
3783        if Length( Dlg.SelectComboBox.Text ) = 0 then begin        if Length( Dlg.SelectComboBox.Text ) = 0 then begin
3784          SelectComboBox.Text := SELECTCOMBOBOX_NAME;          SelectComboBox.Text := SELECTCOMBOBOX_NAME;
3785          SelectComboBox.Color := clSkyBlue;          SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
3786        end else begin        end else begin
3787          SelectComboBox.Text := Dlg.SelectComboBox.Text;          SelectComboBox.Text := Dlg.SelectComboBox.Text;
3788          SelectComboBox.Color := clWindow;          SelectComboBox.Color := clWindow;
# Line 6770  begin Line 6771  begin
6771    if Length( SelectComboBox.Text ) = 0 then    if Length( SelectComboBox.Text ) = 0 then
6772    begin    begin
6773      SelectComboBox.Text := SELECTCOMBOBOX_NAME;      SelectComboBox.Text := SELECTCOMBOBOX_NAME;
6774      SelectComboBox.Color := clSkyBlue;      SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
6775    end;    end;
6776    
6777  end;  end;

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

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