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

LCL: clean up

Browse Source 
git-svn-id: trunk@15436 -
This commit is contained in:
mattias 2008-06-16 09:04:33 +00:00
parent 5d525c37af
commit c50c6e5f90
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dbgrids.pas
View File

@ -1493,11 +1493,9 @@ type
procedure TCustomDBGrid.ColRowMoved(IsColumn: Boolean; FromIndex,
ToIndex: Integer);
var
F,CurField: TField;
ColIndex: Integer;
F: TField;
begin
if IsColumn then begin
CurField := SelectedField;
if Columns.Enabled then
inherited ColRowMoved(IsColumn, FromIndex, ToIndex)
else if FDatalink.Active and (FDataLink.DataSet<>nil) then begin