paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed 1.0.x compilation, removed double constants

Browse Source 
git-svn-id: trunk@5294 -
This commit is contained in:
vincents 2004-03-12 11:54:57 +00:00
parent 51ee7853e0
commit 2f8ac652e3
2 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/filectrl.pp
View File

@ -41,7 +41,13 @@ interface
{$endif}
uses
Classes, SysUtils, StdCtrls;
Classes, SysUtils,
{$ifdef VER1_0}
// fpc 1.0.x needs unit in which redefined unit originally is defined
// otherwise IE 55665566 occurs.
Controls,
{$endif}
StdCtrls;
Type
@ -71,7 +77,7 @@ Type
procedure UpdateFileList; virtual;
procedure Click; override;
procedure Loaded; override;
function IndexOfFile(const Filename: string): integer;
function IndexOfFile(const AFilename: string): integer;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -194,13 +200,6 @@ uses
{$IFDEF Ver1_0}Linux{$ELSE}Unix,BaseUnix{$ENDIF};
{$ENDIF}
const
{$IFDEF Win32}
FindMask = '*.*';
{$ELSE}
FindMask = '*';
{$ENDIF}
var
UpChars: array[char] of char;
@ -262,7 +261,7 @@ begin
UpdateFileList;
end;
function TCustomFileListBox.IndexOfFile(const Filename: string): integer;
function TCustomFileListBox.IndexOfFile(const AFilename: string): integer;
begin
Result:=0;
while (Result<Items.Count)
@ -287,7 +286,7 @@ end;
function TCustomFileListBox.MaskIsStored: boolean;
begin
Result:=(FMask<>FindMask);
Result:=(FMask<>GetAllFilesMask);
end;
procedure TCustomFileListBox.SetDrive(const AValue: Char);
@ -330,7 +329,7 @@ var
begin
inherited Create(AOwner);
//Initializes DirectorySeparator and the Mask property.
FMask := FindMask;
FMask := GetAllFilesMask;
//Initializes the FileType property.
FFileType := [ftNormal];
//Initializes the Directory and Drive properties to the current directory.
@ -367,6 +366,9 @@ end.
{
$Log$
Revision 1.23 2004/03/12 11:54:57 vincents
fixed 1.0.x compilation, removed double constants
Revision 1.22 2004/03/11 00:07:26 mattias
added TFileListBox from Luis

5
lcl/include/filectrl.inc
View File

@ -731,7 +731,7 @@ var
begin
Result:=false;
CurSrcDir:=CleanAndExpandDirectory(DirectoryName);
if SysUtils.FindFirst(CurSrcDir+FindMask,faAnyFile,FileInfo)=0 then begin
if SysUtils.FindFirst(CurSrcDir+GetAllFilesMask,faAnyFile,FileInfo)=0 then begin
repeat
// check if special file
if (FileInfo.Name='.') or (FileInfo.Name='..') then continue;
@ -927,6 +927,9 @@ end;
{
$Log$
Revision 1.43 2004/03/12 11:54:57 vincents
fixed 1.0.x compilation, removed double constants
Revision 1.42 2004/03/11 00:07:26 mattias
added TFileListBox from Luis