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.557 by h677, Fri Dec 9 17:06:30 2005 UTC revision 1.558 by h677, Sat Dec 10 06:54:32 2005 UTC
# Line 836  uses Line 836  uses
836          HTMLCreate, ListViewUtils, GikoDataModule;          HTMLCreate, ListViewUtils, GikoDataModule;
837    
838  const  const
         CAPTION_NAME: string = 'ギコナビ';  
839          BLANK_HTML: string = 'about:blank';          BLANK_HTML: string = 'about:blank';
840          BROWSER_COUNT           = 5;    //ブラウザの数          BROWSER_COUNT           = 5;    //ブラウザの数
841          //D&D閾値          //D&D閾値
842          DandD_THRESHOLD = 5;    //D&Dの閾値(pixcel)          DandD_THRESHOLD = 5;    //D&Dの閾値(pixcel)
843          //プレビューファイル名          //プレビューファイル名
844          HTML_FILE_NAME  = 'temp_preview.html';          HTML_FILE_NAME  = 'temp_preview.html';
         //スレッド絞込みボックス  
         SELECTCOMBOBOX_NAME: string = ''; // 'スレッド絞込検索';  
         SELECTCOMBOBOX_COLOR: TColor = clWindow;  
         //ツールバーアイコン  
         TOOL_ICON_HEIGHT_MAX            = 16;           //高さ最大アイコン  
         TOOL_ICON_HEIGHT_MIN            = 17;           //高さ最小アイコン  
         TOOL_ICON_HEIGHT_NORMAL = 18;           //高さ標準アイコン  
         TOOL_ICON_WIDTH_MAX             = 19;           //幅最大アイコン  
         TOOL_ICON_WIDTH_MIN             = 20;           //幅最小アイコン  
         TOOL_ICON_WIDTH_NORMAL  = 21;           //幅標準アイコン  
845          ITEM_ICON_THREADLOG1            = 6;            //スレアイコン(ログあり)          ITEM_ICON_THREADLOG1            = 6;            //スレアイコン(ログあり)
846          ITEM_ICON_THREADLOG2            = 7;            //スレアイコン(ログあり)          ITEM_ICON_THREADLOG2            = 7;            //スレアイコン(ログあり)
         TOOL_ICON_FAV_FOLDER            = 30;           //お気に入りフォルダアイコン  
         TOOL_ICON_FAV_BOARD                     = 31;           //お気に入り板アイコン  
         TOOL_ICON_FAV_THREAD            = 32;           //お気に入りスレアイコン  
847          //メッセージID          //メッセージID
848          USER_TREECLICK                                  = WM_USER + 2000;          USER_TREECLICK                                  = WM_USER + 2000;
849          USER_RESIZED            = WM_USER + 2001;          USER_RESIZED            = WM_USER + 2001;
# Line 1076  begin Line 1062  begin
1062                  case GikoSys.Setting.ListWidthState of                  case GikoSys.Setting.ListWidthState of
1063                          glsMax: begin                          glsMax: begin
1064                                  ViewPanel.Width := 1;                                  ViewPanel.Width := 1;
1065                                  GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;                                  GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_NORMAL;
1066                                  GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;                                  GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MIN;
1067                          end;                          end;
1068                          glsMin: begin                          glsMin: begin
1069                                  ViewPanel.Width := GikoSys.Setting.ListWidth;                                  ViewPanel.Width := GikoSys.Setting.ListWidth;
1070                                  GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;                                  GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MAX;
1071                                  GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;                                  GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_NORMAL;
1072                          end;                          end;
1073                          else begin                          else begin
1074                                  ViewPanel.Width := GikoSys.Setting.ListWidth;                                  ViewPanel.Width := GikoSys.Setting.ListWidth;
1075                                  GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;                                  GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MAX;
1076                                  GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;                                  GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MIN;
1077                          end;                          end;
1078                  end;                  end;
1079          end else begin          end else begin
1080                  case GikoSys.Setting.ListHeightState of                  case GikoSys.Setting.ListHeightState of
1081                          glsMax: begin                          glsMax: begin
1082                                  ViewPanel.Height := 1;                                  ViewPanel.Height := 1;
1083                                  GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;                                  GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_NORMAL;
1084                                  GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;                                  GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MIN;
1085                          end;                          end;
1086                          glsMin: begin                          glsMin: begin
1087                                  ViewPanel.Height := GikoSys.Setting.ListHeight;                                  ViewPanel.Height := GikoSys.Setting.ListHeight;
1088                                  GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;                                  GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MAX;
1089                                  GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;                                  GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_NORMAL;
1090                          end;                          end;
1091                          else begin                          else begin
1092                                  ViewPanel.Height := GikoSys.Setting.ListHeight;                                  ViewPanel.Height := GikoSys.Setting.ListHeight;
1093                                  GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;                                  GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MAX;
1094                                  GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;                                  GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MIN;
1095                          end;                          end;
1096                  end;                  end;
1097          end;          end;
# Line 2664  begin Line 2650  begin
2650                  FActiveContent := Thread;                  FActiveContent := Thread;
2651    
2652                  if not ThreadIsLog then begin                  if not ThreadIsLog then begin
2653                          Self.Caption := CAPTION_NAME ;                          Self.Caption := GikoDataModule.CAPTION_NAME ;
2654                          try                          try
2655                                  s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>';                                  s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>';
2656                                  doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;                                  doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;
# Line 2675  begin Line 2661  begin
2661                          finally                          finally
2662                          end;                          end;
2663                  end else begin                  end else begin
2664                          Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']';                          Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + ThreadTitle + ']';
2665                          //Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき                          //Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき
2666                          //新規にThreadを開いたときに真になっている。                          //新規にThreadを開いたときに真になっている。
2667                          if Thread.Repaint then begin                          if Thread.Repaint then begin
# Line 2756  begin Line 2742  begin
2742  //      ListView.Columns.Clear;  //      ListView.Columns.Clear;
2743                  if (FActiveContent <> nil) and (FActiveContent.Thread <> nil)                  if (FActiveContent <> nil) and (FActiveContent.Thread <> nil)
2744                          and (FActiveContent.Thread.IsLogFile) then                          and (FActiveContent.Thread.IsLogFile) then
2745                          Self.Caption := CAPTION_NAME + ' - [' + FActiveContent.Thread.Title + ']'                          Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + FActiveContent.Thread.Title + ']'
2746                  else                  else
2747                          Self.Caption := CAPTION_NAME;                          Self.Caption := GikoDataModule.CAPTION_NAME;
2748                  //Application.Title := CAPTION_NAME;                  //Application.Title := CAPTION_NAME;
2749    
2750  //              ActiveListColumnSave;  //              ActiveListColumnSave;
# Line 3820  var Line 3806  var
3806          idx: Integer;          idx: Integer;
3807          wkIntSt: Integer;          wkIntSt: Integer;
3808          wkIntTo: Integer;          wkIntTo: Integer;
         document: IHTMLDocument2;  
3809      BNum, BRes: string;      BNum, BRes: string;
3810      threadItem: TThreadItem;      threadItem: TThreadItem;
3811  begin  begin
# Line 3908  begin Line 3893  begin
3893          if GikoSys.Setting.ListOrientation = gloHorizontal then begin          if GikoSys.Setting.ListOrientation = gloHorizontal then begin
3894                  if ViewPanel.Width < 2 then begin                  if ViewPanel.Width < 2 then begin
3895                          ViewPanel.Width := 1;                          ViewPanel.Width := 1;
3896                          GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;                          GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_NORMAL;
3897                          GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;                          GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MIN;
3898                          GikoSys.Setting.ListWidthState := glsMax;                          GikoSys.Setting.ListWidthState := glsMax;
3899                  end else if ViewPanel.Width > (ThreadMainPanel.Width - 80) then begin                  end else if ViewPanel.Width > (ThreadMainPanel.Width - 80) then begin
3900                          GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;                          GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MAX;
3901                          GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;                          GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_NORMAL;
3902                          GikoSys.Setting.ListWidthState := glsMin;                          GikoSys.Setting.ListWidthState := glsMin;
3903                  end else begin                  end else begin
3904                          GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;                          GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MAX;
3905                          GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;                          GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MIN;
3906                          GikoSys.Setting.ListWidthState := glsNormal;                          GikoSys.Setting.ListWidthState := glsNormal;
3907                  end;                  end;
3908          end else begin          end else begin
3909                  if ViewPanel.Height < 2 then begin                  if ViewPanel.Height < 2 then begin
3910                          ViewPanel.Height := 1;                          ViewPanel.Height := 1;
3911                          GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;                          GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_NORMAL;
3912                          GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;                          GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MIN;
3913                          GikoSys.Setting.ListHeightState := glsMax;                          GikoSys.Setting.ListHeightState := glsMax;
3914                  end else if ViewPanel.Height > (ThreadMainPanel.Height - BrowserCoolBar.Height - 7) then begin                  end else if ViewPanel.Height > (ThreadMainPanel.Height - BrowserCoolBar.Height - 7) then begin
3915                          GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;                          GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MAX;
3916                          GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;                          GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_NORMAL;
3917                          GikoSys.Setting.ListHeightState := glsMin;                          GikoSys.Setting.ListHeightState := glsMin;
3918                  end else begin                  end else begin
3919                          GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;                          GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MAX;
3920                          GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;                          GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MIN;
3921                          GikoSys.Setting.ListHeightState := glsNormal;                          GikoSys.Setting.ListHeightState := glsNormal;
3922                  end;                  end;
3923          end;          end;
# Line 4371  begin Line 4356  begin
4356                  MenuItem.Add(NewMenu);                  MenuItem.Add(NewMenu);
4357    
4358                  if TObject(Node.Item[i].Data) is TFavoriteFolder then begin                  if TObject(Node.Item[i].Data) is TFavoriteFolder then begin
4359                          NewMenu.ImageIndex := TOOL_ICON_FAV_FOLDER;                          NewMenu.ImageIndex := GikoDataModule.TOOL_ICON_FAV_FOLDER;
4360                          CreateFavMenu(Node.Item[i], NewMenu);                          CreateFavMenu(Node.Item[i], NewMenu);
4361                  end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin                  end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin
4362                          NewMenu.ImageIndex := TOOL_ICON_FAV_BOARD;                          NewMenu.ImageIndex := GikoDataModule.TOOL_ICON_FAV_BOARD;
4363                          NewMenu.OnClick := FavoriteClick;                          NewMenu.OnClick := FavoriteClick;
4364                  end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin                  end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin
4365                          NewMenu.ImageIndex := TOOL_ICON_FAV_THREAD;                          NewMenu.ImageIndex := GikoDataModule.TOOL_ICON_FAV_THREAD;
4366                          NewMenu.OnClick := FavoriteClick;                          NewMenu.OnClick := FavoriteClick;
4367                  end;                  end;
4368          end;          end;
# Line 5099  begin Line 5084  begin
5084                                                  CreateFavMenu(FavoriteTreeView.Items[i].Item[j], MenuItem);                                                  CreateFavMenu(FavoriteTreeView.Items[i].Item[j], MenuItem);
5085                                                  LinkBarPopupMenu.Items.Add(MenuItem);                                                  LinkBarPopupMenu.Items.Add(MenuItem);
5086                                                  ToolButton.MenuItem := MenuItem;                                                  ToolButton.MenuItem := MenuItem;
5087                                                  ToolButton.ImageIndex := TOOL_ICON_FAV_FOLDER;                                                  ToolButton.ImageIndex := GikoDataModule.TOOL_ICON_FAV_FOLDER;
5088                                          end else if TObject(FavoriteTreeView.Items[i].Item[j].Data) is TFavoriteBoardItem then begin                                          end else if TObject(FavoriteTreeView.Items[i].Item[j].Data) is TFavoriteBoardItem then begin
5089                                                  ToolButton.ImageIndex := TOOL_ICON_FAV_BOARD;                                                  ToolButton.ImageIndex := GikoDataModule.TOOL_ICON_FAV_BOARD;
5090                                                  ToolButton.OnClick := FavoriteClick;                                                  ToolButton.OnClick := FavoriteClick;
5091                                          end else if TObject(FavoriteTreeView.Items[i].Item[j].Data) is TFavoriteThreadItem then begin                                          end else if TObject(FavoriteTreeView.Items[i].Item[j].Data) is TFavoriteThreadItem then begin
5092                                                  ToolButton.ImageIndex := TOOL_ICON_FAV_THREAD;                                                  ToolButton.ImageIndex := GikoDataModule.TOOL_ICON_FAV_THREAD;
5093                                                  ToolButton.OnClick := FavoriteClick;                                                  ToolButton.OnClick := FavoriteClick;
5094                                          end;                                          end;
5095                                          ToolButton.Caption := FavoriteTreeView.Items[i].Item[j].Text;                                          ToolButton.Caption := FavoriteTreeView.Items[i].Item[j].Text;
# Line 5815  begin Line 5800  begin
5800    
5801          if Length( SelectComboBox.Text ) = 0 then          if Length( SelectComboBox.Text ) = 0 then
5802          begin          begin
5803                  SelectComboBox.Text := SELECTCOMBOBOX_NAME;                  SelectComboBox.Text := GikoDataModule.SELECTCOMBOBOX_NAME;
5804                  SelectComboBox.Color := SELECTCOMBOBOX_COLOR;                  SelectComboBox.Color := GikoDataModule.SELECTCOMBOBOX_COLOR;
5805          end;          end;
5806    
5807  end;  end;
# Line 5918  procedure TGikoForm.SelectComboBoxEnter( Line 5903  procedure TGikoForm.SelectComboBoxEnter(
5903  begin  begin
5904    
5905          if (Length( SelectComboBox.Text ) = 0) or          if (Length( SelectComboBox.Text ) = 0) or
5906                  (SelectComboBox.Text = SELECTCOMBOBOX_NAME) then                  (SelectComboBox.Text = GikoDataModule.SELECTCOMBOBOX_NAME) then
5907          begin          begin
5908                  SelectComboBox.Text := '';                  SelectComboBox.Text := '';
5909                  SelectComboBox.Color := clWindow;                  SelectComboBox.Color := clWindow;

Legend:
Removed from v.1.557  
changed lines
  Added in v.1.558

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