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

IDEIntf: clean up

Browse Source 
git-svn-id: trunk@28050 -
This commit is contained in:
mattias 2010-11-03 09:22:26 +00:00
parent 3edd6cc7f1
commit ec803db711
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ideintf/fieldseditor.pas
View File

@ -193,9 +193,8 @@ begin
end;
procedure TDSFieldsEditorFrm.DeleteFieldsActnExecute(Sender: TObject);
var i: integer;
PreActive: boolean;
fld: TField;
var
PreActive: boolean;
begin
PreActive := LinkDataSet.Active;
LinkDataSet.Active := False;