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.515.2.14 by h677, Sun Jul 3 15:36:23 2005 UTC revision 1.515.2.15 by h677, Tue Jul 5 15:18:27 2005 UTC
# Line 648  type Line 648  type
648                  procedure SelectItemActionUpdate(Sender: TObject);                  procedure SelectItemActionUpdate(Sender: TObject);
649                  procedure UpFolderActionUpdate(Sender: TObject);                  procedure UpFolderActionUpdate(Sender: TObject);
650                  procedure FormResize(Sender: TObject);                  procedure FormResize(Sender: TObject);
                 procedure ScrollTopActionUpdate(Sender: TObject);  
                 procedure ScrollLastActionUpdate(Sender: TObject);  
                 procedure ScrollNewActionUpdate(Sender: TObject);  
651                  procedure ScrollKokoActionUpdate(Sender: TObject);                  procedure ScrollKokoActionUpdate(Sender: TObject);
                 procedure EditorActionUpdate(Sender: TObject);  
                 procedure IEActionUpdate(Sender: TObject);  
                 procedure ShowThreadActionUpdate(Sender: TObject);  
                 procedure ShowBoardActionUpdate(Sender: TObject);  
652                  procedure SelectThreadReloadActionUpdate(Sender: TObject);                  procedure SelectThreadReloadActionUpdate(Sender: TObject);
                 procedure ItemReloadActionUpdate(Sender: TObject);  
653                  procedure LogDeleteActionExecute(Sender: TObject);                  procedure LogDeleteActionExecute(Sender: TObject);
654                  procedure KokomadeActionExecute(Sender: TObject);                  procedure KokomadeActionExecute(Sender: TObject);
655                  procedure ZenbuActionExecute(Sender: TObject);                  procedure ZenbuActionExecute(Sender: TObject);
# Line 700  type Line 692  type
692                  procedure ArrangeActionExecute(Sender: TObject);                  procedure ArrangeActionExecute(Sender: TObject);
693                  procedure NameURLCopyActionExecute(Sender: TObject);                  procedure NameURLCopyActionExecute(Sender: TObject);
694                  procedure SelectItemNameURLCopyActionExecute(Sender: TObject);                  procedure SelectItemNameURLCopyActionExecute(Sender: TObject);
                 procedure URLCopyActionUpdate(Sender: TObject);  
                 procedure NameURLCopyActionUpdate(Sender: TObject);  
695                  procedure BrowserTabCloseActionUpdate(Sender: TObject);                  procedure BrowserTabCloseActionUpdate(Sender: TObject);
696                  procedure NotSelectTabCloseActionUpdate(Sender: TObject);                  procedure NotSelectTabCloseActionUpdate(Sender: TObject);
697                  procedure AllTabCloseActionUpdate(Sender: TObject);                  procedure AllTabCloseActionUpdate(Sender: TObject);
698                  procedure SelectItemNameURLCopyActionUpdate(Sender: TObject);                  procedure SelectItemNameURLCopyActionUpdate(Sender: TObject);
699                  procedure ActiveLogDeleteActionExecute(Sender: TObject);                  procedure ActiveLogDeleteActionExecute(Sender: TObject);
                 procedure ActiveLogDeleteActionUpdate(Sender: TObject);  
700                  procedure ListNameBarVisibleActionExecute(Sender: TObject);                  procedure ListNameBarVisibleActionExecute(Sender: TObject);
701                  procedure BrowserNameBarVisibleActionExecute(Sender: TObject);                  procedure BrowserNameBarVisibleActionExecute(Sender: TObject);
702                  procedure TreeSelectNameURLCopyExecute(Sender: TObject);                  procedure TreeSelectNameURLCopyExecute(Sender: TObject);
# Line 728  type Line 717  type
717                  procedure RightmostTabSelectActionUpdate(Sender: TObject);                  procedure RightmostTabSelectActionUpdate(Sender: TObject);
718                  procedure FavoriteMenuClick(Sender: TObject);                  procedure FavoriteMenuClick(Sender: TObject);
719                  procedure FavoriteAddActionExecute(Sender: TObject);                  procedure FavoriteAddActionExecute(Sender: TObject);
                 procedure FavoriteAddActionUpdate(Sender: TObject);  
720                  procedure BoardFavoriteAddActionExecute(Sender: TObject);                  procedure BoardFavoriteAddActionExecute(Sender: TObject);
721                  procedure BoardFavoriteAddActionUpdate(Sender: TObject);                  procedure BoardFavoriteAddActionUpdate(Sender: TObject);
722                  procedure ThreadFavoriteAddActionExecute(Sender: TObject);                  procedure ThreadFavoriteAddActionExecute(Sender: TObject);
# Line 781  type Line 769  type
769                  procedure BoardIEActionUpdate(Sender: TObject);                  procedure BoardIEActionUpdate(Sender: TObject);
770                  procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;                  procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
771                          WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);                          WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
                 procedure NameCopyActionUpdate(Sender: TObject);  
772                  procedure SelectComboBoxChange(Sender: TObject);                  procedure SelectComboBoxChange(Sender: TObject);
773                  procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word;                  procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word;
774                          Shift: TShiftState);                          Shift: TShiftState);
# Line 789  type Line 776  type
776                  procedure SelectResActionExecute(Sender: TObject);                  procedure SelectResActionExecute(Sender: TObject);
777                  procedure SelectResActionUpdate(Sender: TObject);                  procedure SelectResActionUpdate(Sender: TObject);
778                  procedure AllResActionExecute(Sender: TObject);                  procedure AllResActionExecute(Sender: TObject);
                 procedure AllResActionUpdate(Sender: TObject);  
779                  procedure ReloadClick(Sender: TObject);                  procedure ReloadClick(Sender: TObject);
780                  procedure GoBackClick(Sender: TObject);                  procedure GoBackClick(Sender: TObject);
781                  procedure GoFowardClick(Sender: TObject);                  procedure GoFowardClick(Sender: TObject);
# Line 842  type Line 828  type
828                  procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);                  procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
829                  procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);                  procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
830                  procedure UpBoardActionExecute(Sender: TObject);                  procedure UpBoardActionExecute(Sender: TObject);
                 procedure UpBoardActionUpdate(Sender: TObject);  
831      procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;      procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
832        var Handled: Boolean);        var Handled: Boolean);
833      procedure KoreCopyExecute(Sender: TObject);      procedure KoreCopyExecute(Sender: TObject);
# Line 858  type Line 843  type
843      procedure TreeSelectNameCopyExecute(Sender: TObject);      procedure TreeSelectNameCopyExecute(Sender: TObject);
844      procedure FavoriteTreeViewMouseUp(Sender: TObject;      procedure FavoriteTreeViewMouseUp(Sender: TObject;
845        Button: TMouseButton; Shift: TShiftState; X, Y: Integer);        Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     procedure ResRangeActionUpdate(Sender: TObject);  
846                  procedure SetFocusForBrowserActionExecute(Sender: TObject);                  procedure SetFocusForBrowserActionExecute(Sender: TObject);
847                  procedure SetFocusForBrowserActionUpdate(Sender: TObject);                  procedure SetFocusForBrowserActionUpdate(Sender: TObject);
848      procedure SetFocusForThreadListActionExecute(Sender: TObject);      procedure SetFocusForThreadListActionExecute(Sender: TObject);
# Line 891  type Line 875  type
875                  procedure ListViewColumnRightClick(Sender: TObject;                  procedure ListViewColumnRightClick(Sender: TObject;
876        Column: TListColumn; Point: TPoint);        Column: TListColumn; Point: TPoint);
877      procedure JumpToNumOfResActionExecute(Sender: TObject);      procedure JumpToNumOfResActionExecute(Sender: TObject);
     procedure JumpToNumOfResActionUpdate(Sender: TObject);  
878      procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);      procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
879          procedure ListViewCustomDrawItem(Sender: TCustomListView;          procedure ListViewCustomDrawItem(Sender: TCustomListView;
880        Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);        Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
# Line 922  type Line 905  type
905      procedure BeLogInOutActionExecute(Sender: TObject);      procedure BeLogInOutActionExecute(Sender: TObject);
906          procedure BeLogInOutActionUpdate(Sender: TObject);          procedure BeLogInOutActionUpdate(Sender: TObject);
907      procedure UnSelectedListViewActionExecute(Sender: TObject);      procedure UnSelectedListViewActionExecute(Sender: TObject);
908        procedure ListViewKeyUp(Sender: TObject; var Key: Word;
909          Shift: TShiftState);
910          private          private
911                  { Private 宣言 }                  { Private 宣言 }
912          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 1100  type Line 1085  type
1085                  //ブラウザの再描画 true:全てのタブ false:アクティブなタブのみ                  //ブラウザの再描画 true:全てのタブ false:アクティブなタブのみ
1086                  procedure RepaintAllTabsBrowser();                  procedure RepaintAllTabsBrowser();
1087          //リンクの文字列からレスポップアップ用のURLに変換する          //リンクの文字列からレスポップアップ用のURLに変換する
1088          function GetRespopupURL(AText, AThreadURL : string): string;                  function GetRespopupURL(AText, AThreadURL : string): string;
1089          protected          protected
1090                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
1091                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 1171  type Line 1156  type
1156                  procedure IDAnchorPopup(Abody :string);                  procedure IDAnchorPopup(Abody :string);
1157          published          published
1158                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1159                    //TActionでGetActiveContentがnil以外で有効になる
1160                    procedure DependActiveCntentActionUpdate(Sender: TObject);
1161                    //TActionでGetActiveContentがnil以外かつログを持っている
1162                    procedure DependActiveCntentLogActionUpdate(Sender: TObject);
1163          end;          end;
1164    
1165          TFavoriteMenuItem = class(TMenuItem)          TFavoriteMenuItem = class(TMenuItem)
# Line 3376  end; Line 3365  end;
3365    
3366  procedure TGikoForm.AppFormDeactivate(Sender: TObject);  procedure TGikoForm.AppFormDeactivate(Sender: TObject);
3367  begin  begin
3368      Application.ProcessMessages;          Application.ProcessMessages;
3369          if Application.Terminated then          if not Application.Terminated then begin
3370                  Exit;                  if PreviewTimer.Enabled then
3371          if PreviewTimer.Enabled then                          PreviewTimer.Enabled := False;
3372                  PreviewTimer.Enabled := False;                  //フォーカスが他のアプリに変わったときにヒントを消去
3373          //フォーカスが他のアプリに変わったときにヒントを消去                  if FHint <> nil then begin
3374          if FHint <> nil then begin                          FHint.ReleaseHandle;
3375                  FHint.ReleaseHandle;                          FHint.ClearAllRes;
3376                  FHint.ClearAllRes;                  end;
3377            //プレビューを隠す
3378                    if FPreviewBrowser <> nil then
3379                            ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
3380          end;          end;
         if FPreviewBrowser <> nil then  
                 ShowWindow(FPreviewBrowser.Handle, SW_HIDE);  
   
3381  end;  end;
3382    
3383  procedure TGikoForm.TreeViewCustomDraw(Sender: TCustomTreeView;  procedure TGikoForm.TreeViewCustomDraw(Sender: TCustomTreeView;
# Line 5759  begin Line 5748  begin
5748    
5749  end;  end;
5750    
 procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject);  
 begin  
         ScrollTopAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);  
 end;  
   
 procedure TGikoForm.ScrollLastActionUpdate(Sender: TObject);  
 begin  
         ScrollLastAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);  
 end;  
   
 procedure TGikoForm.ScrollNewActionUpdate(Sender: TObject);  
 begin  
         ScrollNewAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);  
 end;  
   
5751  procedure TGikoForm.ScrollKokoActionUpdate(Sender: TObject);  procedure TGikoForm.ScrollKokoActionUpdate(Sender: TObject);
5752  begin  begin
5753          ScrollKokoAction.Enabled := (GetActiveContent <> nil)          ScrollKokoAction.Enabled := (GetActiveContent <> nil)
# Line 5782  begin Line 5756  begin
5756    
5757  end;  end;
5758    
 procedure TGikoForm.EditorActionUpdate(Sender: TObject);  
 begin  
         EditorAction.Enabled := GetActiveContent <> nil;  
 end;  
   
 procedure TGikoForm.IEActionUpdate(Sender: TObject);  
 begin  
         IEAction.Enabled := GetActiveContent <> nil;  
 end;  
   
 procedure TGikoForm.ShowThreadActionUpdate(Sender: TObject);  
 begin  
         ShowThreadAction.Enabled := GetActiveContent <> nil;  
 end;  
   
 procedure TGikoForm.ShowBoardActionUpdate(Sender: TObject);  
 begin  
         ShowBoardAction.Enabled := GetActiveContent <> nil;  
 end;  
   
 procedure TGikoForm.ItemReloadActionUpdate(Sender: TObject);  
 begin  
         ItemReloadAction.Enabled := GetActiveContent <> nil;  
 end;  
   
 procedure TGikoForm.URLCopyActionUpdate(Sender: TObject);  
 begin  
         URLCopyAction.Enabled := GetActiveContent <> nil;  
 end;  
   
 procedure TGikoForm.NameCopyActionUpdate(Sender: TObject);  
 begin  
         NameCopyAction.Enabled := GetActiveContent <> nil;  
 end;  
   
 procedure TGikoForm.NameURLCopyActionUpdate(Sender: TObject);  
 begin  
         NameURLCopyAction.Enabled := GetActiveContent <> nil;  
 end;  
   
5759  procedure TGikoForm.BrowserTabCloseActionUpdate(Sender: TObject);  procedure TGikoForm.BrowserTabCloseActionUpdate(Sender: TObject);
5760  begin  begin
5761          BrowserTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 0);          BrowserTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 0);
# Line 5837  begin Line 5771  begin
5771          AllTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 0);          AllTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 0);
5772  end;  end;
5773    
 procedure TGikoForm.ActiveLogDeleteActionUpdate(Sender: TObject);  
 begin  
         ActiveLogDeleteAction.Enabled := GetActiveContent <> nil;  
 end;  
   
5774  procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);  procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);
5775  const  const
5776          DEL_MSG = '“^0”のログを削除します。よろしいですか?';          DEL_MSG = '“^0”のログを削除します。よろしいですか?';
# Line 7565  begin Line 7494  begin
7494          end;          end;
7495  end;  end;
7496    
 procedure TGikoForm.FavoriteAddActionUpdate(Sender: TObject);  
 begin  
         FavoriteAddAction.Enabled := (GetActiveContent <> nil);  
 end;  
   
7497  procedure TGikoForm.BoardFavoriteAddActionExecute(Sender: TObject);  procedure TGikoForm.BoardFavoriteAddActionExecute(Sender: TObject);
7498  begin  begin
7499          if TObject(ListView.Selected.Data) is TBoard then          if TObject(ListView.Selected.Data) is TBoard then
# Line 9319  end; Line 9243  end;
9243    
9244  procedure TGikoForm.SelectResActionUpdate(Sender: TObject);  procedure TGikoForm.SelectResActionUpdate(Sender: TObject);
9245  begin  begin
         SelectResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);  
9246  end;  end;
9247    
9248  // 全てのレスを表示  // 全てのレスを表示
# Line 9351  begin Line 9274  begin
9274          end;          end;
9275  end;  end;
9276    
 procedure TGikoForm.AllResActionUpdate(Sender: TObject);  
 begin  
 //      AllResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);  
 end;  
   
9277  procedure TGikoForm.ReloadClick(Sender: TObject);  procedure TGikoForm.ReloadClick(Sender: TObject);
9278  begin  begin
9279          if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin          if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin
# Line 10380  begin Line 10298  begin
10298    
10299  end;  end;
10300    
 procedure TGikoForm.UpBoardActionUpdate(Sender: TObject);  
 begin  
   
         UpBoardAction.Enabled := GetActiveContent <> nil;  
   
 end;  
   
10301  procedure TGikoForm.BrowserTabContextPopup(Sender: TObject;  procedure TGikoForm.BrowserTabContextPopup(Sender: TObject;
10302          MousePos: TPoint; var Handled: Boolean);          MousePos: TPoint; var Handled: Boolean);
10303  var  var
# Line 10832  begin Line 10743  begin
10743    
10744  end;  end;
10745    
 procedure TGikoForm.ResRangeActionUpdate(Sender: TObject);  
 begin  
 //      ResRangeAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);  
 end;  
   
10746  function TGikoForm.WebBrowserClick(Sender: TObject): WordBool;  function TGikoForm.WebBrowserClick(Sender: TObject): WordBool;
10747  var  var
10748          p : TPoint;          p : TPoint;
# Line 10973  end; Line 10879  end;
10879  procedure TGikoForm.ListViewSelectItem(Sender: TObject; Item: TListItem;  procedure TGikoForm.ListViewSelectItem(Sender: TObject; Item: TListItem;
10880    Selected: Boolean);    Selected: Boolean);
10881  begin  begin
10882    {
10883          if not (GikoSys.Setting.BrowserTabVisible) and (Item <> nil) then          if not (GikoSys.Setting.BrowserTabVisible) and (Item <> nil) then
10884                          if (TObject( Item.Data ) is TThreadItem) then begin                          if (TObject( Item.Data ) is TThreadItem) then begin
10885                                  SelectTimer.Interval := GikoSys.Setting.SelectInterval;                                  SelectTimer.Interval := GikoSys.Setting.SelectInterval;
# Line 10981  begin Line 10887  begin
10887                                  SelectTimer.Interval := 0                                  SelectTimer.Interval := 0
10888          else          else
10889                  SelectTimer.Interval := 0;                  SelectTimer.Interval := 0;
10890    }
10891  end;  end;
10892    
10893  procedure TGikoForm.SelectTimerTimer(Sender: TObject);  procedure TGikoForm.SelectTimerTimer(Sender: TObject);
# Line 11691  begin Line 11597  begin
11597          end;          end;
11598  end;  end;
11599    
 procedure TGikoForm.JumpToNumOfResActionUpdate(Sender: TObject);  
 begin  
         JumpToNumOfResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);  
 end;  
   
11600  procedure TGikoForm.FavoriteTreeViewCollapseActionExecute(Sender: TObject);  procedure TGikoForm.FavoriteTreeViewCollapseActionExecute(Sender: TObject);
11601  var  var
11602          node    : TTreeNode;          node    : TTreeNode;
# Line 12366  begin Line 12267  begin
12267          end;          end;
12268  end;  end;
12269    
12270    procedure TGikoForm.ListViewKeyUp(Sender: TObject; var Key: Word;
12271      Shift: TShiftState);
12272    begin
12273            //ブラウザタブ無しで、キー移動で読み飛ばしを可能にするための
12274            //無効時間のTimerの処理
12275            if not (GikoSys.Setting.BrowserTabVisible) then begin
12276                    if (GetActiveList is TBoard) then begin
12277                            //Shift Alt Ctrlが話されたときは、方向キーを離していても無視
12278                            if (ssShift in Shift) or (ssAlt in Shift) or (ssCtrl in Shift) then
12279                                    SelectTimer.Interval := 0
12280                            //方向キーならタイマー作動
12281                            else if( Key = VK_LEFT) or (Key = VK_RIGHT) or
12282                                    (Key = VK_UP) or (Key = VK_DOWN) then
12283                                            SelectTimer.Interval := GikoSys.Setting.SelectInterval
12284                            //一般のキーは、タイマー停止
12285                            else
12286                                    SelectTimer.Interval := 0;
12287                    end;
12288            end;
12289    end;
12290    //TActionでGetActiveContentがnil以外で有効になる
12291    procedure TGikoForm.DependActiveCntentActionUpdate(Sender: TObject);
12292    begin
12293            if (Sender <> nil) and (Sender is TAction) then begin
12294                    TAction(Sender).Enabled := (GetActiveContent <> nil);
12295            end;
12296    end;
12297    //TActionでGetActiveContentがnil以外かつログを持っている
12298    procedure TGikoForm.DependActiveCntentLogActionUpdate(Sender: TObject);
12299    begin
12300            if (Sender <> nil) and (Sender is TAction) then begin
12301                    TAction(Sender).Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);
12302            end;
12303    end;
12304    
12305  initialization  initialization
12306                                  OleInitialize(nil);                                  OleInitialize(nil);
12307  finalization  finalization

Legend:
Removed from v.1.515.2.14  
changed lines
  Added in v.1.515.2.15

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