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.73 by h677, Wed Sep 29 16:05:06 2004 UTC revision 1.74 by yoffy, Mon Oct 11 14:38:59 2004 UTC
# Line 4  interface Line 4  interface
4    
5  uses  uses
6          SysUtils, Classes, Graphics, Forms, Math, IniFiles, UCryptAuto, UBase64,          SysUtils, Classes, Graphics, Forms, Math, IniFiles, UCryptAuto, UBase64,
7          ComCtrls;          ComCtrls, GestureModel;
8    
9  const  const
10          MAIN_COOLBAND_COUNT = 4;                //メインCoolBandの数          MAIN_COOLBAND_COUNT = 4;                //メインCoolBandの数
# Line 34  const Line 34  const
34          IGNORE_FILE_NAME : String               = 'Ignore.txt';          IGNORE_FILE_NAME : String               = 'Ignore.txt';
35  //      DOLIB_LOGIN_URL     = '/~tora3n2c/futen.cgi';  //      DOLIB_LOGIN_URL     = '/~tora3n2c/futen.cgi';
36          MAX_POPUP_RES : Integer = 10;          MAX_POPUP_RES : Integer = 10;
37            GESTURE_FILE_NAME                                                       = 'Gestures.ini';
38  type  type
39          TGikoTabPosition = (gtpTop, gtpBottom);                                                         // タブ位置          TGikoTabPosition = (gtpTop, gtpBottom);                                                         // タブ位置
40          TGikoTabAppend = (gtaFirst, gtpLast);                                                                   // タブ追加位置          TGikoTabAppend = (gtaFirst, gtpLast);                                                                   // タブ追加位置
# Line 403  type Line 404  type
404    
405                  //KuroutSettingTab 詳細設定タブのActiveTab                  //KuroutSettingTab 詳細設定タブのActiveTab
406                  FKuroutSettingTabIndex: Integer;                  FKuroutSettingTabIndex: Integer;
407    
408                    //! マウスジェスチャー
409                    FGestures       : TGestureModel;
410                                    
411                  function GetMainCoolSet(Index: Integer): TCoolSet;                  function GetMainCoolSet(Index: Integer): TCoolSet;
412                  function GetBoardCoolSet(Index: Integer): TCoolSet;                  function GetBoardCoolSet(Index: Integer): TCoolSet;
# Line 467  type Line 471  type
471                  function GetBoardPlugInDir: string;                  function GetBoardPlugInDir: string;
472                  function GetSambaFileName: string;                  function GetSambaFileName: string;
473                  function GetIgnoreFileName: string;                  function GetIgnoreFileName: string;
474                    function GetGestureFileName : string;
475    
476                  //受信バッファサイズ                  //受信バッファサイズ
477                  property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;                  property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;
# Line 689  type Line 694  type
694                  property TabAutoLoadSave: Boolean           read FTabAutoLoadSave      write FTabAutoLoadSave;                  property TabAutoLoadSave: Boolean           read FTabAutoLoadSave      write FTabAutoLoadSave;
695                  property GengoSupport : Boolean         read F2chSupport        write F2chSupport;                  property GengoSupport : Boolean         read F2chSupport        write F2chSupport;
696                  property KuroutSettingTabIndex: Integer read FKuroutSettingTabIndex write FKuroutSettingTabIndex;                  property KuroutSettingTabIndex: Integer read FKuroutSettingTabIndex write FKuroutSettingTabIndex;
697                    //! マウスジェスチャー
698                    property Gestures : TGestureModel read FGestures write FGestures;
699  end;  end;
700    
701    
# Line 812  begin Line 819  begin
819          FBBSColumnOrder := TGikoBBSColumnList.Create;          FBBSColumnOrder := TGikoBBSColumnList.Create;
820          FCategoryColumnOrder := TGikoCategoryColumnList.Create;          FCategoryColumnOrder := TGikoCategoryColumnList.Create;
821          FBoardColumnOrder := TGikoBoardColumnList.Create;          FBoardColumnOrder := TGikoBoardColumnList.Create;
822            FGestures := TGestureModel.Create;
823          FNameList.Duplicates := dupIgnore;          FNameList.Duplicates := dupIgnore;
824          FMailList.Duplicates := dupIgnore;          FMailList.Duplicates := dupIgnore;
825          FBoardURLs.Duplicates := dupIgnore;          FBoardURLs.Duplicates := dupIgnore;
# Line 831  begin Line 839  begin
839          FBoardURLs.Free;          FBoardURLs.Free;
840          FMailList.Free;          FMailList.Free;
841          FNameList.Free;          FNameList.Free;
842            FGestures.Free;
843  end;  end;
844    
845  //初期化ファイル名取得(パス+ファイル名)  //初期化ファイル名取得(パス+ファイル名)
# Line 1231  begin Line 1240  begin
1240    
1241                  FKuroutSettingTabIndex := ini.ReadInteger('OptionDialog', 'KuroutTabIndex' , 0);                  FKuroutSettingTabIndex := ini.ReadInteger('OptionDialog', 'KuroutTabIndex' , 0);
1242    
   
1243          finally          finally
1244                  ini.Free;                  ini.Free;
1245          end;          end;
# Line 1561  begin Line 1569  begin
1569                  ini.WriteInteger('OptionDialog', 'KuroutTabIndex', FKuroutSettingTabIndex);                  ini.WriteInteger('OptionDialog', 'KuroutTabIndex', FKuroutSettingTabIndex);
1570    
1571                  //にちゃん語案内機能                  //にちゃん語案内機能
1572                  ini.WriteBool('2chSupport', 'Support', F2chSupport);                                                                  ini.WriteBool('2chSupport', 'Support', F2chSupport);
1573    
1574                  ini.UpdateFile;                                                                  ini.UpdateFile;
1575          finally          finally
1576                  ini.Free;                  ini.Free;
1577          end;          end;
# Line 1998  begin Line 2006  begin
2006          Result := GetConfigDir + IGNORE_FILE_NAME;          Result := GetConfigDir + IGNORE_FILE_NAME;
2007  end;  end;
2008    
2009    //! マウスジェスチャーファイルパス
2010    function TSetting.GetGestureFileName: string;
2011    begin
2012            Result := GetConfigDir + GESTURE_FILE_NAME;
2013    end;
2014    
2015  end.  end.
2016    
2017    

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

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