From 67b98c504be32b53406f648c8ea38659be43aee3 Mon Sep 17 00:00:00 2001 From: yoffy Date: Wed, 15 Oct 2003 04:44:56 +0000 Subject: [PATCH] =?utf8?q?=E3=83=BB=E3=82=B9=E3=83=AC=E4=B8=80=E8=A6=A7?= =?utf8?q?=E3=81=AE=E3=83=9B=E3=82=A4=E3=83=BC=E3=83=AB=E3=81=8C=E3=82=B3?= =?utf8?q?=E3=83=B3=E3=83=88=E3=83=AD=E3=83=BC=E3=83=AB=E3=83=91=E3=83=8D?= =?utf8?q?=E3=83=AB=E3=81=A7=E8=A8=AD=E5=AE=9A=E3=81=95=E3=82=8C=E3=81=A6?= =?utf8?q?=E3=81=84=E3=82=8B=E7=A7=BB=E5=8B=95=E9=87=8F=E3=82=92=E5=8F=8D?= =?utf8?q?=E6=98=A0=E3=81=99=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB=E3=81=AA?= =?utf8?q?=E3=81=A3=E3=81=9F=E3=80=82=20=E3=83=BB=E3=81=8A=E6=B0=97?= =?utf8?q?=E3=81=AB=E5=85=A5=E3=82=8A=E3=82=AD=E3=83=A3=E3=83=93=E3=83=8D?= =?utf8?q?=E3=83=83=E3=83=88=E3=81=A7=E6=9D=BF=E3=81=AB=E5=AF=BE=E3=81=97?= =?utf8?q?=E3=81=A6=E5=8F=B3=E3=82=AF=E3=83=AA=E3=83=83=E3=82=AF=E3=81=97?= =?utf8?q?=E3=81=9F=E5=A0=B4=E5=90=88=E3=81=AB=E3=80=8CURL=E3=81=A8?= =?utf8?q?=E5=90=8D=E5=89=8D=E3=82=92=E3=82=B3=E3=83=94=E3=83=BC=E3=80=8D?= =?utf8?q?=E3=81=AA=E3=81=A9=E3=81=8C=E6=A9=9F=E8=83=BD=E3=81=97=E3=81=A6?= =?utf8?q?=E3=81=84=E3=81=AA=E3=81=8B=E3=81=A3=E3=81=9F=E3=83=90=E3=82=B0?= =?utf8?q?=E3=82=92=E4=BF=AE=E6=AD=A3=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Giko.pas | 143 ++++++++++++++++++++++++++++++++++++++---------------- gikoNavi.res | Bin 4288 -> 4288 bytes readme/readme.txt | 7 ++- 3 files changed, 108 insertions(+), 42 deletions(-) diff --git a/Giko.pas b/Giko.pas index e68f632..bed53d8 100644 --- a/Giko.pas +++ b/Giko.pas @@ -7046,9 +7046,9 @@ begin BrowserTab.ScrollTabs(Delta); end else if Wnd = ListView.Handle then begin if ListView.ViewStyle = vsList then - ListView.Scroll( Delta * 30, 0 ) + ListView.Scroll( Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ), 0 ) else - ListView.Scroll( 0, Delta * 30 ); + ListView.Scroll( 0, Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) ); end else begin Handled := False; end; @@ -8024,25 +8024,46 @@ var ThreadItem: TThreadItem; FavThread: TFavoriteThreadItem; Board: TBoard; + FavBoard: TFavoriteBoardItem; s: string; begin if FClickNode = nil then Exit; - if not (TObject(FClickNode.Data) is TFavoriteThreadItem) then Exit; - FavThread := TFavoriteThreadItem( FClickNode.Data ); - Board := BBS2ch.FindBBSID(FavThread.BBSID); - if Board <> nil then - if not Board.IsThreadDatRead then - GikoSys.ReadSubjectFile(Board); - ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID); + if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin - try - s := GikoSys.GetURL(ThreadItem.ParentBoard.BBSID, ThreadItem.FileName) + #13#10; - if s <> '' then - Clipboard.AsText := s; - finally - end; + FavThread := TFavoriteThreadItem( FClickNode.Data ); + Board := BBS2ch.FindBBSID(FavThread.BBSID); + if Board <> nil then + if not Board.IsThreadDatRead then + GikoSys.ReadSubjectFile(Board); + ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID); + + try + + s := GikoSys.GetURL(ThreadItem.ParentBoard.BBSID, ThreadItem.FileName) + #13#10; + if s <> '' then + Clipboard.AsText := s; + finally + end; + + end else if (TObject(FClickNode.Data) is TFavoriteBoardItem) then begin + + FavBoard := TFavoriteBoardItem( FClickNode.Data ); + Board := BBS2ch.FindBBSID(FavBoard.BBSID); + if Board <> nil then + if not Board.IsThreadDatRead then + GikoSys.ReadSubjectFile(Board); + + try + + s := Board.URL + #13#10; + if s <> '' then + Clipboard.AsText := s; + finally + end; + + end; end; @@ -8051,25 +8072,45 @@ var ThreadItem: TThreadItem; FavThread: TFavoriteThreadItem; Board: TBoard; + FavBoard: TFavoriteBoardItem; s: string; begin if FClickNode = nil then Exit; - if not (TObject(FClickNode.Data) is TFavoriteThreadItem) then Exit; - FavThread := TFavoriteThreadItem( FClickNode.Data ); - Board := BBS2ch.FindBBSID(FavThread.BBSID); - if Board <> nil then - if not Board.IsThreadDatRead then - GikoSys.ReadSubjectFile(Board); - ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID); + if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin - try - s := ThreadItem.Title + #13#10; - if s <> '' then - Clipboard.AsText := s; - finally - end; + FavThread := TFavoriteThreadItem( FClickNode.Data ); + Board := BBS2ch.FindBBSID(FavThread.BBSID); + if Board <> nil then + if not Board.IsThreadDatRead then + GikoSys.ReadSubjectFile(Board); + ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID); + + try + s := ThreadItem.Title + #13#10; + if s <> '' then + Clipboard.AsText := s; + finally + end; + + end else if (TObject(FClickNode.Data) is TFavoriteBoardItem) then begin + + FavBoard := TFavoriteBoardItem( FClickNode.Data ); + Board := BBS2ch.FindBBSID(FavBoard.BBSID); + if Board <> nil then + if not Board.IsThreadDatRead then + GikoSys.ReadSubjectFile(Board); + + try + + s := Board.Title + #13#10; + if s <> '' then + Clipboard.AsText := s; + finally + end; + + end; end; @@ -8079,25 +8120,45 @@ var ThreadItem: TThreadItem; FavThread: TFavoriteThreadItem; Board: TBoard; + FavBoard: TFavoriteBoardItem; s: string; begin if FClickNode = nil then Exit; - if not (TObject(FClickNode.Data) is TFavoriteThreadItem) then Exit; - FavThread := TFavoriteThreadItem( FClickNode.Data ); - Board := BBS2ch.FindBBSID(FavThread.BBSID); - if Board <> nil then - if not Board.IsThreadDatRead then - GikoSys.ReadSubjectFile(Board); - ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID); + if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin - try - s := GikoSys.GetURL(ThreadItem.ParentBoard.BBSID, ThreadItem.FileName) + #13#10 + ThreadItem.Title + #13#10; - if s <> '' then - Clipboard.AsText := s; - finally - end; + FavThread := TFavoriteThreadItem( FClickNode.Data ); + Board := BBS2ch.FindBBSID(FavThread.BBSID); + if Board <> nil then + if not Board.IsThreadDatRead then + GikoSys.ReadSubjectFile(Board); + ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID); + + try + s := GikoSys.GetURL(ThreadItem.ParentBoard.BBSID, ThreadItem.FileName) + #13#10 + ThreadItem.Title + #13#10; + if s <> '' then + Clipboard.AsText := s; + finally + end; + + end else if (TObject(FClickNode.Data) is TFavoriteBoardItem) then begin + + FavBoard := TFavoriteBoardItem( FClickNode.Data ); + Board := BBS2ch.FindBBSID(FavBoard.BBSID); + if Board <> nil then + if not Board.IsThreadDatRead then + GikoSys.ReadSubjectFile(Board); + + try + + s := Board.URL + #13#10 + Board.Title + #13#10; + if s <> '' then + Clipboard.AsText := s; + finally + end; + + end; end; diff --git a/gikoNavi.res b/gikoNavi.res index 07a8b9d724af968120c3d1e8d303bca57f3cddf5..eb9c39f002c96ff2cae7f7e80ff83d7de291f833 100644 GIT binary patch delta 28 jcmX@0ctCN(8(z+hj0`})$gpwpSKi-@#+yI#oo569kCh4^ delta 28 jcmX@0ctCN(8(z*0j0`})$gpAZSKi-@Mw>tKoo569k8cVb diff --git a/readme/readme.txt b/readme/readme.txt index 0a2ca3c..ff47351 100644 --- a/readme/readme.txt +++ b/readme/readme.txt @@ -1,4 +1,4 @@ -¡ƒMƒRƒiƒr Version1.00 ƒÀ43 Readme.txt +¡ƒMƒRƒiƒr Version1.00 ƒÀ44 Readme.txt ------------------------------ @@ -89,6 +89,11 @@ Windows Server 2003 Enterprise Edition IE6 ------------------------------ —š—ð ------------------------------ +2003/10/15 + Version ÊÞÀ44 + ƒXƒŒˆê——‚̃zƒC[ƒ‹‚ªƒRƒ“ƒgƒ[ƒ‹ƒpƒlƒ‹‚Őݒ肳‚ê‚Ä‚¢‚éˆÚ“®—ʂ𔽉f‚·‚é‚悤‚É‚È‚Á‚½B + ‚¨‹C‚É“ü‚èƒLƒƒƒrƒlƒbƒg‚Ŕ‚ɑ΂µ‚ĉEƒNƒŠƒbƒN‚µ‚½ê‡‚ɁuURL‚Æ–¼‘O‚ðƒRƒs[v‚È‚Ç‚ª‹@”\‚µ‚Ä‚¢‚È‚©‚Á‚½ƒoƒO‚ðC³B + 2003/10/09 Version ÊÞÀ43 ƒAƒhƒŒƒXƒo[‚È‚Ç‚ÌComboBox ‚ʼnEƒNƒŠƒbƒN‚µ‚½‚Æ‚«‚̃|ƒbƒvƒAƒbƒvƒƒjƒ…[‚Ì•s‹ï‡‚̏C³B -- 2.11.0