• R/O
  • HTTP
  • SSH
  • HTTPS

gikonavi: Commit


Commit MetaInfo

Revision406fbf8cda00e8dad565768d7cec78d7d7ccc2e8 (tree)
Time2009-06-07 12:11:08
Authorcvs2git <cvs2git>
Commitercvs2git

Log Message

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

Change Summary

Incremental Difference

--- a/Editor.pas
+++ b/Editor.pas
@@ -281,8 +281,6 @@ type
281281 function FusianaMsgBox: Integer;
282282 //! sent.iniファイルの生成
283283 function CreateSentIniFile: TMemIniFile;
284- //! 誤爆チェック
285- function isGobaku: Boolean;
286284 protected
287285 procedure CreateParams(var Params: TCreateParams); override;
288286 public
@@ -803,11 +801,6 @@ begin
803801 CancelSend( Board, SysMenu );
804802 Exit;
805803 end;
806- // 誤爆チェック
807- if (isGobaku) then begin
808- CancelSend( Board, SysMenu );
809- Exit;
810- end;
811804 end;
812805
813806 GetSendData(Source);
@@ -2554,66 +2547,5 @@ begin
25542547 GikoForm.DownloadList(GetBoard);
25552548 end;
25562549 end;
2557-//! 誤爆チェック
2558-function TEditorForm.isGobaku: Boolean;
2559-const
2560- MSG_GOBAKU : string =
2561- '表示している%sと投稿先の%sが異なります。'#13#10 +
2562- 'このまま書き込みますか?';
2563-var
2564- ThreadItem : TThreadItem;
2565- msg : String;
2566-
2567-begin
2568- Result := False;
2569- // オプション有効かつレス送信でのみ有効
2570- if (GikoSys.Setting.UseGobakuCheck) then begin
2571- // レス送信
2572- if (FThreadItem <> nil) then begin
2573- ThreadItem := GikoForm.GetActiveContent(False);
2574- if (ThreadItem <> nil) then begin
2575- if (FThreadItem <> ThreadItem) then begin
2576- msg := Format(MSG_GOBAKU, ['スレッド', 'スレッド']);
2577- Result := MsgBox(Handle, msg, '情報', MB_YESNO or MB_ICONQUESTION) = IDNO;
2578- end;
2579- end else begin
2580- if GikoForm.ActiveList is TBBS then begin
2581- if TBBS(GikoForm.ActiveList) <> FThreadItem.ParentBoard.ParentCategory.ParenTBBS then begin
2582- msg := Format(MSG_GOBAKU, ['BBS', 'スレッドの所属するBBS']);
2583- Result := MsgBox(Handle, msg, '情報', MB_YESNO or MB_ICONQUESTION) = IDNO;
2584- end;
2585- end else if GikoForm.ActiveList is TCategory then begin
2586- if TCategory(GikoForm.ActiveList).FindThreadFromURL(FThreadItem.URL) = nil then begin
2587- msg := Format(MSG_GOBAKU, ['カテゴリ', 'スレッドの所属するカテゴリ']);
2588- Result := MsgBox(Handle, msg, '情報', MB_YESNO or MB_ICONQUESTION) = IDNO;
2589- end;
2590- end else if GikoForm.ActiveList is TBoard then begin
2591- if TBoard(GikoForm.ActiveList) <> FThreadItem.ParentBoard then begin
2592- msg := Format(MSG_GOBAKU, ['板', 'スレッドの所属する板']);
2593- Result := MsgBox(Handle, msg, '情報', MB_YESNO or MB_ICONQUESTION) = IDNO;
2594- end;
2595- end;
2596- end;
2597- end else begin
2598- // スレたて
2599- if GikoForm.ActiveList is TBBS then begin
2600- if TBBS(GikoForm.ActiveList) <> FBoard.ParentCategory.ParenTBBS then begin
2601- msg := Format(MSG_GOBAKU, ['BBS', '板の所属するBBS']);
2602- Result := MsgBox(Handle, msg, '情報', MB_YESNO or MB_ICONQUESTION) = IDNO;
2603- end;
2604- end else if GikoForm.ActiveList is TCategory then begin
2605- if TCategory(GikoForm.ActiveList).FindBoardFromURL(FBoard.URL) = nil then begin
2606- msg := Format(MSG_GOBAKU, ['カテゴリ', '板の所属するカテゴリ']);
2607- Result := MsgBox(Handle, msg, '情報', MB_YESNO or MB_ICONQUESTION) = IDNO;
2608- end;
2609- end else if GikoForm.ActiveList is TBoard then begin
2610- if TBoard(GikoForm.ActiveList) <> FBoard then begin
2611- msg := Format(MSG_GOBAKU, ['板', '板']);
2612- Result := MsgBox(Handle, msg, '情報', MB_YESNO or MB_ICONQUESTION) = IDNO;
2613- end;
2614- end;
2615- end;
2616- end;
2617-end;
26182550
26192551 end.
--- a/Favorite.pas
+++ b/Favorite.pas
@@ -70,7 +70,6 @@ var
7070 FavoriteDM: TFavoriteDM;
7171 const
7272 FAVORITE_LINK_NAME = 'リンク';
73- FAVORITE_FILE_NAME = 'Favorite.xml';
7473
7574 implementation
7675
@@ -78,7 +77,7 @@ uses ExternalBoardManager, ExternalBoardPlugInMain, MojuUtils;
7877
7978 const
8079 FAVORITE_ROOT_NAME = 'お気に入り';
81-
80+ FAVORITE_FILE_NAME = 'Favorite.xml';
8281
8382 {$R *.dfm}
8483
@@ -426,47 +425,31 @@ end;
426425
427426 procedure TFavoriteDM.WriteFavorite;
428427 var
429- FileName, tmpFileName, bakFileName: string;
428+ FileName, tmpFileName: string;
430429 SaveList: TStringList;
431- Buffer: array[0..MAX_PATH] of Char; // バッファ
432- FileRep : Boolean;
430+
433431 begin
434432 FavoriteDM.Modified := true;
435433 FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
434+ if FileExists(FileName) then begin
435+ tmpFileName := GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME;
436+ if FileExists(tmpFileName) then
437+ SysUtils.DeleteFile(tmpFileName); //SysUtils.をつけないとWinAPIと区別できないので
438+ RenameFile(FileName, tmpFileName);
439+ end;
436440 SaveList := TStringList.Create;
437- tmpFileName := '';
438- // 書き込み用一時ファイル取得
439- if GetTempFileName(PChar(GikoSys.GetConfigDir), PChar('fav'), 0, Buffer) <> 0 then begin
440- tmpFileName := Buffer;
441- try
442- try
443- SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
444- SaveList.Add('<favorite>');
445- AddSaveString(TreeView.Items.GetFirstNode.getFirstChild, SaveList);
446- SaveList.Add('</favorite>');
447- // 一時ファイルとして保存
448- SaveList.SaveToFile(tmpFileName);
449- FileRep := True;
450- // 前のファイルを移動する
451- if FileExists(FileName) then begin
452- bakFileName := GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME;
453- if FileExists(bakFileName) then begin
454- FileRep := SysUtils.DeleteFile(bakFileName); //SysUtils.をつけないとWinAPIと区別できないので
455- end;
456- if FileRep then begin
457- FileRep := RenameFile(FileName, bakFileName);
458- end;
459- end;
460- // 正規のファイル名にリネームする
461- if FileRep then begin
462- FileRep := RenameFile(tmpFileName, FileName);
463- end;
464- except
465- end;
466- finally
467- SaveList.Free;
468- end;
469- end;
441+ try
442+ SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
443+ SaveList.Add('<favorite>');
444+ try
445+ AddSaveString(TreeView.Items.GetFirstNode.getFirstChild, SaveList);
446+ except
447+ end;
448+ SaveList.Add('</favorite>');
449+ SaveList.SaveToFile(FileName);
450+ finally
451+ SaveList.Free;
452+ end;
470453 end;
471454
472455 procedure TFavoriteDM.AddSaveString(Node: TTreeNode; SaveList: TStringList);
--- a/Giko.pas
+++ b/Giko.pas
@@ -1351,13 +1351,8 @@ begin
13511351
13521352 // 初期化に失敗したモジュールチェック
13531353 if (FavoriteDM.AbEnd) then begin
1354- GikoUtil.MsgBox(Self.Handle,
1355- 'お気に入りの初期化に失敗しました。ギコナビを終了します。'#13#10 +
1356- 'ギコナビフォルダを開きます、config/' + Favorite.FAVORITE_FILE_NAME +
1357- ' を config/~' + Favorite.FAVORITE_FILE_NAME + '(前回起動時のお気に入り)で'#13#10 +
1358- '置き換える事で直る可能性があります。',
1354+ GikoUtil.MsgBox(Self.Handle, 'お気に入りの初期化に失敗しました。ギコナビを終了します。',
13591355 '初期化異常');
1360- GikoDM.GikoFolderOpenAction.Execute;
13611356 Self.Close;
13621357 end;
13631358
--- a/KuroutSetting.dfm
+++ b/KuroutSetting.dfm
@@ -22,8 +22,8 @@ object KuroutOption: TKuroutOption
2222 Top = 0
2323 Width = 517
2424 Height = 393
25- ActivePage = TabSheet2
26- TabIndex = 3
25+ ActivePage = KakikomiTabSheet
26+ TabIndex = 2
2727 TabOrder = 0
2828 object TabSheet1: TTabSheet
2929 Caption = #35443#32048#35373#23450#65297
@@ -548,11 +548,11 @@ object KuroutOption: TKuroutOption
548548 Left = 16
549549 Top = 16
550550 Width = 473
551- Height = 161
551+ Height = 129
552552 Caption = #12475#12461#12517#12522#12486#12451
553553 TabOrder = 0
554554 object Label12: TLabel
555- Left = 23
555+ Left = 25
556556 Top = 108
557557 Width = 374
558558 Height = 12
@@ -590,25 +590,17 @@ object KuroutOption: TKuroutOption
590590 Caption = #12475#12461#12517#12522#12486#12451#23550#31574#12477#12501#12488#12398#35492#21453#24540#23550#31574
591591 TabOrder = 1
592592 end
593- object UseGobakuCheckBox: TCheckBox
594- Left = 23
595- Top = 128
596- Width = 345
597- Height = 17
598- Caption = #34920#31034#26495'/'#12473#12524#12483#12489#12392#30064#12394#12427#26495'/'#12473#12524#12483#12489#12395#25237#31295#12377#12427#38555#12395#35686#21578#12377#12427#12290
599- TabOrder = 2
600- end
601593 end
602594 object LogGroupBox: TGroupBox
603595 Left = 16
604- Top = 179
605- Width = 473
606- Height = 49
596+ Top = 160
597+ Width = 465
598+ Height = 65
607599 Caption = #12525#12464
608600 TabOrder = 1
609601 object CheckDatFileCheckBox: TCheckBox
610602 Left = 22
611- Top = 18
603+ Top = 14
612604 Width = 369
613605 Height = 17
614606 Caption = #12473#12524#12483#12489#19968#35239#65288'Folder.idx'#65289#35501#12415#36796#12415#26178#12395'dat'#12501#12449#12452#12523#12434#12481#12455#12483#12463#12377#12427#12290
--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -96,7 +96,6 @@ type
9696 RespopupMailToCheckBox: TCheckBox;
9797 ResRangeLabeledEdit: TLabeledEdit;
9898 ResRangeCountUpDown: TUpDown;
99- UseGobakuCheckBox: TCheckBox;
10099 procedure OkBottonClick(Sender: TObject);
101100 procedure FormCreate(Sender: TObject);
102101 procedure CDeleteButtonClick(Sender: TObject);
@@ -184,8 +183,6 @@ begin
184183 DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY;
185184 RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait;
186185 RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo;
187- // 誤爆チェック
188- UseGobakuCheckBox.Checked := GikoSys.Setting.UseGobakuCheck;
189186 end;
190187
191188 procedure TKuroutOption.SaveSetting;
@@ -237,9 +234,6 @@ begin
237234 GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text);
238235 GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;
239236 GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked;
240- // 誤爆チェック
241- GikoSys.Setting.UseGobakuCheck := UseGobakuCheckBox.Checked;
242-
243237 end;
244238
245239 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
--- a/Option.dfm
+++ b/Option.dfm
@@ -61,9 +61,9 @@ object OptionDialog: TOptionDialog
6161 Top = 4
6262 Width = 509
6363 Height = 389
64- ActivePage = CSSTabSheet
64+ ActivePage = ThreadSheet
6565 MultiLine = True
66- TabIndex = 2
66+ TabIndex = 4
6767 TabOrder = 3
6868 OnChange = OptionTabChange
6969 object ConnectSheet: TTabSheet
@@ -253,7 +253,7 @@ object OptionDialog: TOptionDialog
253253 Top = 43
254254 Width = 417
255255 Height = 20
256- ItemHeight = 12
256+ ItemHeight = 0
257257 TabOrder = 0
258258 Text = 'BoardURLComboBox'
259259 end
--- a/Setting.pas
+++ b/Setting.pas
@@ -464,8 +464,6 @@ type
464464 FRespopupWait: Integer;
465465 //! メール欄レスポップアップ
466466 FRespopupMailTo: Boolean;
467- //! 誤爆チェック
468- FUseGobakuCheck: Boolean;
469467 function GetMainCoolSet(Index: Integer): TCoolSet;
470468 function GetBoardCoolSet(Index: Integer): TCoolSet;
471469 function GetBrowserCoolSet(Index: Integer): TCoolSet;
@@ -836,8 +834,6 @@ type
836834 //! レスポップアップタイマー
837835 property RespopupWait: Integer read FRespopupWait write FRespopupWait;
838836 property RespopupMailTo: Boolean read FRespopupMailTo write FRespopupMailTo;
839- //! 誤爆チェック
840- property UseGobakuCheck: Boolean read FUseGobakuCheck write FUseGobakuCheck;
841837 end;
842838
843839
@@ -1275,7 +1271,6 @@ begin
12751271 // エディタ
12761272 FSpaceToNBSP := ini.ReadBool( 'Editor', 'SpaceToNBSP', False );
12771273 FAmpToCharRef := ini.ReadBool( 'Editor', 'AmpToCharRef', False );
1278- FUseGobakuCheck := ini.ReadBool( 'Editor', 'UseGobakuCheck', True );
12791274
12801275 //Tab自動保存、読み込み
12811276 FTabAutoLoadSave := ini.ReadBool('TabAuto', 'TabAutoLoadSave', False);
@@ -1339,8 +1334,6 @@ begin
13391334 FCheckDatFile := ini.ReadBool('ThreadList', 'CheckDatFile', True);
13401335 FLimitResCountMessage := ini.ReadBool('Thread', 'LimitResCountMessage', True);
13411336
1342-
1343-
13441337 // ギコナビ更新で利用したインストーラの削除
13451338 s := ini.ReadString('Update', 'Remove0', '');
13461339 if (FileExists(s)) then begin
@@ -1694,11 +1687,10 @@ begin
16941687 // エディタ
16951688 ini.WriteBool( 'Editor', 'SpaceToNBSP', FSpaceToNBSP );
16961689 ini.WriteBool( 'Editor', 'AmpToCharRef', FAmpToCharRef );
1697- ini.WriteBool( 'Editor', 'UseGobakuCheck', FUseGobakuCheck );
16981690
16991691 //タブ自動保存
17001692 ini.WriteBool('TabAuto', 'TabAutoLoadSave', FTabAutoLoadSave);
1701- ini.WriteString('Thread', 'LastCloseTabURL', FLastCloseTabURL);
1693+ ini.WriteString('Thread', 'LastCloseTabURL', FLastCloseTabURL);
17021694 //詳細設定
17031695 ini.WriteInteger('OptionDialog', 'KuroutTabIndex', FKuroutSettingTabIndex);
17041696
@@ -1739,7 +1731,6 @@ begin
17391731 ini.WriteString('Function', 'ExtList', FExtList);
17401732 ini.WriteBool('ThreadList', 'CheckDatFile', FCheckDatFile);
17411733 ini.WriteBool('Thread', 'LimitResCountMessage', FLimitResCountMessage);
1742-
17431734 ini.UpdateFile;
17441735 finally
17451736 ini.Free;
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -123,25 +123,7 @@ LICENSE
123123 ------------------------------
124124 2009/XX/YY
125125 Version バタ60
126- スレッド一覧の読み込み処理の最適化
127- 最新100レス表示の表示数をオプション化(詳細設定3)
128- ニコニコ動画へのリンクでサムネイルをプレビュー表示するようにした
129- ブラウザポップアップメニューで、レスポップアップ中のスレッドを対象にする不具合の対応
130- zlibを1.2.3に更新
131- サウンドイベントのファイル指定のデフォルトを相対参照に変更
132- リンク時動作で指定アプリケーションにオプションを指定すると動作しない不具合の修正
133- 移転板検索で、サーバが無反応だと処理が完了しない不具合修正
134- ギコナビWiki FAQへのリンク先をSourceForge内のWikiページに変更
135- 画像プレビューをダブルクリックで消せるように修正
136- 「ここにレス」でマウスカーソル直下に別スレッドへのリンクがあると誤爆する不具合の修正
137- レスのメニューに"このレスのURLコピー"を追加。
138- リンク履歴の戻る/進むで、ショートカットキーにctrl/shiftを組み合わせると、ブラウザで開いてしまう不具合の修正
139- 終了時のお気に入りファイル(Favorite.xml)の保存処理の順番見直し
140-
141-2009/02/28
142- Version バタ59 リリース2
143- ギコナビ更新で、人柱版を選択しても正式版のインストーラをDLする不具合の修正
144- まちBBSの仕様変更(2009/02/24)対応
126+
145127
146128 2009/02/01
147129 Version バタ59
--- a/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
@@ -83,7 +83,7 @@ const
8383 MAJOR_VERSION = 1;
8484 MINOR_VERSION = 0;
8585 RELEASE_VERSION = 'beta';
86- REVISION_VERSION = 21;
86+ REVISION_VERSION = 20;
8787
8888 // =========================================================================
8989 // 雑用関数
@@ -268,7 +268,6 @@ var
268268 foundPos : Integer;
269269 const
270270 BBS_HOST = 'machi.to';
271- BBS_HOST2 = 'machibbs.com';
272271 THREAD_MARK = '/bbs/read.pl';
273272 THREAD_MARK2= '/bbs/read.cgi';
274273 begin
@@ -293,23 +292,7 @@ begin
293292 else
294293 Result := atBBS;
295294 end else begin
296- foundPos := AnsiPos( BBS_HOST2, uri.Host );
297- if (foundPos > 0) and (Length( uri.Host ) - foundPos + 1 = Length( BBS_HOST2 )) then begin
298- foundPos := Pos( THREAD_MARK, inURL );
299- if (foundPos = 0) then begin
300- // 新URL対応
301- foundPos := Pos( THREAD_MARK2, inURL );
302- end;
303- if foundPos > 0 then
304- Result := atThread
305- else if (uriList.Count > 1) and (uri.Path <> '/') then // 最後が '/' で閉められてるなら 3
306- Result := atBoard
307- else
308- Result := atBBS;
309- end else begin
310-
311- Result := atNoAccept;
312- end;
295+ Result := atNoAccept;
313296 end;
314297 finally
315298 uri.Free;
Binary files a/res/ExternalBoardPlugIn/MachiBBSPlugIn.res and b/res/ExternalBoardPlugIn/MachiBBSPlugIn.res differ
--- a/res/default/Samba.default
+++ b/res/default/Samba.default
@@ -1,34 +1,31 @@
11 [Setting]
2-academy6=40
3-anchorage=40
4-@liveplus=20
5-atlanta=5
6-changi=40
7-dubai=40
8-ex24=40
9-@ogame2=20
10-gimpo=40
11-hideyoshi=40
12-ipv6=40
13-jfk=40
14-live23=20
15-live24=20
16-love6=40
17-mamono=40
18-namidame=40
19-pc11=40
20-pc12=40
21-qb5=40
22-@sec2chd=20
23-schiphol=40
24-science6=40
25-society6=40
26-takeshima=40
27-tsushima=40
2+@endless=20
3+@liveplus=10
4+@news=156
285 @newsplus=128
29-yutori=40
30-babiru=20
31-qiufen=20
32-set=20
33-venus=20
34-yomi=20
6+@operate=24
7+@sec2chd=20
8+academy6=45
9+babiru=30
10+bubble6=45
11+changi=45
12+ex24=45
13+food8=45
14+gimpo=45
15+ipv6=45
16+life9=45
17+live23=15
18+live24=15
19+love6=45
20+mamono=45
21+namidame=45
22+pc11=45
23+qb5=45
24+qiufen=30
25+schiphol=45
26+science6=45
27+set=30
28+society6=45
29+venus=30
30+yomi=30
31+yutori=10
Show on old repository browser