GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-11-14 19:13:50 +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, cxTextEdit,
DataBindingHintsXML, DataBindingHintsXML,
XMLDataBindingGenerator; XMLDataBindingGenerator, cxGraphics, cxLookAndFeelPainters;
type type
@ -472,6 +472,7 @@ var
itemIndex: Integer; itemIndex: Integer;
interfaceName: IXMLInterfaceName; interfaceName: IXMLInterfaceName;
schemaItem: TXMLDataBindingItem; schemaItem: TXMLDataBindingItem;
propertyItem: TXMLDataBindingProperty;
begin begin
for itemIndex := 0 to Pred(Hints.Interfaces.Count) do for itemIndex := 0 to Pred(Hints.Interfaces.Count) do
@ -480,8 +481,18 @@ begin
if FindNode(interfaceName.Schema, interfaceName.XPath, schemaItem) then if FindNode(interfaceName.Schema, interfaceName.XPath, schemaItem) then
begin begin
if schemaItem.ItemType in [itInterface, itEnumeration] then case schemaItem.ItemType of
schemaItem.TranslatedName := interfaceName.Text; 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; end;
end; end;