GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-11-23 22:13:49 +00:00
Code Issues Projects Releases Wiki Activity

Translated name voor property items

Browse Source
This commit is contained in:
Mark van Renswoude 2010-02-11 10:09:00 +00:00
parent 9680a2a8c3
commit 105c770a77
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Forms/MainFrm.pas
View File

@ -23,7 +23,7 @@ uses
cxTextEdit,
DataBindingHintsXML,
XMLDataBindingGenerator;
XMLDataBindingGenerator, cxGraphics, cxLookAndFeelPainters;
type
@ -472,6 +472,7 @@ var
itemIndex: Integer;
interfaceName: IXMLInterfaceName;
schemaItem: TXMLDataBindingItem;
propertyItem: TXMLDataBindingProperty;
begin
for itemIndex := 0 to Pred(Hints.Interfaces.Count) do
@ -480,8 +481,18 @@ begin
if FindNode(interfaceName.Schema, interfaceName.XPath, schemaItem) then
begin
if schemaItem.ItemType in [itInterface, itEnumeration] then
schemaItem.TranslatedName := interfaceName.Text;
case schemaItem.ItemType of
itInterface,
itEnumeration:
schemaItem.TranslatedName := interfaceName.Text;
itProperty:
begin
propertyItem := TXMLDataBindingProperty(schemaItem);
if propertyItem.PropertyType = ptItem then
TXMLDataBindingItemProperty(propertyItem).Item.TranslatedName := interfaceName.Text;
end;
end;
end;
end;
end;