paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 12:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazdatadict: use IDEBuildOptions

Browse Source 
git-svn-id: trunk@45361 -
This commit is contained in:
mattias 2014-06-05 20:12:39 +00:00
parent e374177ab3
commit 8f5d1856f2
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/datadict/frmbaseconfigcodegenerator.pp
View File

@ -260,12 +260,14 @@ end;
Function TBaseConfigGeneratorForm.MoveFieldUp : Boolean; Function TBaseConfigGeneratorForm.MoveFieldUp : Boolean;
begin begin
Result:=false;
With CLBFields do With CLBFields do
If (ItemIndex>0) then If (ItemIndex>0) then
begin begin
Items.Exchange(ItemIndex,ItemIndex-1); Items.Exchange(ItemIndex,ItemIndex-1);
FFieldMap.Items[ItemIndex].Index:=ItemIndex-1; FFieldMap.Items[ItemIndex].Index:=ItemIndex-1;
ItemIndex:=ItemIndex-1; ItemIndex:=ItemIndex-1;
Result:=true;
end; end;
end; end;

13
components/datadict/lazdatadict.lpk
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="4">
<Name Value="lazdatadict"/> <Name Value="lazdatadict"/>
@ -14,10 +14,11 @@
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Other> <Other>
<CustomOptions Value="$(IDEBuildOptions)"/>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Files Count="15"> <Files Count="14">
<Item1> <Item1>
<Filename Value="frmconfprojdatadict.lfm"/> <Filename Value="frmconfprojdatadict.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
@ -72,13 +73,9 @@
<UnitName Value="frmgeneratedcode"/> <UnitName Value="frmgeneratedcode"/>
</Item13> </Item13>
<Item14> <Item14>
<Filename Value="reglazdatadict.lrs"/>
<Type Value="LRS"/>
</Item14>
<Item15>
<Filename Value="ldd_consts.pas"/> <Filename Value="ldd_consts.pas"/>
<UnitName Value="ldd_consts"/> <UnitName Value="ldd_consts"/>
</Item15> </Item14>
</Files> </Files>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>
@ -104,7 +101,7 @@
</Item5> </Item5>
</RequiredPkgs> </RequiredPkgs>
<UsageOptions> <UsageOptions>
<UnitPath Value="$(PkgOutDir)/"/> <UnitPath Value="$(PkgOutDir)"/>
</UsageOptions> </UsageOptions>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>