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.14 by yoffy, Sun Nov 2 16:11:49 2003 UTC revision 1.15 by yoffy, Mon Nov 3 11:49:34 2003 UTC
# Line 26  const Line 26  const
26          SKIN_RES_FILE_NAME                                              = 'Res.html';          SKIN_RES_FILE_NAME                                              = 'Res.html';
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';
30    
31  type  type
32          TGikoTabPosition = (gtpTop, gtpBottom);                                                         // タブ位置          TGikoTabPosition = (gtpTop, gtpBottom);                                                         // タブ位置
# Line 328  type Line 329  type
329                  function GetSkinNewmarkFileName: string;                  function GetSkinNewmarkFileName: string;
330                  function GetStyleSheetDir: string;                  function GetStyleSheetDir: string;
331                  function GetOutBoxFileName: string;                  function GetOutBoxFileName: string;
332                    function GetNGWordsDir: string;
333    
334                  //受信バッファサイズ                  //受信バッファサイズ
335                  property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;                  property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;
# Line 1517  begin Line 1519  begin
1519          Result := CSSFileName + SKIN_NEWMARK_FILE_NAME;          Result := CSSFileName + SKIN_NEWMARK_FILE_NAME;
1520  end;  end;
1521    
1522    function TSetting.GetNGWordsDir: string;
1523    begin
1524            Result := GetConfigDir + NGWORDs_DIR_NAME;
1525    end;
1526    
1527  procedure TSetting.SetUseCSS( value: Boolean );  procedure TSetting.SetUseCSS( value: Boolean );
1528  begin  begin
1529    

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

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