pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

NiceChart: New package with lightweight chart component. By Priyatna.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8847 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-24 18:59:24 +00:00
parent 912b9950d9
commit 4d4305c7ed
26 changed files with 4308 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

567
components/nicechart/License.txt Normal file
View File

@ -0,0 +1,567 @@
MOZILLA PUBLIC LICENSE
Version 1.1
---------------
1. Definitions.
1.0.1. "Commercial Use" means distribution or otherwise making the
Covered Code available to a third party.
1.1. "Contributor" means each entity that creates or contributes to
the creation of Modifications.
1.2. "Contributor Version" means the combination of the Original
Code, prior Modifications used by a Contributor, and the Modifications
made by that particular Contributor.
1.3. "Covered Code" means the Original Code or Modifications or the
combination of the Original Code and Modifications, in each case
including portions thereof.
1.4. "Electronic Distribution Mechanism" means a mechanism generally
accepted in the software development community for the electronic
transfer of data.
1.5. "Executable" means Covered Code in any form other than Source
Code.
1.6. "Initial Developer" means the individual or entity identified
as the Initial Developer in the Source Code notice required by Exhibit
A.
1.7. "Larger Work" means a work which combines Covered Code or
portions thereof with code not governed by the terms of this License.
1.8. "License" means this document.
1.8.1. "Licensable" means having the right to grant, to the maximum
extent possible, whether at the time of the initial grant or
subsequently acquired, any and all of the rights conveyed herein.
1.9. "Modifications" means any addition to or deletion from the
substance or structure of either the Original Code or any previous
Modifications. When Covered Code is released as a series of files, a
Modification is:
A. Any addition to or deletion from the contents of a file
containing Original Code or previous Modifications.
B. Any new file that contains any part of the Original Code or
previous Modifications.
1.10. "Original Code" means Source Code of computer software code
which is described in the Source Code notice required by Exhibit A as
Original Code, and which, at the time of its release under this
License is not already Covered Code governed by this License.
1.10.1. "Patent Claims" means any patent claim(s), now owned or
hereafter acquired, including without limitation, method, process,
and apparatus claims, in any patent Licensable by grantor.
1.11. "Source Code" means the preferred form of the Covered Code for
making modifications to it, including all modules it contains, plus
any associated interface definition files, scripts used to control
compilation and installation of an Executable, or source code
differential comparisons against either the Original Code or another
well known, available Covered Code of the Contributor's choice. The
Source Code can be in a compressed or archival form, provided the
appropriate decompression or de-archiving software is widely available
for no charge.
1.12. "You" (or "Your") means an individual or a legal entity
exercising rights under, and complying with all of the terms of, this
License or a future version of this License issued under Section 6.1.
For legal entities, "You" includes any entity which controls, is
controlled by, or is under common control with You. For purposes of
this definition, "control" means (a) the power, direct or indirect,
to cause the direction or management of such entity, whether by
contract or otherwise, or (b) ownership of more than fifty percent
(50%) of the outstanding shares or beneficial ownership of such
entity.
2. Source Code License.
2.1. The Initial Developer Grant.
The Initial Developer hereby grants You a world-wide, royalty-free,
non-exclusive license, subject to third party intellectual property
claims:
(a) under intellectual property rights (other than patent or
trademark) Licensable by Initial Developer to use, reproduce,
modify, display, perform, sublicense and distribute the Original
Code (or portions thereof) with or without Modifications, and/or
as part of a Larger Work; and
(b) under Patents Claims infringed by the making, using or
selling of Original Code, to make, have made, use, practice,
sell, and offer for sale, and/or otherwise dispose of the
Original Code (or portions thereof).
(c) the licenses granted in this Section 2.1(a) and (b) are
effective on the date Initial Developer first distributes
Original Code under the terms of this License.
(d) Notwithstanding Section 2.1(b) above, no patent license is
granted: 1) for code that You delete from the Original Code; 2)
separate from the Original Code; or 3) for infringements caused
by: i) the modification of the Original Code or ii) the
combination of the Original Code with other software or devices.
2.2. Contributor Grant.
Subject to third party intellectual property claims, each Contributor
hereby grants You a world-wide, royalty-free, non-exclusive license
(a) under intellectual property rights (other than patent or
trademark) Licensable by Contributor, to use, reproduce, modify,
display, perform, sublicense and distribute the Modifications
created by such Contributor (or portions thereof) either on an
unmodified basis, with other Modifications, as Covered Code
and/or as part of a Larger Work; and
(b) under Patent Claims infringed by the making, using, or
selling of Modifications made by that Contributor either alone
and/or in combination with its Contributor Version (or portions
of such combination), to make, use, sell, offer for sale, have
made, and/or otherwise dispose of: 1) Modifications made by that
Contributor (or portions thereof); and 2) the combination of
Modifications made by that Contributor with its Contributor
Version (or portions of such combination).
(c) the licenses granted in Sections 2.2(a) and 2.2(b) are
effective on the date Contributor first makes Commercial Use of
the Covered Code.
(d) Notwithstanding Section 2.2(b) above, no patent license is
granted: 1) for any code that Contributor has deleted from the
Contributor Version; 2) separate from the Contributor Version;
3) for infringements caused by: i) third party modifications of
Contributor Version or ii) the combination of Modifications made
by that Contributor with other software (except as part of the
Contributor Version) or other devices; or 4) under Patent Claims
infringed by Covered Code in the absence of Modifications made by
that Contributor.
3. Distribution Obligations.
3.1. Application of License.
The Modifications which You create or to which You contribute are
governed by the terms of this License, including without limitation
Section 2.2. The Source Code version of Covered Code may be
distributed only under the terms of this License or a future version
of this License released under Section 6.1, and You must include a
copy of this License with every copy of the Source Code You
distribute. You may not offer or impose any terms on any Source Code
version that alters or restricts the applicable version of this
License or the recipients' rights hereunder. However, You may include
an additional document offering the additional rights described in
Section 3.5.
3.2. Availability of Source Code.
Any Modification which You create or to which You contribute must be
made available in Source Code form under the terms of this License
either on the same media as an Executable version or via an accepted
Electronic Distribution Mechanism to anyone to whom you made an
Executable version available; and if made available via Electronic
Distribution Mechanism, must remain available for at least twelve (12)
months after the date it initially became available, or at least six
(6) months after a subsequent version of that particular Modification
has been made available to such recipients. You are responsible for
ensuring that the Source Code version remains available even if the
Electronic Distribution Mechanism is maintained by a third party.
3.3. Description of Modifications.
You must cause all Covered Code to which You contribute to contain a
file documenting the changes You made to create that Covered Code and
the date of any change. You must include a prominent statement that
the Modification is derived, directly or indirectly, from Original
Code provided by the Initial Developer and including the name of the
Initial Developer in (a) the Source Code, and (b) in any notice in an
Executable version or related documentation in which You describe the
origin or ownership of the Covered Code.
3.4. Intellectual Property Matters
(a) Third Party Claims.
If Contributor has knowledge that a license under a third party's
intellectual property rights is required to exercise the rights
granted by such Contributor under Sections 2.1 or 2.2,
Contributor must include a text file with the Source Code
distribution titled "LEGAL" which describes the claim and the
party making the claim in sufficient detail that a recipient will
know whom to contact. If Contributor obtains such knowledge after
the Modification is made available as described in Section 3.2,
Contributor shall promptly modify the LEGAL file in all copies
Contributor makes available thereafter and shall take other steps
(such as notifying appropriate mailing lists or newsgroups)
reasonably calculated to inform those who received the Covered
Code that new knowledge has been obtained.
(b) Contributor APIs.
If Contributor's Modifications include an application programming
interface and Contributor has knowledge of patent licenses which
are reasonably necessary to implement that API, Contributor must
also include this information in the LEGAL file.
(c) Representations.
Contributor represents that, except as disclosed pursuant to
Section 3.4(a) above, Contributor believes that Contributor's
Modifications are Contributor's original creation(s) and/or
Contributor has sufficient rights to grant the rights conveyed by
this License.
3.5. Required Notices.
You must duplicate the notice in Exhibit A in each file of the Source
Code. If it is not possible to put such notice in a particular Source
Code file due to its structure, then You must include such notice in a
location (such as a relevant directory) where a user would be likely
to look for such a notice. If You created one or more Modification(s)
You may add your name as a Contributor to the notice described in
Exhibit A. You must also duplicate this License in any documentation
for the Source Code where You describe recipients' rights or ownership
rights relating to Covered Code. You may choose to offer, and to
charge a fee for, warranty, support, indemnity or liability
obligations to one or more recipients of Covered Code. However, You
may do so only on Your own behalf, and not on behalf of the Initial
Developer or any Contributor. You must make it absolutely clear than
any such warranty, support, indemnity or liability obligation is
offered by You alone, and You hereby agree to indemnify the Initial
Developer and every Contributor for any liability incurred by the
Initial Developer or such Contributor as a result of warranty,
support, indemnity or liability terms You offer.
3.6. Distribution of Executable Versions.
You may distribute Covered Code in Executable form only if the
requirements of Section 3.1-3.5 have been met for that Covered Code,
and if You include a notice stating that the Source Code version of
the Covered Code is available under the terms of this License,
including a description of how and where You have fulfilled the
obligations of Section 3.2. The notice must be conspicuously included
in any notice in an Executable version, related documentation or
collateral in which You describe recipients' rights relating to the
Covered Code. You may distribute the Executable version of Covered
Code or ownership rights under a license of Your choice, which may
contain terms different from this License, provided that You are in
compliance with the terms of this License and that the license for the
Executable version does not attempt to limit or alter the recipient's
rights in the Source Code version from the rights set forth in this
License. If You distribute the Executable version under a different
license You must make it absolutely clear that any terms which differ
from this License are offered by You alone, not by the Initial
Developer or any Contributor. You hereby agree to indemnify the
Initial Developer and every Contributor for any liability incurred by
the Initial Developer or such Contributor as a result of any such
terms You offer.
3.7. Larger Works.
You may create a Larger Work by combining Covered Code with other code
not governed by the terms of this License and distribute the Larger
Work as a single product. In such a case, You must make sure the
requirements of this License are fulfilled for the Covered Code.
4. Inability to Comply Due to Statute or Regulation.
If it is impossible for You to comply with any of the terms of this
License with respect to some or all of the Covered Code due to
statute, judicial order, or regulation then You must: (a) comply with
the terms of this License to the maximum extent possible; and (b)
describe the limitations and the code they affect. Such description
must be included in the LEGAL file described in Section 3.4 and must
be included with all distributions of the Source Code. Except to the
extent prohibited by statute or regulation, such description must be
sufficiently detailed for a recipient of ordinary skill to be able to
understand it.
5. Application of this License.
This License applies to code to which the Initial Developer has
attached the notice in Exhibit A and to related Covered Code.
6. Versions of the License.
6.1. New Versions.
Netscape Communications Corporation ("Netscape") may publish revised
and/or new versions of the License from time to time. Each version
will be given a distinguishing version number.
6.2. Effect of New Versions.
Once Covered Code has been published under a particular version of the
License, You may always continue to use it under the terms of that
version. You may also choose to use such Covered Code under the terms
of any subsequent version of the License published by Netscape. No one
other than Netscape has the right to modify the terms applicable to
Covered Code created under this License.
6.3. Derivative Works.
If You create or use a modified version of this License (which you may
only do in order to apply it to code which is not already Covered Code
governed by this License), You must (a) rename Your license so that
the phrases "Mozilla", "MOZILLAPL", "MOZPL", "Netscape",
"MPL", "NPL" or any confusingly similar phrase do not appear in your
license (except to note that your license differs from this License)
and (b) otherwise make it clear that Your version of the license
contains terms which differ from the Mozilla Public License and
Netscape Public License. (Filling in the name of the Initial
Developer, Original Code or Contributor in the notice described in
Exhibit A shall not of themselves be deemed to be modifications of
this License.)
7. DISCLAIMER OF WARRANTY.
COVERED CODE IS PROVIDED UNDER THIS LICENSE ON AN "AS IS" BASIS,
WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
WITHOUT LIMITATION, WARRANTIES THAT THE COVERED CODE IS FREE OF
DEFECTS, MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE OR NON-INFRINGING.
THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE COVERED CODE
IS WITH YOU. SHOULD ANY COVERED CODE PROVE DEFECTIVE IN ANY RESPECT,
YOU (NOT THE INITIAL DEVELOPER OR ANY OTHER CONTRIBUTOR) ASSUME THE
COST OF ANY NECESSARY SERVICING, REPAIR OR CORRECTION. THIS DISCLAIMER
OF WARRANTY CONSTITUTES AN ESSENTIAL PART OF THIS LICENSE. NO USE OF
ANY COVERED CODE IS AUTHORIZED HEREUNDER EXCEPT UNDER THIS DISCLAIMER.
8. TERMINATION.
8.1. This License and the rights granted hereunder will terminate
automatically if You fail to comply with terms herein and fail to cure
such breach within 30 days of becoming aware of the breach. All
sublicenses to the Covered Code which are properly granted shall
survive any termination of this License. Provisions which, by their
nature, must remain in effect beyond the termination of this License
shall survive.
8.2. If You initiate litigation by asserting a patent infringement
claim (excluding declatory judgment actions) against Initial Developer
or a Contributor (the Initial Developer or Contributor against whom
You file such action is referred to as "Participant") alleging that:
(a) such Participant's Contributor Version directly or indirectly
infringes any patent, then any and all rights granted by such
Participant to You under Sections 2.1 and/or 2.2 of this License
shall, upon 60 days notice from Participant terminate prospectively,
unless if within 60 days after receipt of notice You either: (i)
agree in writing to pay Participant a mutually agreeable reasonable
royalty for Your past and future use of Modifications made by such
Participant, or (ii) withdraw Your litigation claim with respect to
the Contributor Version against such Participant. If within 60 days
of notice, a reasonable royalty and payment arrangement are not
mutually agreed upon in writing by the parties or the litigation claim
is not withdrawn, the rights granted by Participant to You under
Sections 2.1 and/or 2.2 automatically terminate at the expiration of
the 60 day notice period specified above.
(b) any software, hardware, or device, other than such Participant's
Contributor Version, directly or indirectly infringes any patent, then
any rights granted to You by such Participant under Sections 2.1(b)
and 2.2(b) are revoked effective as of the date You first made, used,
sold, distributed, or had made, Modifications made by that
Participant.
8.3. If You assert a patent infringement claim against Participant
alleging that such Participant's Contributor Version directly or
indirectly infringes any patent where such claim is resolved (such as
by license or settlement) prior to the initiation of patent
infringement litigation, then the reasonable value of the licenses
granted by such Participant under Sections 2.1 or 2.2 shall be taken
into account in determining the amount or value of any payment or
license.
8.4. In the event of termination under Sections 8.1 or 8.2 above,
all end user license agreements (excluding distributors and resellers)
which have been validly granted by You or any distributor hereunder
prior to termination shall survive termination.
9. LIMITATION OF LIABILITY.
UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, WHETHER TORT
(INCLUDING NEGLIGENCE), CONTRACT, OR OTHERWISE, SHALL YOU, THE INITIAL
DEVELOPER, ANY OTHER CONTRIBUTOR, OR ANY DISTRIBUTOR OF COVERED CODE,
OR ANY SUPPLIER OF ANY OF SUCH PARTIES, BE LIABLE TO ANY PERSON FOR
ANY INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES OF ANY
CHARACTER INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF GOODWILL,
WORK STOPPAGE, COMPUTER FAILURE OR MALFUNCTION, OR ANY AND ALL OTHER
COMMERCIAL DAMAGES OR LOSSES, EVEN IF SUCH PARTY SHALL HAVE BEEN
INFORMED OF THE POSSIBILITY OF SUCH DAMAGES. THIS LIMITATION OF
LIABILITY SHALL NOT APPLY TO LIABILITY FOR DEATH OR PERSONAL INJURY
RESULTING FROM SUCH PARTY'S NEGLIGENCE TO THE EXTENT APPLICABLE LAW
PROHIBITS SUCH LIMITATION. SOME JURISDICTIONS DO NOT ALLOW THE
EXCLUSION OR LIMITATION OF INCIDENTAL OR CONSEQUENTIAL DAMAGES, SO
THIS EXCLUSION AND LIMITATION MAY NOT APPLY TO YOU.
10. U.S. GOVERNMENT END USERS.
The Covered Code is a "commercial item," as that term is defined in
48 C.F.R. 2.101 (Oct. 1995), consisting of "commercial computer
software" and "commercial computer software documentation," as such
terms are used in 48 C.F.R. 12.212 (Sept. 1995). Consistent with 48
C.F.R. 12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (June 1995),
all U.S. Government End Users acquire Covered Code with only those
rights set forth herein.
11. MISCELLANEOUS.
This License represents the complete agreement concerning subject
matter hereof. If any provision of this License is held to be
unenforceable, such provision shall be reformed only to the extent
necessary to make it enforceable. This License shall be governed by
California law provisions (except to the extent applicable law, if
any, provides otherwise), excluding its conflict-of-law provisions.
With respect to disputes in which at least one party is a citizen of,
or an entity chartered or registered to do business in the United
States of America, any litigation relating to this License shall be
subject to the jurisdiction of the Federal Courts of the Northern
District of California, with venue lying in Santa Clara County,
California, with the losing party responsible for costs, including
without limitation, court costs and reasonable attorneys' fees and
expenses. The application of the United Nations Convention on
Contracts for the International Sale of Goods is expressly excluded.
Any law or regulation which provides that the language of a contract
shall be construed against the drafter shall not apply to this
License.
12. RESPONSIBILITY FOR CLAIMS.
As between Initial Developer and the Contributors, each party is
responsible for claims and damages arising, directly or indirectly,
out of its utilization of rights under this License and You agree to
work with Initial Developer and Contributors to distribute such
responsibility on an equitable basis. Nothing herein is intended or
shall be deemed to constitute any admission of liability.
13. MULTIPLE-LICENSED CODE.
Initial Developer may designate portions of the Covered Code as
"Multiple-Licensed". "Multiple-Licensed" means that the Initial
Developer permits you to utilize portions of the Covered Code under
Your choice of the NPL or the alternative licenses, if any, specified
by the Initial Developer in the file described in Exhibit A.
EXHIBIT A -Mozilla Public License.
``The contents of this file are subject to the Mozilla Public License
Version 1.1 (the "License"); you may not use this file except in
compliance with the License. You may obtain a copy of the License at
http://www.mozilla.org/MPL/
Software distributed under the License is distributed on an "AS IS"
basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
License for the specific language governing rights and limitations
under the License.
The Original Code is ______________________________________.
The Initial Developer of the Original Code is ________________________.
Portions created by ______________________ are Copyright (C) ______
_______________________. All Rights Reserved.
Contributor(s): ______________________________________.
Alternatively, the contents of this file may be used under the terms
of the _____ license (the "[___] License"), in which case the
provisions of [______] License are applicable instead of those
above. If you wish to allow use of your version of this file only
under the terms of the [____] License and not to allow others to use
your version of this file under the MPL, indicate your decision by
deleting the provisions above and replace them with the notice and
other provisions required by the [___] License. If you do not delete
the provisions above, a recipient may use your version of this file
under either the MPL or the [___] License."
[NOTE: The text of this Exhibit A may differ slightly from the text of
the notices in the Source Code files of the Original Code. You should
use the text of this Exhibit A rather than the text found in the
Original Code Source Code for Your Modifications.]
----------------------------------------------------------------------
AMENDMENTS
The Netscape Public License Version 1.1 ("NPL") consists of the
Mozilla Public License Version 1.1 with the following Amendments,
including Exhibit A-Netscape Public License. Files identified with
"Exhibit A-Netscape Public License" are governed by the Netscape
Public License Version 1.1.
Additional Terms applicable to the Netscape Public License.
I. Effect.
These additional terms described in this Netscape Public
License -- Amendments shall apply to the Mozilla Communicator
client code and to all Covered Code under this License.
II. "Netscape's Branded Code" means Covered Code that Netscape
distributes and/or permits others to distribute under one or more
trademark(s) which are controlled by Netscape but which are not
licensed for use under this License.
III. Netscape and logo.
This License does not grant any rights to use the trademarks
"Netscape", the "Netscape N and horizon" logo or the "Netscape
lighthouse" logo, "Netcenter", "Gecko", "Java" or "JavaScript",
"Smart Browsing" even if such marks are included in the Original
Code or Modifications.
IV. Inability to Comply Due to Contractual Obligation.
Prior to licensing the Original Code under this License, Netscape
has licensed third party code for use in Netscape's Branded Code.
To the extent that Netscape is limited contractually from making
such third party code available under this License, Netscape may
choose to reintegrate such code into Covered Code without being
required to distribute such code in Source Code form, even if
such code would otherwise be considered "Modifications" under
this License.
V. Use of Modifications and Covered Code by Initial Developer.
V.1. In General.
The obligations of Section 3 apply to Netscape, except to
the extent specified in this Amendment, Section V.2 and V.3.
V.2. Other Products.
Netscape may include Covered Code in products other than the
Netscape's Branded Code which are released by Netscape
during the two (2) years following the release date of the
Original Code, without such additional products becoming
subject to the terms of this License, and may license such
additional products on different terms from those contained
in this License.
V.3. Alternative Licensing.
Netscape may license the Source Code of Netscape's Branded
Code, including Modifications incorporated therein, without
such Netscape Branded Code becoming subject to the terms of
this License, and may license such Netscape Branded Code on
different terms from those contained in this License.
VI. Litigation.
Notwithstanding the limitations of Section 11 above, the
provisions regarding litigation in Section 11(a), (b) and (c) of
the License shall apply to all disputes relating to this License.
EXHIBIT A-Netscape Public License.
"The contents of this file are subject to the Netscape Public
License Version 1.1 (the "License"); you may not use this file
except in compliance with the License. You may obtain a copy of
the License at http://www.mozilla.org/NPL/
Software distributed under the License is distributed on an "AS
IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
implied. See the License for the specific language governing
rights and limitations under the License.
The Original Code is Mozilla Communicator client code, released
March 31, 1998.
The Initial Developer of the Original Code is Netscape
Communications Corporation. Portions created by Netscape are
Copyright (C) 1998-1999 Netscape Communications Corporation. All
Rights Reserved.
Contributor(s): ______________________________________.
Alternatively, the contents of this file may be used under the
terms of the _____ license (the "[___] License"), in which case
the provisions of [______] License are applicable instead of
those above. If you wish to allow use of your version of this
file only under the terms of the [____] License and not to allow
others to use your version of this file under the NPL, indicate
your decision by deleting the provisions above and replace them
with the notice and other provisions required by the [___]
License. If you do not delete the provisions above, a recipient
may use your version of this file under either the NPL or the
[___] License."

213
components/nicechart/Readme.html Normal file
View File

@ -0,0 +1,213 @@
<html>
<title>NiceChart Component</title>
<style type="text/css">
<!--
body, td { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9pt}
-->
</style>
<body bgcolor="#FFFFFF" text="#000000">
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="6"><b><font size="4">NiceChart
v1.10</font></b></font><br>
&copy; 2008, Priyatna<br>
Bandung - Indonesia</p>
<p><a href="http://www.priyatna.org/">http://www.priyatna.org/</a><br>
<a href="mailto:me@priyatna.org">mailto:me@priyatna.org</a></p>
<p><a href="#intro">Introduction</a><br>
<a href="#history">Version History</a><br>
<a href="#license">License</a><br>
<a href="#install">Installation</a><a href="#methods"><br>
Methods</a><br>
<a href="#properties">Properties</a> <br>
<a href="#contact">Contacts</a></p>
<p><font size="1">Version: 1.10 <br>
Release Date: January 12, 2008</font><font size="1"><br>
</font></p>
<p>&nbsp; </p>
<font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="intro"></a></b></font>
<hr>
<p></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b>Introduction</b></font></p>
<p>Once I need a chart component that can shows interpolated lines for one of
my <a href="http://www.fieldma.com/">project</a>. I don't need a sophisticated
full-featured chart, I just need a simple one with basic functionalities. Don't
find a way to do it with standard Delphi TChart component, I decided to write
my own.</p>
<p>Currently it has three graph styles: lines, smooth lines with B-Splines, and
bars. It has multilined title, legend, automatic y-axis, and supports multiple
series. It also can produce a monochrome version of the graph using monochromatic
brushes. Those features are sufficient for my programming needs.</p>
<p>I learned a lot from creating this component. I learned the algorithm to pick
axis value range that are aligned to zero from an arbitrary set of values. I
also learned some linear interpolation algoritms, although currently only B-splines
that is accomodated in this component. And finally I understand why there's
only a handful chart component out there.</p>
<p>&nbsp;</p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="history"></a></b></font>
</p>
<hr>
<p></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b>Version History</b></font></p>
<p> <b>Version 1.1 (January 12nd, 2008)</b><br>
- bug fixed: title not centered<br>
- bug fixed: empty series<br>
- soft colors<br>
<br>
<b>Version 1.0 (May 26th, 2007)</b><br>
Initial Release</p>
<p>&nbsp;</p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="license"></a></b></font>
</p>
<hr>
<p>&nbsp;</p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b>License</b></font></p>
<p>This library is released under Mozilla Public License. You can use it in your
freeware, shareware or commercial softwares. You can send your modification
to me, and if I decide to include it in the main distribution, I will add your
name as a contributor. You can read full licensing information <a href="License.txt">here</a>.
</p>
<p>&nbsp; </p>
<font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="install"></a></b></font>
<hr>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b>Installation</b></font></p>
<p>There is no special process to install it on Delphi. Just open <b>NiceChartD7.dpk</b>
on Delphi IDE and press Install button. I use Delphi 7. If you use another Delphi
version, you may have to make some minor changes.</p>
<p>The component will appear in <b>priyatna.org</b> tab.</p>
<p>&nbsp;</p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="methods"></a></b></font>
</p>
<hr>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b>Methods</b></font></p>
<p>There are some main methods of the component:</p>
<ul>
<li><b>procedure</b> BeginUpdate;<br>
Call this method to prevent control updating its content. This is useful when
you want to add bulky data to the chart. Don't forget to call EndUpdate when
you are done supplying data.<br>
<br>
</li>
<li><b>procedure</b> EndUpdate;<br>
Call this method to reenable update. You must call BeginUpdate prior to call
this method.<br>
<br>
</li>
<li><b>function</b> AddSeries(AKind: TSeriesKind): TNiceSeries;<br>
Add a new series to the chart. A series can be a bar, line or smooth line
type.<br>
<br>
</li>
<li><b>function</b> ClientToChart(const X, Y: Integer; var AX, AY: Double):
Boolean; <br>
Call this function to get X-axis and Y-axis value from mouse position. The
X and Y parameters are the mouse position, and the corresponding X-axis and
Y-axis values are stored in AX and AY variables. This function returns True
if the supplied mouse position is within the X-axis and Y-axis range. Otherwise,
it returns False.<br>
<br>
</li>
<li><b>procedure</b> RemoveSeries(ASeries: TNiceSeries);<br>
Removes a series from the chart.<br>
<br>
</li>
<li><b>procedure</b> Clear;<br>
Removes all series from the chart.<br>
<br>
</li>
<li><b> function</b> CreateMetafile: TMetafile;<br>
Creates metafile (WMF) from the chart. This function is useful when you want
to save the content of the chart to a file.<br>
<br>
</li>
<li><b>procedure</b> CopyToClipboard;<br>
Copies the content of the chart to the clipboard. The content can be pasted
in any application as a graphic image.</li>
</ul>
<p>&nbsp;</p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="properties"></a></b></font>
</p>
<hr>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b>Properties</b></font></p>
<p>There are some main properties of the component:</p>
<ul>
<li><b>property</b> Series[Index: Integer]: TNiceSeries;<br>
A collection of series that is contained in the chart.<br>
<br>
</li>
<li><b>property</b> SeriesCount: Integer;<br>
Specifies how many series are in the chart.<br>
<br>
</li>
<li><b>property</b> ShowLegend: Boolean;<br>
Shows or hides legend. Set to True to show the legend, or set to False to
hide it. <br>
<br>
</li>
<li><b>property</b> ShowTitle: Boolean;<br>
Shows or hides title. Set to True to show the title, or set to False to hide
it. <br>
<br>
</li>
<li><b>property</b> ShowXGrid: Boolean;<br>
Shows or hides horizontal grid. Set to True to show the gris, or set to False
to hide it.<br>
<br>
</li>
<li><b>property</b> ShowYGrid: Boolean;<br>
Shows or hides vertical grid. Set to True to show the gris, or set to False
to hide it. <br>
<br>
</li>
<li><b>property</b> Title: string;<br>
Specifies title of the chart. You can use a multilined title separated by
#13 (carriage return).<br>
<br>
</li>
<li><b>property</b> TitleFont: TFont;<br>
Specifies title font name, size, color and styles (bold, italic, underline
or strike-out).<br>
<br>
</li>
<li><b>property</b> AxisXTitle: string;<br>
Specifies horizontal axis title.<br>
<br>
</li>
<li><b>property</b> AxisYTitle: string;<br>
Specifies vertical axis title.<br>
<br>
</li>
<li><b>property</b> AxisXOnePerValue: Boolean;<br>
Forces the chart to treat each x-axis value as a different value, so all point
or bar can be viewed even though they have same x value.<br>
<br>
</li>
<li><b>property</b> AxisXScale: Single;<br>
You can scale the horizontal axis so it shows different values than the original
data. This is useful, for example, if you want to supply the data in real
values, but want to show the axis in thousands. In this case, simply set this
property to 1000.<br>
<br>
</li>
<li><b>property</b> AxisYScale: Single;<br>
Same as the above, but this is for vertical axis.<br>
<br>
</li>
<li><b>property</b> Monochrome: Boolean;<br>
If set to True, the chart will be drawn in monochrome, using different brush
pattern for bars. Otherwise, it will be drawn in color. Colors and brush patterns
for each series are automatically choosen by the component.<br>
</li>
</ul>
<p>&nbsp; </p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="contact"></a></b></font>
</p>
<hr>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b>Contacts</b></font></p>
<p>Don't hesitate to report any bug or whish to me:<br>
</p>
<p>Priyatna<br>
Bandung - Indonesia</p>
<p><a href="http://www.priyatna.org/">http://www.priyatna.org/</a><br>
<a href="mailto:me@priyatna.org">mailto:me@priyatna.org</a></p>
<p>&nbsp;</p>
</html>

143
components/nicechart/demo/Delphi/Project1.dof Normal file
View File

@ -0,0 +1,143 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=..\..\source
Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;ibevnt50;Vclbde50;vcldbx50;Qrpt50;TeeUI50;TeeDB50;Tee50;Dss50;TeeQR50;VCLIB50;RNMap
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=K:\Program Files\Borland\Delphi7\Bin\
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=2
Item0=..\..\source
Item1=D:\My\Comps\Commons

13
components/nicechart/demo/Delphi/Project1.dpr Normal file
View File

@ -0,0 +1,13 @@
program Project1;
uses
Forms,
Unit1 in '..\common\Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

152
components/nicechart/demo/Delphi/Project1.dproj Normal file
View File

@ -0,0 +1,152 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{534D51BE-D1B2-47D2-AD6E-AF9159060EBD}</ProjectGuid>
<MainSource>Project1.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.5</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_N>true</DCC_N>
<DCC_S>false</DCC_S>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_DebugInformation>1</DCC_DebugInformation>
<DCC_WriteableConstants>true</DCC_WriteableConstants>
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
<DCC_UnitSearchPath>..\..\source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<DCC_UsePackage>Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;ibevnt50;Vclbde50;vcldbx50;Qrpt50;TeeUI50;TeeDB50;Tee50;Dss50;TeeQR50;VCLIB50;RNMap;$(DCC_UsePackage)</DCC_UsePackage>
<SanitizedProjectName>Project1</SanitizedProjectName>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_Locale>1049</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<Icon_MainIcon>Project1_Icon.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>Project1_Icon.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\common\Unit1.pas">
<Form>Form1</Form>
</DCCReference>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">Project1.dpr</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclBaseExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclBaseExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclDebugExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclDebugExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclProjectAnalysisExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclProjectAnalysisExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclFavoriteFoldersExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclFavoriteFoldersExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclRepositoryExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclRepositoryExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclSIMDViewExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclSIMDViewExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclStackTraceViewerExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclStackTraceViewerExpert280.bpl nicht gefunden</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>

BIN
components/nicechart/demo/Delphi/Project1.res Normal file
View File

Binary file not shown.

84
components/nicechart/demo/Lazarus/Project1.lpi Normal file
View File

@ -0,0 +1,84 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<Title Value="Project1"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<RequiredPackages>
<Item>
<PackageName Value="NiceChartLaz"/>
</Item>
<Item>
<PackageName Value="LCL"/>
</Item>
</RequiredPackages>
<Units>
<Unit>
<Filename Value="Project1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
<Filename Value="..\common\Unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="..\common"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

17
components/nicechart/demo/Lazarus/Project1.lpr Normal file
View File

@ -0,0 +1,17 @@
program Project1;
{$MODE ObjFpc}{$H+}
uses
Interfaces,
Forms,
Unit1 in '..\common\Unit1.pas' {Form1};
{$R *.res}
begin
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

55
components/nicechart/demo/common/Unit1.dfm Normal file
View File

@ -0,0 +1,55 @@
object Form1: TForm1
Left = 169
Top = 68
Width = 778
Height = 596
Caption = 'NiceChart Demo - priyatna.org'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 376
Top = 15
Width = 32
Height = 13
Caption = 'Label1'
end
object Button1: TButton
Left = 8
Top = 9
Width = 105
Height = 25
Caption = 'Monochrome'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 120
Top = 9
Width = 105
Height = 25
Caption = 'Save to WMF'
TabOrder = 1
OnClick = Button2Click
end
object CheckBox1: TCheckBox
Left = 240
Top = 12
Width = 96
Height = 19
Caption = 'Thick axis lines'
Checked = True
State = cbChecked
TabOrder = 2
OnClick = CheckBox1Click
end
end

50
components/nicechart/demo/common/Unit1.lfm Normal file
View File

@ -0,0 +1,50 @@
object Form1: TForm1
Left = 194
Height = 596
Top = 111
Width = 778
Caption = 'NiceChart Demo - priyatna.org'
ClientHeight = 596
ClientWidth = 778
Color = clBtnFace
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poDesktopCenter
LCLVersion = '2.3.0.0'
object Label1: TLabel
Left = 352
Height = 15
Top = 14
Width = 34
Caption = 'Label1'
end
object Button1: TButton
Left = 8
Height = 25
Top = 9
Width = 105
Caption = 'Monochrome'
OnClick = Button1Click
TabOrder = 0
end
object Button2: TButton
Left = 120
Height = 25
Top = 9
Width = 105
Caption = 'Save to WMF'
OnClick = Button2Click
TabOrder = 1
end
object CheckBox1: TCheckBox
Left = 240
Height = 19
Top = 12
Width = 96
Caption = 'Thick axis lines'
Checked = True
OnClick = CheckBox1Click
State = cbChecked
TabOrder = 2
end
end

187
components/nicechart/demo/common/Unit1.pas Normal file
View File

@ -0,0 +1,187 @@
unit Unit1;
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
interface
uses
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
{$IFNDEF FPC}XPMan,{$ENDIF}
NiceChart;
type
{ TForm1 }
TForm1 = class(TForm)
CheckBox1: TCheckBox;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
procedure ChartMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
public
{ Public declarations }
Chart: TNiceChart;
end;
var
Form1: TForm1;
implementation
{$IFDEF FPC}
{$R *.lfm}
{$ELSE}
{$R *.dfm}
{$ENDIF}
uses
Math;
procedure TForm1.ChartMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
ax, ay: Double;
begin
if Chart.ClientToChart(X, Y, ax, ay)
then Label1.Caption := FormatFloat('Mouse position: 0.##', ax) + '; ' + FormatFloat('0.##', ay / 1000)
else Label1.Caption := 'Out of Chart';
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Series: TNiceSeries;
begin
Chart := TNiceChart.Create(Self);
with Chart do
begin
Parent := Self;
Left := 8;
Top := 40;
Width := Self.ClientWidth - 16;
Height := Self.ClientHeight - 48;
Anchors := [akLeft, akTop, akRight, akBottom];
Title := 'Look at me!'#13'I''m a NiceChart!';
AxisXOnePerValue := True;
ShowXGrid := False;
AxisYScale := 1000;
//Monochrome := True;
OnMouseMove := ChartMouseMove;
end;
Chart.BeginUpdate;
Series := Chart.AddSeries(skBar);
Series.Caption := 'Revenue';
with Series do
begin
AddXY( 0, 0);
AddXY(2000, 4904620);
AddXY(2001, 15086420);
AddXY(2002, 14696560);
AddXY(2003, 14263160);
AddXY(2004, 13711080);
AddXY(2005, 13018880);
AddXY(2006, 11901080);
AddXY(2007, 10592340);
AddXY(2008, 9750620);
AddXY(2009, 9007960);
AddXY(2010, 7980940);
AddXY(2011, 6164060);
AddXY(2012, 4182760);
AddXY(2013, 3026420);
AddXY(2014, 1907200);
end;
Series := Chart.AddSeries(skBar);
Series.Caption := 'Cash Flow';
with Series do
begin
AddXY( 0, -9435276);
AddXY(2000, -12884809.79);
AddXY(2001, 11849628.6);
AddXY(2002, 8676685.24);
AddXY(2003, 3856984.44);
AddXY(2004, 3811447.44);
AddXY(2005, 686684.1);
AddXY(2006, 377060.42);
AddXY(2007, 831488.06);
AddXY(2008, 1517731.99);
AddXY(2009, 1431460.27);
AddXY(2010, 1158463.54);
AddXY(2011, 737914.59);
AddXY(2012, 386103.52);
AddXY(2013, 249675.86);
AddXY(2014, 119973);
end;
Series := Chart.AddSeries(skSmooth);
Series.Caption := 'Cum. Cash Flow';
with Series do
begin
AddXY( 0, -9435276);
AddXY(2000, -22320085.79);
AddXY(2001, -10470457.19);
AddXY(2002, -1793771.95);
AddXY(2003, 2063212.49);
AddXY(2004, 5874659.93);
AddXY(2005, 6561344.03);
AddXY(2006, 6938404.46);
AddXY(2007, 7769892.52);
AddXY(2008, 9287624.51);
AddXY(2009, 10719084.78);
AddXY(2010, 11877548.32);
AddXY(2011, 12615462.91);
AddXY(2012, 13001566.43);
AddXY(2013, 13251242.29);
AddXY(2014, 13371215.29);
end;
Chart.EndUpdate;
Label1.Caption := '';
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if Checkbox1.Checked then
Chart.AxisLineWidth := 3
else
Chart.AxisLineWidth := 1;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Chart.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Chart.Monochrome := not Chart.Monochrome;
if Chart.Monochrome
then Button1.Caption := 'Color'
else Button1.Caption := 'Monochrome';
end;
procedure TForm1.Button2Click(Sender: TObject);
{$IFNDEF FPC}
var
m: TMetafile;
{$ENDIF}
begin
{$IFDEF FPC}
ShowMessage('Function not implemented for Lazarus.');
{$ELSE}
m := Chart.CreateMetafile;
m.Enhanced := True;
m.SaveToFile('test.emf');
m.Free;
ShowMessage('Saved to "test.wmf".');
{$ENDIF}
end;
end.

1
components/nicechart/images/make_res.bat Normal file
View File

@ -0,0 +1 @@
lazres ../source/nicechart_images.res tnicechart.bmp

BIN
components/nicechart/images/tnicechart.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 406 B

40
components/nicechart/packages/Delphi XE11 Alexandria/NiceChartDXE11.dpk Normal file
View File

@ -0,0 +1,40 @@
package NiceChartDXE11;
{$R *.res}
{$R 'NiceChart.dcr'}
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DEFINE DEBUG}
{$ENDIF IMPLICITBUILDING}
{$DESCRIPTION 'priyatna.org - NiceChart'}
{$IMPLICITBUILD OFF}
requires
rtl,
vcl;
contains
NiceChart in '..\..\source\NiceChart.pas',
BSplines in '..\..\source\BSplines.pas';
end.

131
components/nicechart/packages/Delphi XE11 Alexandria/NiceChartDXE11.dproj Normal file
View File

@ -0,0 +1,131 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{8BDB7828-1E5C-4C35-85C7-CFD562CFCF75}</ProjectGuid>
<MainSource>NiceChartDXE11.dpk</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Package</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.5</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_ImageBase>00400000</DCC_ImageBase>
<GenDll>true</GenDll>
<GenPackage>true</GenPackage>
<SanitizedProjectName>NiceChartDXE11</SanitizedProjectName>
<DCC_DebugInformation>1</DCC_DebugInformation>
<DCC_Description>priyatna.org - NiceChart</DCC_Description>
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;DUnitX.Loggers.GUI;Winapi;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_Locale>1031</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
<DCC_UnitSearchPath>..\..\source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_RangeChecking>true</DCC_RangeChecking>
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=2.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_MajorVer>2</VerInfo_MajorVer>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="NiceChart.dcr"/>
<DCCReference Include="rtl.dcp"/>
<DCCReference Include="vcl.dcp"/>
<DCCReference Include="..\..\source\NiceChart.pas"/>
<DCCReference Include="..\..\source\BSplines.pas"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">NiceChartDXE11.dpk</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclBaseExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclBaseExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclDebugExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclDebugExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclProjectAnalysisExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclProjectAnalysisExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclFavoriteFoldersExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclFavoriteFoldersExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclRepositoryExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclRepositoryExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclSIMDViewExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclSIMDViewExpert280.bpl nicht gefunden</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclStackTraceViewerExpert280.bpl">Datei C:\Users\Werner-3\Documents\Embarcadero\Studio\22.0\Bpl\Win32\JclStackTraceViewerExpert280.bpl nicht gefunden</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>

BIN
components/nicechart/packages/Delphi XE11 Alexandria/NiceChartDXE11.res Normal file
View File

Binary file not shown.

142
components/nicechart/packages/Delphi7/NiceChartD7.dof Normal file
View File

@ -0,0 +1,142 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=priyatna.org - NiceChart
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=..\..\source
Packages=vcl;rtl;vclx;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;vclactnband;SynEdit_D7;XLSPkg;NiceUI_D7;visualclx;visualdbclx;NicePreviewD6
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=C:\PROGRAM FILES\BORLAND\DELPHI7\BIN\
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=2
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=2.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=1
Item0=..\..\source

37
components/nicechart/packages/Delphi7/NiceChartD7.dpk Normal file
View File

@ -0,0 +1,37 @@
package NiceChartD7;
{$R *.res}
{$R 'NiceChart.dcr'}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'priyatna.org - NiceChart'}
{$IMPLICITBUILD OFF}
requires
rtl,
vcl;
contains
NiceChart in '..\..\source\NiceChart.pas',
BSplines in '..\..\source\BSplines.pas';
end.

BIN
components/nicechart/packages/Delphi7/NiceChartD7.res Normal file
View File

Binary file not shown.

43
components/nicechart/packages/Lazarus/nicechartlaz.lpk Normal file
View File

@ -0,0 +1,43 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="5">
<PathDelim Value="\"/>
<Name Value="NiceChartLaz"/>
<Type Value="RunAndDesignTime"/>
<Author Value="Priyatna"/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<OtherUnitFiles Value="..\..\source"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\"/>
</SearchPaths>
</CompilerOptions>
<Description Value="Light-weight chart component with basic functionality (bar series, line series, smooth spline series)"/>
<License Value="MPL"/>
<Version Major="2"/>
<Files>
<Item>
<Filename Value="..\..\source\BSplines.pas"/>
<UnitName Value="BSplines"/>
</Item>
<Item>
<Filename Value="..\..\source\NiceChart.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="NiceChart"/>
</Item>
</Files>
<RequiredPkgs>
<Item>
<PackageName Value="LCL"/>
</Item>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
</Package>
</CONFIG>

22
components/nicechart/packages/Lazarus/nicechartlaz.pas Normal file
View File

@ -0,0 +1,22 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit NiceChartLaz;
{$warn 5023 off : no warning about unused units}
interface
uses
BSplines, NiceChart, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('NiceChart', @NiceChart.Register);
end;
initialization
RegisterPackage('NiceChartLaz', @Register);
end.

875
components/nicechart/source/BSplines.pas Normal file
View File

@ -0,0 +1,875 @@
Unit BSplines;
{------------------------------------------------------------------------------}
{ }
{ This code was written by : M. v. Engeland }
{ }
{ This code is copyright 2000 by }
{ M. v. Engeland }
{ }
{ }
{ This is the followup of the B-splines component posted in 1997. }
{ Some bugs were fixed, and some changes were made. The splines now use }
{ dynamic allocation of memory when needed when adding points to the spline. }
{ If the number of points to be added is known in advance, the the precise }
{ amount of memory can be allocated setting the capacity property. }
{ }
{ The conditions for using this component however are not changed: }
{ You may use this component in any way you want to, whether it is for }
{ commercial purposes or not, as long as you don't hold me responsible for }
{ any disasters it may cause. But I would appreciate it if you would send me }
{ an e-mail (martijn@dutw38.wbmt.tudelft.nl) to tell me what you use it for }
{ because over the last three years I've learned that it has been used for }
{ a wide variaty of interesting applications which it was initially never }
{ intended for. Besides, it's nice to know how your offspring's doing. }
{ Also all comments and/or remarks are welcome. }
{ }
{ See the demo program for how to use the component. }
{ Special attention is payed on the possibility of interpolating the }
{ vertices. As you may or may not know, B-Splines normally do not }
{ interpolate the used controlpoints. Thanks to simple matrix calculation }
{ however it is possible to interpolate the controlpoints by calculating }
{ new vertices in such a way that the spline interpolates the original ones. }
{------------------------------------------------------------------------------}
{$IFDEF FPC}
{$MODE ObjFPC}{$H+}
{$ENDIF}
interface
uses windows,
sysutils,
classes,
Graphics,
dialogs,
Math;
const MaxFragments = 600; // The maximum of straight line segments allowed for drawing the spline
MaxResults = MaxFragments+10; // Max. number of calculated intersections
MaxInterpolatedVertices = 250; // The maximum number of vertices that can be interpolated, up to 16000 allowed
MaxCalcSteps = 150; // Number of steps for numerical intersection calculating
MaxError = 1e-5;// Max error for intersection calculating
MaxIterations = 80;
VerticesIncrement = 25; // Number of vertices to allocate memory for when the count property exceeds the current capacity
type TDataType = single;
TVertex = record
X,Y : TDataType;
end;
// The following dynamic array is used to store the desired user-specified controlpoints
T2DPointList = array[1..1] of TVertex;
P2DPointList = ^T2DPointList;
// The vertexlist is used internally to make the spline interpolate the controlpoints
TVertexList = array[0..0] of TVertex;
P2DVertexList = ^TVertexList;
// The knuckle list stores a flag to see whether a point is a knuckle or not
TKnuckleList = array[1..1] of Boolean;
PKnuckleList = ^TKnuckleList;
// T2DResults is a record with calculatedvalues at a specific point when for ex. the x-value is known
T2DResults = record
NumberOfHits : integer;
Parameter : array[1..MaxResults] of TDataType;
Point : array[1..MaxResults] of TVertex;
end;
// 2D B-spline class:
TBSpline = class // 2D B-Spline object
private
FColor : TColor;
FNoPoints : Integer;
FCapacity : Integer;
FPointList : P2DPointList;
FVertexList : P2DVertexList;
FKnuckleList : PKnuckleList;
FBuild : Boolean;
FNoVertices : Integer;
FInterpolated : boolean;
FMin,FMax : TVertex;
FFragments : Integer;
FShowVertices : Boolean;
procedure FSetBuild(val:boolean);
procedure FSetCapacity(Val:Integer); virtual;
procedure FSetInterpolated(const value:boolean);
procedure FSetFragments(Const value:integer);
function FGetNumberOfPoints:integer;
function FGetPoint(Index:Integer):TVertex; virtual;
procedure FSetPoint(Index:Integer;Value:TVertex); virtual;
function FGetVertex(Index:Integer):TVertex; virtual;
procedure FSetVertex(Index:Integer;Value:TVertex); virtual;
function FGetKnuckle(Index:integer):Boolean; virtual;
procedure FSetKnuckle(Index:integer;Value:Boolean); virtual;
function FGetNumberOfVertices:integer;
procedure FInterpolate; virtual;
procedure FFillMatrix; virtual;
procedure FPhantomPoints;
public
procedure AddPoint(Vertex:TVertex); virtual;
procedure Extents(Var Min,Max : TVertex); virtual;
procedure Clear; virtual;
constructor Create;
destructor Destroy; override;
procedure Draw(Canvas:TCanvas);
procedure DeletePoint(Index:Integer);
function FirstDerive(Parameter:extended):TVertex; virtual;
procedure InsertPoint(Index:Integer;Vertex:TVertex);
procedure Invert;// Inverse the controlpoints, eg the last point first and vice versa
function SecondDerive(Parameter:extended):TVertex; virtual;// second derivative in a point
function KnownX(XValue:TDataType;var Results:T2DResults):Boolean;virtual;
function KnownY(YValue:TDataType;var Results:T2DResults):Boolean;virtual;
function Value(Parameter:extended):TVertex; virtual;
procedure Rebuild; virtual;
property Build : Boolean read FBuild write FSetBuild;
property NumberOfPoints : Integer read FGetNumberOfPoints;
property Capacity : Integer read FCapacity write FSetCapacity;
property Fragments : integer read FFragments write FSetFragments;
property Interpolated : Boolean read FInterpolated write FSetInterpolated;
property NumberOfVertices : Integer read FGetNumberOfVertices;
property Point [Index:Integer] : TVertex read FGetPoint write FSetPoint;
property Vertex[Index:Integer] : TVertex read FGetVertex write FSetVertex;
property Knuckle[Index:integer] : Boolean read FGetKnuckle write FSetKnuckle;
property Min : TVertex read FMin;
property Max : TVertex read FMax;
property ShowVertices : boolean read FShowVertices write FShowVertices;
property Color : TColor read FColor write FColor;
end;
implementation
// The following tpes are used for the interpolation routines
Type TMatrixRow = Array[1..1] of TDataType;
PMatrixRow = ^TMatrixRow;
TMatrix = array[1..MaxInterpolatedVertices] of PMatrixRow;
var Matrix : TMatrix;
function DistPP2D(P1,P2:TVertex):TDataType;
begin
Result:=Sqrt(Sqr(P2.X-P1.X)+Sqr(P2.Y-P1.Y));
end;{DistPP2D}
{--------------------------------------------------------------------------------------------------}
{ TBSpline }
{--------------------------------------------------------------------------------------------------}
procedure TBSpline.FSetBuild(val:boolean);
begin
if not val then
begin
// Release allocated memory for vertices
if (FVertexList<>nil) and (FBuild) then Freemem(FVertexList,(FNoVertices+2)*SizeOf(TVertex));
FNoVertices:=0;
FVertexList:=nil;
// Clear extents
FMin.X:=0;
FMin.Y:=0;
FMax.X:=1;
FMax.Y:=1;
end;
FBuild:=Val;
end;{TBSpline.FSetBuild}
procedure TBSpline.FSetCapacity(Val:Integer);
var CurrentSize : Word;
NewSize : Word;
OldPoints : P2DPointList;
OldKnuckle : PKnuckleList;
begin
if Val<>FCapacity then
begin
CurrentSize:=Capacity*SizeOf(TVertex);
NewSize:=Val*SizeOf(TVertex);
OldPoints:=FPointList;
FPointList:=nil;
OldKnuckle:=FKnuckleList;
FKnuckleList:=Nil;
if Val>0 then
begin
GetMem(FPointList,NewSize);
GetMem(FKnuckleList,Val);
FillChar(FKnuckleList^,Val,0);
if Capacity<>0 then
begin
Move(OldKnuckle^,FKnuckleList^,Capacity);
Move(OldPoints^,FPointList^,CurrentSize);
end;
end;
if CurrentSize<>0 then
begin
Freemem(OldPoints,CurrentSize);
Freemem(OldKnuckle,Capacity);
end;
FCapacity:=Val;
end;
end;{TBSpline.FSetCapacity}
procedure TBSpline.FSetFragments(Const value:integer);
begin
if FFragments<>value then
begin
FFragments:=value;
if FFragments>MaxFragments then FFragments:=MaxFragments;
end;
end;{TBSpline.FSetFragments}
procedure TBSpline.FSetInterpolated(const value:boolean);
begin
if Value<>FInterpolated then
begin
FInterpolated:=value;
Build:=false;
end;
end;{TBSpline.FSetInterpolated}
function TBSpline.FGetNumberOfPoints:integer;
begin
Result:=FNoPoints;
end;{TBSpline.FGetNumberOfPoints}
function TBSpline.FGetPoint(Index:Integer):TVertex;
begin
if (Index>=1) and (Index<=FNoPoints) then Result:=FPointList^[Index] else
begin
Result.X:=0;
Result.Y:=0;
Result.Y:=0;
Raise Exception.Create('List index out of bounds in '+Self.ClassName+'.FGetPoint. ('+IntToStr(Index)+').');
end;
end;{TBSpline.FGetPoint}
procedure TBSpline.FSetPoint(Index:Integer;Value:TVertex);
begin
if (Index>=1) and (Index<=FNoPoints) then
begin
FPointList^[Index]:=Value;
Build:=False;
end else Raise Exception.Create('List index out of bounds in '+Self.ClassName+'.FSetPoint. ('+IntToStr(Index)+').');
end;{TBSpline.FSetPoint}
function TBSpline.FGetVertex(Index:Integer):TVertex;
begin
Result.X:=0;
Result.Y:=0;
if FBuild=False then if FNoPoints>1 then Rebuild
else exit;
if (Index>=0) and (Index<=NumberOfVertices+1) then Result:=FVertexList^[Index]
else Raise Exception.Create('List index out of bounds in '+Self.ClassName+'.FGetVertex. ('+IntToStr(Index)+').');
end;{TBSpline.FGetVertex}
procedure TBSpline.FSetVertex(Index:Integer;Value:TVertex);
begin
if (Index>=0) and (Index<=NumberOfVertices+1) then FVertexList^[Index]:=Value
else Raise Exception.Create('List index out of bounds in '+Self.ClassName+'.FSetVertex. ('+IntToStr(Index)+').');
end;{TBSpline.FSetVertex}
function TBSpline.FGetKnuckle(Index:integer):Boolean;
begin
if (Index=1) or (Index=FNoPoints) then Result:=false else
if (Index>0) and (Index<=FNoPoints) then Result:=FKnuckleList^[Index]
else Raise Exception.Create('List index out of bounds in '+Self.ClassName+'FGetKnuckle. ('+IntToStr(Index)+').');
end;{TBSpline.FGetKnuckle}
procedure TBSpline.FSetKnuckle(Index:integer;Value:Boolean);
begin
if (Index>0) and (Index<=FNoPoints) then
begin
FKnuckleList^[Index]:=Value;
Build:=false;
end else Raise Exception.Create('List index out of bounds in '+Self.ClassName+'.FSetKnuckle. ('+IntToStr(Index)+').');
end;{TBSpline.FSetKnuckle}
function TBSpline.FGetNumberOfVertices:integer;
begin
if Not FBuild then Rebuild;
Result:=FNoVertices;
end;{TBSpline.FGetNumberOfVertices}
procedure TBSpline.Rebuild;
var I,J : integer;
Vertex2D : TVertex;
begin
if FNoPoints>1 then
begin
if FVertexList<>nil then
begin
Freemem(FVertexList,(FNoVertices+2)*SizeOf(TVertex));
FVertexList:=nil;
end;
FNoVertices:=0;
For I:=1 to FNoPoints do if Knuckle[I] then inc(FNoVertices,3)
else inc(FNoVertices,1);
GetMem(FVertexList,(FNoVertices+2)*SizeOf(TVertex));
J:=0;
For I:=1 to FNoPoints do
begin
Vertex2D:=Point[I];
if Knuckle[I] then
begin
FVertexList^[J+1]:=Vertex2D;
FVertexList^[J+2]:=Vertex2D;
Inc(J,2);
end;
FVertexList^[J+1]:=FPointList^[I];
if I=1 then
begin
FMin:=Vertex2D;
FMax:=FMin;
end else
begin
if Vertex2D.X<FMin.X then FMin.X:=Vertex2D.X;
if Vertex2D.Y<FMin.Y then FMin.Y:=Vertex2D.Y;
if Vertex2D.X>FMax.X then FMax.X:=Vertex2D.X;
if Vertex2D.Y>FMax.Y then FMax.Y:=Vertex2D.Y;
end;
Inc(J);
end;
if Interpolated then
begin
For I:=1 to FNoVertices do
begin
GetMem(Matrix[I],FNovertices*SizeOf(TDatatype));
FillChar(Matrix[I]^,FNovertices*SizeOf(TDatatype),0);
end;
FFillMatrix;
Finterpolate;
For I:=1 to FNoVertices do
begin
FreeMem(Matrix[I],FNovertices*SizeOf(TDatatype));
Matrix[I]:=nil;
end;
end;
end;
FBuild:=true;
FPhantomPoints;
end;{TBSpline.Rebuild}
procedure TBSpline.FInterpolate;
var I,J,K : integer;
Factor : extended;
Tmp : P2DVertexList;
begin
if (FNoVertices<MaxInterpolatedVertices) and (FNoVertices>2) then
begin
GetMem(Tmp,(FNoVertices+2)*SizeOf(TVertex));
for I:=1 to FNoVertices do
begin
for J:=I+1 to FNoVertices do
begin
factor:=Matrix[J]^[I]/Matrix[I]^[I];
for K:=1 to FNoVertices do Matrix[J]^[K]:=Matrix[J]^[K]-factor*Matrix[I]^[K];
FVertexList^[J].x:=FVertexList^[J].x-factor*FVertexList^[J-1].x;
FVertexList^[J].y:=FVertexList^[J].y-factor*FVertexList^[J-1].y;
end;
end;
Tmp^[FNoVertices].x:=FVertexList^[FNoVertices].x/Matrix[FNoVertices]^[FNoVertices];
Tmp^[FNoVertices].y:=FVertexList^[FNoVertices].y/Matrix[FNoVertices]^[FNoVertices];
for I:=FNoVertices-1 downto 1 do
begin
Tmp^[I].x:=(1/Matrix[I]^[I])*(FVertexList^[I].x-Matrix[I]^[I+1]*Tmp^[I+1].x);
Tmp^[I].y:=(1/Matrix[I]^[I])*(FVertexList^[I].y-Matrix[I]^[I+1]*Tmp^[I+1].y);
end;
if FVertexList<>nil then
begin
Freemem(FVertexList,(FNoVertices+2)*SizeOf(TVertex));
FVertexList:=nil;
end;
FVertexList:=Tmp;
end;
end;{TBSpline.FInterpolate}
function TBSpline.KnownX(XValue:TDataType;var Results:T2DResults):Boolean;
var UpperLimit : integer;
Counter : integer;
mn, mx : extended;
Parameter : extended;
Error : extended;
Finished : boolean;
P1,P2 : TVertex;
Output : TVertex;
begin
Result:=false;
if not FBuild then
begin
Rebuild;
if not FBuild then exit;
end;
Results.NumberOfHits:=0;
if NumberOfPoints=0 then exit;
if NumberOfPoints=2 then
begin
P1:=Point[1];
P2:=Point[2];
if P1.X>P2.X then
begin
Output:=P1;
P1:=P2;
P2:=Output;
end;
if (P1.X<=XValue) and (P2.X>=XValue) then
begin
if abs(P1.X-P2.X)<1e6 then Parameter:=0.5
else Parameter:=(XValue-P1.X)/(P2.X-P1.X);
Results.NumberOfHits:=Results.NumberOfHits+1;
Results.Parameter[Results.NumberOfHits]:=Parameter;
Results.Point[Results.NumberOfHits]:=Value(Parameter);
Results.Point[Results.NumberOfHits].X:=XValue;
end;
end else
begin
UpperLimit:=1;
P1:=Point[1];
repeat
Finished:=false;
repeat
P2:=Value(UpperLimit/MaxCalcSteps);
if ((P1.X<=XValue) and (P2.X>=XValue)) or
((P1.X>=XValue) and (P2.X<=XValue)) then Finished:=true;
if not Finished then
begin
if UpperLimit=MaxCalcSteps then
begin
Result:=Results.NumberOfHits>0;
exit;
end else
begin
inc(UpperLimit);
P1:=P2;
end;
end;
until Finished;
mx:=UpperLimit/MaxCalcSteps;
mn:=(UpperLimit-1)/MaxCalcSteps;
Counter:=0;
repeat
if abs(P1.X-P2.X)<1e-6 then Parameter:=0.5*(mn+mx) else
if (P1.X<=XValue) and (P2.X>=XValue) then Parameter:=mn+(mx-mn)*((XValue-P1.X)/(P2.X-P1.X))
else Parameter:=mn+((P1.X-XValue)*(mx-mn)/(P1.X-P2.X));
if Parameter<mn then Parameter:=mn;
if Parameter>mx then Parameter:=mx;
Output:=Value(parameter);
if XValue=0 then Error:=abs(Output.X-XValue) else
Error:=abs((XValue-Output.X)/XValue);
if Output.X>XValue then
begin
if (P1.X<=XValue) and (P2.X>=XValue) then
begin
mx:=parameter;
P2:=Output;
end else
begin
mn:=parameter;
P1:=Output;
end;
end else
begin
if (P1.X<=XValue) and (P2.X>=XValue) then
begin
mn:=parameter;
P1:=Output;
end else
begin
mx:=parameter;
P2:=Output;
end;
end;
inc(Counter);
until (Error<MaxError) or (Counter>MaxIterations);
if Results.NumberOfHits>=MaxResults then Raise Exception.Create('Max. number of results exceeded in TBSpline.KnownX');
Results.NumberOfHits:=Results.NumberOfHits+1;
Results.Parameter[Results.NumberOfHits]:=Parameter;
Results.Point[Results.NumberOfHits]:=Value(Parameter);
Results.Point[Results.NumberOfHits].X:=XValue;
mx:=UpperLimit/MaxCalcSteps;
P1:=Value(mx);
Inc(UpperLimit);
until UpperLimit>MaxCalcSteps;
end;
Result:=Results.NumberOfHits>0;
end;{TBSpline.KnownX}
function TBSpline.KnownY(YValue:TDataType;var Results:T2DResults):Boolean;
var UpperLimit : integer;
Counter : integer;
mn, mx : extended;
Parameter : extended;
Error : extended;
Finished : boolean;
P1,P2 : TVertex;
Output : TVertex;
begin
Result:=false;
if not FBuild then
begin
Rebuild;
if not FBuild then exit;
end;
Results.NumberOfHits:=0;
if NumberOfPoints=0 then exit;
if NumberOfPoints=2 then
begin
P1:=Point[1];
P2:=Point[2];
if P1.Y>P2.Y then
begin
Output:=P1;
P1:=P2;
P2:=Output;
end;
if (P1.Y<=YValue) and (P2.Y>=YValue) then
begin
if abs(P1.Y-P2.Y)<1e6 then Parameter:=0.5
else Parameter:=(YValue-P1.Y)/(P2.Y-P1.Y);
Results.NumberOfHits:=Results.NumberOfHits+1;
Results.Parameter[Results.NumberOfHits]:=Parameter;
Results.Point[Results.NumberOfHits]:=Value(Parameter);
Results.Point[Results.NumberOfHits].Y:=YValue;
end;
end else
begin
UpperLimit:=1;
P1:=Point[1];
repeat
Finished:=false;
repeat
P2:=Value(UpperLimit/MaxCalcSteps);
if ((P1.Y<=YValue) and (P2.Y>=YValue)) or
((P1.Y>=YValue) and (P2.Y<=YValue)) then Finished:=true;
if not Finished then
begin
if UpperLimit=MaxCalcSteps then
begin
Result:=Results.NumberOfHits>0;
exit;
end else
begin
inc(UpperLimit);
P1:=P2;
end;
end;
until Finished;
mx:=UpperLimit/MaxCalcSteps;
mn:=(UpperLimit-1)/MaxCalcSteps;
Counter:=0;
repeat
if abs(P1.Y-P2.Y)<1e-6 then Parameter:=0.5*(mn+mx) else
if (P1.Y<=YValue) and (P2.Y>=YValue) then Parameter:=mn+(mx-mn)*((YValue-P1.Y)/(P2.Y-P1.Y))
else Parameter:=mn+((P1.Y-YValue)*(mx-mn)/(P1.Y-P2.Y));
if Parameter<mn then Parameter:=mn;
if Parameter>mx then Parameter:=mx;
Output:=Value(parameter);
if YValue=0 then Error:=abs(Output.Y-YValue) else
Error:=abs((YValue-Output.Y)/YValue);
if Output.Y>YValue then
begin
if (P1.Y<=YValue) and (P2.Y>=YValue) then
begin
mx:=parameter;
P2:=Output;
end else
begin
mn:=parameter;
P1:=Output;
end;
end else
begin
if (P1.Y<=YValue) and (P2.Y>=YValue) then
begin
mn:=parameter;
P1:=Output;
end else
begin
mx:=parameter;
P2:=Output;
end;
end;
inc(Counter);
until (Error<MaxError) or (Counter>MaxIterations);
if Results.NumberOfHits>=MaxResults then Raise Exception.Create('Max. number of results exceeded in TBSpline.KnownY');
Results.NumberOfHits:=Results.NumberOfHits+1;
Results.Parameter[Results.NumberOfHits]:=Parameter;
Results.Point[Results.NumberOfHits]:=Value(Parameter);
Results.Point[Results.NumberOfHits].Y:=YValue;
mx:=UpperLimit/MaxCalcSteps;
P1:=Value(mx);
Inc(UpperLimit);
until UpperLimit>MaxCalcSteps;
end;
Result:=Results.NumberOfHits>0;
end;{TBSpline.KnownY}
procedure TBSpline.AddPoint(Vertex:TVertex);
begin
if NumberOfPoints=Capacity then Capacity:=Capacity+VerticesIncrement;
inc(FNoPoints);
Point[NumberOfPoints]:=Vertex;
Build:=false;
end;{TBSpline.AddPoint}
constructor TBSpline.Create;
begin
inherited Create;
FPointList:=nil;
FVertexList:=nil;
FKnuckleList:=nil;
FCapacity:=0;
Clear;
end;{TBSpline.Create}
procedure TBSpline.DeletePoint(Index:Integer);
var I : integer;
begin
if NumberOfPoints>0 then
begin
dec(FNoPoints);
for I:=Index to NumberOfPoints do
begin
FPointList^[I]:=FPointList^[I+1];
FKnuckleList^[I]:=FKnuckleList^[I+1];
end;
Build:=false;
end;
if NumberOfPoints=0 then Clear;
end;{TBSpline.DeletePoint}
destructor TBSpline.Destroy;
begin
Clear;
inherited Destroy;
end;{TBSpline.Destroy}
procedure TBSpline.Draw(Canvas:TCanvas);
var J : Integer;
ParameterValue : single;
V : TVertex;
begin
//Canvas.Pen.Color:=Color;
For J:=0 to Fragments do {Draw the spline in 200 steps}
begin
ParameterValue:=(J/Fragments); // parameter value must be in the range 0.0-1.0
V:=Value(ParameterValue);
// Use used moveto/lineto method for demo-drawing.
// using the Canvas.polyline method is SIGNIFICANTLY FASTER though!!
if J=0 then Canvas.MoveTo(Round(V.X),Round(V.Y))
else Canvas.LineTo(Round(V.X),Round(V.Y));
end;
if ShowVertices then For J:=1 to NumberOfPoints do {Draw the vertices}
begin
V:=Point[J];
Canvas.Pen.Color:=clRed;
Canvas.Ellipse(Round(V.X)-2,Round(V.Y)-2,Round(V.X)+2,Round(V.Y)+2);
end;
end;{TBSpline.Draw}
procedure TBSpline.Extents(Var Min,Max : TVertex);
var I : Integer;
P : TVertex;
begin
for I:=1 to NumberOfPoints do
begin
P:=Point[I];
if P.X<Min.X then Min.X:=P.X;
if P.X>Max.X then Max.X:=P.X;
if P.Y<Min.Y then Min.Y:=P.Y;
if P.Y>Max.Y then Max.Y:=P.Y;
end;
end;{TBSpline.Extents}
function TBSpline.FirstDerive(Parameter:extended):TVertex;
var c,S,E : integer;
Dist : extended;
Mix : extended;
Mid : Extended;
begin
Result.X:=0;
Result.Y:=0;
if FNoPoints<2 then exit;
if not FBuild then Rebuild;
Mid:=(NumberOfVertices-1)*Parameter+1;
S:=Trunc(Mid-1);
if S<0 then S:=0;
E:=S+3;
if S>FNovertices+1 then S:=FNovertices+1;
for c:=S to E do
begin
dist:=C-Mid;
if (dist>-2) and (dist<=-1) then Mix:=(2+dist)*(2+dist)*0.5 else
if (dist>=-1) and (dist<=0) then Mix:=(-2*dist-1.5*dist*dist) else
if (dist>=0) and (dist<=1) then Mix:=(-2*dist+1.5*dist*dist) else
if (dist>=1) and (dist<2) then Mix:=-(2-dist)*(2-dist)*0.5 else
mix:=0;
Result.x:=Result.x+FVertexList^[c].x*mix;
Result.y:=Result.y+FVertexList^[c].y*mix;
end;
end;{TBSpline.FirstDerive}
procedure TBSpline.InsertPoint(Index:Integer;Vertex:TVertex);
var I : integer;
begin
if (Index>=0) and (Index<=NumberOfPoints) then
begin
if NumberOfPoints=Capacity then Capacity:=Capacity+VerticesIncrement;
inc(FNoPoints);
for I:=NumberOfPoints downto Index+1 do
begin
FPointList^[I]:=FPointList^[I-1];
FKnuckleList^[I]:=FKnuckleList^[I-1];
end;
FPointList^[Index]:=Vertex;
FKnuckleList^[Index]:=False;
Build:=false;
end else raise Exception.Create('Index out of range');
end;{TBSpline.InsertPoint}
procedure TBSpline.Invert;
var OldPoints : P2DPointList;
OldVertices : P2DVertexList;
OldKnuckle : PKnuckleList;
I : Integer;
begin
exit; // Backup current data
OldPoints:=FPointList;
FPointList:=nil;
OldKnuckle:=FKnuckleList;
FKnuckleList:=Nil;
OldVertices:=FVertexList;
FVertexList:=nil;
// Prepare new arrays
GetMem(FPointList,Capacity*SizeOf(TVertex));
GetMem(FKnuckleList,Capacity);
GetMem(FVertexList,(Capacity+2)*SizeOf(TVertex));
// Initialize knuckle list
FillChar(FKnuckleList^,Capacity,0);
// Copy controlpoints
for I:=1 to NumberOfPoints do
begin
FPointList^[I]:=OldPoints^[NumberOfPoints-I+1];
FKnuckleList^[I]:=OldKnuckle^[NumberOfPoints-I+1];
end;
// Copy vertices
if (OldVertices<>nil) and (FNoVertices<>0) and (Build) then for I:=0 to NumberOfVertices+1 do FVertexList^[I]:=OldVertices^[FNoVertices-I+1];
// Destroy old arrays
FreeMem(OldPoints,Capacity*SizeOf(TVertex));
if (Oldvertices<>nil) and (FNoVertices<>0) and (build) then FreeMem(OldVertices,(Capacity+2)*SizeOf(TVertex));
FreeMem(OldKnuckle,Capacity);
end;{TBSpline.Invert}
procedure TBSpline.Clear;
begin
FColor:=clBlack;
if (FVertexList<>nil) and (NumberOfVertices>0) then
begin
Freemem(FVertexList,(FNoVertices+2)*SizeOf(TVertex));
FVertexList:=nil;
end;
FShowvertices:=False;
FNoPoints:=0;
FNoVertices:=0;
Build:=False;
Capacity:=0;
FInterpolated:=false;
FFragments:=100;
end;{TBSpline.Clear}
procedure TBSpline.FPhantomPoints;
var I : integer;
begin
if NumberOfVertices>1 then
begin
I:=0;
FVertexList^[I].X:=2*FVertexList^[I+1].X-FVertexList^[I+2].X;
FVertexList^[I].Y:=2*FVertexList^[I+1].Y-FVertexList^[I+2].Y;
FVertexList^[NumberOfVertices+1].X:=2*FVertexList^[NumberOfVertices].X-FVertexList^[NumberOfVertices-1].X;
FVertexList^[NumberOfVertices+1].Y:=2*FVertexList^[NumberOfVertices].Y-FVertexList^[NumberOfVertices-1].Y;
end;
end;{TBSpline.FPhantomPoints}
procedure TBSpline.FFillMatrix;
var I,J : integer;
begin
if (FNoVertices>2) and (FNoVertices<=MaxInterpolatedVertices) then
begin
for I:=2 to FNoVertices-1 do
begin
Matrix[I]^[I-1]:=1/6;
Matrix[I]^[I]:=2/3;
Matrix[I]^[I+1]:=1/6;
end;
Matrix[1]^[1]:=1;
Matrix[FNoVertices]^[FNoVertices]:=1;
I:=3;
while I<FNoVertices-1 do
begin
if (abs(FVertexList^[I].X-FVertexList^[I-1].X)<1e-5) and (abs(FVertexList^[I+1].X-FVertexList^[I].X)<1e-5) and
(abs(FVertexList^[I].Y-FVertexList^[I-1].Y)<1e-5) and (abs(FVertexList^[I+1].Y-FVertexList^[I].Y)<1e-5) then
begin
for J:=I-1 to I+1 do
begin
Matrix[J]^[J-1]:=0;
Matrix[J]^[J]:=1;
Matrix[J]^[J+1]:=0;
end;
inc(I,2);
end else inc(I);
end;
end;
end;{TBSpline.FFillMatrix}
function TBSpline.Value(Parameter:extended):TVertex;
var c,S,E : integer;
Dist : extended;
Mix : extended;
Mid : TDataType;
begin
Result.X:=0;
Result.Y:=0;
if FNoPoints<2 then exit;
if not FBuild then Rebuild;
Mid:=(NumberOfVertices-1)*Parameter+1;
S:=Trunc(Mid-1);
if S<0 then S:=0;
E:=S+3;
if S>FNovertices+1 then S:=FNovertices+1;
for c:=S to E do
begin
dist:=abs(C-Mid);
if dist<2 then
begin
if dist<1 then mix:=4/6-dist*dist+0.5*dist*dist*dist else
mix:=(2-dist)*(2-dist)*(2-dist)/6;
Result.x:=Result.x+FVertexList^[c].x*mix;
Result.y:=Result.y+FVertexList^[c].y*mix;
end;
end;
end;{TBSpline.Value}
function TBSpline.secondDerive(Parameter:extended):TVertex;
var c,S,E : integer;
Dist : extended;
Mix : extended;
Mid : Extended;
begin
Result.X:=0;
Result.Y:=0;
if FNoPoints<2 then exit;
if not FBuild then Rebuild;
Mid:=(NumberOfVertices-1)*Parameter+1;
S:=Trunc(Mid-1);
if S<0 then S:=0;
E:=S+3;
if S>FNovertices+1 then S:=FNovertices+1;
for c:=S to E do
begin
dist:=C-Mid;
if (dist>=-2) and (dist<=-1) then Mix:=2+dist else
if (dist>=-1) and (dist<=0) then Mix:=-2-3*dist else
if (dist>=0) and (dist<=1) then Mix:=-2+3*dist else
if (dist>=1) and (dist<=2) then Mix:=2-dist else Mix:=0;
Result.x:=Result.x+FVertexList^[c].x*mix;
Result.y:=Result.y+FVertexList^[c].y*mix;
end;
end;{TBSpline.secondDerive}
end.

BIN
components/nicechart/source/NiceChart.dcr Normal file
View File

Binary file not shown.

1536
components/nicechart/source/NiceChart.pas Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
components/nicechart/source/NiceChart.res Normal file
View File

Binary file not shown.

BIN
components/nicechart/source/nicechart_images.res Normal file
View File

Binary file not shown.