From 8f5d1856f2a7e762b7964f5842c3a1320c6b3963 Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 5 Jun 2014 20:12:39 +0000 Subject: [PATCH] lazdatadict: use IDEBuildOptions git-svn-id: trunk@45361 - --- components/datadict/frmbaseconfigcodegenerator.pp | 2 ++ components/datadict/lazdatadict.lpk | 13 +++++-------- 2 files changed, 7 insertions(+), 8 deletions(-) diff --git a/components/datadict/frmbaseconfigcodegenerator.pp b/components/datadict/frmbaseconfigcodegenerator.pp index ec54ead3a7..7eee6536d3 100644 --- a/components/datadict/frmbaseconfigcodegenerator.pp +++ b/components/datadict/frmbaseconfigcodegenerator.pp @@ -260,12 +260,14 @@ end; Function TBaseConfigGeneratorForm.MoveFieldUp : Boolean; begin + Result:=false; With CLBFields do If (ItemIndex>0) then begin Items.Exchange(ItemIndex,ItemIndex-1); FFieldMap.Items[ItemIndex].Index:=ItemIndex-1; ItemIndex:=ItemIndex-1; + Result:=true; end; end; diff --git a/components/datadict/lazdatadict.lpk b/components/datadict/lazdatadict.lpk index 93899bc30c..0ea3dd7f9f 100644 --- a/components/datadict/lazdatadict.lpk +++ b/components/datadict/lazdatadict.lpk @@ -1,4 +1,4 @@ - + @@ -14,10 +14,11 @@ + - + @@ -72,13 +73,9 @@ - - - - - + @@ -104,7 +101,7 @@ - +