From 81cbe917e9f488cfe0750ff3111f2089af1d4094 Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 28 Jan 2016 12:05:23 +0000 Subject: [PATCH] examples: testxmlreader, fixed typo git-svn-id: trunk@51436 - --- examples/xmlreader/TestXMLReader.lpi | 12 ++--- examples/xmlreader/TestXMLReader.lpr | 2 +- examples/xmlreader/TestXMLReader.res | Bin 138128 -> 138696 bytes examples/xmlreader/testxmlreaderunit.lfm | 56 ++++++++++++----------- examples/xmlreader/testxmlreaderunit.pas | 18 ++++---- 5 files changed, 43 insertions(+), 45 deletions(-) diff --git a/examples/xmlreader/TestXMLReader.lpi b/examples/xmlreader/TestXMLReader.lpi index c7091156b8..6fa4763223 100644 --- a/examples/xmlreader/TestXMLReader.lpi +++ b/examples/xmlreader/TestXMLReader.lpi @@ -8,7 +8,7 @@ - + <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"> diff --git a/examples/xmlreader/TestXMLReader.lpr b/examples/xmlreader/TestXMLReader.lpr index d8a46bfaf2..64e8028309 100644 --- a/examples/xmlreader/TestXMLReader.lpr +++ b/examples/xmlreader/TestXMLReader.lpr @@ -13,7 +13,7 @@ uses begin Application.Initialize; - Application.CreateForm(TXMLRederForm, XMLRederForm); + Application.CreateForm(TXMLReaderForm, XMLReaderForm); Application.Run; end. diff --git a/examples/xmlreader/TestXMLReader.res b/examples/xmlreader/TestXMLReader.res index 7c6cf3e4be6fa881cb2f2caa9bda693328155c28..e994dfa65a96d79259e5ee4940a4dbaf7a725d38 100644 GIT binary patch delta 594 zcmaLVJxc>I7zgmvLnvz9l#a2^Pn*}f1kU2>qJv=P<dVQaUk>k7ibxR$*NUISse@m@ zZ{tU(N9$0v?U>}@m+=2*GOc}n)Fx=}VkZbt5CpSX<LxUvd_UU{4^Wa0`?)SNll8Ll z_3321ydJggNV8MlMJUmE-pkTza5$K6pyU_;b+dsT-WTXPD@u(3evXRUJRjba&R$-j zb9>r+a1;~5MGQpn2sldxXyF}TEUj~nS?2L$6SX__adp{mJKo?jL6|g3gRrV{y|Ex2 zwV)~Im{Q>t(+l?>D_67Q`Fpvho=V3+Fr$ETPQYlDf{m2rn(N3hxz25o)$$xBK8m9> zjzD5ZfK#SG31dJqi+yCV9qV|VOz;L+I_zUjC>U>8m4uT}<syJfZw1ywXtkU~`){8~ idr|z+;wOx%CX==<3fDKiQ73rrhA-W4YuXLBRpT4YW~CPZ delta 40 wcmX@Hn`6RujtL4(;>;VBw3xYV^b?DVQ*)DYD(#y4S=;+r8MpVdGFeIh01!qDi~s-t diff --git a/examples/xmlreader/testxmlreaderunit.lfm b/examples/xmlreader/testxmlreaderunit.lfm index 9ed46fe171..90fc9df653 100644 --- a/examples/xmlreader/testxmlreaderunit.lfm +++ b/examples/xmlreader/testxmlreaderunit.lfm @@ -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 diff --git a/examples/xmlreader/testxmlreaderunit.pas b/examples/xmlreader/testxmlreaderunit.pas index d4c0a73d0e..c9d1ad7c56 100644 --- a/examples/xmlreader/testxmlreaderunit.pas +++ b/examples/xmlreader/testxmlreaderunit.pas @@ -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