Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Setting.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.92 by h677, Mon Jul 18 03:55:14 2005 UTC revision 1.93 by h677, Mon Aug 22 15:05:31 2005 UTC
# Line 373  type Line 373  type
373                  FPopUpAbon               : Boolean; //レスポップアップ時のあぼ〜ん有効                  FPopUpAbon               : Boolean; //レスポップアップ時のあぼ〜ん有効
374                  FShowNGLinesNum : Boolean; //該当したNGワードファイルの行数を表示                  FShowNGLinesNum : Boolean; //該当したNGワードファイルの行数を表示
375                  FAddResAnchor : Boolean; //NGレスへのレスアンカーを追加する                  FAddResAnchor : Boolean; //NGレスへのレスアンカーを追加する
376                  FDeleteSyria : Boolean; //シリア語ブラクラ対策                  FDeleteSyria : Boolean; //シリア語ブラクラ対策
377                    FIgnoreKana     : Boolean;      //全半角ひらカナの違いを無視するか
378    
379                  // スレッド絞込フィールドの幅                  // スレッド絞込フィールドの幅
380                  FSelectComboBoxWidth : Integer;                  FSelectComboBoxWidth : Integer;
# Line 515  type Line 516  type
516                  function GetLanguageFileName: string;                  function GetLanguageFileName: string;
517                  procedure SetMessages;                  procedure SetMessages;
518                  function GetMessage(AType :Integer): string;                  function GetMessage(AType :Integer): string;
519          procedure WriteLogFolder(AVal : String);                  procedure WriteLogFolder(AVal : String);
520    
521                  //受信バッファサイズ                  //受信バッファサイズ
522                  property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;                  property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;
# Line 712  type Line 713  type
713                  property ShowNGLinesNum : Boolean read FShowNGLinesNum write FShowNGLinesNum;                  property ShowNGLinesNum : Boolean read FShowNGLinesNum write FShowNGLinesNum;
714                  property AddResAnchor : Boolean read FAddResAnchor write FAddResAnchor;                  property AddResAnchor : Boolean read FAddResAnchor write FAddResAnchor;
715                  property DeleteSyria : Boolean read FDeleteSyria write FDeleteSyria;                  property DeleteSyria : Boolean read FDeleteSyria write FDeleteSyria;
716                    property IgnoreKana : Boolean read FIgnoreKana write FIgnoreKana;
717                  // スレッド絞込フィールドの幅                  // スレッド絞込フィールドの幅
718                  property SelectComboBoxWidth : Integer read FSelectComboBoxWidth write FSelectComboBoxWidth;                  property SelectComboBoxWidth : Integer read FSelectComboBoxWidth write FSelectComboBoxWidth;
719    
# Line 1310  begin Line 1312  begin
1312                  FPopUpAbon               := ini.ReadBool('Abon','Popup',false);                  FPopUpAbon               := ini.ReadBool('Abon','Popup',false);
1313                  FShowNGLinesNum := ini.ReadBool('Abon','ShowNGLines',false);                  FShowNGLinesNum := ini.ReadBool('Abon','ShowNGLines',false);
1314                  FAddResAnchor := ini.ReadBool('Abon','AddResAnchor',false);                  FAddResAnchor := ini.ReadBool('Abon','AddResAnchor',false);
1315                                  FDeleteSyria :=  ini.ReadBool('Abon','DeleteSyria',false);                  FDeleteSyria :=  ini.ReadBool('Abon','DeleteSyria',false);
1316                    FIgnoreKana  :=  ini.ReadBool('Abon','IgnoreKana',false);
1317    
1318                  // エディタ                  // エディタ
1319                  FSpaceToNBSP    := ini.ReadBool( 'Editor', 'SpaceToNBSP', False );                  FSpaceToNBSP    := ini.ReadBool( 'Editor', 'SpaceToNBSP', False );
# Line 1666  begin Line 1669  begin
1669                  //あぼ〜ん                  //あぼ〜ん
1670                  ini.WriteBool('Abon','Deleterlo',FAbonDeleterlo);                  ini.WriteBool('Abon','Deleterlo',FAbonDeleterlo);
1671                  ini.WriteBool('Abon','Replaceul',FAbonReplaceul);                  ini.WriteBool('Abon','Replaceul',FAbonReplaceul);
1672                                  ini.WriteBool('Abon','Popup',FPopUpAbon);                  ini.WriteBool('Abon','Popup',FPopUpAbon);
1673                  ini.WriteBool('Abon','ShowNGLines',FShowNGLinesNum);                  ini.WriteBool('Abon','ShowNGLines',FShowNGLinesNum);
1674                  ini.WriteBool('Abon','AddResAnchor',FAddResAnchor);                  ini.WriteBool('Abon','AddResAnchor',FAddResAnchor);
1675                                  ini.WriteBool('Abon','DeleteSyria',FDeleteSyria);                  ini.WriteBool('Abon','DeleteSyria',FDeleteSyria);
1676                    ini.WriteBool('Abon','IgnoreKana', FIgnoreKana);
1677    
1678                  // エディタ                  // エディタ
1679                  ini.WriteBool( 'Editor', 'SpaceToNBSP', FSpaceToNBSP );                  ini.WriteBool( 'Editor', 'SpaceToNBSP', FSpaceToNBSP );
# Line 2209  begin Line 2213  begin
2213      if (AType >= 0) and (AType <= Length(FMessageList)) then      if (AType >= 0) and (AType <= Length(FMessageList)) then
2214          Result := FMessageList[AType]          Result := FMessageList[AType]
2215      else      else
2216          Result := '';                  Result := '';
2217  end;  end;
2218  procedure TSetting.WriteLogFolder(AVal : String);  procedure TSetting.WriteLogFolder(AVal : String);
2219  begin  begin
2220      FLogFolder := AVal;          FLogFolder := AVal;
2221          FLogFolderP := IncludeTrailingPathDelimiter(LogFolder);          FLogFolderP := IncludeTrailingPathDelimiter(LogFolder);
2222  end;  end;
2223    
2224  end.  end.
2225    
2226    

Legend:
Removed from v.1.92  
changed lines
  Added in v.1.93

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26