Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 62 → Rev 57

/trunk/FastPHPConfig.pas
15,8 → 15,6
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;
23,7 → 21,6
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
107,25 → 104,6
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;
145,23 → 123,6
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;