OSDN -- Develop and Download Open Source Software
  • R/O
  • HTTP
  • SSH
  • HTTPS
Fork

gikonavi: Commit


Commit MetaInfo

Revision2b18cc71187fb61d0b440d76324aaf6a2384ede1 (tree)
Time2007-07-25 04:12:34
Authorcvs2git <cvs2git>
Commitercvs2git

Log Message

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

Change Summary

Incremental Difference

--- a/ExternalThreadItem.pas
+++ b/ExternalThreadItem.pas
@@ -316,13 +316,13 @@ begin
316316 if inIsNew then
317317 Result := CreateResultString( HTMLCreater.SkinedRes(
318318 HTMLCreater.LoadFromSkin(
319- GikoSys.GetSkinNewResFileName, threadItem, threadItem.Size
319+ GikoSys.Setting.GetSkinNewResFileName, threadItem, threadItem.Size
320320 ), @res, no
321321 ) )
322322 else
323323 Result := CreateResultString( HTMLCreater.SkinedRes(
324324 HTMLCreater.LoadFromSkin(
325- GikoSys.GetSkinResFileName, threadItem, threadItem.Size
325+ GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.Size
326326 ), @res, no
327327 ) );
328328 end else if GikoSys.Setting.UseCSS then begin
@@ -395,7 +395,7 @@ begin
395395 try
396396 if GikoSys.Setting.UseSkin then begin
397397 // スキン
398- skinHeader := HTMLCreater.LoadFromSkin( GikoSys.GetSkinHeaderFileName, threadItem, threadItem.Size );
398+ skinHeader := HTMLCreater.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, threadItem.Size );
399399 if Length( optionalHeader ) > 0 then
400400 skinHeader :=
401401 StringReplace( skinHeader, '</head>', optionalHeader + '</head><a name="top"></a>', [] );
@@ -451,7 +451,7 @@ begin
451451 try
452452 if GikoSys.Setting.UseSkin then begin
453453 // スキン
454- skinFooter := HTMLCreater.LoadFromSkin( GikoSys.GetSkinFooterFileName, threadItem, threadItem.Size );
454+ skinFooter := HTMLCreater.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, threadItem.Size );
455455 if Length( optionalFooter ) > 0 then
456456 skinFooter :=
457457 StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] );
--- a/Giko.pas
+++ b/Giko.pas
@@ -1431,8 +1431,6 @@ begin
14311431 end;
14321432 //
14331433 procedure TGikoForm.FormShow(Sender: TObject);
1434-var
1435- item : TThreadItem;
14361434 begin
14371435 if FStartUp then begin
14381436 ShowWindow(Application.Handle, SW_HIDE);
@@ -1466,13 +1464,6 @@ begin
14661464 GikoDM.TabsOpenAction.Tag := 1;
14671465 GikoDM.TabsOpenAction.Execute;
14681466 GikoDM.TabsOpenAction.Tag := 0;
1469- if (GikoSys.Setting.LastCloseTabURL <> '') then begin
1470- item := BBSsFindThreadFromURL( GikoSys.Setting.LastCloseTabURL );
1471- if (item <> nil) and (item.IsLogFile) then begin
1472- OpenThreadItem(item, item.URL);
1473- end;
1474- GikoSys.Setting.LastCloseTabURL := '';
1475- end;
14761467 end;
14771468
14781469 //ActionListのGroupIndexを元に戻す
@@ -1493,13 +1484,8 @@ begin
14931484 Exit;
14941485 end;
14951486
1496- GikoSys.Setting.LastCloseTabURL := '';
14971487 if GikoSys.Setting.TabAutoLoadSave then begin
14981488 GikoDM.TabsSaveAction.Execute;
1499- if (GetActiveContent <> nil) and
1500- (GetActiveContent.IsLogFile) then begin
1501- GikoSys.Setting.LastCloseTabURL := GetActiveContent.URL;
1502- end;
15031489 end;
15041490
15051491 if (SearchDialog <> nil) then begin
@@ -3585,8 +3571,6 @@ begin
35853571 end;
35863572 BrowserTab.Tabs.BeginUpdate;
35873573 try
3588- GikoSys.Setting.LastCloseTabURL :=
3589- TBrowserRecord(BrowserTab.Tabs.Objects[index]).Thread.URL;
35903574 TBrowserRecord(BrowserTab.Tabs.Objects[index]).Free;
35913575 if ( BrowserTab.Tabs.Count - 1 = index ) and
35923576 ( BrowserTab.TabRect(index).Left
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -2283,7 +2283,7 @@ var
22832283 begin
22842284 URLs := TStringList.Create();
22852285 try
2286- fileName := GikoSys.GetAppDir + TABFILE;
2286+ fileName := ExtractFilePath(Application.ExeName) + TABFILE;
22872287 if FileExists(fileName) then begin
22882288 try
22892289 URLs.LoadFromFile(fileName);
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -276,7 +276,7 @@ implementation
276276
277277 uses
278278 Giko, RoundData, Favorite, Registry, HTMLCreate, MojuUtils, Sort, YofUtils,
279- IniFiles, DateUtils, SkinFiles;
279+ IniFiles, DateUtils;
280280
281281 const
282282 FOLDER_INDEX_VERSION = '1.01';
@@ -480,37 +480,37 @@ end;
480480 //! Skin:ヘッダのファイル名
481481 function TGikoSys.GetSkinHeaderFileName: string;
482482 begin
483- Result := Setting.SkinFiles.GetSkinHeaderFileName;
483+ Result := Setting.GetSkinHeaderFileName;
484484 end;
485485
486486 //! Skin:フッタのファイル名
487487 function TGikoSys.GetSkinFooterFileName: string;
488488 begin
489- Result := Setting.SkinFiles.GetSkinFooterFileName;
489+ Result := Setting.GetSkinFooterFileName;
490490 end;
491491
492492 //! Skin:新着レスのファイル名
493493 function TGikoSys.GetSkinNewResFileName: string;
494494 begin
495- Result := Setting.SkinFiles.GetSkinNewResFileName;
495+ Result := Setting.GetSkinNewResFileName;
496496 end;
497497
498498 //! Skin:非新着レスのファイル名
499499 function TGikoSys.GetSkinResFileName: string;
500500 begin
501- Result := Setting.SkinFiles.GetSkinResFileName;
501+ Result := Setting.GetSkinResFileName;
502502 end;
503503
504504 //! Skin:しおり(ここまで読んだ)のファイル名
505505 function TGikoSys.GetSkinBookmarkFileName: string;
506506 begin
507- Result := Setting.SkinFiles.GetSkinBookmarkFileName;
507+ Result := Setting.GetSkinBookmarkFileName;
508508 end;
509509
510510 //! Skin:しおり(新着レス)のファイル名
511511 function TGikoSys.GetSkinNewmarkFileName: string;
512512 begin
513- Result := Setting.SkinFiles.GetSkinNewmarkFileName;
513+ Result := Setting.GetSkinNewmarkFileName;
514514 end;
515515
516516 //! UserAgent取得
--- a/InputAssist.pas
+++ b/InputAssist.pas
@@ -64,8 +64,7 @@ type
6464 FSortColumn : Integer;
6565 FInsertText : String;
6666 procedure AddListViewItem(ResWord : TResistWord);
67- procedure SetCategory(combo: TComboBox; selected: String);
68- function ValidateKey(key, category: String): boolean;
67+ procedure SetCategory(combo: TComboBox);
6968 public
7069 { Public 宣言 }
7170 procedure SetUpFromEditor();
@@ -144,35 +143,22 @@ procedure TInputAssistForm.AddButtonClick(Sender: TObject);
144143 var
145144 resWord : TResistWord;
146145 begin
147- if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin
146+ if (Length(KeyNameEdit.Text) = 0) then begin
147+ ShowMessage('キー名を設定してください。');
148+ end else begin
148149 if (not InputAssistDM.IsDupulicate(
149150 KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin
150151 resWord := InputAssistDM.Add(KeyNameEdit.Text);
151152 resWord.SetCategory(CategoryNameComboBox.Text);
152153 resWord.SetText(TextMemo.Text);
153154 AddListViewItem(resWord);
154- SetCategory(CategoryNameComboBox, resWord.GetCategory);
155+ SetCategory(CategoryNameComboBox);
155156 GikoListView1.AlphaSort;
156157 end else begin
157158 ShowMessage('同一のキー名・カテゴリ名で既に登録済みです。');
158159 end;
159160 end;
160161 end;
161-//! キー名・カテゴリ有効チェック
162-function TInputAssistForm.ValidateKey(key, category: String): boolean;
163-begin
164- Result := True;
165- if (Length(key) = 0) then begin
166- ShowMessage('キー名を設定してください。');
167- Result := False;
168- end else begin
169- if (Length(category) = 0) then begin
170- ShowMessage('カテゴリを設定してください。');
171- Result := False;
172- end;
173- end;
174-end;
175-
176162 //! 削除ボタン押下時のイベント
177163 procedure TInputAssistForm.DeleteButtonClick(Sender: TObject);
178164 begin
@@ -188,21 +174,18 @@ var
188174 resWord : TResistWord;
189175 begin
190176 if GikoListView1.Selected <> nil then begin
191- if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin
192- if (not InputAssistDM.IsDupulicate(
193- KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin
194- resWord := TResistWord(GikoListView1.Selected.Data);
195- resWord.SetKey(KeyNameEdit.Text);
196- resWord.SetCategory(CategoryNameComboBox.Text);
197- resWord.SetText(TextMemo.Text);
198- // 一覧の更新
199- GikoListView1.Selected.Caption := resWord.GetKey;
200- GikoListView1.Selected.SubItems[0] := resWord.GetCategory;
201- SetCategory(CategoryNameComboBox, resWord.GetCategory);
202- GikoListView1.AlphaSort;
203- end else begin
204- ShowMessage('同一のキー名・カテゴリ名で既に登録済みです。');
205- end;
177+ if (Length(KeyNameEdit.Text) = 0) then begin
178+ ShowMessage('キー名を無しにはできません。');
179+ end else begin
180+ resWord := TResistWord(GikoListView1.Selected.Data);
181+ resWord.SetKey(KeyNameEdit.Text);
182+ resWord.SetCategory(CategoryNameComboBox.Text);
183+ resWord.SetText(TextMemo.Text);
184+ // 一覧の更新
185+ GikoListView1.Selected.Caption := resWord.GetKey;
186+ GikoListView1.Selected.SubItems[0] := resWord.GetCategory;
187+ SetCategory(CategoryNameComboBox);
188+ GikoListView1.AlphaSort;
206189 end;
207190 end;
208191 end;
@@ -309,10 +292,9 @@ begin
309292 LockWindowUpdate(0);
310293 end;
311294 //! カテゴリコンボボックス設定
312-procedure TInputAssistForm.SetCategory(combo: TComboBox; selected: String);
295+procedure TInputAssistForm.SetCategory(combo: TComboBox);
313296 var
314297 cat : TStringList;
315- i : Integer;
316298 begin
317299 // 検索用
318300 cat := TStringList.Create;
@@ -324,11 +306,6 @@ begin
324306 combo.Items.AddStrings(cat);
325307 combo.ItemIndex := 0;
326308 combo.Items.EndUpdate;
327- // 選択済みのカテゴリにインデックスを変更
328- i := combo.Items.IndexOf(selected);
329- if (i <> -1) then begin
330- combo.ItemIndex := i;
331- end;
332309 finally
333310 cat.Free;
334311 end;
@@ -344,9 +321,11 @@ begin
344321 FInsertText := '';
345322 CloseAction.ShortCut := TShortCut(0);
346323 // 追加用キー入力OK
347- SetCategory(CategoryNameComboBox, '');
324+ SetCategory(CategoryNameComboBox);
348325 end;
349326 procedure TInputAssistForm.SetUpFromEditor();
327+var
328+ cat : TStringList;
350329 begin
351330 Self.Caption := '入力アシスト';
352331 Panel3.Visible := False;
@@ -356,7 +335,7 @@ begin
356335 FInsertText := '';
357336 CloseAction.ShortCut := ShortCut(VK_ESCAPE, []);
358337 // 検索用
359- SetCategory(CategoryComboBox, '');
338+ SetCategory(CategoryComboBox);
360339 end;
361340 function TInputAssistForm.GetInsertText(): String;
362341 begin
--- a/InputAssistDataModule.pas
+++ b/InputAssistDataModule.pas
@@ -408,6 +408,7 @@ end;
408408 function TInputAssistDM.IsDupulicate(Key: String; Category: String): Boolean;
409409 var
410410 i : Integer;
411+// resWord : TResistWord;
411412 begin
412413 // このメソッドでは、ソート済みとは限らないので、全てのキーを探索している
413414 Result := False;
--- a/Option.pas
+++ b/Option.pas
@@ -1283,7 +1283,7 @@ end;
12831283 function TOptionDialog.CheckFolder: Boolean;
12841284 begin
12851285 if Trim(LogFolderEdit.Text) = '' then
1286- LogFolderEdit.Text := GikoSys.GetAppDir + 'Log';
1286+ LogFolderEdit.Text := ExtractFilePath(Application.ExeName) + 'Log';
12871287
12881288 if DirectoryExists(LogFolderEdit.Text) then begin
12891289 Result := True;
--- a/Setting.pas
+++ b/Setting.pas
@@ -5,7 +5,7 @@ interface
55
66 uses
77 SysUtils, Classes, Graphics, Forms, {Math, IniFiles, UCryptAuto, UBase64,}
8- ComCtrls, GestureModel, IniFiles, SkinFiles;
8+ ComCtrls, GestureModel, IniFiles;
99
1010 const
1111 MAIN_COOLBAND_COUNT = 4; //メインCoolBandの数
@@ -232,6 +232,8 @@ type
232232 FListViewNo: Boolean;
233233 //CSS表示
234234 FUseCSS: Boolean;
235+ //CSSファイル名
236+ FCSSFileName: string;
235237 // スキン表示(一時的なもので ini に保存はされない)
236238 FUseSkin: Boolean;
237239 //かちゅ〜しゃ用のSkinを利用するか
@@ -378,8 +380,7 @@ type
378380
379381 //Tab自動保存
380382 FTabAutoLoadSave : Boolean;
381- //最後に開いていたスレッドのURL
382- FLastCloseTabURL: String;
383+
383384 //にちゃん語案内サポート機能
384385 F2chSupport : Boolean;
385386
@@ -448,8 +449,6 @@ type
448449 FSentIniFileSize: Integer;
449450 //! リンクURL取得の対象拡張子
450451 FExtList: String;
451- //! Skin関連
452- FSkinFiles: TSkinFiles;
453452 function GetMainCoolSet(Index: Integer): TCoolSet;
454453 function GetBoardCoolSet(Index: Integer): TCoolSet;
455454 function GetBrowserCoolSet(Index: Integer): TCoolSet;
@@ -475,7 +474,6 @@ type
475474
476475 procedure SetUseCSS( value: Boolean );
477476 procedure SetCSSFileName( fileName: string );
478- function GetCSSFileName: string;
479477 //! プロキシ設定読み込み
480478 procedure ReadProxySettings(memIni: TMemIniFile);
481479 //! 各種ウィンドウ設定読み込み
@@ -512,6 +510,12 @@ type
512510 function GetSentFileName: string;
513511 function GetConfigDir: string;
514512 function GetSkinDir: string;
513+ function GetSkinHeaderFileName: string;
514+ function GetSkinFooterFileName: string;
515+ function GetSkinResFileName: string;
516+ function GetSkinNewResFileName: string;
517+ function GetSkinBookmarkFileName: string;
518+ function GetSkinNewmarkFileName: string;
515519 function GetStyleSheetDir: string;
516520 function GetOutBoxFileName: string;
517521 function GetNGWordsDir: string;
@@ -640,7 +644,7 @@ type
640644
641645 property ListViewNo: Boolean read FListViewNo write FListViewNo;
642646 property UseCSS: Boolean read FUseCSS write SetUseCSS;
643- property CSSFileName: string read GetCSSFileName write SetCSSFileName;
647+ property CSSFileName: string read FCSSFileName write SetCSSFileName;
644648 property UseKatjushaType : Boolean read FUseKatjushaType write FUseKatjushaType;
645649 property UseSkin: Boolean read FUseSkin;
646650
@@ -754,8 +758,6 @@ type
754758 property SelectInterval : Integer read FSelectInterval write FSelectInterval;
755759 //Tab保存
756760 property TabAutoLoadSave: Boolean read FTabAutoLoadSave write FTabAutoLoadSave;
757- //タブの復元とか用
758- property LastCloseTabURL: String read FLastCloseTabURL write FLastCloseTabURL;
759761 //property Gengo: TStringList read F2chLanguage write F2chLanguage;
760762 property GengoSupport : Boolean read F2chSupport write F2chSupport;
761763 property KuroutSettingTabIndex: Integer read FKuroutSettingTabIndex write FKuroutSettingTabIndex;
@@ -805,8 +807,6 @@ type
805807 property SentIniFileSize: Integer read FSentIniFileSize write FSentIniFileSize;
806808 //! リンクURL取得の対象拡張子
807809 property ExtList: String read FExtList write FExtList;
808- //! Skinファイル管理
809- property SkinFiles: TSkinFiles read FSkinFiles;
810810
811811 end;
812812
@@ -827,6 +827,12 @@ const
827827 CONFIG_DIR_NAME = 'config';
828828 CSS_DIR_NAME = 'css';
829829 SKIN_DIR_NAME = 'skin';
830+ SKIN_HEADER_FILE_NAME = 'Header.html';
831+ SKIN_FOOTER_FILE_NAME = 'Footer.html';
832+ SKIN_NEWRES_FILE_NAME = 'NewRes.html';
833+ SKIN_RES_FILE_NAME = 'Res.html';
834+ SKIN_BOOKMARK_FILE_NAME = 'Bookmark.html';
835+ SKIN_NEWMARK_FILE_NAME = 'Newmark.html';
830836 NGWORDs_DIR_NAME : String = 'NGwords';
831837 BOARD_PLUGIN_DIR_NAME = 'BoardPlugin';
832838 SAMBATIME_FILE_NAME : String = 'Samba.ini';
@@ -960,7 +966,6 @@ begin
960966 FCategoryColumnOrder := TGikoCategoryColumnList.Create;
961967 FBoardColumnOrder := TGikoBoardColumnList.Create;
962968 FGestures := TGestureModel.Create;
963- FSkinFiles := TSkinFiles.Create;
964969 FNameList.Duplicates := dupIgnore;
965970 FMailList.Duplicates := dupIgnore;
966971 FBoardURLs.Duplicates := dupIgnore;
@@ -986,13 +991,13 @@ end;
986991 //初期化ファイル名取得（パス＋ファイル名）
987992 function TSetting.GetFileName(): string;
988993 begin
989- Result := GetAppDir + INI_FILE_NAME;
994+ Result := ExtractFilePath(Application.ExeName) + INI_FILE_NAME;
990995 end;
991996
992997 //板更新用URL設定ファイル名（パス＋ファイル名）
993998 function TSetting.GetBoardURLFileName(): string;
994999 begin
995- Result := GetAppDir + BOARD_URL_INI_FILE_NAME;
1000+ Result := ExtractFilePath(Application.ExeName) + BOARD_URL_INI_FILE_NAME;
9961001 end;
9971002
9981003 //設定ファイル読込
@@ -1120,7 +1125,7 @@ begin
11201125 //ResAnchorjamp
11211126 ResAnchorJamp := ini.ReadBool('Function', 'ResAnchoJamp', True);
11221127 //ログフォルダ
1123- LogFolder := ini.ReadString('Folder', 'LogFolder', GetAppDir + 'Log');
1128+ LogFolder := ini.ReadString('Folder', 'LogFolder', ExtractFilePath(Application.ExeName) + 'Log');
11241129 NewLogFolder := '';
11251130
11261131 //板URL
@@ -1193,7 +1198,7 @@ begin
11931198 SoundFileName[i] := '';
11941199 end;
11951200 end else begin
1196- s := GetAppDir + '\sound\';
1201+ s := ExtractFileDir(Application.ExeName) + '\sound\';
11971202 SoundFileName[0] := s + '取得成功.wav';
11981203 SoundFileName[1] := s + '取得成功(差分).wav';
11991204 SoundFileName[2] := s + '未更新.wav';
@@ -1237,7 +1242,7 @@ begin
12371242
12381243 //Tab自動保存、読み込み
12391244 FTabAutoLoadSave := ini.ReadBool('TabAuto', 'TabAutoLoadSave', False);
1240- FLastCloseTabURL := ini.ReadString('Thread', 'LastCloseTabURL', '');
1245+
12411246 FKuroutSettingTabIndex := ini.ReadInteger('OptionDialog', 'KuroutTabIndex' , 0);
12421247
12431248 // マウスジェスチャー
@@ -1474,7 +1479,7 @@ begin
14741479 //かしゅ〜しゃのスキンを使うか
14751480 ini.WriteBool('CSS', 'UseKatjushaType', FUseKatjushaType);
14761481 //CSSファイル名
1477- ini.WriteString('CSS', 'FileName', FSkinFiles.FileName);
1482+ ini.WriteString('CSS', 'FileName', FCSSFileName);
14781483 //Mail欄表示
14791484 ini.WriteBool('Thread', 'ShowMail', FShowMail);
14801485 // レス表示範囲
@@ -1636,7 +1641,6 @@ begin
16361641
16371642 //タブ自動保存
16381643 ini.WriteBool('TabAuto', 'TabAutoLoadSave', FTabAutoLoadSave);
1639- ini.WriteString('Thread', 'LastCloseTabURL', FLastCloseTabURL);
16401644 //詳細設定
16411645 ini.WriteInteger('OptionDialog', 'KuroutTabIndex', FKuroutSettingTabIndex);
16421646
@@ -1719,7 +1723,7 @@ var
17191723 begin
17201724 ini := TMemIniFile.Create(GetFileName());
17211725 try
1722- if GetAppDir + 'Log' = NewLogFolder then
1726+ if ExtractFilePath(Application.ExeName) + 'Log' = NewLogFolder then
17231727 ini.DeleteKey('Folder', 'LogFolder')
17241728 else
17251729 ini.WriteString('Folder', 'LogFolder', NewLogFolder);
@@ -1961,7 +1965,7 @@ end;
19611965 *************************************************************************)
19621966 function TSetting.GetBoardFileName: string;
19631967 begin
1964- Result := GetConfigDir + BOARD_FILE_NAME;
1968+ Result := GetAppDir + CONFIG_DIR_NAME + '\' + BOARD_FILE_NAME;
19651969 end;
19661970
19671971 (*************************************************************************
@@ -1969,15 +1973,15 @@ end;
19691973 *************************************************************************)
19701974 function TSetting.GetCustomBoardFileName: string;
19711975 begin
1972- Result := GetConfigDir + CUSTOMBOARD_FILE_NAME;
1976+ Result := GetAppDir + CONFIG_DIR_NAME + '\' + CUSTOMBOARD_FILE_NAME;
19731977 end;
19741978
19751979 (*************************************************************************
1976- *ボードディレクトリ取得(\で終わる)
1980+ *ボードディレクトリ取得
19771981 *************************************************************************)
19781982 function TSetting.GetBoardDir: string;
19791983 begin
1980- Result := IncludeTrailingPathDelimiter(GetConfigDir + BOARD_DIR_NAME);
1984+ Result := GetAppDir + CONFIG_DIR_NAME + '\' + BOARD_DIR_NAME + '\';
19811985 end;
19821986
19831987 (*************************************************************************
@@ -1990,7 +1994,7 @@ end;
19901994
19911995
19921996 (*************************************************************************
1993- *実行ファイルフォルダ取得(最後に\がある)
1997+ *実行ファイルフォルダ取得
19941998 *************************************************************************)
19951999 function TSetting.GetAppDir: string;
19962000 begin
@@ -2022,36 +2026,58 @@ begin
20222026 end;
20232027
20242028 (*************************************************************************
2025- *Configフォルダ取得(\で終わる)
2029+ *Configフォルダ取得
20262030 *************************************************************************)
20272031 function TSetting.GetConfigDir: string;
20282032 begin
20292033 Result := IncludeTrailingPathDelimiter(GetAppDir + CONFIG_DIR_NAME);
20302034 end;
2031-(*************************************************************************
2032- *CSSフォルダ取得(\で終わる)
2033- *************************************************************************)
2035+
20342036 function TSetting.GetStyleSheetDir: string;
20352037 begin
20362038 Result := IncludeTrailingPathDelimiter(GetConfigDir + CSS_DIR_NAME);
20372039 end;
2038-(*************************************************************************
2039- *skinフォルダ取得(\で終わる)
2040- *************************************************************************)
2040+
20412041 function TSetting.GetSkinDir: string;
20422042 begin
20432043 Result := IncludeTrailingPathDelimiter(GetConfigDir + SKIN_DIR_NAME);
20442044 end;
2045-(*************************************************************************
2046- *NGワードディレクトリ取得(\で終わる)
2047- *************************************************************************)
2045+
2046+function TSetting.GetSkinHeaderFileName: string;
2047+begin
2048+ Result := CSSFileName + SKIN_HEADER_FILE_NAME;
2049+end;
2050+
2051+function TSetting.GetSkinFooterFileName: string;
2052+begin
2053+ Result := CSSFileName + SKIN_FOOTER_FILE_NAME;
2054+end;
2055+
2056+function TSetting.GetSkinNewResFileName: string;
2057+begin
2058+ Result := CSSFileName + SKIN_NEWRES_FILE_NAME;
2059+end;
2060+
2061+function TSetting.GetSkinResFileName: string;
2062+begin
2063+ Result := CSSFileName + SKIN_RES_FILE_NAME;
2064+end;
2065+
2066+function TSetting.GetSkinBookmarkFileName: string;
2067+begin
2068+ Result := CSSFileName + SKIN_BOOKMARK_FILE_NAME;
2069+end;
2070+
2071+function TSetting.GetSkinNewmarkFileName: string;
2072+begin
2073+ Result := CSSFileName + SKIN_NEWMARK_FILE_NAME;
2074+end;
2075+
20482076 function TSetting.GetNGWordsDir: string;
20492077 begin
20502078 Result := IncludeTrailingPathDelimiter(GetConfigDir + NGWORDs_DIR_NAME);
20512079 end;
2052-(*************************************************************************
2053- *Boardプラグインディレクトリ取得(\で終わる)
2054- *************************************************************************)
2080+
20552081 function TSetting.GetBoardPlugInDir: string;
20562082 begin
20572083 Result := IncludeTrailingPathDelimiter(GetConfigDir + BOARD_PLUGIN_DIR_NAME);
@@ -2065,25 +2091,24 @@ begin
20652091 // ココでの判定でも大文字小文字の違いは無視する。
20662092 FUseSkin :=
20672093 UseCSS and
2068- (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(FSkinFiles.FileName) ) > 0) and
2069- FileExists( FSkinFiles.GetSkinHeaderFileName );
2094+ (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(CSSFileName) ) > 0) and
2095+ FileExists( GetSkinHeaderFileName );
20702096
20712097 end;
20722098
20732099 procedure TSetting.SetCSSFileName( fileName: string );
20742100 begin
2075- FSkinFiles.FileName := fileName;
2101+
2102+ FCSSFileName := fileName;
20762103 // Windows的にファイルパスの大文字小文字の違いは無視されるので、
20772104 // ココでの判定でも大文字小文字の違いは無視する。
20782105 FUseSkin :=
20792106 UseCSS and
2080- (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(FSkinFiles.FileName) ) > 0) and
2081- FileExists( FSkinFiles.GetSkinHeaderFileName );
2107+ (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(CSSFileName) ) > 0) and
2108+ FileExists( GetSkinHeaderFileName );
20822109
20832110 end;
2084-(*************************************************************************
2085- *samba設定ファイル名取得
2086- *************************************************************************)
2111+
20872112 function TSetting.GetSambaFileName: string;
20882113 begin
20892114 Result := GetAppDir + SAMBATIME_FILE_NAME;
@@ -2364,11 +2389,5 @@ begin
23642389 end;
23652390 end;
23662391 end;
2367-
2368-function TSetting.GetCSSFileName: string;
2369-begin
2370- Result := FSkinFiles.FileName;
2371-end;
2372-
23732392 end.
23742393
--- a/SkinFiles.pas
+++ /dev/null
@@ -1,86 +0,0 @@
1-unit SkinFiles;
2-
3-interface
4-
5-uses
6- SysUtils, Classes, ComCtrls;
7-
8-type
9- TSkinFiles = class(TObject)
10- private
11- FFileName: String;
12- procedure SetFileName(AFileName: string);
13- public
14- //! スキンファイルパス
15- property FileName:String read FFileName write SetFileName;
16- //! ヘッダのファイル名
17- function GetSkinHeaderFileName: string;
18- //! フッタのファイル名
19- function GetSkinFooterFileName: string;
20- //! 新着レスのファイル名
21- function GetSkinNewResFileName: string;
22- //! 非新着レスのファイル名
23- function GetSkinResFileName: string;
24- //! しおり(ここまで読んだ)のファイル名
25- function GetSkinBookmarkFileName: string;
26- //! しおり(新着レス)のファイル名
27- function GetSkinNewmarkFileName: string;
28- end;
29-
30-implementation
31-
32-const
33- SKIN_HEADER_FILE_NAME = 'Header.html';
34- SKIN_FOOTER_FILE_NAME = 'Footer.html';
35- SKIN_NEWRES_FILE_NAME = 'NewRes.html';
36- SKIN_RES_FILE_NAME = 'Res.html';
37- SKIN_BOOKMARK_FILE_NAME = 'Bookmark.html';
38- SKIN_NEWMARK_FILE_NAME = 'Newmark.html';
39-
40-//! スキンファイル名設定
41-procedure TSkinFiles.SetFileName(AFileName: string);
42-begin
43- // ディレクトリの場合最後に\で終わらす
44- if DirectoryExists(AFileName) then begin
45- // \ で終わるようにする
46- FFileName := IncludeTrailingPathDelimiter(AFileName);
47- end else begin
48- FFileName := AFileName;
49- end;
50-end;
51-//! Skin:ヘッダのファイル名
52-function TSkinFiles.GetSkinHeaderFileName: string;
53-begin
54- Result := FFileName + SKIN_HEADER_FILE_NAME;
55-end;
56-
57-//! Skin:フッタのファイル名
58-function TSkinFiles.GetSkinFooterFileName: string;
59-begin
60- Result := FFileName + SKIN_FOOTER_FILE_NAME;
61-end;
62-
63-//! Skin:新着レスのファイル名
64-function TSkinFiles.GetSkinNewResFileName: string;
65-begin
66- Result := FFileName + SKIN_NEWRES_FILE_NAME;
67-end;
68-
69-//! Skin:非新着レスのファイル名
70-function TSkinFiles.GetSkinResFileName: string;
71-begin
72- Result := FFileName + SKIN_RES_FILE_NAME;
73-end;
74-
75-//! Skin:しおり(ここまで読んだ)のファイル名
76-function TSkinFiles.GetSkinBookmarkFileName: string;
77-begin
78- Result := FFileName + SKIN_BOOKMARK_FILE_NAME;
79-end;
80-
81-//! Skin:しおり(新着レス)のファイル名
82-function TSkinFiles.GetSkinNewmarkFileName: string;
83-begin
84- Result := FFileName + SKIN_NEWMARK_FILE_NAME;
85-end;
86-end.
--- a/gikoNavi.dpr
+++ b/gikoNavi.dpr
@@ -77,8 +77,7 @@ uses
7777 SambaTimer in 'SambaTimer.pas',
7878 HistoryList in 'HistoryList.pas',
7979 ReplaceDataModule in 'ReplaceDataModule.pas' {ReplaceDM: TDataModule},
80- ResPopupBrowser in 'ResPopupBrowser.pas',
81- SkinFiles in 'SkinFiles.pas';
80+ ResPopupBrowser in 'ResPopupBrowser.pas';
8281
8382 {$R *.RES}
8483 {$R gikoResource.res}
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/gikoSetup.iss
+++ /dev/null
@@ -1,110 +0,0 @@
1-[Setup]
2-AppName=ギコナビ
3-AppVerName=ギコナビ
4-AppId=gikoNavi
5-AppMutex=http://gikonavi.sourceforge.jp/gikonavi/mutex
6-AppPublisherURL=http://gikonavi.sourceforge.jp/
7-AppendDefaultDirName = no
8-DefaultDirName={pf}\gikonavi
9-VersionInfoDescription=ギコナビセットアッププログラム
10-DefaultGroupName=ギコナビ
11-; 自分の環境に合わせてください
12-SourceDir=G:\Release
13-OutputDir=G:\Output
14-SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
15-; ギコナビのバージョンにあわせてください
16-VersionInfoVersion=1.56.0.714
17-OutputBaseFilename=gikoNavi_1.56.0.714_2_setup
18-
19-
20-[Tasks]
21-Name: "startmenuicon"; Description: "スタートメニューに登録する"; GroupDescription: "ショートカット"; Flags:
22-Name: "desktopicon"; Description: "デスクトップにショートカットを作成"; GroupDescription: "ショートカット"; Flags:
23-
24-[Dirs]
25-Name: "{app}\Log"
26-Name: "{app}\Sound"
27-Name: "{app}\config\Board"
28-Name: "{app}\config\BoardPlugin"
29-Name: "{app}\config\NGwords"
30-
31-
32-[Files]
33-Source: * ; Destdir: {app} ;Excludes: "gikoNavi.exe" ;
34-Source: "gikoNavi.exe" ; Destdir: {app} ;Permissions: everyone-full; Flags: ignoreversion
35-Source: "Sound\*" ; Destdir: {app}\Sound ;Flags: createallsubdirs recursesubdirs ;
36-Source: "config\*" ; Destdir: {app}\config ;Excludes: "*.dll";Flags: createallsubdirs recursesubdirs ;
37-Source: "config\BoardPlugin\*.dll" ; Destdir: {app}\config\BoardPlugin ;Flags: ignoreversion;
38-
39-[Icons]
40-Name: "{group}\Readme"; Filename: "{app}\readme.txt"; Tasks: startmenuicon
41-Name: "{group}\ギコナビ"; Filename: "{app}\gikoNavi.exe"; Tasks: startmenuicon
42-Name: "{commondesktop}\ギコナビ"; Filename: "{app}\gikoNavi.exe"; Tasks: desktopicon
43-
44-[Run]
45-Filename: "{app}\readme.txt"; Description: "READMEを表示する"; Flags: postinstall shellexec skipifsilent unchecked
46-Filename: "{app}\gikoNavi.exe"; Description: "アプリケーションを起動する"; Flags: postinstall shellexec skipifsilent
47-
48-[UninstallDelete]
49-Type: files; Name: "{app}\sent.ini"
50-Type: files; Name: "{app}\url.ini"
51-Type: files; Name: "{app}\Samba.ini"
52-Type: files; Name: "{app}\gikoNavi.ini"
53-
54-[Languages]
55-Name: japanese; MessagesFile: compiler:Languages\Japanese.isl
56-
57-[Code]
58-procedure CurStepChanged(CurStep: TSetupStep);
59-begin
60- case CurStep of
61- ssInstall:
62- begin
63- if (RegKeyExists(HKEY_LOCAL_MACHINE,
64- 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi')) then
65- begin
66- if MsgBox('以前のバージョンのアンインストール情報を削除してよろしいでしょうか？'
67- + #10#13 + '(バタ56以前からのアップデートの場合「はい」推奨)',
68- mbConfirmation, MB_YESNO) = IDYES then
69- begin
70- if not RegDeleteKeyIncludingSubkeys(HKEY_LOCAL_MACHINE,
71- 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi') then
72- begin
73- MsgBox('アンインストール情報の削除に失敗しました。', mbError, MB_OK);
74- end;
75- end;
76- end;
77- end;
78- end;
79-
80-end;
81-procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
82-var
83- path :String;
84-begin
85- case CurUninstallStep of
86- usUninstall:
87- begin
88- path := ExpandConstant('{app}') + '\Log';
89- if MsgBox(path + 'フォルダ以下を完全に消去してよろしいでしょうか？', mbConfirmation, MB_YESNO) = IDYES then
90- begin
91- DelTree(path, True, True, True);
92- end;
93-
94- path := ExpandConstant('{app}') + '\config';
95- if MsgBox(path + 'フォルダ以下を完全に消去してよろしいでしょうか？', mbConfirmation, MB_YESNO) = IDYES then
96- begin
97- DelTree(path, True, True, True);
98- end;
99-
100- end;
101- usPostUninstall:
102- begin
103- path := ExpandConstant('{app}');
104-
105- MsgBox(path + 'フォルダ以下に、削除しきれないファイルが残っている場合があります。' #10#13 '確認のうえ手動で削除してください。',
106- mbInformation, MB_OK);
107- end;
108- end;
109-end;
110-
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -108,17 +108,8 @@ LICENSE
108108 ------------------------------
109109 履歴
110110 ------------------------------
111-2007/08/05
111+2007/XX/YY
112112 Version ﾊﾞﾀ56
113-　レスポップアップの多段対応
114-　表示しているスレッド中のリンクのURLの取得アクションを追加
115-　履歴リストにしてEnterでスレッドを表示するとエラーが表示される不具合の修正
116-　Tab自動保存・復元を有効にしているときに、起動時の復元で表示していたタブを開くように修正
117-　入力アシストのカテゴリの項目をComboBox化
118-　詳細設定で100レス表示の先頭表示レス数が毎回1と表示される不具合の修正
119-　スクリプト誤反応対策機能のデフォルトファイル(replace.default)の更新
120- (アップデートの場合、手動で更新する必要があります)
121-　インストーラをInno Setup(http://www.jrsoftware.org/)で作り直した
122113
123114 2007/04/01
124115 Version ﾊﾞﾀ55
--- a/res/default/replace.default
+++ b/res/default/replace.default
@@ -4,5 +4,4 @@ body onload=window\(\)
44 GetSpecialFolder\(
55 CodeModule\.Lines
66 ms-its:mhtml:
7-!exec*:*:
8-$mircexe mircexe
\ No newline at end of file
7+!exec*:*:
\ No newline at end of file
Show on old repository browser