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.15 by yoffy, Mon Nov 3 11:49:34 2003 UTC revision 1.16 by yoffy, Wed Nov 5 10:53:05 2003 UTC
# Line 27  const Line 27  const
27          SKIN_BOOKMARK_FILE_NAME                         = 'Bookmark.html';          SKIN_BOOKMARK_FILE_NAME                         = 'Bookmark.html';
28          SKIN_NEWMARK_FILE_NAME                          = 'Newmark.html';          SKIN_NEWMARK_FILE_NAME                          = 'Newmark.html';
29          NGWORDs_DIR_NAME : String               = 'NGwords';          NGWORDs_DIR_NAME : String               = 'NGwords';
30            BOARD_PLUGIN_DIR_NAME                                   = 'BoardPlugin';
31    
32  type  type
33          TGikoTabPosition = (gtpTop, gtpBottom);                                                         // タブ位置          TGikoTabPosition = (gtpTop, gtpBottom);                                                         // タブ位置
# Line 330  type Line 331  type
331                  function GetStyleSheetDir: string;                  function GetStyleSheetDir: string;
332                  function GetOutBoxFileName: string;                  function GetOutBoxFileName: string;
333                  function GetNGWordsDir: string;                  function GetNGWordsDir: string;
334                    function GetBoardPlugInDir: string;
335    
336                  //受信バッファサイズ                  //受信バッファサイズ
337                  property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;                  property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;
# Line 1521  end; Line 1523  end;
1523    
1524  function TSetting.GetNGWordsDir: string;  function TSetting.GetNGWordsDir: string;
1525  begin  begin
1526          Result := GetConfigDir + NGWORDs_DIR_NAME;          Result := IncludeTrailingPathDelimiter(GetConfigDir + NGWORDs_DIR_NAME);
1527    end;
1528    
1529    function TSetting.GetBoardPlugInDir: string;
1530    begin
1531            Result := IncludeTrailingPathDelimiter(GetConfigDir + BOARD_PLUGIN_DIR_NAME);
1532  end;  end;
1533    
1534  procedure TSetting.SetUseCSS( value: Boolean );  procedure TSetting.SetUseCSS( value: Boolean );

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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