paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-12 00:38:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed public method overrides

Browse Source 
git-svn-id: trunk@18156 -
This commit is contained in:
mattias 2009-01-06 09:54:29 +00:00
parent c0f4c70dae
commit 4af2a1dd2e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedittextbuffer.pp
View File

@ -162,7 +162,6 @@ type
procedure PutRange(Index: integer; ARange: TSynEditRange); {$IFDEF SYN_LAZARUS}override;{$ENDIF}
function GetAttribute(const Owner: TClass; const Index: Integer): Pointer; override;
procedure SetAttribute(const Owner: TClass; const Index: Integer; const AValue: Pointer); override;
procedure RegisterAttribute(const Index: TClass; const Size: Word); override;
function Get(Index: integer): string; override;
function GetCapacity: integer;
{$IFDEF SYN_COMPILER_3_UP} override; {$ENDIF} //mh 2000-10-18
@ -181,6 +180,7 @@ type
procedure AddStrings(AStrings: TStrings); override;
procedure Clear; override;
procedure Delete(Index: integer); override;
procedure RegisterAttribute(const Index: TClass; const Size: Word); override;
procedure DeleteLines(Index, NumLines: integer); // DJLP 2000-11-01
{$IFDEF SYN_LAZARUS}override;{$ENDIF}
procedure Exchange(Index1, Index2: integer); override;

2
lcl/ldocktree.pas
View File

@ -78,7 +78,6 @@ type
FMouseState: TDockHeaderMouseState;
FDockHeaderImages: TDockHeaderImages;
protected
procedure AdjustDockRect(AControl: TControl; var ARect: TRect); override;
procedure AnchorDockLayout(Zone: TLazDockZone);
procedure CreateDockLayoutHelperControls(Zone: TLazDockZone);
procedure ResetSizes(Zone: TLazDockZone);
@ -90,6 +89,7 @@ type
public
constructor Create(TheDockSite: TWinControl); override;
destructor Destroy; override;
procedure AdjustDockRect(AControl: TControl; var ARect: TRect); override;
procedure InsertControl(AControl: TControl; InsertAt: TAlign;
DropControl: TControl); override;
procedure RemoveControl(AControl: TControl); override;