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

LCL: dbgrid, fixes application block when calling dbgrid.clear, issue #8795

Browse Source 
git-svn-id: trunk@11054 -
This commit is contained in:
jesus 2007-05-02 21:14:46 +00:00
parent 68ad9e2527
commit 830233dac3
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/grids.pas
View File

@ -466,6 +466,7 @@ type
public
constructor Create(AGrid: TCustomGrid; aItemClass: TCollectionItemClass);
function Add: TGridColumn;
procedure Clear;
function RealIndex(Index: Integer): Integer;
function IndexOf(Column: TGridColumn): Integer;
function IsDefault: boolean;
@ -8240,6 +8241,13 @@ begin
result := TGridColumn( inherited add );
end;
procedure TGridColumns.Clear;
begin
BeginUpdate;
inherited Clear;
EndUpdate
end;
function TGridColumns.RealIndex(Index: Integer): Integer;
var
i: Integer;