Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 57 → Rev 62

/trunk/FastPHPConfig.pas
15,6 → 15,8
class procedure SetPhpInterpreter(const Value: string); static;
class function GetSpecialChars: boolean; static;
class procedure SetSpecialChars(const Value: boolean); static;
class function GetDarkTheme: boolean; static;
class procedure SetDarkTheme(const Value: boolean); static;
public
class property FontSize: integer read GetFontSize write SetFontSize;
class property ScrapFile: string read GetScrapFile write SetScrapFile;
21,6 → 23,7
class property HelpIndex: string read GetHelpIndex write SetHelpIndex;
class property PhpInterpreter: string read GetPhpInterpreter write SetPhpInterpreter;
class property SpecialChars: boolean read GetSpecialChars write SetSpecialChars;
class property DarkTheme: boolean read GetDarkTheme write SetDarkTheme;
end;
 
implementation
104,6 → 107,25
end;
end;
 
class function TFastPHPConfig.GetDarkTheme: boolean;
var
reg: TRegistry;
begin
result := false;
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('Software\ViaThinkSoft\FastPHP\Editor', false) then
begin
if reg.ValueExists('DarkTheme') then
result := reg.ReadBool('DarkTheme');
reg.CloseKey;
end;
finally
reg.Free;
end;
end;
 
class function TFastPHPConfig.GetFontSize: integer;
var
reg: TRegistry;
123,6 → 145,23
end;
end;
 
class procedure TFastPHPConfig.SetDarkTheme(const Value: boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('Software\ViaThinkSoft\FastPHP\Editor', true) then
begin
reg.WriteBool('DarkTheme', Value);
reg.CloseKey;
end;
finally
reg.Free;
end;
end;
 
class procedure TFastPHPConfig.SetFontSize(Value: integer);
var
reg: TRegistry;