From de277ebcfcc94d0c59d080b32142702c742efe41 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Tue, 14 Apr 2009 13:20:41 +0000
Subject: [PATCH] Generate attribute properties for complex types

---
 Units/XMLDataBindingGenerator.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Units/XMLDataBindingGenerator.pas b/Units/XMLDataBindingGenerator.pas
index 2a621fe..4ebd319 100644
--- a/Units/XMLDataBindingGenerator.pas
+++ b/Units/XMLDataBindingGenerator.pas
@@ -603,6 +603,7 @@ var
   complexType:          IXMLComplexTypeDef;
   interfaceItem:        TXMLDataBindingInterface;
   elementIndex:         Integer;
+  attributeIndex:       Integer;
 
 begin
   schemaDef := ASchema.SchemaDef;
@@ -620,6 +621,9 @@ begin
 
     for elementIndex := 0 to Pred(complexType.ElementDefList.Count) do
       ProcessChildElement(ASchema, complexType.ElementDefList[elementIndex], interfaceItem);
+
+    for attributeIndex := 0 to Pred(complexType.AttributeDefs.Count) do
+      ProcessAttribute(ASchema, complexType.AttributeDefs[attributeIndex], interfaceItem);
   end;
 end;