paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: testxmlreader, fixed typo

Browse Source 
git-svn-id: branches/fixes_1_6@51437 -
This commit is contained in:
mattias 2016-01-28 12:06:25 +00:00
parent 8db992e117
commit 99f8b0921c
7 changed files with 47 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
.gitattributes vendored
View File

@ -5632,10 +5632,10 @@ examples/widestringstreaming/mainunit.lfm svneol=native#text/plain
examples/widestringstreaming/mainunit.pas svneol=native#text/plain
examples/widestringstreaming/widestringstreaming.lpi svneol=native#text/plain
examples/widestringstreaming/widestringstreaming.lpr svneol=native#text/plain
examples/xmlreader/TestXMLReder.ico -text svneol=unset#image/ico
examples/xmlreader/TestXMLReder.lpi svneol=native#text/plain
examples/xmlreader/TestXMLReder.lpr svneol=native#text/plain
examples/xmlreader/TestXMLReder.res -text
examples/xmlreader/TestXMLReader.ico -text svneol=unset#image/ico
examples/xmlreader/TestXMLReader.lpi svneol=native#text/plain
examples/xmlreader/TestXMLReader.lpr svneol=native#text/plain
examples/xmlreader/TestXMLReader.res -text
examples/xmlreader/test.xml svneol=native#text/plain
examples/xmlreader/testxmlreaderunit.lfm svneol=native#text/plain
examples/xmlreader/testxmlreaderunit.pas svneol=native#text/plain

0
examples/xmlreader/TestXMLReder.ico → examples/xmlreader/TestXMLReader.ico
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 134 KiB

After

Width:  |  Height:  |  Size: 134 KiB

12
examples/xmlreader/TestXMLReder.lpi → examples/xmlreader/TestXMLReader.lpi
View File

@ -8,7 +8,7 @@
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<Title Value="TestXMLReder"/>
<Title Value="TestXMLReader"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
@ -39,14 +39,13 @@
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="TestXMLReder.lpr"/>
<Filename Value="TestXMLReader.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="TestXMLReder"/>
</Unit0>
<Unit1>
<Filename Value="testxmlreaderunit.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="XMLRederForm"/>
<ComponentName Value="XMLReaderForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="TestXMLReaderUnit"/>
@ -56,7 +55,7 @@
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="TestXMLReder"/>
<Filename Value="TestXMLReader"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
@ -69,9 +68,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">

2
examples/xmlreader/TestXMLReder.lpr → examples/xmlreader/TestXMLReader.lpr
View File

@ -13,7 +13,7 @@ uses
begin
Application.Initialize;
Application.CreateForm(TXMLRederForm, XMLRederForm);
Application.CreateForm(TXMLReaderForm, XMLReaderForm);
Application.Run;
end.

BIN
examples/xmlreader/TestXMLReder.res → examples/xmlreader/TestXMLReader.res
View File

Binary file not shown.

56
examples/xmlreader/testxmlreaderunit.lfm
View File

@ -1,4 +1,4 @@
object XMLRederForm: TXMLRederForm
object XMLReaderForm: TXMLReaderForm
Left = 312
Height = 381
Top = 119
@ -10,14 +10,15 @@ object XMLRederForm: TXMLRederForm
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.1'
LCLVersion = '1.7'
object TreeView1: TTreeView
Left = 0
Height = 315
Top = 66
Height = 316
Top = 65
Width = 342
Align = alLeft
AutoExpand = True
DefaultItemHeight = 18
ReadOnly = True
TabOrder = 0
OnClick = TreeView1Click
@ -25,12 +26,12 @@ object XMLRederForm: TXMLRederForm
end
object Panel1: TPanel
Left = 0
Height = 66
Height = 65
Top = 0
Width = 732
Align = alTop
AutoSize = True
ClientHeight = 66
ClientHeight = 65
ClientWidth = 732
TabOrder = 1
object BitBtn1: TBitBtn
@ -38,10 +39,10 @@ object XMLRederForm: TXMLRederForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 650
Height = 29
Top = 30
Width = 75
Left = 665
Height = 30
Top = 28
Width = 60
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
@ -66,9 +67,9 @@ object XMLRederForm: TXMLRederForm
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 7
Height = 17
Height = 15
Top = 7
Width = 61
Width = 52
BorderSpacing.Around = 6
Caption = 'File name'
ParentColor = False
@ -79,7 +80,7 @@ object XMLRederForm: TXMLRederForm
AnchorSideTop.Side = asrBottom
Left = 13
Height = 25
Top = 30
Top = 28
Width = 620
FileName = 'test.xml'
DialogOptions = []
@ -93,30 +94,31 @@ object XMLRederForm: TXMLRederForm
BorderSpacing.Bottom = 6
MaxLength = 0
TabOrder = 1
Text = 'test.xml'
end
end
object Splitter1: TSplitter
Left = 342
Height = 315
Top = 66
Height = 316
Top = 65
Width = 5
end
object Panel2: TPanel
Left = 347
Height = 315
Top = 66
Height = 316
Top = 65
Width = 385
Align = alClient
Caption = 'Panel2'
ClientHeight = 315
ClientHeight = 316
ClientWidth = 385
TabOrder = 3
object ListView1: TListView
AnchorSideTop.Control = Edit2
AnchorSideTop.Side = asrBottom
Left = 1
Height = 199
Top = 115
Height = 204
Top = 111
Width = 383
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
@ -138,9 +140,9 @@ object XMLRederForm: TXMLRederForm
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
Left = 7
Height = 17
Height = 15
Top = 7
Width = 75
Width = 63
BorderSpacing.Around = 6
Caption = 'Node name'
ParentColor = False
@ -150,9 +152,9 @@ object XMLRederForm: TXMLRederForm
AnchorSideTop.Control = Edit1
AnchorSideTop.Side = asrBottom
Left = 7
Height = 17
Top = 61
Width = 72
Height = 15
Top = 59
Width = 62
BorderSpacing.Around = 6
Caption = 'Node value'
ParentColor = False
@ -165,7 +167,7 @@ object XMLRederForm: TXMLRederForm
AnchorSideRight.Side = asrBottom
Left = 13
Height = 25
Top = 30
Top = 28
Width = 365
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
@ -180,7 +182,7 @@ object XMLRederForm: TXMLRederForm
AnchorSideRight.Side = asrBottom
Left = 13
Height = 25
Top = 84
Top = 80
Width = 365
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6

18
examples/xmlreader/testxmlreaderunit.pas
View File

@ -10,9 +10,9 @@ uses
type
{ TXMLRederForm }
{ TXMLReaderForm }
TXMLRederForm = class(TForm)
TXMLReaderForm = class(TForm)
BitBtn1: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
@ -37,14 +37,14 @@ type
end;
var
XMLRederForm: TXMLRederForm;
XMLReaderForm: TXMLReaderForm;
implementation
{ TXMLRederForm }
{ TXMLReaderForm }
procedure TXMLRederForm.BitBtn1Click(Sender: TObject);
procedure TXMLReaderForm.BitBtn1Click(Sender: TObject);
begin
if Assigned(FDoc) then
FreeAndNil(FDoc);
@ -55,13 +55,13 @@ begin
ParseDoc;
end;
procedure TXMLRederForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure TXMLReaderForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
if Assigned(FDoc) then
FDoc.Free;
end;
procedure TXMLRederForm.FormCreate(Sender: TObject);
procedure TXMLReaderForm.FormCreate(Sender: TObject);
begin
if ParamCount > 0 then
begin
@ -72,7 +72,7 @@ begin
TreeView1Click(nil);
end;
procedure TXMLRederForm.TreeView1Click(Sender: TObject);
procedure TXMLReaderForm.TreeView1Click(Sender: TObject);
var
Node:TDOMNode;
Item:TListItem;
@ -101,7 +101,7 @@ begin
ListView1.EndUpdate;
end;
procedure TXMLRederForm.ParseDoc;
procedure TXMLReaderForm.ParseDoc;
procedure DoFill(AOwner:TTreeNode; Node:TDOMNode);
var