ギコナビ
Revisión | 54480f1b089e2c733267533b56ebdd2f81e300b9 (tree) |
---|---|
Tiempo | 2007-07-25 04:12:35 |
Autor | cvs2git <cvs2git> |
Commiter | cvs2git |
This commit was manufactured by cvs2svn to create tag 'v1_56_0_714'.
@@ -316,13 +316,13 @@ begin | ||
316 | 316 | if inIsNew then |
317 | 317 | Result := CreateResultString( HTMLCreater.SkinedRes( |
318 | 318 | HTMLCreater.LoadFromSkin( |
319 | - GikoSys.GetSkinNewResFileName, threadItem, threadItem.Size | |
319 | + GikoSys.Setting.GetSkinNewResFileName, threadItem, threadItem.Size | |
320 | 320 | ), @res, no |
321 | 321 | ) ) |
322 | 322 | else |
323 | 323 | Result := CreateResultString( HTMLCreater.SkinedRes( |
324 | 324 | HTMLCreater.LoadFromSkin( |
325 | - GikoSys.GetSkinResFileName, threadItem, threadItem.Size | |
325 | + GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.Size | |
326 | 326 | ), @res, no |
327 | 327 | ) ); |
328 | 328 | end else if GikoSys.Setting.UseCSS then begin |
@@ -395,7 +395,7 @@ begin | ||
395 | 395 | try |
396 | 396 | if GikoSys.Setting.UseSkin then begin |
397 | 397 | // XL |
398 | - skinHeader := HTMLCreater.LoadFromSkin( GikoSys.GetSkinHeaderFileName, threadItem, threadItem.Size ); | |
398 | + skinHeader := HTMLCreater.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, threadItem.Size ); | |
399 | 399 | if Length( optionalHeader ) > 0 then |
400 | 400 | skinHeader := |
401 | 401 | StringReplace( skinHeader, '</head>', optionalHeader + '</head><a name="top"></a>', [] ); |
@@ -451,7 +451,7 @@ begin | ||
451 | 451 | try |
452 | 452 | if GikoSys.Setting.UseSkin then begin |
453 | 453 | // XL |
454 | - skinFooter := HTMLCreater.LoadFromSkin( GikoSys.GetSkinFooterFileName, threadItem, threadItem.Size ); | |
454 | + skinFooter := HTMLCreater.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, threadItem.Size ); | |
455 | 455 | if Length( optionalFooter ) > 0 then |
456 | 456 | skinFooter := |
457 | 457 | StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] ); |
@@ -2283,7 +2283,7 @@ var | ||
2283 | 2283 | begin |
2284 | 2284 | URLs := TStringList.Create(); |
2285 | 2285 | try |
2286 | - fileName := GikoSys.GetAppDir + TABFILE; | |
2286 | + fileName := ExtractFilePath(Application.ExeName) + TABFILE; | |
2287 | 2287 | if FileExists(fileName) then begin |
2288 | 2288 | try |
2289 | 2289 | URLs.LoadFromFile(fileName); |
@@ -276,7 +276,7 @@ implementation | ||
276 | 276 | |
277 | 277 | uses |
278 | 278 | Giko, RoundData, Favorite, Registry, HTMLCreate, MojuUtils, Sort, YofUtils, |
279 | - IniFiles, DateUtils, SkinFiles; | |
279 | + IniFiles, DateUtils; | |
280 | 280 | |
281 | 281 | const |
282 | 282 | FOLDER_INDEX_VERSION = '1.01'; |
@@ -480,37 +480,37 @@ end; | ||
480 | 480 | //! Skin:wb_Ìt@C¼ |
481 | 481 | function TGikoSys.GetSkinHeaderFileName: string; |
482 | 482 | begin |
483 | - Result := Setting.SkinFiles.GetSkinHeaderFileName; | |
483 | + Result := Setting.GetSkinHeaderFileName; | |
484 | 484 | end; |
485 | 485 | |
486 | 486 | //! Skin:tb^Ìt@C¼ |
487 | 487 | function TGikoSys.GetSkinFooterFileName: string; |
488 | 488 | begin |
489 | - Result := Setting.SkinFiles.GetSkinFooterFileName; | |
489 | + Result := Setting.GetSkinFooterFileName; | |
490 | 490 | end; |
491 | 491 | |
492 | 492 | //! Skin:V XÌt@C¼ |
493 | 493 | function TGikoSys.GetSkinNewResFileName: string; |
494 | 494 | begin |
495 | - Result := Setting.SkinFiles.GetSkinNewResFileName; | |
495 | + Result := Setting.GetSkinNewResFileName; | |
496 | 496 | end; |
497 | 497 | |
498 | 498 | //! Skin:ñV XÌt@C¼ |
499 | 499 | function TGikoSys.GetSkinResFileName: string; |
500 | 500 | begin |
501 | - Result := Setting.SkinFiles.GetSkinResFileName; | |
501 | + Result := Setting.GetSkinResFileName; | |
502 | 502 | end; |
503 | 503 | |
504 | 504 | //! Skin:µ¨è(±±ÜÅÇñ¾)Ìt@C¼ |
505 | 505 | function TGikoSys.GetSkinBookmarkFileName: string; |
506 | 506 | begin |
507 | - Result := Setting.SkinFiles.GetSkinBookmarkFileName; | |
507 | + Result := Setting.GetSkinBookmarkFileName; | |
508 | 508 | end; |
509 | 509 | |
510 | 510 | //! Skin:µ¨è(V X)Ìt@C¼ |
511 | 511 | function TGikoSys.GetSkinNewmarkFileName: string; |
512 | 512 | begin |
513 | - Result := Setting.SkinFiles.GetSkinNewmarkFileName; | |
513 | + Result := Setting.GetSkinNewmarkFileName; | |
514 | 514 | end; |
515 | 515 | |
516 | 516 | //! UserAgentæ¾ |
@@ -64,8 +64,7 @@ type | ||
64 | 64 | FSortColumn : Integer; |
65 | 65 | FInsertText : String; |
66 | 66 | procedure AddListViewItem(ResWord : TResistWord); |
67 | - procedure SetCategory(combo: TComboBox; selected: String); | |
68 | - function ValidateKey(key, category: String): boolean; | |
67 | + procedure SetCategory(combo: TComboBox); | |
69 | 68 | public |
70 | 69 | { Public é¾ } |
71 | 70 | procedure SetUpFromEditor(); |
@@ -144,35 +143,22 @@ procedure TInputAssistForm.AddButtonClick(Sender: TObject); | ||
144 | 143 | var |
145 | 144 | resWord : TResistWord; |
146 | 145 | begin |
147 | - if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin | |
146 | + if (Length(KeyNameEdit.Text) = 0) then begin | |
147 | + ShowMessage('L[¼ðÝèµÄ¾³¢B'); | |
148 | + end else begin | |
148 | 149 | if (not InputAssistDM.IsDupulicate( |
149 | 150 | KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin |
150 | 151 | resWord := InputAssistDM.Add(KeyNameEdit.Text); |
151 | 152 | resWord.SetCategory(CategoryNameComboBox.Text); |
152 | 153 | resWord.SetText(TextMemo.Text); |
153 | 154 | AddListViewItem(resWord); |
154 | - SetCategory(CategoryNameComboBox, resWord.GetCategory); | |
155 | + SetCategory(CategoryNameComboBox); | |
155 | 156 | GikoListView1.AlphaSort; |
156 | 157 | end else begin |
157 | 158 | ShowMessage('¯êÌL[¼EJeS¼ÅùÉo^ÏÝÅ·B'); |
158 | 159 | end; |
159 | 160 | end; |
160 | 161 | end; |
161 | -//! L[¼EJeSLø`FbN | |
162 | -function TInputAssistForm.ValidateKey(key, category: String): boolean; | |
163 | -begin | |
164 | - Result := True; | |
165 | - if (Length(key) = 0) then begin | |
166 | - ShowMessage('L[¼ðÝèµÄ¾³¢B'); | |
167 | - Result := False; | |
168 | - end else begin | |
169 | - if (Length(category) = 0) then begin | |
170 | - ShowMessage('JeSðÝèµÄ¾³¢B'); | |
171 | - Result := False; | |
172 | - end; | |
173 | - end; | |
174 | -end; | |
175 | - | |
176 | 162 | //! í{^ºÌCxg |
177 | 163 | procedure TInputAssistForm.DeleteButtonClick(Sender: TObject); |
178 | 164 | begin |
@@ -188,21 +174,18 @@ var | ||
188 | 174 | resWord : TResistWord; |
189 | 175 | begin |
190 | 176 | 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 | - // êÌXV | |
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('¯êÌL[¼EJeS¼ÅùÉo^ÏÝÅ·B'); | |
205 | - end; | |
177 | + if (Length(KeyNameEdit.Text) = 0) then begin | |
178 | + ShowMessage('L[¼ð³µÉÍūܹñB'); | |
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 | + // êÌXV | |
185 | + GikoListView1.Selected.Caption := resWord.GetKey; | |
186 | + GikoListView1.Selected.SubItems[0] := resWord.GetCategory; | |
187 | + SetCategory(CategoryNameComboBox); | |
188 | + GikoListView1.AlphaSort; | |
206 | 189 | end; |
207 | 190 | end; |
208 | 191 | end; |
@@ -309,10 +292,9 @@ begin | ||
309 | 292 | LockWindowUpdate(0); |
310 | 293 | end; |
311 | 294 | //! JeSR{{bNXÝè |
312 | -procedure TInputAssistForm.SetCategory(combo: TComboBox; selected: String); | |
295 | +procedure TInputAssistForm.SetCategory(combo: TComboBox); | |
313 | 296 | var |
314 | 297 | cat : TStringList; |
315 | - i : Integer; | |
316 | 298 | begin |
317 | 299 | // õp |
318 | 300 | cat := TStringList.Create; |
@@ -324,11 +306,6 @@ begin | ||
324 | 306 | combo.Items.AddStrings(cat); |
325 | 307 | combo.ItemIndex := 0; |
326 | 308 | combo.Items.EndUpdate; |
327 | - // IðÏÝÌJeSÉCfbNXðÏX | |
328 | - i := combo.Items.IndexOf(selected); | |
329 | - if (i <> -1) then begin | |
330 | - combo.ItemIndex := i; | |
331 | - end; | |
332 | 309 | finally |
333 | 310 | cat.Free; |
334 | 311 | end; |
@@ -344,9 +321,11 @@ begin | ||
344 | 321 | FInsertText := ''; |
345 | 322 | CloseAction.ShortCut := TShortCut(0); |
346 | 323 | // ÇÁpL[üÍOK |
347 | - SetCategory(CategoryNameComboBox, ''); | |
324 | + SetCategory(CategoryNameComboBox); | |
348 | 325 | end; |
349 | 326 | procedure TInputAssistForm.SetUpFromEditor(); |
327 | +var | |
328 | + cat : TStringList; | |
350 | 329 | begin |
351 | 330 | Self.Caption := 'üÍAVXg'; |
352 | 331 | Panel3.Visible := False; |
@@ -356,7 +335,7 @@ begin | ||
356 | 335 | FInsertText := ''; |
357 | 336 | CloseAction.ShortCut := ShortCut(VK_ESCAPE, []); |
358 | 337 | // õp |
359 | - SetCategory(CategoryComboBox, ''); | |
338 | + SetCategory(CategoryComboBox); | |
360 | 339 | end; |
361 | 340 | function TInputAssistForm.GetInsertText(): String; |
362 | 341 | begin |
@@ -408,6 +408,7 @@ end; | ||
408 | 408 | function TInputAssistDM.IsDupulicate(Key: String; Category: String): Boolean; |
409 | 409 | var |
410 | 410 | i : Integer; |
411 | +// resWord : TResistWord; | |
411 | 412 | begin |
412 | 413 | // ±Ì\bhÅÍA\[gÏÝÆÍÀçÈ¢ÌÅASÄÌL[ðTõµÄ¢é |
413 | 414 | Result := False; |
@@ -1283,7 +1283,7 @@ end; | ||
1283 | 1283 | function TOptionDialog.CheckFolder: Boolean; |
1284 | 1284 | begin |
1285 | 1285 | if Trim(LogFolderEdit.Text) = '' then |
1286 | - LogFolderEdit.Text := GikoSys.GetAppDir + 'Log'; | |
1286 | + LogFolderEdit.Text := ExtractFilePath(Application.ExeName) + 'Log'; | |
1287 | 1287 | |
1288 | 1288 | if DirectoryExists(LogFolderEdit.Text) then begin |
1289 | 1289 | Result := True; |
@@ -5,7 +5,7 @@ interface | ||
5 | 5 | |
6 | 6 | uses |
7 | 7 | SysUtils, Classes, Graphics, Forms, {Math, IniFiles, UCryptAuto, UBase64,} |
8 | - ComCtrls, GestureModel, IniFiles, SkinFiles; | |
8 | + ComCtrls, GestureModel, IniFiles; | |
9 | 9 | |
10 | 10 | const |
11 | 11 | MAIN_COOLBAND_COUNT = 4; //CCoolBandÌ |
@@ -232,6 +232,8 @@ type | ||
232 | 232 | FListViewNo: Boolean; |
233 | 233 | //CSS\¦ |
234 | 234 | FUseCSS: Boolean; |
235 | + //CSSt@C¼ | |
236 | + FCSSFileName: string; | |
235 | 237 | // XL\¦(êIÈàÌÅ ini É۶ͳêÈ¢) |
236 | 238 | FUseSkin: Boolean; |
237 | 239 | //©¿ã`µápÌSkinðp·é© |
@@ -448,8 +450,6 @@ type | ||
448 | 450 | FSentIniFileSize: Integer; |
449 | 451 | //! NURLæ¾ÌÎÛg£q |
450 | 452 | FExtList: String; |
451 | - //! SkinÖA | |
452 | - FSkinFiles: TSkinFiles; | |
453 | 453 | function GetMainCoolSet(Index: Integer): TCoolSet; |
454 | 454 | function GetBoardCoolSet(Index: Integer): TCoolSet; |
455 | 455 | function GetBrowserCoolSet(Index: Integer): TCoolSet; |
@@ -475,7 +475,6 @@ type | ||
475 | 475 | |
476 | 476 | procedure SetUseCSS( value: Boolean ); |
477 | 477 | procedure SetCSSFileName( fileName: string ); |
478 | - function GetCSSFileName: string; | |
479 | 478 | //! vLVÝèÇÝÝ |
480 | 479 | procedure ReadProxySettings(memIni: TMemIniFile); |
481 | 480 | //! eíEBhEÝèÇÝÝ |
@@ -512,6 +511,12 @@ type | ||
512 | 511 | function GetSentFileName: string; |
513 | 512 | function GetConfigDir: string; |
514 | 513 | function GetSkinDir: string; |
514 | + function GetSkinHeaderFileName: string; | |
515 | + function GetSkinFooterFileName: string; | |
516 | + function GetSkinResFileName: string; | |
517 | + function GetSkinNewResFileName: string; | |
518 | + function GetSkinBookmarkFileName: string; | |
519 | + function GetSkinNewmarkFileName: string; | |
515 | 520 | function GetStyleSheetDir: string; |
516 | 521 | function GetOutBoxFileName: string; |
517 | 522 | function GetNGWordsDir: string; |
@@ -640,7 +645,7 @@ type | ||
640 | 645 | |
641 | 646 | property ListViewNo: Boolean read FListViewNo write FListViewNo; |
642 | 647 | property UseCSS: Boolean read FUseCSS write SetUseCSS; |
643 | - property CSSFileName: string read GetCSSFileName write SetCSSFileName; | |
648 | + property CSSFileName: string read FCSSFileName write SetCSSFileName; | |
644 | 649 | property UseKatjushaType : Boolean read FUseKatjushaType write FUseKatjushaType; |
645 | 650 | property UseSkin: Boolean read FUseSkin; |
646 | 651 |
@@ -805,8 +810,6 @@ type | ||
805 | 810 | property SentIniFileSize: Integer read FSentIniFileSize write FSentIniFileSize; |
806 | 811 | //! NURLæ¾ÌÎÛg£q |
807 | 812 | property ExtList: String read FExtList write FExtList; |
808 | - //! Skint@CÇ | |
809 | - property SkinFiles: TSkinFiles read FSkinFiles; | |
810 | 813 | |
811 | 814 | end; |
812 | 815 |
@@ -827,6 +830,12 @@ const | ||
827 | 830 | CONFIG_DIR_NAME = 'config'; |
828 | 831 | CSS_DIR_NAME = 'css'; |
829 | 832 | SKIN_DIR_NAME = 'skin'; |
833 | + SKIN_HEADER_FILE_NAME = 'Header.html'; | |
834 | + SKIN_FOOTER_FILE_NAME = 'Footer.html'; | |
835 | + SKIN_NEWRES_FILE_NAME = 'NewRes.html'; | |
836 | + SKIN_RES_FILE_NAME = 'Res.html'; | |
837 | + SKIN_BOOKMARK_FILE_NAME = 'Bookmark.html'; | |
838 | + SKIN_NEWMARK_FILE_NAME = 'Newmark.html'; | |
830 | 839 | NGWORDs_DIR_NAME : String = 'NGwords'; |
831 | 840 | BOARD_PLUGIN_DIR_NAME = 'BoardPlugin'; |
832 | 841 | SAMBATIME_FILE_NAME : String = 'Samba.ini'; |
@@ -960,7 +969,6 @@ begin | ||
960 | 969 | FCategoryColumnOrder := TGikoCategoryColumnList.Create; |
961 | 970 | FBoardColumnOrder := TGikoBoardColumnList.Create; |
962 | 971 | FGestures := TGestureModel.Create; |
963 | - FSkinFiles := TSkinFiles.Create; | |
964 | 972 | FNameList.Duplicates := dupIgnore; |
965 | 973 | FMailList.Duplicates := dupIgnore; |
966 | 974 | FBoardURLs.Duplicates := dupIgnore; |
@@ -986,13 +994,13 @@ end; | ||
986 | 994 | //ú»t@C¼æ¾ipX{t@C¼j |
987 | 995 | function TSetting.GetFileName(): string; |
988 | 996 | begin |
989 | - Result := GetAppDir + INI_FILE_NAME; | |
997 | + Result := ExtractFilePath(Application.ExeName) + INI_FILE_NAME; | |
990 | 998 | end; |
991 | 999 | |
992 | 1000 | //ÂXVpURLÝèt@C¼ipX{t@C¼j |
993 | 1001 | function TSetting.GetBoardURLFileName(): string; |
994 | 1002 | begin |
995 | - Result := GetAppDir + BOARD_URL_INI_FILE_NAME; | |
1003 | + Result := ExtractFilePath(Application.ExeName) + BOARD_URL_INI_FILE_NAME; | |
996 | 1004 | end; |
997 | 1005 | |
998 | 1006 | //Ýèt@CÇ |
@@ -1120,7 +1128,7 @@ begin | ||
1120 | 1128 | //ResAnchorjamp |
1121 | 1129 | ResAnchorJamp := ini.ReadBool('Function', 'ResAnchoJamp', True); |
1122 | 1130 | //OtH_ |
1123 | - LogFolder := ini.ReadString('Folder', 'LogFolder', GetAppDir + 'Log'); | |
1131 | + LogFolder := ini.ReadString('Folder', 'LogFolder', ExtractFilePath(Application.ExeName) + 'Log'); | |
1124 | 1132 | NewLogFolder := ''; |
1125 | 1133 | |
1126 | 1134 | //ÂURL |
@@ -1193,7 +1201,7 @@ begin | ||
1193 | 1201 | SoundFileName[i] := ''; |
1194 | 1202 | end; |
1195 | 1203 | end else begin |
1196 | - s := GetAppDir + '\sound\'; | |
1204 | + s := ExtractFileDir(Application.ExeName) + '\sound\'; | |
1197 | 1205 | SoundFileName[0] := s + '澬÷.wav'; |
1198 | 1206 | SoundFileName[1] := s + '澬÷(·ª).wav'; |
1199 | 1207 | SoundFileName[2] := s + '¢XV.wav'; |
@@ -1474,7 +1482,7 @@ begin | ||
1474 | 1482 | //©µã`µáÌXLðg¤© |
1475 | 1483 | ini.WriteBool('CSS', 'UseKatjushaType', FUseKatjushaType); |
1476 | 1484 | //CSSt@C¼ |
1477 | - ini.WriteString('CSS', 'FileName', FSkinFiles.FileName); | |
1485 | + ini.WriteString('CSS', 'FileName', FCSSFileName); | |
1478 | 1486 | //Mail\¦ |
1479 | 1487 | ini.WriteBool('Thread', 'ShowMail', FShowMail); |
1480 | 1488 | // X\¦ÍÍ |
@@ -1719,7 +1727,7 @@ var | ||
1719 | 1727 | begin |
1720 | 1728 | ini := TMemIniFile.Create(GetFileName()); |
1721 | 1729 | try |
1722 | - if GetAppDir + 'Log' = NewLogFolder then | |
1730 | + if ExtractFilePath(Application.ExeName) + 'Log' = NewLogFolder then | |
1723 | 1731 | ini.DeleteKey('Folder', 'LogFolder') |
1724 | 1732 | else |
1725 | 1733 | ini.WriteString('Folder', 'LogFolder', NewLogFolder); |
@@ -1961,7 +1969,7 @@ end; | ||
1961 | 1969 | *************************************************************************) |
1962 | 1970 | function TSetting.GetBoardFileName: string; |
1963 | 1971 | begin |
1964 | - Result := GetConfigDir + BOARD_FILE_NAME; | |
1972 | + Result := GetAppDir + CONFIG_DIR_NAME + '\' + BOARD_FILE_NAME; | |
1965 | 1973 | end; |
1966 | 1974 | |
1967 | 1975 | (************************************************************************* |
@@ -1969,15 +1977,15 @@ end; | ||
1969 | 1977 | *************************************************************************) |
1970 | 1978 | function TSetting.GetCustomBoardFileName: string; |
1971 | 1979 | begin |
1972 | - Result := GetConfigDir + CUSTOMBOARD_FILE_NAME; | |
1980 | + Result := GetAppDir + CONFIG_DIR_NAME + '\' + CUSTOMBOARD_FILE_NAME; | |
1973 | 1981 | end; |
1974 | 1982 | |
1975 | 1983 | (************************************************************************* |
1976 | - *{[hfBNgæ¾(\ÅIíé) | |
1984 | + *{[hfBNgæ¾ | |
1977 | 1985 | *************************************************************************) |
1978 | 1986 | function TSetting.GetBoardDir: string; |
1979 | 1987 | begin |
1980 | - Result := IncludeTrailingPathDelimiter(GetConfigDir + BOARD_DIR_NAME); | |
1988 | + Result := GetAppDir + CONFIG_DIR_NAME + '\' + BOARD_DIR_NAME + '\'; | |
1981 | 1989 | end; |
1982 | 1990 | |
1983 | 1991 | (************************************************************************* |
@@ -1990,7 +1998,7 @@ end; | ||
1990 | 1998 | |
1991 | 1999 | |
1992 | 2000 | (************************************************************************* |
1993 | - *Àst@CtH_æ¾(ÅãÉ\ª é) | |
2001 | + *Àst@CtH_æ¾ | |
1994 | 2002 | *************************************************************************) |
1995 | 2003 | function TSetting.GetAppDir: string; |
1996 | 2004 | begin |
@@ -2022,36 +2030,58 @@ begin | ||
2022 | 2030 | end; |
2023 | 2031 | |
2024 | 2032 | (************************************************************************* |
2025 | - *ConfigtH_æ¾(\ÅIíé) | |
2033 | + *ConfigtH_æ¾ | |
2026 | 2034 | *************************************************************************) |
2027 | 2035 | function TSetting.GetConfigDir: string; |
2028 | 2036 | begin |
2029 | 2037 | Result := IncludeTrailingPathDelimiter(GetAppDir + CONFIG_DIR_NAME); |
2030 | 2038 | end; |
2031 | -(************************************************************************* | |
2032 | - *CSStH_æ¾(\ÅIíé) | |
2033 | - *************************************************************************) | |
2039 | + | |
2034 | 2040 | function TSetting.GetStyleSheetDir: string; |
2035 | 2041 | begin |
2036 | 2042 | Result := IncludeTrailingPathDelimiter(GetConfigDir + CSS_DIR_NAME); |
2037 | 2043 | end; |
2038 | -(************************************************************************* | |
2039 | - *skintH_æ¾(\ÅIíé) | |
2040 | - *************************************************************************) | |
2044 | + | |
2041 | 2045 | function TSetting.GetSkinDir: string; |
2042 | 2046 | begin |
2043 | 2047 | Result := IncludeTrailingPathDelimiter(GetConfigDir + SKIN_DIR_NAME); |
2044 | 2048 | end; |
2045 | -(************************************************************************* | |
2046 | - *NG[hfBNgæ¾(\ÅIíé) | |
2047 | - *************************************************************************) | |
2049 | + | |
2050 | +function TSetting.GetSkinHeaderFileName: string; | |
2051 | +begin | |
2052 | + Result := CSSFileName + SKIN_HEADER_FILE_NAME; | |
2053 | +end; | |
2054 | + | |
2055 | +function TSetting.GetSkinFooterFileName: string; | |
2056 | +begin | |
2057 | + Result := CSSFileName + SKIN_FOOTER_FILE_NAME; | |
2058 | +end; | |
2059 | + | |
2060 | +function TSetting.GetSkinNewResFileName: string; | |
2061 | +begin | |
2062 | + Result := CSSFileName + SKIN_NEWRES_FILE_NAME; | |
2063 | +end; | |
2064 | + | |
2065 | +function TSetting.GetSkinResFileName: string; | |
2066 | +begin | |
2067 | + Result := CSSFileName + SKIN_RES_FILE_NAME; | |
2068 | +end; | |
2069 | + | |
2070 | +function TSetting.GetSkinBookmarkFileName: string; | |
2071 | +begin | |
2072 | + Result := CSSFileName + SKIN_BOOKMARK_FILE_NAME; | |
2073 | +end; | |
2074 | + | |
2075 | +function TSetting.GetSkinNewmarkFileName: string; | |
2076 | +begin | |
2077 | + Result := CSSFileName + SKIN_NEWMARK_FILE_NAME; | |
2078 | +end; | |
2079 | + | |
2048 | 2080 | function TSetting.GetNGWordsDir: string; |
2049 | 2081 | begin |
2050 | 2082 | Result := IncludeTrailingPathDelimiter(GetConfigDir + NGWORDs_DIR_NAME); |
2051 | 2083 | end; |
2052 | -(************************************************************************* | |
2053 | - *BoardvOCfBNgæ¾(\ÅIíé) | |
2054 | - *************************************************************************) | |
2084 | + | |
2055 | 2085 | function TSetting.GetBoardPlugInDir: string; |
2056 | 2086 | begin |
2057 | 2087 | Result := IncludeTrailingPathDelimiter(GetConfigDir + BOARD_PLUGIN_DIR_NAME); |
@@ -2065,25 +2095,24 @@ begin | ||
2065 | 2095 | // RRÅÌ»èÅà嶬¶Ìá¢Í³·éB |
2066 | 2096 | FUseSkin := |
2067 | 2097 | UseCSS and |
2068 | - (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(FSkinFiles.FileName) ) > 0) and | |
2069 | - FileExists( FSkinFiles.GetSkinHeaderFileName ); | |
2098 | + (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(CSSFileName) ) > 0) and | |
2099 | + FileExists( GetSkinHeaderFileName ); | |
2070 | 2100 | |
2071 | 2101 | end; |
2072 | 2102 | |
2073 | 2103 | procedure TSetting.SetCSSFileName( fileName: string ); |
2074 | 2104 | begin |
2075 | - FSkinFiles.FileName := fileName; | |
2105 | + | |
2106 | + FCSSFileName := fileName; | |
2076 | 2107 | // WindowsIÉt@CpXÌ嶬¶Ìá¢Í³³êéÌÅA |
2077 | 2108 | // RRÅÌ»èÅà嶬¶Ìá¢Í³·éB |
2078 | 2109 | FUseSkin := |
2079 | 2110 | UseCSS and |
2080 | - (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(FSkinFiles.FileName) ) > 0) and | |
2081 | - FileExists( FSkinFiles.GetSkinHeaderFileName ); | |
2111 | + (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(CSSFileName) ) > 0) and | |
2112 | + FileExists( GetSkinHeaderFileName ); | |
2082 | 2113 | |
2083 | 2114 | end; |
2084 | -(************************************************************************* | |
2085 | - *sambaÝèt@C¼æ¾ | |
2086 | - *************************************************************************) | |
2115 | + | |
2087 | 2116 | function TSetting.GetSambaFileName: string; |
2088 | 2117 | begin |
2089 | 2118 | Result := GetAppDir + SAMBATIME_FILE_NAME; |
@@ -2364,11 +2393,5 @@ begin | ||
2364 | 2393 | end; |
2365 | 2394 | end; |
2366 | 2395 | end; |
2367 | - | |
2368 | -function TSetting.GetCSSFileName: string; | |
2369 | -begin | |
2370 | - Result := FSkinFiles.FileName; | |
2371 | -end; | |
2372 | - | |
2373 | 2396 | end. |
2374 | 2397 |
@@ -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 | - //! XLt@CpX | |
15 | - property FileName:String read FFileName write SetFileName; | |
16 | - //! wb_Ìt@C¼ | |
17 | - function GetSkinHeaderFileName: string; | |
18 | - //! tb^Ìt@C¼ | |
19 | - function GetSkinFooterFileName: string; | |
20 | - //! V XÌt@C¼ | |
21 | - function GetSkinNewResFileName: string; | |
22 | - //! ñV XÌt@C¼ | |
23 | - function GetSkinResFileName: string; | |
24 | - //! µ¨è(±±ÜÅÇñ¾)Ìt@C¼ | |
25 | - function GetSkinBookmarkFileName: string; | |
26 | - //! µ¨è(V X)Ìt@C¼ | |
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 | -//! XLt@C¼Ýè | |
41 | -procedure TSkinFiles.SetFileName(AFileName: string); | |
42 | -begin | |
43 | - // fBNgÌêÅãÉ\ÅIíç· | |
44 | - if DirectoryExists(AFileName) then begin | |
45 | - // \ ÅIíéæ¤É·é | |
46 | - FFileName := IncludeTrailingPathDelimiter(AFileName); | |
47 | - end else begin | |
48 | - FFileName := AFileName; | |
49 | - end; | |
50 | -end; | |
51 | -//! Skin:wb_Ìt@C¼ | |
52 | -function TSkinFiles.GetSkinHeaderFileName: string; | |
53 | -begin | |
54 | - Result := FFileName + SKIN_HEADER_FILE_NAME; | |
55 | -end; | |
56 | - | |
57 | -//! Skin:tb^Ìt@C¼ | |
58 | -function TSkinFiles.GetSkinFooterFileName: string; | |
59 | -begin | |
60 | - Result := FFileName + SKIN_FOOTER_FILE_NAME; | |
61 | -end; | |
62 | - | |
63 | -//! Skin:V XÌt@C¼ | |
64 | -function TSkinFiles.GetSkinNewResFileName: string; | |
65 | -begin | |
66 | - Result := FFileName + SKIN_NEWRES_FILE_NAME; | |
67 | -end; | |
68 | - | |
69 | -//! Skin:ñV XÌt@C¼ | |
70 | -function TSkinFiles.GetSkinResFileName: string; | |
71 | -begin | |
72 | - Result := FFileName + SKIN_RES_FILE_NAME; | |
73 | -end; | |
74 | - | |
75 | -//! Skin:µ¨è(±±ÜÅÇñ¾)Ìt@C¼ | |
76 | -function TSkinFiles.GetSkinBookmarkFileName: string; | |
77 | -begin | |
78 | - Result := FFileName + SKIN_BOOKMARK_FILE_NAME; | |
79 | -end; | |
80 | - | |
81 | -//! Skin:µ¨è(V X)Ìt@C¼ | |
82 | -function TSkinFiles.GetSkinNewmarkFileName: string; | |
83 | -begin | |
84 | - Result := FFileName + SKIN_NEWMARK_FILE_NAME; | |
85 | -end; | |
86 | -end. |
@@ -77,8 +77,7 @@ uses | ||
77 | 77 | SambaTimer in 'SambaTimer.pas', |
78 | 78 | HistoryList in 'HistoryList.pas', |
79 | 79 | ReplaceDataModule in 'ReplaceDataModule.pas' {ReplaceDM: TDataModule}, |
80 | - ResPopupBrowser in 'ResPopupBrowser.pas', | |
81 | - SkinFiles in 'SkinFiles.pas'; | |
80 | + ResPopupBrowser in 'ResPopupBrowser.pas'; | |
82 | 81 | |
83 | 82 | {$R *.RES} |
84 | 83 | {$R gikoResource.res} |
@@ -10,11 +10,11 @@ VersionInfoDescription= | ||
10 | 10 | DefaultGroupName=MRir |
11 | 11 | ; ©ªÌ«Éí¹Ä¾³¢ |
12 | 12 | SourceDir=G:\Release |
13 | -OutputDir=G:\Output | |
13 | +OutputDir=G:\InnoSetup\Output | |
14 | 14 | SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico" |
15 | 15 | ; MRirÌo[WÉ í¹Ä¾³¢ |
16 | -VersionInfoVersion=1.56.0.714 | |
17 | -OutputBaseFilename=gikoNavi_1.56.0.714_2_setup | |
16 | +VersionInfoVersion=1.56.0.713 | |
17 | +OutputBaseFilename=gikoNavi_1.56.0.713_setup | |
18 | 18 | |
19 | 19 | |
20 | 20 | [Tasks] |
@@ -22,19 +22,19 @@ Name: "startmenuicon"; Description: " | ||
22 | 22 | Name: "desktopicon"; Description: "fXNgbvÉV[gJbgðì¬"; GroupDescription: "V[gJbg"; Flags: |
23 | 23 | |
24 | 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" | |
25 | +Name: "{app}\Log" ; Permissions: everyone-full | |
26 | +Name: "{app}\Sound" ; Permissions: everyone-full | |
27 | +Name: "{app}\config\Board" ; Permissions: everyone-full | |
28 | +Name: "{app}\config\BoardPlugin" ; Permissions: everyone-full | |
29 | +Name: "{app}\config\NGwords" ; Permissions: everyone-full | |
30 | 30 | |
31 | 31 | |
32 | 32 | [Files] |
33 | -Source: * ; Destdir: {app} ;Excludes: "gikoNavi.exe" ; | |
33 | +Source: * ; Destdir: {app} ;Excludes: "gikoNavi.exe" ; Permissions: everyone-full | |
34 | 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; | |
35 | +Source: "Sound\*" ; Destdir: {app}\Sound ;Flags: createallsubdirs recursesubdirs ; Permissions: everyone-full | |
36 | +Source: "config\*" ; Destdir: {app}\config ;Excludes: "*.dll";Flags: createallsubdirs recursesubdirs ; Permissions: everyone-full | |
37 | +Source: "config\BoardPlugin\*.dll" ; Destdir: {app}\config\BoardPlugin ;Flags: ignoreversion; Permissions: everyone-full | |
38 | 38 | |
39 | 39 | [Icons] |
40 | 40 | Name: "{group}\Readme"; Filename: "{app}\readme.txt"; Tasks: startmenuicon |
@@ -56,6 +56,9 @@ Name: japanese; MessagesFile: compiler:Languages\Japanese.isl | ||
56 | 56 | |
57 | 57 | [Code] |
58 | 58 | procedure CurStepChanged(CurStep: TSetupStep); |
59 | +var | |
60 | + path :String; | |
61 | + p : Integer; | |
59 | 62 | begin |
60 | 63 | case CurStep of |
61 | 64 | ssInstall: |
@@ -63,8 +66,7 @@ begin | ||
63 | 66 | if (RegKeyExists(HKEY_LOCAL_MACHINE, |
64 | 67 | 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi')) then |
65 | 68 | begin |
66 | - if MsgBox('ÈOÌo[WÌACXg[îñðíµÄæ뵢ŵ天H' | |
67 | - + #10#13 + '(o^56ÈO©çÌAbvf[gÌêuÍ¢v§)', | |
69 | + if MsgBox('ÈOÌo[WÌACXg[îñðíµÄæ뵢ŵ天H', | |
68 | 70 | mbConfirmation, MB_YESNO) = IDYES then |
69 | 71 | begin |
70 | 72 | if not RegDeleteKeyIncludingSubkeys(HKEY_LOCAL_MACHINE, |
@@ -108,17 +108,9 @@ LICENSE | ||
108 | 108 | ------------------------------ |
109 | 109 | ð |
110 | 110 | ------------------------------ |
111 | -2007/08/05 | |
111 | +2007/XX/YY | |
112 | 112 | Version ÊÞÀ56 |
113 | -@X|bvAbv̽iΠ| |
114 | -@\¦µÄ¢éXbhÌNÌURLÌæ¾ANVðÇÁ | |
115 | -@ðXgɵÄEnterÅXbhð\¦·éÆG[ª\¦³êésïÌC³ | |
116 | -@Tab©®Û¶E³ðLøɵĢéÆ«ÉAN®Ì³Å\¦µÄ¢½^uðJæ¤ÉC³ | |
117 | -@üÍAVXgÌJeSÌÚðComboBox» | |
118 | -@Ú×ÝèÅ100X\¦Ìæª\¦Xªñ1Æ\¦³êésïÌC³ | |
119 | -@XNvgë½Îô@\ÌftHgt@C(replace.default)ÌXV | |
120 | - (Abvf[gÌêAè®ÅXV·éKvª èÜ·) | |
121 | -@CXg[ðInno Setup(http://www.jrsoftware.org/)Åìè¼µ½ | |
113 | + X|bvAbv̽iΠ| |
122 | 114 | |
123 | 115 | 2007/04/01 |
124 | 116 | Version ÊÞÀ55 |
@@ -4,5 +4,4 @@ body onload=window\(\) | ||
4 | 4 | GetSpecialFolder\( |
5 | 5 | CodeModule\.Lines |
6 | 6 | ms-its:mhtml: |
7 | -!exec*:*: | |
8 | -$mircexe mircexe | |
\ No newline at end of file | ||
7 | +!exec*:*: | |
\ No newline at end of file |