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.2 by yoffy, Sat Aug 9 14:22:51 2003 UTC revision 1.3 by h677, Wed Aug 13 05:07:32 2003 UTC
# Line 226  type Line 226  type
226                  FTimeAdjustSec: Integer;                  FTimeAdjustSec: Integer;
227                  FTimeAdjust: Boolean;                  FTimeAdjust: Boolean;
228    
229            //あぼ〜ん
230            FAbonCutoffNum : Integer; //この数以上連続する同じ英字をNGワードとする
231            FAbonDeleterlo : Boolean; //&rlo;を削るか
232            FAbonReplaceul : Boolean; //<ul>タグを<br>タグに置換するか
233            FPopUpAbon     : Boolean; //レスポップアップ時のあぼ〜ん有効
234    
235                  function GetMainCoolSet(Index: Integer): TCoolSet;                  function GetMainCoolSet(Index: Integer): TCoolSet;
236                  function GetBoardCoolSet(Index: Integer): TCoolSet;                  function GetBoardCoolSet(Index: Integer): TCoolSet;
237                  function GetBrowserCoolSet(Index: Integer): TCoolSet;                  function GetBrowserCoolSet(Index: Integer): TCoolSet;
# Line 417  type Line 423  type
423                  property UseMachineTime: Boolean read FUseMachineTime write FUseMachineTime;                  property UseMachineTime: Boolean read FUseMachineTime write FUseMachineTime;
424                  property TimeAdjustSec: Integer read FTimeAdjustSec write FTimeAdjustSec;                  property TimeAdjustSec: Integer read FTimeAdjustSec write FTimeAdjustSec;
425                  property TimeAdjust: Boolean read FTimeAdjust write FTimeAdjust;                  property TimeAdjust: Boolean read FTimeAdjust write FTimeAdjust;
426    
427            //あぼ〜ん
428            property AbonCutoffNum : Integer read FAbonCutoffNum write FAbonCutoffNum;
429            property AbonDeleterlo : Boolean read FAbonDeleterlo write FAbonDeleterlo;
430            property AbonReplaceul : Boolean read FAbonReplaceul write FAbonReplaceul;
431            property PopUpAbon     : Boolean read FPopUpAbon write FPopUpAbon;
432    
433          end;          end;
434    
435    
436    
437  implementation  implementation
438    
439  type  type
# Line 746  begin Line 760  begin
760                          CoolSet.FCoolBreak := ini.ReadBool('BrowserCoolBar', 'Break' + IntToStr(i), False);                          CoolSet.FCoolBreak := ini.ReadBool('BrowserCoolBar', 'Break' + IntToStr(i), False);
761                          BrowserCoolSet[i] := CoolSet;                          BrowserCoolSet[i] := CoolSet;
762                  end;                  end;
763    
764            //あぼ〜ん
765            FAbonCutoffNum := ini.ReadInteger('Abon','CutOffnum',0);
766            FAbonDeleterlo := ini.ReadBool('Abon','Deleterlo',false);
767            FAbonReplaceul := ini.ReadBool('Abon','Replaceul',false);
768            FPopUpAbon     := ini.ReadBool('abon','Popup',false);
769          finally          finally
770                  ini.Free;                  ini.Free;
771          end;          end;
# Line 964  begin Line 984  begin
984                          ini.WriteBool('BrowserCoolBar', 'Break' + IntToStr(i), CoolSet.FCoolBreak);                          ini.WriteBool('BrowserCoolBar', 'Break' + IntToStr(i), CoolSet.FCoolBreak);
985                  end;                  end;
986    
987            //あぼ〜ん
988            ini.WriteInteger('Abon','CutOffnum',FAbonCutoffNum);
989            ini.WriteBool('Abon','Deleterlo',FAbonDeleterlo);
990            ini.WriteBool('Abon','Replaceul',FAbonReplaceul);
991            ini.WriteBool('abon','Popup',FPopUpAbon);
992    
993                  ini.UpdateFile;                  ini.UpdateFile;
994          finally          finally
995                  ini.Free;                  ini.Free;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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