• R/O
  • HTTP
  • SSH
  • HTTPS

gikonavi: Commit


Commit MetaInfo

Revision7cb58903837fb580c241a34320bfa899ba2a0409 (tree)
Time2005-12-28 02:13:10
Authorcvs2git <cvs2git>
Commitercvs2git

Log Message

This commit was manufactured by cvs2svn to create tag 'v1_51_0_637'.

Change Summary

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -6092,10 +6092,8 @@ begin
60926092 FavoriteTreeView.Selected.Expanded := not FavoriteTreeView.Selected.Expanded;
60936093 end;
60946094 VK_SPACE:
6095- begin
6096- FClickNode := FavoriteTreeView.Selected;
6097- GikoDM.FavoriteTreeViewReloadActionExecute( Sender );
6098- end;
6095+ GikoDM.FavoriteTreeViewReloadActionExecute(
6096+ TObject(FavoriteTreeView.Selected));
60996097 end;
61006098 end else begin
61016099 //編集中にESCを押したら、編集を終了して、元の文字列に戻す
@@ -6690,9 +6688,9 @@ begin
66906688 if ((rect.Left <= X) and (rect.Right >= X)) and
66916689 ((rect.Bottom >= Y) and (rect.Top <= Y)) then begin
66926690 if ssDouble in Shift then begin
6693- FClickNode := FavoriteTreeView.Selected;
6694- GikoDM.FavoriteTreeViewReloadActionExecute(Sender);
6695- FClickNode := nil;
6691+ GikoDM.FavoriteTreeViewReloadActionExecute(
6692+ TObject(FavoriteTreeView.Selected));
6693+
66966694 end else begin
66976695 FavoriteClick(
66986696 TObject(FavoriteTreeView.Selected));
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -695,21 +695,28 @@ end;
695695 // *************************************************************************
696696 procedure TGikoDM.FavoriteTreeViewReloadActionExecute(Sender: TObject);
697697 var
698+ ThreadItem: TThreadItem;
698699 FavThread: TFavoriteThreadItem;
700+ Board: TBoard;
699701 FavBoard: TFavoriteBoardItem;
700702 shiftDown: Boolean;
703+ Node : TTreeNode;
701704 begin
702- if (GikoForm.ClickNode = nil) then Exit;
705+ if (Sender = nil) or not (Sender is TTreeNode) then Exit;
706+
707+ Node := TTreeNode(Sender);
703708
704709 shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
705710
706- if TObject( GikoForm.ClickNode.Data ) is TFavoriteThreadItem then begin
707- FavThread := TFavoriteThreadItem( GikoForm.ClickNode.Data );
708- if FavThread.Item <> nil then
709- GikoForm.DownloadContent(FavThread.Item, shiftDown);
710- end else if TObject( GikoForm.ClickNode.Data ) is TFavoriteBoardItem then begin
711- FavBoard := TFavoriteBoardItem( GikoForm.ClickNode.Data );
712- GikoForm.DownloadList(FavBoard.Item, shiftDown);
711+ if TObject( Node.Data ) is TFavoriteThreadItem then begin
712+ FavThread := TFavoriteThreadItem( Node.Data );
713+ ThreadItem := FavThread.Item;
714+ if ThreadItem <> nil then
715+ GikoForm.DownloadContent(ThreadItem, shiftDown);
716+ end else if TObject( Node.Data ) is TFavoriteBoardItem then begin
717+ FavBoard := TFavoriteBoardItem( Node.Data );
718+ Board := FavBoard.Item;
719+ GikoForm.DownloadList(Board, shiftDown);
713720 end;
714721
715722 end;
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -120,8 +120,6 @@ LICENSE
120120  DAT落ちしたスレの容量を取得できない不具合の修正
121121  板更新でローカルファイルを指定できるように変更
122122  スレッド一覧ダウンロード後のソートをオプション化
123- NGワードに全半角ひらがなカタカナの違いを同一視するオプションの追加
124- レスの絞込みで全半角ひらがなカタカタの違いを無視するように変更
125123
126124 2005/10/10
127125 Version バタ50 リリース3
Show on old repository browser