Mega Code Archive
Writing all controls of given component to TXMLDocument
<![CDATA[
Title: Writing all controls of given component to TXMLDocument
Question: down all controls for component in XMLDocument in simplest way?
Answer:
Simply it seems to pass under the component list and to create appropriate nodes of the XML-document:
for k:=0 to MyComponent.ComponentCount-1 do
begin
if not(MyComponent.Components[k] is TControl) then
Continue;
// Here create node of the XML-document
end;
However the problem is to satisfy parent - child relations during creation of nodes of the XML-document.
The procedure given below carries out this task by conducting special list of those controls for which are already created XML-document nodes.
Controls corresponding to created nodes are excluded from process of iteration.
// Writing all controls of given component to TXMLDocument according parent-child relations
Procedure Get_Component_as_XML(AXMLDoc : TXMLDocument; AComponent : TComponent);
Var
k : Integer;
Ctrl : TControl;
List : TList;
XMLNode : IXMLNode;
GrCtrl : TGraphicControl;
Procedure Add_WinControlAttributes(AWCtrl : TWinControl; AXMLNode : IXMLNode);
begin
with AXMLNode do
begin
Attributes['Name'] := AWCtrl.Name;
Attributes['Owner'] := AWCtrl.Owner.Name;
Attributes['Left'] := IntToStr(AWCtrl.Left);
Attributes['Top'] := IntToStr(AWCtrl.Top);
Attributes['Width'] := IntToStr(AWCtrl.Width);
Attributes['Height'] := IntToStr(AWCtrl.Height);
// ... add all needed properties
end;
end;
Procedure Add_GraphicsControlAttributes(AGCtrl : TGraphicControl; AXMLNode : IXMLNode);
begin
with AXMLNode do
begin
Attributes['Name'] := AGCtrl.Name;
Attributes['Owner'] := AGCtrl.Owner.Name;
Attributes['Left'] := AGCtrl.Left;
Attributes['Top'] := IntToStr(AGCtrl.Top);
Attributes['Width'] := IntToStr(AGCtrl.Width);
Attributes['Height'] := IntToStr(AGCtrl.Height);
// ... add all needed properties
end;
end;
Procedure Add_XML_Node(AWCtrl : TWinControl; AXMLNode : IXMLNode);
Var
i : Integer;
WinC : TWinControl;
SubIXMLNode,
NewStock : IXMLNode;
SubCtrl : TControl;
SubGrCtrl : TGraphicControl;
begin
NewStock := AXMLNode.AddChild(AWCtrl.ClassName);
Add_WinControlAttributes(AWCtrl, NewStock);
if AWCtrl.ControlCount 0 then
for i:=0 to AWCtrl.ControlCount-1 do
begin
SubCtrl := TControl(AWCtrl.Controls[i]);
if List.IndexOf(SubCtrl) = 0 then
Continue;
// take a special look at this list
List.Add(Pointer(SubCtrl));
if SubCtrl is TGraphicControl then
begin
SubGrCtrl := TGraphicControl(SubCtrl);
SubIXMLNode := NewStock.AddChild(SubGrCtrl.ClassName);
Add_GraphicsControlAttributes(SubGrCtrl, SubIXMLNode);
end
else if SubCtrl is TWinControl then
begin
WinC := TWinControl(SubCtrl);
Add_XML_Node(WinC, NewStock);
end;
end;
end;
begin
AXMLDoc.XML.Clear;
AXMLDoc.XML.Add(Format('', [AComponent.Name]));
AXMLDoc.XML.Add(Format('', [AComponent.Name]));
AXMLDoc.Active := True;
List := TList.Create; // special list to hold controls added to XML
try
for k:=0 to AComponent.ComponentCount-1 do
begin
if not(AComponent.Components[k] is TControl) then
Continue;
Ctrl := TControl(AComponent.Components[k]);
if List.IndexOf(Ctrl) = 0 then
Continue;
// take a special look at this list
List.Add(Pointer(Ctrl));
if Ctrl is TGraphicControl then
begin
GrCtrl := TGraphicControl(Ctrl);
XMLNode := AXMLDoc.DocumentElement.AddChild(GrCtrl.ClassName);
Add_GraphicsControlAttributes(GrCtrl, XMLNode);
end
else if Ctrl is TWinControl then
// Recursive process for child controls
Add_XML_Node(TWinControl(Ctrl), AXMLDoc.DocumentElement);
end;
finally
List.Clear;
List.Free;
end;
end;
I do not apply for exclusive novelty, but it seems, that this procedure may be useful to someone.
]]>