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

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