ギコナビをどんどん改良しよう

1 名前：名無しさん 投稿日：2004/04/13(火) 17:23 ID:cLm3IG8o

プログラマー、素人、プロ市民意見求ム

2 名前：くらみい 投稿日：2004/04/15(木) 18:15 ID:PoI1fuBs

２

3 名前：名無しさん 投稿日：2004/04/16(金) 18:13 ID:ZyfeegY6

editor.pas

procedure TEditorForm.EditorPageChange(Sender: TObject);
var
URL: string;
RefURL: string;
　　　　　　　RefeURL: string;
begin
if EditorPage.ActivePage = PreviewTab then begin
Preview;
end else begin
Browser.Navigate('about:blank');
end;

if FThreadItem = nil then begin
URL := FBoard.GetSendURL;
RefURL := GikoSys.UrlToServer(FBoard.URL)
+ GikoSys.UrlToID(FBoard.URL)
+ '/';
RefeURL := RefURL
+ 'SETTING.TXT';
end else begin
URL := FThreadItem.GetSendURL;
RefURL := GikoSys.UrlToServer(FThreadItem.ParentBoard.URL)
+ FThreadItem.ParentBoard.BBSID
+ '/';
RefeURL := RefURL
+ 'SETTING.TXT';
end;


if EditorPage.ActivePage = SETTINGTab then begin
Browser1.Navigate(RefeURL);
end else begin
Browser1.Navigate('about:blank');
end;

if EditorPage.ActivePage = BoardtopTab then begin
Browser2.Navigate(RefURL);
end else begin
Browser2.Navigate('about:blank');
end;
end;

tabが効かなかったのは内緒だｗ

4 名前：よっふぃ〜 ◆ZKAofRuAcc 投稿日：2004/04/16(金) 19:23 ID:yP4xvBlA

>>3
看板／ルール表示は悪くないかも。

5 名前：名無しさん 投稿日：2004/04/18(日) 09:13 ID:stQBVHFg

diff -r1.24 ItemDownload.pas
82a83
> FForceDownload: Boolean;
96a98
> property ForceDownload: Boolean read FForceDownload write FForceDownload;
268c270,282
< Modified := Item.Board.LastModified;
---
> if Item.ForceDownload then begin
> // 強制取得
> ATitle := Item.Board.Title;
> if ATitle = '' then
> ATitle := '（名称不明）';
> FMsg := '★強制取得を行います - [' + ATitle + ']';
> FIcon := gmiWhat;
> if Assigned(OnDownloadMsg) then
> Synchronize(FireDownloadMsg);
> Modified := ZERO_DATE
> end else begin
> Modified := Item.Board.LastModified;
> end;
276,283c290,313
< Modified := Item.ThreadItem.LastModified;
< if Item.ThreadItem.Size > 0 then begin
< {$IFDEF DEBUG}
< Writeln('RangeStart: ' + IntToStr(Item.ThreadItem.Size));
< {$ENDIF}
< //あぼーんチェックのため１バイト前から取得
< RangeStart := Item.ThreadItem.Size;
< AdjustLen := -1;
---
> if Item.ForceDownload then begin
> // 強制取得
> ATitle := Item.ThreadItem.Title;
> if ATitle = '' then
> ATitle := '（名称不明）';
> FMsg := '★強制取得を行います - [' + ATitle + ']';
> FIcon := gmiWhat;
> if FileExists(ChangeFileExt(Item.FThreadItem.GetThreadFileName,'.NG')) = true then
> DeleteFile(ChangeFileExt(Item.FThreadItem.GetThreadFileName,'.NG'));
> if Assigned(OnDownloadMsg) then
> Synchronize(FireDownloadMsg);
> Modified := ZERO_DATE;
> RangeStart := 0;
> AdjustLen := 0;
> end else begin
> Modified := Item.ThreadItem.LastModified;
> if Item.ThreadItem.Size > 0 then begin
> {$IFDEF DEBUG}
> Writeln('RangeStart: ' + IntToStr(Item.ThreadItem.Size));
> {$ENDIF}
> //あぼーんチェックのため１バイト前から取得
> RangeStart := Item.ThreadItem.Size;
> AdjustLen := -1;
> end;

6 名前：名無しさん 投稿日：2004/04/18(日) 09:14 ID:stQBVHFg

diff -r1.287 Giko.pas
1033,1034c1033,1034
< procedure DownloadContent(ThreadItem: TThreadItem);
< procedure DownloadList(Board: TBoard);
---
> procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
> procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
3468c3468
< procedure TGikoForm.DownloadList(Board: TBoard);
---
> procedure TGikoForm.DownloadList(Board: TBoard; ForceDownload: Boolean = False);
3477a3478
> Item.ForceDownload := ForceDownload;
3497c3498
< procedure TGikoForm.DownloadContent(ThreadItem: TThreadItem);
---
> procedure TGikoForm.DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
3504a3506
> Item.ForceDownload := ForceDownload;
4066a4069
> shiftDown: Boolean;
4067a4071
> shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
4087c4091
< DownloadContent(ThreadItem);
---
> DownloadContent(ThreadItem, shiftDown);
4772a4777
> shiftDown: Boolean;
4774a4780
> shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
4776c4782
< DownloadContent(ThreadItem);
---
> DownloadContent(ThreadItem, shiftDown);
4783a4790
> shiftDown: Boolean;
4784a4792
> shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
4797c4805
< DownloadList(TBoard(List[i]));
---
> DownloadList(TBoard(List[i]), shiftDown);
4803c4811
< DownloadList(TBoard(GetActiveList));
---
> DownloadList(TBoard(GetActiveList), shiftDown);
4811a4820
> shiftDown: Boolean;
4812a4822
> shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
4824c4834
< DownloadContent(TThreadItem(List[i]));
---
> DownloadContent(TThreadItem(List[i]), shiftDown);
8884a8895
> shiftDown: Boolean;
8888a8900,8901
> shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
>
8893c8906
< DownloadContent(ThreadItem);
---
> DownloadContent(ThreadItem, shiftDown);
8897c8910
< DownloadList(Board);
---
> DownloadList(Board, shiftDown);
9548a9562
> shiftDown : Boolean;
9552a9567,9568
> shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
>
9556c9572
< DownloadList(Board);
---
> DownloadList(Board, shiftDown);
9560c9576
< DownloadContent(ThreadItem);
---
> DownloadContent(ThreadItem, shiftDown);

7 名前：名無しさん 投稿日：2004/04/18(日) 09:15 ID:stQBVHFg

>5-6
Shift 押しながら選択したら強制リロード

8 名前：名無しさん 投稿日：2004/04/18(日) 09:18 ID:stQBVHFg

スレ一覧の強制取得も追加しました
(エラー、中断時ににカウント<取得になる場合があるので)

うちの環境ではレス二重取得は再現しないから
これでなおるかどうかは不明です。
結果を報告してね。

9 名前：名無しさん 投稿日：2004/04/18(日) 18:57 ID:weil0hmQ

当て方がわからんのでだめぽorz

10 名前：名無しさん 投稿日：2004/04/20(火) 17:03 ID:zRYtZj6g

>3が不完全だったので
editor.pas

最初のtype の所に以下追加

SETTINGTab: TTabSheet;
Browser1: TWebBrowser;
BoardtopTab: TTabSheet;
Browser2: TWebBrowser;

procedure TEditorForm.EditorPageChange(Sender: TObject);　の部分を以下に置き換え
var
URL: string;
RefURL: string;
RefeURL: string;
begin
if EditorPage.ActivePage = PreviewTab then begin
Preview;
end else begin
Browser.Navigate('about:blank');
end;

if FThreadItem = nil then begin
URL := FBoard.GetSendURL;
RefURL := GikoSys.UrlToServer(FBoard.URL)
+ GikoSys.UrlToID(FBoard.URL)
+ '/';
RefeURL := RefURL
+ 'SETTING.TXT';
end else begin
URL := FThreadItem.GetSendURL;
RefURL := GikoSys.UrlToServer(FThreadItem.ParentBoard.URL)
+ FThreadItem.ParentBoard.BBSID
+ '/';
RefeURL := RefURL
+ 'SETTING.TXT';
end;


if EditorPage.ActivePage = SETTINGTab then begin
Browser1.Navigate(RefeURL);
end else begin
Browser1.Navigate('about:blank');
end;

if EditorPage.ActivePage = BoardtopTab then begin
Browser2.Navigate(RefURL);
end else begin
Browser2.Navigate('about:blank');
end;
end;

11 名前：名無しさん 投稿日：2004/04/20(火) 17:13 ID:zRYtZj6g

editor.dfm
object EditorPage: TPageControl　のobject PreviewTab: TTabSheet-end;の下に以下追加
object PreviewTab: TTabSheet
Caption = #12503#12524#12499#12517#12540
ImageIndex = 1
object Browser: TWebBrowser
Left = 0
Top = 0
Width = 624
Height = 278
Align = alClient
TabOrder = 0
OnStatusTextChange = BrowserStatusTextChange
ControlData = {
4C0000007E400000BB1C00000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
---ここからコピペで追加---
object SETTINGTab: TTabSheet
Caption = 'SETTING.TXT'
ImageIndex = 2
object Browser1: TWebBrowser
Left = 0
Top = 0
Width = 624
Height = 278
Align = alClient
TabOrder = 0
ControlData = {
4C0000007E400000BB1C00000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
object BoardtopTab: TTabSheet
Caption = #26495#12488#12483#12503
ImageIndex = 3
object Browser2: TWebBrowser
Left = 0
Top = 0
Width = 624
Height = 278
Align = alClient
TabOrder = 0
ControlData = {
4C0000007E400000BB1C00000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
---ここまで---
最後の所にendが3段あることを確認

12 名前：名無しさん 投稿日：2004/04/25(日) 17:57 ID:1w.WFpD2

したらばいらない
ザ掲示板に対応して欲しい

13 名前：名無しさん 投稿日：2004/04/25(日) 18:31 ID:MUGYrZdg

対応してあるしたらばをいらないとは言わないけど、確かにザ掲示板に対応してもらえると嬉しいかもしれませむ。

14 名前：（ ；´ω｀） ◆PeyY87sPzc 投稿日：2004/04/25(日) 20:11 ID:HYDRydKA

要望ですｗ
モナヂラのほかの２ｃｈブラウザには自動巡はID無しでもできるのになんでギコナビはIDが必要なんですか?
できれば是非ﾊﾞﾀ48はID無しでも巡回できるようにしてください。

15 名前：名無しさん 投稿日：2004/04/25(日) 22:46 ID:1wkBAS3k

>>14
スレ違いだと思われ

本スレで要望すべきだがおそらく却下されるだろう
2chに負荷がかかるからという理由で

16 名前：名無しさん 投稿日：2004/04/28(水) 00:52 ID:h3IZjIIo

スレッドの個別あぼ〜んができるようにして欲しい。

17 名前：名無しさん 投稿日：2004/04/30(金) 23:56 ID:I3raKv0Y