paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 09:36:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed some warning from fpc 2.1.1 (bug #8008)

Browse Source 
git-svn-id: trunk@10407 -
This commit is contained in:
vincents 2007-01-09 10:24:14 +00:00
parent 667426dd97
commit d40c271e2f
3 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/comctrls.pp
View File

@ -760,8 +760,8 @@ type
constructor Create(TheOwner: TCustomListView);
destructor Destroy; override;
function Add: TListColumn;
procedure BeginUpdate; virtual;
procedure EndUpdate; virtual;
procedure BeginUpdate; {$IFNDEF VER2_0}override{$ELSE}virtual{$ENDIF};
procedure EndUpdate; {$IFNDEF VER2_0}override{$ELSE}virtual{$ENDIF};
property Owner: TCustomListView read FOwner;
property Items[const AIndex: Integer]: TListColumn
read GetItem write SetItem; default;

6
lcl/include/listcolumns.inc
View File

@ -30,11 +30,17 @@ end;
procedure TListColumns.BeginUpdate;
begin
{$IFNDEF VER2_0}
inherited;
{$ENDIF}
inc(FUpdateCount);
end;
procedure TListColumns.EndUpdate;
begin
{$IFNDEF VER2_0}
inherited;
{$ENDIF}
if FUpdateCount<=0 then
RaiseGDBException('TListColumns.EndUpdate');
dec(FUpdateCount);

5
lcl/lresources.pp
View File

@ -90,10 +90,11 @@ type
FBufSize: Integer;
FBufPos: Integer;
FBufEnd: Integer;
procedure Read(var Buf; Count: LongInt);
procedure SkipProperty;
procedure SkipSetBody;
protected
function ReadIntegerContent: integer;
procedure Read(var Buf; Count: LongInt); {$IFNDEF VER2_0}override;{$ENDIF}
public
constructor Create(AStream: TStream; BufSize: Integer); virtual;
destructor Destroy; override;
@ -138,7 +139,7 @@ type
FSignatureWritten: Boolean;
protected
procedure FlushBuffer;
procedure Write(const Buffer; Count: Longint);
procedure Write(const Buffer; Count: Longint); {$IFNDEF VER2_0}override;{$ENDIF}
procedure WriteValue(Value: TValueType);
procedure WriteStr(const Value: String);
procedure WriteIntegerContent(i: integer);