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

* Improved delphi compatebility. Patch by Jarto Tarpio

Browse Source 
git-svn-id: trunk@27413 -
This commit is contained in:
marc 2010-09-19 17:10:41 +00:00
parent f7c1c5ee34
commit ccc8145a6d
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/grids.pas
View File

@ -1171,6 +1171,8 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure DeleteColRow(IsColumn: Boolean; index: Integer);
procedure DeleteCol(Index: Integer); virtual;
procedure DeleteRow(Index: Integer); virtual;
procedure ExchangeColRow(IsColumn: Boolean; index, WithIndex: Integer);
procedure InsertColRow(IsColumn: boolean; index: integer);
procedure MoveColRow(IsColumn: Boolean; FromIndex, ToIndex: Integer);
@ -9000,6 +9002,16 @@ begin
DoOPDeleteColRow(IsColumn, Index);
end;
procedure TCustomDrawGrid.DeleteCol(Index: Integer);
begin
DeleteColRow(True, Index);
end;
procedure TCustomDrawGrid.DeleteRow(Index: Integer);
begin
DeleteColRow(False, Index);
end;
procedure TCustomDrawGrid.ExchangeColRow(IsColumn: Boolean; index,
WithIndex: Integer);
begin