mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Use Editor font for log window

Browse source 
UPD: Check InvalidHandleValue
This commit is contained in:
Alexander Koblov 2009-02-15 14:01:39 +00:00
commit ed0a6951d0
3 changed files with 3184 additions and 3183 deletions
Download patch file Download diff file Expand all files Collapse all files

6096
fmain.pas
View file

File diff suppressed because it is too large Load diff

1
uOSUtils.pas
View file

@ -35,6 +35,7 @@ uses
{$mode delphi}{$H+}
const
InvalidHandleValue = THandle(-1);
{$IFDEF MSWINDOWS}
faFolder = faDirectory;
faSymLink = $00000400;

270
uclassesex.pas
View file

@ -1,135 +1,135 @@
{
Double commander
-------------------------------------------------------------------------
This module contains classes with UTF8 file names support.
Copyright (C) 2008-2009 Koblov Alexander (Alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit uClassesEx;
{$mode objfpc}{$H+}
interface
uses
Classes, RtlConsts, SysUtils, IniFiles;
type
{ TFileStreamEx class }
TFileStreamEx = class(THandleStream)
private
FHandle: THandle;
FFileName: UTF8String;
public
constructor Create(const AFileName: UTF8String; Mode: Word);
destructor Destroy; override;
property FileName : UTF8String read FFileName;
end;
{ TStringListEx }
TStringListEx = class(TStringList)
public
procedure LoadFromFile(const FileName: String); override;
procedure SaveToFile(const FileName: String); override;
end;
{ TIniFileEx }
TIniFileEx = class(TIniFile)
public
constructor Create(const AFileName: String; Mode: Word = fmOpenReadWrite);
procedure UpdateFile; override;
end;
implementation
uses uOSUtils;
{ TFileStreamEx}
constructor TFileStreamEx.Create(const AFileName: UTF8String; Mode: Word);
begin
if Mode = fmCreate then
begin
FHandle:= mbFileCreate(AFileName);
if FHandle < 0 then
raise EFCreateError.CreateFmt(SFCreateError, [AFileName])
else
inherited Create(FHandle);
end
else
begin
FHandle:= mbFileOpen(AFileName, Mode);
if FHandle < 0 then
raise EFOpenError.CreateFmt(SFOpenError, [AFilename])
else
inherited Create(FHandle);
end;
FFileName:= AFileName;
end;
destructor TFileStreamEx.Destroy;
begin
if FHandle >= 0 then FileClose(FHandle);
inherited Destroy;
end;
{ TStringListEx }
procedure TStringListEx.LoadFromFile(const FileName: String);
var
fsFileStream: TFileStreamEx;
begin
fsFileStream:= TFileStreamEx.Create(FileName, fmOpenRead);
LoadFromStream(fsFileStream);
fsFileStream.Free;
end;
procedure TStringListEx.SaveToFile(const FileName: String);
var
fsFileStream: TFileStreamEx;
begin
fsFileStream:= TFileStreamEx.Create(FileName, fmCreate);
SaveToStream(fsFileStream);
fsFileStream.Free;
end;
{ TIniFileEx }
constructor TIniFileEx.Create(const AFileName: String; Mode: Word);
var
fsIniFile: TFileStreamEx;
begin
if mbFileExists(AFileName) then
fsIniFile:= TFileStreamEx.Create(AFileName, Mode or fmShareDenyNone)
else
fsIniFile:= TFileStreamEx.Create(AFileName, fmCreate);
inherited Create(fsIniFile);
end;
procedure TIniFileEx.UpdateFile;
begin
Stream.Position:=0;
Stream.Size:= 0;
inherited UpdateFile;
end;
end.
{
Double commander
-------------------------------------------------------------------------
This module contains classes with UTF8 file names support.
Copyright (C) 2008-2009 Koblov Alexander (Alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit uClassesEx;
{$mode objfpc}{$H+}
interface
uses
Classes, RtlConsts, SysUtils, IniFiles;
type
{ TFileStreamEx class }
TFileStreamEx = class(THandleStream)
private
FHandle: THandle;
FFileName: UTF8String;
public
constructor Create(const AFileName: UTF8String; Mode: Word);
destructor Destroy; override;
property FileName : UTF8String read FFileName;
end;
{ TStringListEx }
TStringListEx = class(TStringList)
public
procedure LoadFromFile(const FileName: String); override;
procedure SaveToFile(const FileName: String); override;
end;
{ TIniFileEx }
TIniFileEx = class(TIniFile)
public
constructor Create(const AFileName: String; Mode: Word = fmOpenReadWrite);
procedure UpdateFile; override;
end;
implementation
uses uOSUtils;
{ TFileStreamEx}
constructor TFileStreamEx.Create(const AFileName: UTF8String; Mode: Word);
begin
if Mode = fmCreate then
begin
FHandle:= mbFileCreate(AFileName);
if FHandle = InvalidHandleValue then
raise EFCreateError.CreateFmt(SFCreateError, [AFileName])
else
inherited Create(FHandle);
end
else
begin
FHandle:= mbFileOpen(AFileName, Mode);
if FHandle = InvalidHandleValue then
raise EFOpenError.CreateFmt(SFOpenError, [AFilename])
else
inherited Create(FHandle);
end;
FFileName:= AFileName;
end;
destructor TFileStreamEx.Destroy;
begin
if FHandle >= 0 then FileClose(FHandle);
inherited Destroy;
end;
{ TStringListEx }
procedure TStringListEx.LoadFromFile(const FileName: String);
var
fsFileStream: TFileStreamEx;
begin
fsFileStream:= TFileStreamEx.Create(FileName, fmOpenRead);
LoadFromStream(fsFileStream);
fsFileStream.Free;
end;
procedure TStringListEx.SaveToFile(const FileName: String);
var
fsFileStream: TFileStreamEx;
begin
fsFileStream:= TFileStreamEx.Create(FileName, fmCreate);
SaveToStream(fsFileStream);
fsFileStream.Free;
end;
{ TIniFileEx }
constructor TIniFileEx.Create(const AFileName: String; Mode: Word);
var
fsIniFile: TFileStreamEx;
begin
if mbFileExists(AFileName) then
fsIniFile:= TFileStreamEx.Create(AFileName, Mode or fmShareDenyNone)
else
fsIniFile:= TFileStreamEx.Create(AFileName, fmCreate);
inherited Create(fsIniFile);
end;
procedure TIniFileEx.UpdateFile;
begin
Stream.Position:=0;
Stream.Size:= 0;
inherited UpdateFile;
end;
end.