paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 02:49:19 +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; end;
procedure TDSFieldsEditorFrm.DeleteFieldsActnExecute(Sender: TObject); procedure TDSFieldsEditorFrm.DeleteFieldsActnExecute(Sender: TObject);
var i: integer; var
PreActive: boolean; PreActive: boolean;
fld: TField;
begin begin
PreActive := LinkDataSet.Active; PreActive := LinkDataSet.Active;
LinkDataSet.Active := False; LinkDataSet.Active := False;