• R/O
  • HTTP
  • SSH
  • HTTPS

gikonavi: Commit


Commit MetaInfo

Revision26058f9dc400818f20faa21f4e58f27472fe8787 (tree)
Time2009-10-12 22:15:15
Authorcvs2git <cvs2git>
Commitercvs2git

Log Message

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

Change Summary

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -3869,7 +3869,6 @@ begin
38693869 TreeSelectFavoriteAddPupupMenu.Visible := False;
38703870 TreeSelectLogDeleteSeparator.Visible := False;
38713871 TreeSelectLogDeletePopupMenu.Visible := False;
3872- SearchBoardName.Visible := False;
38733872 end else if TObject(FClickNode.Data) is TBoard then begin
38743873 TreeSelectThreadPupupMenu.Visible := False;
38753874 TreeSelectBoardPupupMenu.Visible := True;
@@ -3880,7 +3879,6 @@ begin
38803879 TreeSelectFavoriteAddPupupMenu.Visible := True;
38813880 TreeSelectLogDeleteSeparator.Visible := False;
38823881 TreeSelectLogDeletePopupMenu.Visible := False;
3883- SearchBoardName.Visible := True;
38843882 end else if TObject(FClickNode.Data) is TFavoriteBoardItem then begin
38853883 TreeSelectThreadPupupMenu.Visible := False;
38863884 TreeSelectBoardPupupMenu.Visible := True;
@@ -3891,7 +3889,6 @@ begin
38913889 TreeSelectFavoriteAddPupupMenu.Visible := True;
38923890 TreeSelectLogDeleteSeparator.Visible := False;
38933891 TreeSelectLogDeletePopupMenu.Visible := False;
3894- SearchBoardName.Visible := False;
38953892 end else if (TObject(FClickNode.Data) is TThreadItem) then begin
38963893 TreeSelectThreadPupupMenu.Visible := True;
38973894 TreeSelectBoardPupupMenu.Visible := False;
@@ -3902,7 +3899,6 @@ begin
39023899 TreeSelectFavoriteAddPupupMenu.Visible := True;
39033900 TreeSelectLogDeleteSeparator.Visible := True;
39043901 TreeSelectLogDeletePopupMenu.Visible := True;
3905- SearchBoardName.Visible := False;
39063902 end else if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin
39073903 TreeSelectThreadPupupMenu.Visible := True;
39083904 TreeSelectBoardPupupMenu.Visible := False;
@@ -3913,7 +3909,6 @@ begin
39133909 TreeSelectFavoriteAddPupupMenu.Visible := True;
39143910 TreeSelectLogDeleteSeparator.Visible := True;
39153911 TreeSelectLogDeletePopupMenu.Visible := True;
3916- SearchBoardName.Visible := False;
39173912 end else if (TObject(FClickNode.Data) is TCategory) then begin
39183913 TreeSelectThreadPupupMenu.Visible := False;
39193914 TreeSelectBoardPupupMenu.Visible := False;
@@ -3924,7 +3919,6 @@ begin
39243919 TreeSelectFavoriteAddPupupMenu.Visible := False;
39253920 TreeSelectLogDeleteSeparator.Visible := False;
39263921 TreeSelectLogDeletePopupMenu.Visible := False;
3927- SearchBoardName.Visible := True;
39283922 end else if FClickNode.IsFirstNode then begin
39293923 TreeSelectThreadPupupMenu.Visible := False;
39303924 TreeSelectBoardPupupMenu.Visible := False;
@@ -3935,7 +3929,6 @@ begin
39353929 TreeSelectFavoriteAddPupupMenu.Visible := False;
39363930 TreeSelectLogDeleteSeparator.Visible := False;
39373931 TreeSelectLogDeletePopupMenu.Visible := False;
3938- SearchBoardName.Visible := True;
39393932 end else begin
39403933 TreeSelectThreadPupupMenu.Visible := False;
39413934 TreeSelectBoardPupupMenu.Visible := False;
@@ -3946,7 +3939,6 @@ begin
39463939 TreeSelectFavoriteAddPupupMenu.Visible := False;
39473940 TreeSelectLogDeleteSeparator.Visible := False;
39483941 TreeSelectLogDeletePopupMenu.Visible := False;
3949- SearchBoardName.Visible := False;
39503942 end;
39513943 end;
39523944
--- a/HTMLCreate.pas
+++ b/HTMLCreate.pas
@@ -600,7 +600,6 @@ const
600600 _END: string = '&END=';
601601 var
602602 i, j, k: Integer;
603- hpos, qpos : Integer;
604603 tmp: string;
605604 res: string;
606605 begin
@@ -628,21 +627,10 @@ begin
628627 end else begin
629628 k := LastDelimiter('/', tmp);
630629 Delete(tmp, 1, k);
631- hpos := AnsiPos('-', tmp);
632- qpos := AnsiPos('"', tmp);
633- if ( (hpos > 0) and (qpos > 0) ) then begin
634- if ( qpos < hpos ) then begin
635- Delete(tmp, qpos, Length(tmp));
636- end else begin
637- Delete(tmp, hpos, Length(tmp));
638- end;
639- end else begin
640- if ( qpos > 0 ) then begin
641- Delete(tmp, qpos, Length(tmp));
642- end else if ( qpos > 0 ) then begin
643- Delete(tmp, hpos, Length(tmp));
644- end;
645- end;
630+ if AnsiPos('-', tmp) < AnsiPos('"', tmp) then
631+ Delete(tmp, AnsiPos('-', tmp), Length(tmp))
632+ else
633+ Delete(tmp, AnsiPos('"', tmp), Length(tmp));
646634
647635 PRes.FBody := PRes.FBody + '<a href="#' + tmp + '">';
648636 end;
--- a/PopupMenuSetting.pas
+++ b/PopupMenuSetting.pas
@@ -63,7 +63,7 @@ var
6363 implementation
6464
6565 uses
66- PopupMenuUtil, IniFiles, GikoSystem, ToolBarUtil, GikoUtil;
66+ PopupMenuUtil, IniFiles, GikoSystem, ToolBarUtil;
6767 {$R *.dfm}
6868 //! コンストラクタ(引数追加)
6969 constructor TPopupMenuSettingDialog.Create(AOwner: TComponent; ActionList: TActionList);
@@ -467,8 +467,6 @@ begin
467467 end;
468468 //! 適用ボタン押下処理
469469 procedure TPopupMenuSettingDialog.ApplyButtonClick(Sender: TObject);
470-const
471- MSG = '設定を保存しました。再起動後に有効になります。';
472470 var
473471 ini : TMemIniFile;
474472 sec, key, subkey : String;
@@ -498,9 +496,6 @@ begin
498496 node := node.GetNext;
499497 end;
500498 ini.UpdateFile;
501-
502- MsgBox(Self.Handle, MSG, 'ギコナビ', MB_OK or MB_ICONINFORMATION);
503-
504499 finally
505500 ini.Free;
506501 end;
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/gikoSetup.iss
+++ b/readme/gikoSetup.iss
@@ -9,12 +9,12 @@ DefaultDirName={pf}\gikonavi
99 VersionInfoDescription=ギコナビセットアッププログラム
1010 DefaultGroupName=ギコナビ
1111 ; 自分の環境に合わせてください
12-SourceDir=G:\Release61
12+SourceDir=G:\Release60
1313 OutputDir=G:\InnoSetup\Output
1414 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
1515 ; ギコナビのバージョンにあわせてください
16-VersionInfoVersion=1.61.1.801
17-OutputBaseFilename=gikoNavi_b61_setup
16+VersionInfoVersion=1.60.2.794
17+OutputBaseFilename=gikoNavi_b60_2_setup
1818
1919
2020
--- a/readme/gikoUSetup.iss
+++ b/readme/gikoUSetup.iss
@@ -14,12 +14,12 @@ DefaultDirName={pf}\gikonavi
1414 VersionInfoDescription=ギコナビセットアッププログラム
1515 DefaultGroupName=ギコナビ
1616 ; 自分の環境に合わせてください
17-SourceDir=G:\Release61
17+SourceDir=G:\Release
1818 OutputDir=G:\InnoSetup\Output
1919 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
2020 ; ギコナビのバージョンにあわせてください
21-VersionInfoVersion=1.61.1.801
22-OutputBaseFilename=gikoNavi_b61_usetup
21+VersionInfoVersion=1.61.0.798
22+OutputBaseFilename=gikoNavi_b61_798_usetup
2323 CreateUninstallRegKey=no
2424
2525 [Tasks]
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -1,4 +1,4 @@
1-■ギコナビ Version1.00 バタ61 Readme.txt
1+■ギコナビ Version1.00 バタ60 Readme.txt
22
33
44 ------------------------------
@@ -121,13 +121,8 @@ LICENSE
121121 ------------------------------
122122 履歴
123123 ------------------------------
124-2009/10/18
124+2009/XX/YY
125125 Version バタ61
126- したらばJBBSでスレッドを建てることができない不具合の修正
127- エディタのプレビューで、2ちゃんねるの12桁トリップに対応
128- メインメニューの「ツール」に「ポップアップメニュー設定」を追加
129- HTML化して保存する際に、レスアンカーのタグ内のダブルクォートが余分に入る不具合の修正
130- キャビネットが履歴等でも"板名検索"がポップアップメニューが表示される不具合の修正
131126
132127 2009/06/17
133128 Version バタ60 リリース2
--- a/res/default/Samba.default
+++ b/res/default/Samba.default
@@ -1,10 +1,12 @@
11 [Setting]
22 academy6=40
33 anchorage=40
4-@bgame=60
4+@liveplus=20
55 atlanta=5
66 changi=40
77 dubai=40
8+ex24=40
9+@ogame2=20
810 gimpo=40
911 hideyoshi=40
1012 ipv6=40
@@ -15,17 +17,16 @@ love6=40
1517 mamono=40
1618 namidame=40
1719 pc11=40
20+pc12=40
1821 qb5=40
1922 @sec2chd=20
2023 schiphol=40
2124 science6=40
2225 society6=40
26+takeshima=40
2327 tsushima=40
2428 @newsplus=128
2529 yutori=40
26-yutori7=40
27-@liveplus=20
28-@ogame2=20
2930 babiru=20
3031 qiufen=20
3132 set=20
Show on old repository browser