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

lcl: less warnings

Browse Source 
git-svn-id: trunk@64087 -
This commit is contained in:
mattias 2020-10-29 22:31:29 +00:00
parent 614fe5d9e9
commit f3603ca4db
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/graphics.pp
View File

@ -1075,10 +1075,10 @@ type
Angle16Deg, Angle16DegLength: Integer); virtual; {$IFDEF HasFPCanvas1}reintroduce;{$ENDIF} Angle16Deg, Angle16DegLength: Integer); virtual; {$IFDEF HasFPCanvas1}reintroduce;{$ENDIF}
procedure Chord(x1, y1, x2, y2, SX, SY, EX, EY: Integer); virtual; {$IFDEF HasFPCanvas1}reintroduce;{$ENDIF} procedure Chord(x1, y1, x2, y2, SX, SY, EX, EY: Integer); virtual; {$IFDEF HasFPCanvas1}reintroduce;{$ENDIF}
procedure CopyRect(const Dest: TRect; SrcCanvas: TCanvas; procedure CopyRect(const Dest: TRect; SrcCanvas: TCanvas;
const Source: TRect); virtual; const Source: TRect); virtual; reintroduce;
procedure Draw(X,Y: Integer; SrcGraphic: TGraphic); virtual; procedure Draw(X,Y: Integer; SrcGraphic: TGraphic); virtual; reintroduce;
procedure DrawFocusRect(const ARect: TRect); virtual; procedure DrawFocusRect(const ARect: TRect); virtual;
procedure StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic); virtual; procedure StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic); virtual; reintroduce;
procedure Ellipse(const ARect: TRect); {$IFDEF HasFPCanvas1}reintroduce;{$ENDIF} procedure Ellipse(const ARect: TRect); {$IFDEF HasFPCanvas1}reintroduce;{$ENDIF}
procedure Ellipse(x1, y1, x2, y2: Integer); virtual; {$IFDEF HasFPCanvas1}reintroduce;{$ENDIF} procedure Ellipse(x1, y1, x2, y2: Integer); virtual; {$IFDEF HasFPCanvas1}reintroduce;{$ENDIF}
procedure FillRect(const ARect: TRect); virtual; {$IFDEF HasFPCanvas1}reintroduce;{$ENDIF} procedure FillRect(const ARect: TRect); virtual; {$IFDEF HasFPCanvas1}reintroduce;{$ENDIF}

2
lcl/lresources.pp
View File

@ -251,7 +251,7 @@ type
procedure FlushStackToStream; procedure FlushStackToStream;
procedure WriteToStream(const Buffer; Count: Longint); procedure WriteToStream(const Buffer; Count: Longint);
protected protected
procedure FlushBuffer; procedure FlushBuffer; override;
procedure WriteValue(Value: TValueType); procedure WriteValue(Value: TValueType);
procedure WriteStr(const Value: String); procedure WriteStr(const Value: String);
procedure WriteIntegerContent(i: integer); procedure WriteIntegerContent(i: integer);