Persona/tim2view
3
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed Linux file permissions; Added two view bitmodes; Removed bitmode resetting after selection another Tim.

Browse Source
This commit is contained in:
meffi@lab313.ru
2014-04-23 12:19:04 +00:00
parent 066eba1353
commit e2f38ea43d
7 changed files with 295 additions and 246 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
usettings.pas
View File

@@ -22,6 +22,8 @@ type
function FLastDirRead(): string;
procedure FBackColorWrite(Color: TColor);
function FBackColorRead(): TColor;
procedure FBitModeWrite(Mode: Integer);
function FBitModeRead(): Integer;
public
constructor Create(const DirPath: string);
destructor Destroy; override;
@@ -29,6 +31,7 @@ type
property StretchMode: Boolean read FStretchModeRead write FStretchModeWrite;
property LastDir: string read FLastDirRead write FLastDirWrite;
property BackColor: TColor read FBackColorRead write FBackColorWrite;
property BitMode: Integer read FBitModeRead write FBitModeWrite;
end;
implementation
@@ -79,6 +82,16 @@ begin
Result := FIniFile.ReadInteger(sMain, 'BackColor', clBtnFace);
end;
procedure TSettings.FBitModeWrite(Mode: Integer);
begin
FIniFile.WriteInteger(sMain, 'BitMode', Mode);
end;
function TSettings.FBitModeRead: Integer;
begin
Result := FIniFile.ReadInteger(sMain, 'BitMode', 0);
end;
constructor TSettings.Create(const DirPath: string);
begin
inherited Create;