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

IDE: fixed warning about abstract creating a class with abstract methods.

Browse Source 
git-svn-id: trunk@10539 -
This commit is contained in:
vincents 2007-01-30 15:29:55 +00:00
parent b2bceaa57a
commit 2a4b6678f2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/keymapping.pp
View File

@ -79,7 +79,6 @@ type
fRelations: TList; // list of TKeyCommandRelation, sorted with Command fRelations: TList; // list of TKeyCommandRelation, sorted with Command
fCategories: TList;// list of TKeyCommandCategory fCategories: TList;// list of TKeyCommandCategory
fExtToolCount: integer; fExtToolCount: integer;
function GetCategory(Index: integer): TIDECommandCategory; override;
function GetRelation(Index: integer): TKeyCommandRelation; function GetRelation(Index: integer): TKeyCommandRelation;
function GetRelationCount: integer; function GetRelationCount: integer;
function AddCategory(const Name, Description: string; function AddCategory(const Name, Description: string;
@ -94,6 +93,8 @@ type
const Name, LocalizedName: string; const Name, LocalizedName: string;
Command: word):integer; Command: word):integer;
procedure SetExtToolCount(NewCount: integer); procedure SetExtToolCount(NewCount: integer);
protected
function GetCategory(Index: integer): TIDECommandCategory; override;
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;