paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-18 13:49:07 +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, procedure TCustomDBGrid.ColRowMoved(IsColumn: Boolean; FromIndex,
ToIndex: Integer); ToIndex: Integer);
var var
F,CurField: TField; F: TField;
ColIndex: Integer;
begin begin
if IsColumn then begin if IsColumn then begin
CurField := SelectedField;
if Columns.Enabled then if Columns.Enabled then
inherited ColRowMoved(IsColumn, FromIndex, ToIndex) inherited ColRowMoved(IsColumn, FromIndex, ToIndex)
else if FDatalink.Active and (FDataLink.DataSet<>nil) then begin else if FDatalink.Active and (FDataLink.DataSet<>nil) then begin