implementation
uses
- Giko, ItemDownload, MojuUtils, IdGlobal;
+ Giko, ItemDownload, MojuUtils, IdGlobal, GikoMessage;
const
CAPTION_NAME_NEW: string = '\83M\83R\83i\83r \83X\83\8c\97§\82Ä\83G\83f\83B\83^';
CAPTION_NAME_RES: string = '\83M\83R\83i\83r \83\8c\83X\83G\83f\83B\83^';
GikoForm.PlaySound('ResEnd');
SaveSendFile;
if FThreadItem = nil then
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK)
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK)
else
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
Close;
Exit;
end;
GikoForm.PlaySound('ResEnd');
SaveSendFile;
if FThreadItem = nil then
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK)
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK)
else
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
Close;
end else if State = gdsError then begin
if FThreadItem = nil then
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK)
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK)
else
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
EditorPage.ActivePage := PreviewTab;
SetContent(ResponseText, Browser);
end else if State = gdsAbort then begin
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiSAD);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmAbort), nil, gmiSAD);
end;
end;
if state = gdsComplete then begin
GikoForm.PlaySound('ResEnd');
SaveSendFile;
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK);
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK);
FWork := False;
Close;
end else if State = gdsError then begin
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureError)), nil, gmiNG);
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmSureError), nil, gmiNG);
end else if State = gdsAbort then begin
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiNG);
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmAbort), nil, gmiNG);
end;
end else begin
// \83\8c\83X
if state = gdsComplete then begin
GikoForm.PlaySound('ResEnd');
SaveSendFile;
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
- FWork := False;
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
+ FWork := False;
Close;
end else if State = gdsError then begin
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmResError)), nil, gmiOK);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmResError), nil, gmiOK);
end else if State = gdsAbort then begin
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiOK);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmAbort), nil, gmiOK);
end;
end;
end else begin
FavoriteArrange, AddressHistory, Preview, Gesture,
About, Option, Round, Splash, Sort, ListSelect, Imm,
NewBoard, MojuUtils, Clipbrd, GikoBayesian,Y_TextConverter,
- HTMLCreate, ListViewUtils, GikoDataModule;
+ HTMLCreate, ListViewUtils, GikoDataModule, GikoMessage;
const
BLANK_HTML: string = 'about:blank';
MouseGesture.SetHook( Handle );
//2ch\8c¾\8cê\93Ç\82Ý\8fo\82µ
- GikoSys.Setting.SetMessages;
+ GikoSys.SetGikoMessage;
//\83I\81[\83g\83\8d\83O\83C\83\93
if GikoSys.Setting.AutoLogin then
else
ATitle := Item.ThreadItem.Title;
if ATitle = '' then
- ATitle := GikoSys.Setting.GetMessage(Ord(gmUnKnown));
+ ATitle := GikoSys.GetGikoMessage(gmUnKnown);
if Item.State in [gdsComplete, gdsDiffComplete] then begin
//\90³\8fí\8fI\97¹
if Item.DownType = gdtBoard then begin
//\94Â
Item.SaveListFile;
- AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureItiran)), nil, gmiOK);
+ AddMessageList(ATitle + ' ' + GikoSys.GetGikoMessage(gmSureItiran), nil, gmiOK);
if GetActiveList = Item.Board then begin
FActiveList := nil;
SetActiveList(Item.Board);
if Item.State = gdsComplete then begin
PlaySound('New');
- AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureSyutoku)), nil, gmiOK);
+ AddMessageList(ATitle + ' ' + GikoSys.GetGikoMessage(gmSureSyutoku), nil, gmiOK);
//Add by Genyakun
DiffComp := True;
end else begin
PlaySound('NewDiff');
- AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureDiff)), nil, gmiOK);
+ AddMessageList(ATitle + ' ' + GikoSys.GetGikoMessage(gmSureDiff), nil, gmiOK);
//Add by Genyakun
DiffComp := True;
end;
//SetContent(Item.ThreadItem);
InsertBrowserTab(Item.ThreadItem);
end;}
- AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmNotMod)), nil, gmiSAD);
+ AddMessageList(ATitle + ' ' + GikoSys.GetGikoMessage(gmNotMod), nil, gmiSAD);
PlaySound('NoChange');
Screen.Cursor := crDefault;
end else if Item.State = gdsAbort then begin
//\92\86\92f
- AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiOK);
+ AddMessageList(ATitle + ' ' + GikoSys.GetGikoMessage(gmAbort), nil, gmiOK);
end else if Item.State = gdsError then begin
//\83G\83\89\81[
s := Item.ErrText;
if s <> '' then
s := ':' + s;
- AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmError)) + ' (' + IntToStr(Item.ResponseCode) + ')' + s, nil, gmiNG);
+ AddMessageList(ATitle + ' ' + GikoSys.GetGikoMessage(gmError) + ' (' + IntToStr(Item.ResponseCode) + ')' + s, nil, gmiNG);
// if Item.ResponseCode = 302 then
// AddMessageList('\94Â\82ª\88Ú\93]\82µ\82½\82©\82à\82µ\82ê\82È\82¢\82Ì\82Å\94Â\8dX\90V\82ð\8ds\82Á\82Ä\82\82¾\82³\82¢\81B', nil, gmiNG);
PlaySound('Error');
ToolBarUtil, NewBoard, HTMLCreate, IndividualAbon,
GikoBayesian, About, ShellAPI,
RoundName, RoundData, Menus, ListViewUtils,
- ThreadControl;
+ ThreadControl, GikoMessage;
{$R *.dfm}
//\83\8d\83O\83A\83E\83g
GikoSys.Dolib.Disconnect;
LoginAction.Checked := False;
- GikoForm.AddMessageList(GikoSys.Setting.GetMessage(Ord(gmLogout)), nil, gmiOK);
+ GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmLogout), nil, gmiOK);
LoginAction.Caption := '\83\8d\83O\83C\83\93(&L)';
end else begin
TmpCursor := GikoForm.ScreenCursor;
end;
if GikoSys.Dolib.Connect then begin
LoginAction.Checked := True;
- GikoForm.AddMessageList(GikoSys.Setting.GetMessage(Ord(gmLogin)) + GikoSys.Setting.UserID, nil, gmiOK);
+ GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmLogin) + GikoSys.Setting.UserID, nil, gmiOK);
LoginAction.Caption := '\83\8d\83O\83A\83E\83g(&L)';
//LoginToolButton.Style := tbsCheck;
end else begin
GikoSys.Dolib.ForcedConnect;
if GikoSys.Dolib.Connect then begin
LoginAction.Checked := True;
- GikoForm.AddMessageList(GikoSys.Setting.GetMessage(Ord(gmForceLogin)) + GikoSys.Setting.UserID, nil, gmiOK);
+ GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmForceLogin) + GikoSys.Setting.UserID, nil, gmiOK);
LoginAction.Caption := '\83\8d\83O\83A\83E\83g(&L)';
//LoginToolButton.Style := tbsCheck;
end else begin
--- /dev/null
+unit GikoMessage;
+
+interface
+
+uses
+ Classes, IniFiles;
+
+type
+ //! MessageList
+ TGikoMessageListType = (gmLogout, gmLogin, gmForceLogin, gmSureItiran,
+ gmUnKnown, gmSureSyutoku, gmSureDiff, gmNotMod, gmAbort, gmError,
+ gmNewRes, gmNewSure, gmResError, gmSureError);
+
+ TGikoMessage = class(THashedStringList)
+ private
+ public
+ constructor Create;
+ function GetMessage(MesType: TGikoMessageListType): String;
+ end;
+
+implementation
+
+const
+ DEF_MESSAGES : array[0..13] of string = ( '\83\8d\83O\83A\83E\83g\82µ\82Ü\82µ\82½',
+ '\83\8d\83O\83C\83\93\82µ\82Ü\82µ\82½ - ',
+ '\8b\90§\83\8d\83O\83C\83\93\82µ\82Ü\82µ\82½ - ',
+ '[\83X\83\8c\88ê\97\97\8eæ\93¾\8a®\97¹]',
+ '(\96¼\8fÌ\95s\96¾\81j',
+ '[\83X\83\8c\8eæ\93¾\8a®\97¹]',
+ '[\83X\83\8c\8d·\95ª\8eæ\93¾\8a®\97¹]',
+ '[\96¢\8dX\90V]',
+ '[\92\86\92f]',
+ '[\83G\83\89\81[]',
+ '[\83\8c\83X\91\97\90M\8fI\97¹]',
+ '[\90V\83X\83\8c\91\97\90M\8fI\97¹]',
+ '[\83\8c\83X\91\97\90M\8e¸\94s]',
+ '[\90V\83X\83\8c\91\97\90M\8e¸\94s]');
+
+ MESSAGE_KEYS : array[0..13] of String = ( 'Logout', 'Login',
+ 'ForceLogin', 'SureItiran',
+ 'UnKnown', 'SureSyutoku',
+ 'SureDiff', 'NotMod',
+ 'Abort', 'Error',
+ 'NewRes', 'NewSure',
+ 'ResError', 'SureError');
+
+constructor TGikoMessage.Create;
+begin
+ inherited Create;
+ Self.Sorted := true;
+ Self.Duplicates := dupIgnore;
+end;
+//! MesType\82Å\8ew\92è\82³\82ê\82½\83\81\83b\83Z\81[\83W\95¶\8e\9a\97ñ\82ð\8eæ\93¾\82·\82é
+function TGikoMessage.GetMessage(MesType: TGikoMessageListType): String;
+begin
+ Result := '';
+ if MesType in [gmLogout..gmSureError] then begin
+ //Key\82Å\8c\9f\8dõ\82µ\82Ä\8c©\82Â\82©\82ê\82Î\82»\82ê\82ð\95Ô\82·
+ Result := Self.Values[MESSAGE_KEYS[Ord(MesType)]];
+ if Result = '' then begin
+ //\8c©\82Â\82©\82ç\82È\82¢\82Ì\82Å\81A\83f\83t\83H\83\8b\83g\82Å\95Ô\82·
+ Result := DEF_MESSAGES[Ord(MesType)];
+ end;
+ end;
+end;
+
+end.
+
\ No newline at end of file
{HttpApp,} URLMon, IdGlobal, IdURI, {Masks,}
Setting, BoardGroup, gzip, Dolib, bmRegExp, AbonUnit,
ExternalBoardManager, ExternalBoardPlugInMain,
- GikoBayesian;
+ GikoBayesian, GikoMessage;
type
TVerResourceKey = (
FNoParam: Boolean; //!< \83\8c\83X\94Ô\83p\83\89\83\81\81[\83^\82È\82µ
end;
- //! MessageList
- TGikoMessageListType = (gmLogout, gmLogin, gmForceLogin, gmSureItiran,
- gmUnKnown, gmSureSyutoku, gmSureDiff, gmNotMod, gmAbort, gmError,
- gmNewRes, gmNewSure, gmResError, gmSureError);
-
TGikoSys = class(TObject)
private
{ Private \90é\8c¾ }
FResRange : Longint;
FBayesian : TGikoBayesian; //!< \83x\83C\83W\83A\83\93\83t\83B\83\8b\83^
FVersion : String; //!< \83t\83@\83C\83\8b\83o\81[\83W\83\87\83\93
-// FExitWrite: TStringList;
-// function StrToFloatDef(s: string; Default: Double): Double;
+ FGikoMessage: TGikoMessage;
public
{ Public \90é\8c¾ }
FAbon : TAbon;
//! IE\82Ì\83o\81[\83W\83\87\83\93\8fî\95ñ\82Ì\8eæ\93¾
function GetIEVersion: string;
function SetUserOptionalStyle(): string;
-
+ //! \83M\83R\83i\83r\82Ì\83\81\83b\83Z\81[\83W\82ð\90Ý\92è\82·\82é
+ procedure SetGikoMessage;
+ //! \83M\83R\83i\83r\82Ì\83\81\83b\83Z\81[\83W\82ð\8eæ\93¾\82·\82é
+ function GetGikoMessage(MesType: TGikoMessageListType): String;
end;
var
FVersion := Trim(GetVersionInfo(vrFileVersion));
FBayesian := TGikoBayesian.Create;
//FBoardURLList := TStringList.Create;
+ //\83\81\83b\83Z\81[\83W\82Ì\8dì\90¬
+ FGikoMessage := TGikoMessage.Create;
end;
// *************************************************************************
FDolib.Free;
FAbon.Free;
FSelectResFilter.Free;
+ FGikoMessage.Free;
//FBoardURLList.Free;
//\83e\83\93\83|\83\89\83\8aHTML\82ð\8dí\8f\9c
FileList := TStringList.Create;
Result := Setting.GetEditorKeyFileName;
end;
+//! \83M\83R\83i\83r\82Ì\83\81\83b\83Z\81[\83W\82ð\90Ý\92è\82·\82é
+procedure TGikoSys.SetGikoMessage;
+begin
+ if (Setting.GengoSupport) then begin
+ if FGikoMessage = nil then begin
+ FGikoMessage := TGikoMessage.Create;
+ end else begin
+ FGikoMessage.Clear;
+ end;
+ try
+ if (FileExists(Setting.GetLanguageFileName)) then begin
+ FGikoMessage.LoadFromFile(Setting.GetLanguageFileName);
+ end;
+ except
+ FGikoMessage.Clear;
+ end;
+ end;
+end;
+//! \83M\83R\83i\83r\82Ì\83\81\83b\83Z\81[\83W\82ð\8eæ\93¾\82·\82é
+function TGikoSys.GetGikoMessage(MesType: TGikoMessageListType): String;
+begin
+ Result := '';
+ if FGikoMessage <> nil then begin
+ Result := FGikoMessage.GetMessage(MesType);
+ end;
+end;
initialization
GikoSys := TGikoSys.Create;
GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
//2ch\8c¾\8cê\83T\83|\81[\83g
GikoSys.Setting.GengoSupport := GengoSupport.Checked;
- GikoSys.Setting.SetMessages;
+ GikoSys.SetGikoMessage;
//\83\8d\81[\83J\83\8b\81E\83\8a\83\82\81[\83g̼±Å\8cx\8d\90
GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
unit Setting;
+
interface
uses
LIST_COOLBAND_COUNT = 2; //\94ÂCoolBand\82Ì\90\94
BROWSER_COOLBAND_COUNT = 3; //\83u\83\89\83E\83UCoolBand\82Ì\90\94
- BOARD_FILE_NAME = 'board.2ch';
- CUSTOMBOARD_FILE_NAME = 'custom.2ch';
- BOARD_DIR_NAME = 'Board';
- KEY_SETTING_FILE_NAME = 'key.ini';
- EKEY_SETTING_FILE_NAME = 'Ekey.ini';
- TEMP_FOLDER = 'Temp';
- OUTBOX_FILE_NAME = 'outbox.ini';
- SENT_FILE_NAME = 'sent.ini';
- CONFIG_DIR_NAME = 'config';
- CSS_DIR_NAME = 'css';
- SKIN_DIR_NAME = 'skin';
- SKIN_HEADER_FILE_NAME = 'Header.html';
- SKIN_FOOTER_FILE_NAME = 'Footer.html';
- SKIN_NEWRES_FILE_NAME = 'NewRes.html';
- SKIN_RES_FILE_NAME = 'Res.html';
- SKIN_BOOKMARK_FILE_NAME = 'Bookmark.html';
- SKIN_NEWMARK_FILE_NAME = 'Newmark.html';
- NGWORDs_DIR_NAME : String = 'NGwords';
- BOARD_PLUGIN_DIR_NAME = 'BoardPlugin';
- SAMBATIME_FILE_NAME : String = 'Samba.ini';
- IGNORE_FILE_NAME : String = 'Ignore.txt';
-// DOLIB_LOGIN_URL = '/~tora3n2c/futen.cgi';
- MAX_POPUP_RES : Integer = 10;
- GESTURE_FILE_NAME = 'Gestures.ini';
- SPAMFILTER_FILE_NAME = 'SpamFilter.ini';
- LANGUAGE_FILE_NAME = 'language.ini';
-
+
type
TGikoTabPosition = (gtpTop, gtpBottom); // \83^\83u\88Ê\92u
TGikoTabAppend = (gtaFirst, gtpLast); // \83^\83u\92Ç\89Á\88Ê\92u
//! \83}\83E\83X\83W\83F\83X\83`\83\83\81[\82ð\8eg\97p\82·\82é\82©\82Ç\82¤\82©
FGestureEnabled : Boolean;
- //2ch\8c¾\8cê\90Ý\92è
- //F2chLanguage : TStringList;
-
//\83t\83V\83A\83i\83g\83\89\83b\83v\90Ý\92è
FLocalTrapAtt : Boolean;
FRemoteTrapAtt : Boolean;
FMute: Boolean;
//\83X\83\8c\8di\8d\9e\82Ý\82Å\96¢\8am\92è\95¶\8e\9a\82à\97L\8cø\82É\82·\82é\82©
FUseUndecided: Boolean;
- //MessageList\82É\8fo\97Í\82³\82ê\82é\83\81\83b\83Z\81[\83W
- FMessageList : array[0..13] of string;
//Be2ch
//\94F\8fØ\97p\83\86\81[\83UID\81E\83p\83X\83\8f\81[\83h
function GetIgnoreFileName: string;
function GetGestureFileName : string;
function GetSpamFilterFileName : string;
- function GetLanguageFileName: string;
- procedure SetMessages;
- function GetMessage(AType :Integer): string;
+ function GetLanguageFileName: string;
function GetMainKeyFileName: String;
function GetEditorKeyFileName: String;
procedure WriteLogFolder(AVal : String);
end;
+const
+// MAIN_COOLBAND_COUNT = 4; //\83\81\83C\83\93CoolBand\82Ì\90\94
+// LIST_COOLBAND_COUNT = 2; //\94ÂCoolBand\82Ì\90\94
+// BROWSER_COOLBAND_COUNT = 3; //\83u\83\89\83E\83UCoolBand\82Ì\90\94
+
+ BOARD_FILE_NAME = 'board.2ch';
+ CUSTOMBOARD_FILE_NAME = 'custom.2ch';
+ BOARD_DIR_NAME = 'Board';
+ KEY_SETTING_FILE_NAME = 'key.ini';
+ EKEY_SETTING_FILE_NAME = 'Ekey.ini';
+ TEMP_FOLDER = 'Temp';
+ OUTBOX_FILE_NAME = 'outbox.ini';
+ SENT_FILE_NAME = 'sent.ini';
+ CONFIG_DIR_NAME = 'config';
+ CSS_DIR_NAME = 'css';
+ SKIN_DIR_NAME = 'skin';
+ SKIN_HEADER_FILE_NAME = 'Header.html';
+ SKIN_FOOTER_FILE_NAME = 'Footer.html';
+ SKIN_NEWRES_FILE_NAME = 'NewRes.html';
+ SKIN_RES_FILE_NAME = 'Res.html';
+ SKIN_BOOKMARK_FILE_NAME = 'Bookmark.html';
+ SKIN_NEWMARK_FILE_NAME = 'Newmark.html';
+ NGWORDs_DIR_NAME : String = 'NGwords';
+ BOARD_PLUGIN_DIR_NAME = 'BoardPlugin';
+ SAMBATIME_FILE_NAME : String = 'Samba.ini';
+ IGNORE_FILE_NAME : String = 'Ignore.txt';
+// DOLIB_LOGIN_URL = '/~tora3n2c/futen.cgi';
+ MAX_POPUP_RES : Integer = 10;
+ GESTURE_FILE_NAME = 'Gestures.ini';
+ SPAMFILTER_FILE_NAME = 'SpamFilter.ini';
+ LANGUAGE_FILE_NAME = 'language.ini';
+
+
implementation
DEFAULT_TAB_FONT_NAME: string = '\82l\82r \82o\83S\83V\83b\83N';
DEFAULT_TAB_FONT_SIZE: Integer = 9;
DEFAULT_2CH_BOARD_URL1: string = 'http://menu.2ch.net/bbsmenu.html';
- //OCN\82ð\8dí\8f\9c\82µ\82Ü\82µ\82½
- //DEFAULT_2CH_BOARD_URL2: string = 'http://menu.2ch.net/bbsmenu.html';
- //2005/10/1\82Éiij4u\82Ì\95û\82Í\8fÁ\96Å //'http://www.2ch.net/newbbsmenu.html';
GIKO_ENCRYPT_TEXT: string = 'gikoNaviEncryptText';
- DEF_MESSAGES : array[0..13] of string = ( '\83\8d\83O\83A\83E\83g\82µ\82Ü\82µ\82½',
- '\83\8d\83O\83C\83\93\82µ\82Ü\82µ\82½ - ',
- '\8b\90§\83\8d\83O\83C\83\93\82µ\82Ü\82µ\82½ - ',
- '[\83X\83\8c\88ê\97\97\8eæ\93¾\8a®\97¹]',
- '(\96¼\8fÌ\95s\96¾\81j',
- '[\83X\83\8c\8eæ\93¾\8a®\97¹]',
- '[\83X\83\8c\8d·\95ª\8eæ\93¾\8a®\97¹]',
- '[\96¢\8dX\90V]',
- '[\92\86\92f]',
- '[\83G\83\89\81[]',
- '[\83\8c\83X\91\97\90M\8fI\97¹]',
- '[\90V\83X\83\8c\91\97\90M\8fI\97¹]',
- '[\83\8c\83X\91\97\90M\8e¸\94s]',
- '[\90V\83X\83\8c\91\97\90M\8e¸\94s]');
var
SOUND_NAME: array[0..4] of TSoundName = (
(Name: 'New'; ViewName: '\8eæ\93¾\90¬\8c÷'; FileName: ''),
begin
Result := GetConfigDir + LANGUAGE_FILE_NAME;
end;
-//Messagelist\82É\8fo\97Í\82³\82ê\82é\83\81\83b\83Z\81[\83W\82Ì\90Ý\92è
-procedure TSetting.SetMessages;
-var
- i :Integer;
- ini : TMemIniFile;
-begin
- //2ch\8c¾\8cê\93Ç\82Ý\8fo\82µ
- if (GengoSupport) and (FileExists(GetLanguageFileName)) then begin
- ini := TmemIniFile.Create(GetLanguageFileName);
- try
- {
- '\83\8d\83O\83A\83E\83g\82µ\82Ü\82µ\82½',
- '\83\8d\83O\83C\83\93\82µ\82Ü\82µ\82½ - ',
- '\8b\90§\83\8d\83O\83C\83\93\82µ\82Ü\82µ\82½ - ',
- '[\83X\83\8c\88ê\97\97\8eæ\93¾\8a®\97¹]',
- '(\96¼\8fÌ\95s\96¾\81j',
- '[\83X\83\8c\8eæ\93¾\8a®\97¹]',
- '[\83X\83\8c\8d·\95ª\8eæ\93¾\8a®\97¹]',
- '[\96¢\8dX\90V]',
- '[\92\86\92f]',
- '[\83G\83\89\81[]',
- '[\83\8c\83X\91\97\90M\8fI\97¹]',
- '[\90V\83X\83\8c\91\97\90M\8fI\97¹]',
- '[\83\8c\83X\91\97\90M\8e¸\94s]',
- '[\90V\83X\83\8c\91\97\90M\8e¸\94s]'); }
- FMessageList[0] := ini.ReadString('Language', 'Logout', DEF_MESSAGES[0]);
- FMessageList[1] := ini.ReadString('Language', 'Login', DEF_MESSAGES[1]);
- FMessageList[2] := ini.ReadString('Language', 'ForceLogin', DEF_MESSAGES[2]);
- FMessageList[3] := ini.ReadString('Language', 'ThreadList', DEF_MESSAGES[3]);
- FMessageList[4] := ini.ReadString('Language', 'UnKnown', DEF_MESSAGES[4]);
- FMessageList[5] := ini.ReadString('Language', 'ThreadGet', DEF_MESSAGES[5]);
- FMessageList[6] := ini.ReadString('Language', 'ThreadDiffGet', DEF_MESSAGES[6]);
- FMessageList[7] := ini.ReadString('Language', 'NotMod', DEF_MESSAGES[7]);
- FMessageList[8] := ini.ReadString('Language', 'Abort', DEF_MESSAGES[8]);
- FMessageList[9] := ini.ReadString('Language', 'Error', DEF_MESSAGES[9]);
- FMessageList[10] := ini.ReadString('Language', 'NewReply', DEF_MESSAGES[10]);
- FMessageList[11] := ini.ReadString('Language', 'NewThread', DEF_MESSAGES[11]);
- FMessageList[12] := ini.ReadString('Language', 'ReplyError', DEF_MESSAGES[12]);
- FMessageList[13] := ini.ReadString('Language', 'ThreadError', DEF_MESSAGES[13]);
- finally
- ini.Free;
- end;
-
- end else begin
- for i := 0 to 13 do begin
- FMessageList[i] := DEF_MESSAGES[i];
- end;
- end;
-end;
-function TSetting.GetMessage(AType :Integer): string;
-begin
- if (AType >= 0) and (AType <= Length(FMessageList)) then
- Result := FMessageList[AType]
- else
- Result := '';
-end;
procedure TSetting.WriteLogFolder(AVal : String);
begin
FLogFolder := AVal;
HTMLCreate in 'HTMLCreate.pas',
ListViewUtils in 'ListViewUtils.pas',
GikoDataModule in 'GikoDataModule.pas' {GikoDM: TDataModule},
- BrowserRecord in 'BrowserRecord.pas';
+ BrowserRecord in 'BrowserRecord.pas',
+ GikoMessage in 'GikoMessage.pas';
{$R *.RES}
{$R gikoResource.res}