Subversion Repositories fastphp

Rev

Rev 49 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 49 Rev 57
Line 11... Line 11...
11 
    class procedure SetScrapFile(Value: string); static;
 11 
    class procedure SetScrapFile(Value: string); static;
12 
    class function GetHelpIndex: string; static;
 12 
    class function GetHelpIndex: string; static;
13 
    class procedure SetHelpIndex(const Value: string); static;
 13 
    class procedure SetHelpIndex(const Value: string); static;
14 
    class function GetPhpInterpreter: string; static;
 14 
    class function GetPhpInterpreter: string; static;
15 
    class procedure SetPhpInterpreter(const Value: string); static;
 15 
    class procedure SetPhpInterpreter(const Value: string); static;
- 
 
 16 
    class function GetSpecialChars: boolean; static;
- 
 
 17 
    class procedure SetSpecialChars(const Value: boolean); static;
16 
  public
 18 
  public
17 
    class property FontSize: integer read GetFontSize write SetFontSize;
 19 
    class property FontSize: integer read GetFontSize write SetFontSize;
18 
    class property ScrapFile: string read GetScrapFile write SetScrapFile;
 20 
    class property ScrapFile: string read GetScrapFile write SetScrapFile;
19 
    class property HelpIndex: string read GetHelpIndex write SetHelpIndex;
 21 
    class property HelpIndex: string read GetHelpIndex write SetHelpIndex;
20 
    class property PhpInterpreter: string read GetPhpInterpreter write SetPhpInterpreter;
 22 
    class property PhpInterpreter: string read GetPhpInterpreter write SetPhpInterpreter;
- 
 
 23 
    class property SpecialChars: boolean read GetSpecialChars write SetSpecialChars;
21 
  end;
 24 
  end;
22 
 
 25 
 
23 
implementation
 26 
implementation
24 
 
 27 
 
25 
uses
 28 
uses
Line 80... Line 83...
80 
  finally
 83 
  finally
81 
    reg.Free;
 84 
    reg.Free;
82 
  end;
 85 
  end;
83 
end;
 86 
end;
84 
 
 87 
 
- 
 
 88 
class function TFastPHPConfig.GetSpecialChars: boolean;
- 
 
 89 
var
- 
 
 90 
  reg: TRegistry;
- 
 
 91 
begin
- 
 
 92 
  result := false;
- 
 
 93 
  reg := TRegistry.Create;
- 
 
 94 
  try
- 
 
 95 
    reg.RootKey := HKEY_CURRENT_USER;
- 
 
 96 
    if reg.OpenKey('Software\ViaThinkSoft\FastPHP\Editor', false) then
- 
 
 97 
    begin
- 
 
 98 
      if reg.ValueExists('SpecialChars') then
- 
 
 99 
        result := reg.ReadBool('SpecialChars');
- 
 
 100 
      reg.CloseKey;
- 
 
 101 
    end;
- 
 
 102 
  finally
- 
 
 103 
    reg.Free;
- 
 
 104 
  end;
- 
 
 105 
end;
- 
 
 106 
 
85 
class function TFastPHPConfig.GetFontSize: integer;
 107 
class function TFastPHPConfig.GetFontSize: integer;
86 
var
 108 
var
87 
  reg: TRegistry;
 109 
  reg: TRegistry;
88 
begin
 110 
begin
89 
  result := -1;
 111 
  result := -1;
Line 164... Line 186...
164 
      reg.CloseKey;
 186 
      reg.CloseKey;
165 
    end;
 187 
    end;
166 
  finally
 188 
  finally
167 
    reg.Free;
 189 
    reg.Free;
168 
  end;
 190 
  end;
- 
 
 191 
end;
- 
 
 192 
 
- 
 
 193 
class procedure TFastPHPConfig.SetSpecialChars(const Value: boolean);
- 
 
 194 
var
- 
 
 195 
  reg: TRegistry;
- 
 
 196 
begin
- 
 
 197 
  reg := TRegistry.Create;
- 
 
 198 
  try
- 
 
 199 
    reg.RootKey := HKEY_CURRENT_USER;
- 
 
 200 
    if reg.OpenKey('Software\ViaThinkSoft\FastPHP\Editor', true) then
- 
 
 201 
    begin
- 
 
 202 
      reg.WriteBool('SpecialChars', Value);
- 
 
 203 
      reg.CloseKey;
- 
 
 204 
    end;
- 
 
 205 
  finally
- 
 
 206 
    reg.Free;
- 
 
 207 
  end;
169 
end;
 208 
end;
170 
 
 209 
 
171 
end.
 210 
end.
172 
 
 211