You've already forked lazarus-ccr
NiceGrid: Initial commit
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8841 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
567
components/nicegrid/License.txt
Normal file
567
components/nicegrid/License.txt
Normal 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."
|
||||||
311
components/nicegrid/Readme.html
Normal file
311
components/nicegrid/Readme.html
Normal file
@ -0,0 +1,311 @@
|
|||||||
|
<html>
|
||||||
|
<title>NiceGrid 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">NiceGrid
|
||||||
|
v2.20</font></b></font><br>
|
||||||
|
© 2003 - 2007, 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="#license">License</a><br>
|
||||||
|
<a href="#history">Version History</a><br>
|
||||||
|
<a href="#install">Installation</a><br>
|
||||||
|
<a href="#headers">Working with Headers</a><br>
|
||||||
|
<a href="#contact">Contacts</a></p>
|
||||||
|
<p><font size="1">Version: 2.20 <br>
|
||||||
|
Release Date: November 2nd, 2003<br>
|
||||||
|
</font></p>
|
||||||
|
<p> </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>NiceGrid is a Delphi component that aimed to be a standard string grid replacement.
|
||||||
|
It is written from scratch, not descended from TStringGrid. The main reason
|
||||||
|
why I write this component is to have a grid component that <b>nice</b> and
|
||||||
|
<b>smooth</b>. Here's some feature of NiceGrid:</p>
|
||||||
|
<ul>
|
||||||
|
<li>Headers can be merged and or multilined.</li>
|
||||||
|
<li>Smooth scrolling, not aligned to top left cell coordinate.</li>
|
||||||
|
<li>All aspect of grid colors can be customized: header light color, header
|
||||||
|
dark color, header color, grid color, text color, etc.; resulting a real nice
|
||||||
|
looking grid.</li>
|
||||||
|
<li>Alternate row color.</li>
|
||||||
|
<li>Can be customized at design time.</li>
|
||||||
|
<li>Each column can have its own horizontal and vertical alignment, color, and
|
||||||
|
font.</li>
|
||||||
|
<li>Each column can be hidden.</li>
|
||||||
|
<li>Can be auto fit to width.</li>
|
||||||
|
<li>Can be auto calculate column width.</li>
|
||||||
|
<li>BeginUpdate and EndUpdate method for bulk cells access.</li>
|
||||||
|
</ul>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p>Since it is a new component, there are several main differences between NiceGrid
|
||||||
|
and TStringGrid:</p>
|
||||||
|
<ul>
|
||||||
|
<li>Headers are excluded from cells, unlike TStringGrid that treats fixed rows
|
||||||
|
as regular cells (Row 0, for example), Cells[0,0] in NiceGrid will access
|
||||||
|
the top left editable cells, not fixed cell.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>The only way to access the data is using Cells property or using direct
|
||||||
|
array referencing style: NiceGrid1[0,0]. There are not (yet) Cols, or Rows
|
||||||
|
property.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>FixedRows -> Header, FixedCols -> Gutter.</li>
|
||||||
|
</ul>
|
||||||
|
<p> </p>
|
||||||
|
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="license"></a></b></font>
|
||||||
|
</p>
|
||||||
|
<hr>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p> </p>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p></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> </p>
|
||||||
|
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="history"></a></b></font>
|
||||||
|
</p>
|
||||||
|
<hr>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p> </p>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p></p>
|
||||||
|
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b>Version History</b></font></p>
|
||||||
|
<p><b>Version 2.20</b></p>
|
||||||
|
<ul>
|
||||||
|
<li>Bug fixed: OnCellChange event and friends only fired by user input, not
|
||||||
|
by code (It seems that this behavior conforms with VCL design. I just get
|
||||||
|
the point. ;-)<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>Bug fixed: messing up with accelerator keys. NiceGrid can't capture chars
|
||||||
|
that already defined as accelerators of other control. This is fixed now.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>C++ Builder port by C. S. Phua <csphua@teledynamics.com.my>.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
</ul>
|
||||||
|
<p><b>Version 2.10</b></p>
|
||||||
|
<ul>
|
||||||
|
<li>Problems in clipboard operations with some hidden columns, fixed.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>OnAddRow event added, makes possible to set default values to new added
|
||||||
|
row.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>DeleteRow method added.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>CanResize property in Column, this will control column width when FitToWidth
|
||||||
|
property is set.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>Some drawing enhachements.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
</ul>
|
||||||
|
<p><b>Version 2.00</b></p>
|
||||||
|
<ul>
|
||||||
|
<li>Bitmap buffering is removed. Believe me, this is not as easy as I thought.
|
||||||
|
<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>Lot of enhanchement in editing capabilities and clipboard operations, most
|
||||||
|
of them are adapted from well-known Microsoft Excel™. <br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li> Headers Title is more flexible now. It doesn't have to be complete. Just
|
||||||
|
remember two basic rules: '<b>;</b>' for multiline and '<b>|</b>' for each
|
||||||
|
header cell. Header and gutter have their own font.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>Fill Down and Fill Right feature. This feature is actually created for my
|
||||||
|
own purpose, but I think it's not a bad idea. To fill down a column, try to
|
||||||
|
type something and then end with '<b>*</b>' and press ENTER. To fill right
|
||||||
|
a row, use '<b>></b>'.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>Each column can be hidden. But use this feature wisely, because paste operation
|
||||||
|
(from clipboard) will be applied also to hidden columns. It may make confuse
|
||||||
|
end-user. I'll try to patch this later.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>Cell editing can be done at design time via Column.Strings property.<br>
|
||||||
|
<br>
|
||||||
|
</li>
|
||||||
|
<li>Filter, Validation and Notification features: OnFilterChar, OnValidate,
|
||||||
|
OnCellChanging, OnCellChange events; also EnableValidation - DisableValidation
|
||||||
|
methods.</li>
|
||||||
|
</ul>
|
||||||
|
<p> </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>NiceGridD7.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> </p>
|
||||||
|
<font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="headers"></a></b></font>
|
||||||
|
<hr>
|
||||||
|
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b>Working with
|
||||||
|
Headers</b></font></p>
|
||||||
|
<p>All features explained below are available at design time, but I will cover
|
||||||
|
it using codes, for easy following.</p>
|
||||||
|
<p>NiceGrid will automatically scan column title and make appropriate merging
|
||||||
|
and multilining. The only thing you must do is setting each column's <b>Title</b>
|
||||||
|
property. This is a <b>string</b> type property. To make a multilined caption,
|
||||||
|
use '<b>;</b>' (semicolon) character. </p>
|
||||||
|
<p>For example:</p>
|
||||||
|
<blockquote>
|
||||||
|
<blockquote>
|
||||||
|
<p> <font color="#FF0000">NiceGrid1.Columns[0].Title := <font color="#0000FF">'First
|
||||||
|
Line;Second Line'</font>;</font></p>
|
||||||
|
</blockquote>
|
||||||
|
</blockquote>
|
||||||
|
<p>will make</p>
|
||||||
|
<table width="200" border="1" align="center" cellpadding="0" cellspacing="0" height="42">
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
<div align="center">First Line<br>
|
||||||
|
Second Line</div>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
<p> </p>
|
||||||
|
<p><b>HeaderLine</b> property determines how much line will be allocated for headers.
|
||||||
|
Each line in headers can be set also via column's <b>Title </b>property, separated
|
||||||
|
by '<b>|</b>' character.</p>
|
||||||
|
<p>For example:</p>
|
||||||
|
<blockquote>
|
||||||
|
<blockquote>
|
||||||
|
<p><font color="#FF0000">NiceGrid1.HeaderLine := <font color="#0000FF">2</font>;<br>
|
||||||
|
NiceGrid1.Columns[0].Title := <font color="#0000FF">'First Line|Second Line'</font>;</font></p>
|
||||||
|
</blockquote>
|
||||||
|
</blockquote>
|
||||||
|
<p>will make</p>
|
||||||
|
<table width="200" border="1" cellspacing="0" cellpadding="2" align="center">
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
<div align="center">First Line</div>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
<div align="center">Second Line</div>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
<div align="center"></div>
|
||||||
|
<p> </p>
|
||||||
|
<p>To merge two header cells, set each cell to exactly same value, including ';'
|
||||||
|
characters if they are multilined.</p>
|
||||||
|
<p>For example:</p>
|
||||||
|
<blockquote>
|
||||||
|
<blockquote>
|
||||||
|
<p><font color="#FF0000">NiceGrid1.HeaderLine := <font color="#0000FF">2</font>;<br>
|
||||||
|
NiceGrid1.ColCount := <font color="#0000FF">2</font>;<br>
|
||||||
|
NiceGrid1.Columns[0].Title := <font color="#0000FF">'One|Two'</font>;<br>
|
||||||
|
NiceGrid1.Columns[1].Title := <font color="#0000FF">'One|Three'</font>;</font></p>
|
||||||
|
</blockquote>
|
||||||
|
</blockquote>
|
||||||
|
<p>will make</p>
|
||||||
|
<table width="200" border="1" cellspacing="0" cellpadding="2" align="center">
|
||||||
|
<tr>
|
||||||
|
<td colspan="2">
|
||||||
|
<div align="center">One</div>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td width="95">
|
||||||
|
<div align="center">Two</div>
|
||||||
|
</td>
|
||||||
|
<td width="91">
|
||||||
|
<div align="center">Three</div>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
<p> </p>
|
||||||
|
<p>Using combination of '|' and ';' characters, we can make a complex header.</p>
|
||||||
|
<p>For example:</p>
|
||||||
|
<blockquote>
|
||||||
|
<blockquote>
|
||||||
|
<p><font color="#FF0000">NiceGrid1.HeaderLine := <font color="#0000FF">2</font>;<br>
|
||||||
|
NiceGrid1.ColCount := <font color="#0000FF">5</font>;<br>
|
||||||
|
NiceGrid1.Columns[0].Title := <font color="#0000FF">'Merged;Multilined|Merged;Multilined'</font>;<br>
|
||||||
|
NiceGrid1.Columns[1].Title := <font color="#0000FF">'First Group|One'</font>;<br>
|
||||||
|
NiceGrid1.Columns[2].Title := <font color="#0000FF">'First Group|Two'</font>;<br>
|
||||||
|
NiceGrid1.Columns[3].Title := <font color="#0000FF">'Second Group|Three'</font>;<br>
|
||||||
|
NiceGrid1.Columns[4].Title := <font color="#0000FF">'Second Group|Four'</font>;</font><br>
|
||||||
|
</p>
|
||||||
|
</blockquote>
|
||||||
|
</blockquote>
|
||||||
|
<p>will make</p>
|
||||||
|
<table width="80%" border="1" cellspacing="0" cellpadding="2" align="center">
|
||||||
|
<tr>
|
||||||
|
<td rowspan="2">
|
||||||
|
<div align="center">Merged<br>
|
||||||
|
Multilined </div>
|
||||||
|
</td>
|
||||||
|
<td colspan="2">
|
||||||
|
<div align="center">First Group</div>
|
||||||
|
</td>
|
||||||
|
<td colspan="2">
|
||||||
|
<div align="center">Second Group</div>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
<div align="center">One</div>
|
||||||
|
</td>
|
||||||
|
<td>
|
||||||
|
<div align="center">Two</div>
|
||||||
|
</td>
|
||||||
|
<td>
|
||||||
|
<div align="center">Three</div>
|
||||||
|
</td>
|
||||||
|
<td>
|
||||||
|
<div align="center">Four</div>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
<p> </p>
|
||||||
|
<p> </p>
|
||||||
|
<font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><a name="contact"></a></b></font>
|
||||||
|
<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> </p>
|
||||||
|
</html>
|
||||||
@ -0,0 +1,13 @@
|
|||||||
|
program basic_demo;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
Main in '..\common\main.pas' {MainForm};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TMainForm, MainForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
@ -0,0 +1,139 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{D2EB928B-0E0A-456E-A584-4FD4A4E98031}</ProjectGuid>
|
||||||
|
<MainSource>basic_demo.dpr</MainSource>
|
||||||
|
<Base>True</Base>
|
||||||
|
<Config Condition="'$(Config)'==''">Debug</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_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||||
|
<DCC_UsePackage>vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;vclshlctrls;$(DCC_UsePackage)</DCC_UsePackage>
|
||||||
|
<SanitizedProjectName>basic_demo</SanitizedProjectName>
|
||||||
|
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(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=</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>basic_demo_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>basic_demo_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>
|
||||||
|
</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)'!=''">
|
||||||
|
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="$(MainSource)">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\common\main.pas">
|
||||||
|
<Form>MainForm</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">basic_demo.dpr</Source>
|
||||||
|
</Source>
|
||||||
|
<Language>
|
||||||
|
<Language Name="RootDir">D:\Prog_Lazarus\svn\lazarus-ccr\components\nicegrid\Demos\Basic Demo\Delphi\</Language>
|
||||||
|
</Language>
|
||||||
|
</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>
|
||||||
@ -0,0 +1,158 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<MainUnitHasCreateFormStatements Value="False"/>
|
||||||
|
<MainUnitHasTitleStatement Value="False"/>
|
||||||
|
<MainUnitHasScaledStatement Value="False"/>
|
||||||
|
<CompatibilityMode Value="True"/>
|
||||||
|
</Flags>
|
||||||
|
<Title Value="basic_demo"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N LFM="False"/>
|
||||||
|
</i18n>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
<Modes Count="1">
|
||||||
|
<Mode0 Name="default"/>
|
||||||
|
</Modes>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="NiceGridLaz"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="8">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="basic_demo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<CursorPos X="53" Y="16"/>
|
||||||
|
<UsageCount Value="22"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="main.pas"/>
|
||||||
|
<ComponentName Value="MainForm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="Main"/>
|
||||||
|
<EditorIndex Value="-1"/>
|
||||||
|
<TopLine Value="92"/>
|
||||||
|
<CursorPos X="53" Y="110"/>
|
||||||
|
<UsageCount Value="22"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="..\..\NiceGrid.pas"/>
|
||||||
|
<EditorIndex Value="-1"/>
|
||||||
|
<TopLine Value="500"/>
|
||||||
|
<CursorPos Y="502"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="C:\Lazarus\lazarus-main_fpc3.2.2\lcl\controls.pp"/>
|
||||||
|
<UnitName Value="Controls"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<TopLine Value="2386"/>
|
||||||
|
<CursorPos X="20" Y="2414"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="C:\Lazarus\lazarus-main_fpc3.2.2\components\lazutils\laztracer.pas"/>
|
||||||
|
<UnitName Value="LazTracer"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<TopLine Value="40"/>
|
||||||
|
<CursorPos X="6" Y="43"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="..\..\Packages\NiceGridLaz.pas"/>
|
||||||
|
<EditorIndex Value="-1"/>
|
||||||
|
<CursorPos X="3" Y="11"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit5>
|
||||||
|
<Unit6>
|
||||||
|
<Filename Value="..\..\NiceGridReg.pas"/>
|
||||||
|
<EditorIndex Value="-1"/>
|
||||||
|
<TopLine Value="52"/>
|
||||||
|
<CursorPos X="73" Y="56"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit6>
|
||||||
|
<Unit7>
|
||||||
|
<Filename Value="..\common\main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="MainForm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="Main"/>
|
||||||
|
<IsVisibleTab Value="True"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<TopLine Value="103"/>
|
||||||
|
<CursorPos X="34" Y="120"/>
|
||||||
|
<UsageCount Value="20"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
<LoadedDesigner Value="True"/>
|
||||||
|
</Unit7>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="3" HistoryIndex="2">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="..\common\main.pas"/>
|
||||||
|
<Caret Line="33" Column="22"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="..\common\main.pas"/>
|
||||||
|
<Caret Line="110" TopLine="106"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="..\common\main.pas"/>
|
||||||
|
<Caret Line="112" Column="13" TopLine="106"/>
|
||||||
|
</Position3>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<OtherUnitFiles Value="..\common"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
<ObjectPath Value="..\.."/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf3"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
@ -0,0 +1,16 @@
|
|||||||
|
program basic_demo;
|
||||||
|
|
||||||
|
{$MODE Delphi}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Interfaces,
|
||||||
|
Forms,
|
||||||
|
main;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TMainForm, MainForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
227
components/nicegrid/demos/Basic Demo/common/main.dfm
Normal file
227
components/nicegrid/demos/Basic Demo/common/main.dfm
Normal file
@ -0,0 +1,227 @@
|
|||||||
|
object MainForm: TMainForm
|
||||||
|
Left = 252
|
||||||
|
Top = 121
|
||||||
|
Width = 638
|
||||||
|
Height = 543
|
||||||
|
Caption = 'NiceGrid Demo - priyatna.org'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = True
|
||||||
|
Position = poDesktopCenter
|
||||||
|
OnCreate = FormCreate
|
||||||
|
DesignSize = (
|
||||||
|
622
|
||||||
|
504)
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 199
|
||||||
|
Height = 13
|
||||||
|
Caption = '- Try to copy paste a block between Excel'
|
||||||
|
Color = clBtnFace
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 32
|
||||||
|
Width = 307
|
||||||
|
Height = 13
|
||||||
|
Caption =
|
||||||
|
'- Try type something then press * and Enter. Try also > and Ente' +
|
||||||
|
'r.'
|
||||||
|
Color = clBtnFace
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object NiceGrid1: TNiceGrid
|
||||||
|
Left = 16
|
||||||
|
Top = 56
|
||||||
|
Width = 597
|
||||||
|
Height = 370
|
||||||
|
Cursor = 101
|
||||||
|
ColCount = 5
|
||||||
|
RowCount = 20
|
||||||
|
AutoAddRow = True
|
||||||
|
DefColWidth = 100
|
||||||
|
GridColor = clSilver
|
||||||
|
HeaderLine = 2
|
||||||
|
HeaderColor = 14614528
|
||||||
|
HeaderLightColor = 16744448
|
||||||
|
HeaderDarkColor = clBlack
|
||||||
|
HeaderFont.Charset = DEFAULT_CHARSET
|
||||||
|
HeaderFont.Color = clWhite
|
||||||
|
HeaderFont.Height = -11
|
||||||
|
HeaderFont.Name = 'MS Sans Serif'
|
||||||
|
HeaderFont.Style = []
|
||||||
|
FooterFont.Charset = DEFAULT_CHARSET
|
||||||
|
FooterFont.Color = clRed
|
||||||
|
FooterFont.Height = -11
|
||||||
|
FooterFont.Name = 'MS Sans Serif'
|
||||||
|
FooterFont.Style = []
|
||||||
|
SelectionColor = 13816575
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Title = 'Merged;Multilined|Merged;Multilined'
|
||||||
|
Footer = 'Footer 0'
|
||||||
|
Width = 100
|
||||||
|
CanResize = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'First Group|One'
|
||||||
|
Footer = 'Footer 1'
|
||||||
|
Width = 100
|
||||||
|
Color = 14024703
|
||||||
|
HorzAlign = haCenter
|
||||||
|
Strings.Strings = (
|
||||||
|
'Satu'
|
||||||
|
'Dua'
|
||||||
|
'Tiga')
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'First Group|Two'
|
||||||
|
Footer = 'Footer 2'
|
||||||
|
Width = 100
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Second Group|One'
|
||||||
|
Footer = 'Footer 3'
|
||||||
|
Width = 100
|
||||||
|
Color = clWhite
|
||||||
|
HorzAlign = haRight
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Second Group|Two'
|
||||||
|
Footer = 'Footer 4'
|
||||||
|
Width = 100
|
||||||
|
HorzAlign = haCenter
|
||||||
|
end>
|
||||||
|
GutterKind = gkNumber
|
||||||
|
GutterWidth = 40
|
||||||
|
GutterFont.Charset = DEFAULT_CHARSET
|
||||||
|
GutterFont.Color = clWhite
|
||||||
|
GutterFont.Height = -11
|
||||||
|
GutterFont.Name = 'MS Sans Serif'
|
||||||
|
GutterFont.Style = []
|
||||||
|
ShowFooter = True
|
||||||
|
OnDrawHeader = NiceGrid1DrawHeader
|
||||||
|
OnInsertRow = NiceGrid1InsertRow
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object CheckBox1: TCheckBox
|
||||||
|
Left = 16
|
||||||
|
Top = 436
|
||||||
|
Width = 37
|
||||||
|
Height = 19
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Flat'
|
||||||
|
Checked = True
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = CheckBox1Click
|
||||||
|
end
|
||||||
|
object CheckBox2: TCheckBox
|
||||||
|
Left = 88
|
||||||
|
Top = 436
|
||||||
|
Width = 93
|
||||||
|
Height = 19
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'System Colors'
|
||||||
|
Checked = True
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = CheckBox2Click
|
||||||
|
end
|
||||||
|
object CheckBox3: TCheckBox
|
||||||
|
Left = 192
|
||||||
|
Top = 436
|
||||||
|
Width = 80
|
||||||
|
Height = 19
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Fit to Width'
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = CheckBox3Click
|
||||||
|
end
|
||||||
|
object CheckBox4: TCheckBox
|
||||||
|
Left = 288
|
||||||
|
Top = 436
|
||||||
|
Width = 125
|
||||||
|
Height = 19
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Auto Column Width'
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = CheckBox4Click
|
||||||
|
end
|
||||||
|
object CheckBox5: TCheckBox
|
||||||
|
Left = 424
|
||||||
|
Top = 436
|
||||||
|
Width = 77
|
||||||
|
Height = 19
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Show Grids'
|
||||||
|
Checked = True
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = CheckBox5Click
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 272
|
||||||
|
Top = 473
|
||||||
|
Width = 129
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = '&Hide 3rd Column'
|
||||||
|
TabOrder = 8
|
||||||
|
OnClick = Button1Click
|
||||||
|
end
|
||||||
|
object Button2: TButton
|
||||||
|
Left = 16
|
||||||
|
Top = 473
|
||||||
|
Width = 121
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = '&Insert New Row'
|
||||||
|
TabOrder = 6
|
||||||
|
OnClick = Button2Click
|
||||||
|
end
|
||||||
|
object Button3: TButton
|
||||||
|
Left = 144
|
||||||
|
Top = 473
|
||||||
|
Width = 121
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = '&Delete Current Row'
|
||||||
|
TabOrder = 7
|
||||||
|
OnClick = Button3Click
|
||||||
|
end
|
||||||
|
object Button4: TButton
|
||||||
|
Left = 416
|
||||||
|
Top = 473
|
||||||
|
Width = 182
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Toggle ReadOnly 3rd Column'
|
||||||
|
TabOrder = 9
|
||||||
|
OnClick = Button4Click
|
||||||
|
end
|
||||||
|
object CheckBox6: TCheckBox
|
||||||
|
Left = 528
|
||||||
|
Top = 436
|
||||||
|
Width = 84
|
||||||
|
Height = 19
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Show Footer'
|
||||||
|
TabOrder = 10
|
||||||
|
OnClick = CheckBox6Click
|
||||||
|
end
|
||||||
|
end
|
||||||
205
components/nicegrid/demos/Basic Demo/common/main.lfm
Normal file
205
components/nicegrid/demos/Basic Demo/common/main.lfm
Normal file
@ -0,0 +1,205 @@
|
|||||||
|
object MainForm: TMainForm
|
||||||
|
Left = 252
|
||||||
|
Height = 545
|
||||||
|
Top = 121
|
||||||
|
Width = 638
|
||||||
|
Caption = 'NiceGrid Demo - priyatna.org'
|
||||||
|
ClientHeight = 545
|
||||||
|
ClientWidth = 638
|
||||||
|
OnCreate = FormCreate
|
||||||
|
Position = poDesktopCenter
|
||||||
|
LCLVersion = '2.3.0.0'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 15
|
||||||
|
Top = 16
|
||||||
|
Width = 216
|
||||||
|
Caption = '- Try to copy paste a block between Excel'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 15
|
||||||
|
Top = 32
|
||||||
|
Width = 339
|
||||||
|
Caption = '- Try type something then press * and Enter. Try also > and Enter.'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object NiceGrid1: TNiceGrid
|
||||||
|
Cursor = 101
|
||||||
|
Left = 16
|
||||||
|
Height = 392
|
||||||
|
Top = 56
|
||||||
|
Width = 597
|
||||||
|
ColCount = 5
|
||||||
|
RowCount = 20
|
||||||
|
AutoAddRow = True
|
||||||
|
DefColWidth = 100
|
||||||
|
GridColor = clSilver
|
||||||
|
HeaderLine = 2
|
||||||
|
HeaderColor = 14614528
|
||||||
|
HeaderLightColor = 16744448
|
||||||
|
HeaderDarkColor = clBlack
|
||||||
|
HeaderFont.Color = clWhite
|
||||||
|
HeaderFont.Height = -11
|
||||||
|
HeaderFont.Name = 'MS Sans Serif'
|
||||||
|
FooterFont.Color = clRed
|
||||||
|
FooterFont.Height = -11
|
||||||
|
FooterFont.Name = 'MS Sans Serif'
|
||||||
|
SelectionColor = 13816575
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Title = 'Merged;Multilined|Merged;Multilined'
|
||||||
|
Footer = 'Footer 0'
|
||||||
|
Width = 100
|
||||||
|
CanResize = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'First Group|One'
|
||||||
|
Footer = 'Footer 1'
|
||||||
|
Width = 100
|
||||||
|
Color = 14024703
|
||||||
|
HorzAlign = haCenter
|
||||||
|
Strings.Strings = (
|
||||||
|
'Satu'
|
||||||
|
'Dua'
|
||||||
|
'Tiga'
|
||||||
|
)
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'First Group|Two'
|
||||||
|
Footer = 'Footer 2'
|
||||||
|
Width = 100
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Second Group|One'
|
||||||
|
Footer = 'Footer 3'
|
||||||
|
Width = 100
|
||||||
|
Color = clWhite
|
||||||
|
HorzAlign = haRight
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Second Group|Two'
|
||||||
|
Footer = 'Footer 4'
|
||||||
|
Width = 100
|
||||||
|
HorzAlign = haCenter
|
||||||
|
end>
|
||||||
|
GutterKind = gkNumber
|
||||||
|
GutterWidth = 40
|
||||||
|
GutterFont.Color = clWhite
|
||||||
|
GutterFont.Height = -11
|
||||||
|
GutterFont.Name = 'MS Sans Serif'
|
||||||
|
ShowFooter = True
|
||||||
|
OnDrawHeader = NiceGrid1DrawHeader
|
||||||
|
OnInsertRow = NiceGrid1InsertRow
|
||||||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object CheckBox1: TCheckBox
|
||||||
|
Left = 16
|
||||||
|
Height = 19
|
||||||
|
Top = 464
|
||||||
|
Width = 37
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Flat'
|
||||||
|
Checked = True
|
||||||
|
OnClick = CheckBox1Click
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object CheckBox2: TCheckBox
|
||||||
|
Left = 88
|
||||||
|
Height = 19
|
||||||
|
Top = 464
|
||||||
|
Width = 93
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'System Colors'
|
||||||
|
Checked = True
|
||||||
|
OnClick = CheckBox2Click
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object CheckBox3: TCheckBox
|
||||||
|
Left = 192
|
||||||
|
Height = 19
|
||||||
|
Top = 464
|
||||||
|
Width = 80
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Fit to Width'
|
||||||
|
OnClick = CheckBox3Click
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object CheckBox4: TCheckBox
|
||||||
|
Left = 288
|
||||||
|
Height = 19
|
||||||
|
Top = 464
|
||||||
|
Width = 125
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Auto Column Width'
|
||||||
|
OnClick = CheckBox4Click
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object CheckBox5: TCheckBox
|
||||||
|
Left = 424
|
||||||
|
Height = 19
|
||||||
|
Top = 464
|
||||||
|
Width = 77
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Show Grids'
|
||||||
|
Checked = True
|
||||||
|
OnClick = CheckBox5Click
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 272
|
||||||
|
Height = 25
|
||||||
|
Top = 501
|
||||||
|
Width = 129
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = '&Hide 3rd Column'
|
||||||
|
OnClick = Button1Click
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object Button2: TButton
|
||||||
|
Left = 16
|
||||||
|
Height = 25
|
||||||
|
Top = 501
|
||||||
|
Width = 121
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = '&Insert New Row'
|
||||||
|
OnClick = Button2Click
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object Button3: TButton
|
||||||
|
Left = 144
|
||||||
|
Height = 25
|
||||||
|
Top = 501
|
||||||
|
Width = 121
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = '&Delete Current Row'
|
||||||
|
OnClick = Button3Click
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object Button4: TButton
|
||||||
|
Left = 416
|
||||||
|
Height = 25
|
||||||
|
Top = 501
|
||||||
|
Width = 182
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
AutoSize = True
|
||||||
|
Caption = 'Toggle ReadOnly 3rd Column'
|
||||||
|
OnClick = Button4Click
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object CheckBox6: TCheckBox
|
||||||
|
Left = 528
|
||||||
|
Height = 19
|
||||||
|
Top = 464
|
||||||
|
Width = 84
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Caption = 'Show Footer'
|
||||||
|
OnClick = CheckBox6Click
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
160
components/nicegrid/demos/Basic Demo/common/main.pas
Normal file
160
components/nicegrid/demos/Basic Demo/common/main.pas
Normal file
@ -0,0 +1,160 @@
|
|||||||
|
unit Main;
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$MODE Delphi}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Variants, Classes, Types, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, ExtCtrls, NiceGrid;
|
||||||
|
|
||||||
|
type
|
||||||
|
TMainForm = class(TForm)
|
||||||
|
NiceGrid1: TNiceGrid;
|
||||||
|
CheckBox1: TCheckBox;
|
||||||
|
CheckBox2: TCheckBox;
|
||||||
|
CheckBox3: TCheckBox;
|
||||||
|
CheckBox4: TCheckBox;
|
||||||
|
CheckBox5: TCheckBox;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
Button3: TButton;
|
||||||
|
Button4: TButton;
|
||||||
|
CheckBox6: TCheckBox;
|
||||||
|
procedure CheckBox1Click(Sender: TObject);
|
||||||
|
procedure CheckBox2Click(Sender: TObject);
|
||||||
|
procedure CheckBox3Click(Sender: TObject);
|
||||||
|
procedure CheckBox4Click(Sender: TObject);
|
||||||
|
procedure CheckBox5Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure NiceGrid1DrawHeader(Sender: TObject; ACanvas: TCanvas;
|
||||||
|
Rc: TRect; Str: string; var Handled: Boolean);
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure Button2Click(Sender: TObject);
|
||||||
|
procedure Button3Click(Sender: TObject);
|
||||||
|
procedure NiceGrid1InsertRow(Sender: TObject; ARow: Integer);
|
||||||
|
procedure Button4Click(Sender: TObject);
|
||||||
|
procedure CheckBox6Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MainForm: TMainForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$R *.lfm}
|
||||||
|
{$ELSE}
|
||||||
|
{$R *.dfm}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
procedure TMainForm.CheckBox1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NiceGrid1.Flat := CheckBox1.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.CheckBox2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CheckBox2.Checked then
|
||||||
|
begin
|
||||||
|
with NiceGrid1 do
|
||||||
|
begin
|
||||||
|
//GridColor := clBtnShadow;
|
||||||
|
HeaderColor := clBtnFace;
|
||||||
|
HeaderDarkColor := clBtnShadow;
|
||||||
|
HeaderLightColor := clBtnHighlight;
|
||||||
|
HeaderFont.Color := clBlack;
|
||||||
|
GutterFont.Color := clBlack;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
with NiceGrid1 do
|
||||||
|
begin
|
||||||
|
//GridColor := clGray;
|
||||||
|
HeaderColor := $00DF0000;
|
||||||
|
HeaderDarkColor := clBlack;
|
||||||
|
HeaderLightColor := $00FF8000;
|
||||||
|
HeaderFont.Color := clWhite;
|
||||||
|
GutterFont.Color := clWhite;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.CheckBox3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NiceGrid1.FitToWidth := CheckBox3.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.CheckBox4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NiceGrid1.AutoColWidth := CheckBox4.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.CheckBox5Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NiceGrid1.ShowGrid := CheckBox5.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
x: Integer;
|
||||||
|
begin
|
||||||
|
NiceGrid1.BeginUpdate;
|
||||||
|
for x := 0 to 9 do
|
||||||
|
begin
|
||||||
|
NiceGrid1[0, x] := 'Sample Text';
|
||||||
|
NiceGrid1[1, x] := 'Centered Text';
|
||||||
|
NiceGrid1[2, x] := 'Left Alignment';
|
||||||
|
NiceGrid1[3, x] := FormatFloat('###,###,##0.##', Random(20000000));
|
||||||
|
NiceGrid1[4, x] := IntToStr(Random(2000));
|
||||||
|
end;
|
||||||
|
NiceGrid1.EndUpdate;
|
||||||
|
CheckBox2Click(nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.NiceGrid1DrawHeader(Sender: TObject; ACanvas: TCanvas;
|
||||||
|
Rc: TRect; Str: String; var Handled: Boolean);
|
||||||
|
begin
|
||||||
|
if (Str = 'One')
|
||||||
|
then ACanvas.Font.Color := clRed;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NiceGrid1.Columns[2].Visible := not NiceGrid1.Columns[2].Visible;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.Button2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NiceGrid1.InsertRow(NiceGrid1.Row);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.Button3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NiceGrid1.DeleteRow(NiceGrid1.Row);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.NiceGrid1InsertRow(Sender: TObject; ARow: Integer);
|
||||||
|
begin
|
||||||
|
NiceGrid1.Cells[0, ARow] := 'New Row';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.Button4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NiceGrid1.Columns[2].ReadOnly := not NiceGrid1.Columns[2].ReadOnly;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.CheckBox6Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NiceGrid1.ShowFooter := not NiceGrid1.ShowFooter;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,13 @@
|
|||||||
|
program OwnerDraw_Demo;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
Main in '..\common\main.pas' {MainForm};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TMainForm, MainForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
@ -0,0 +1,139 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{033D3D5F-8F64-45F0-83FE-0338A9BF025B}</ProjectGuid>
|
||||||
|
<MainSource>ownerdraw_demo.dpr</MainSource>
|
||||||
|
<Base>True</Base>
|
||||||
|
<Config Condition="'$(Config)'==''">Debug</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_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||||
|
<DCC_UsePackage>vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;vclshlctrls;$(DCC_UsePackage)</DCC_UsePackage>
|
||||||
|
<SanitizedProjectName>ownerdraw_demo</SanitizedProjectName>
|
||||||
|
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(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=</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>ownerdraw_demo_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>ownerdraw_demo_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>
|
||||||
|
</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)'!=''">
|
||||||
|
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="$(MainSource)">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\common\main.pas">
|
||||||
|
<Form>MainForm</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">ownerdraw_demo.dpr</Source>
|
||||||
|
</Source>
|
||||||
|
<Language>
|
||||||
|
<Language Name="RootDir">..\..\..\..\Prog_Lazarus\svn\lazarus-ccr\components\nicegrid\Demos\Owner Draw\Project_Delphi\</Language>
|
||||||
|
</Language>
|
||||||
|
</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>
|
||||||
@ -0,0 +1,100 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<MainUnitHasCreateFormStatements Value="False"/>
|
||||||
|
<MainUnitHasTitleStatement Value="False"/>
|
||||||
|
<MainUnitHasScaledStatement Value="False"/>
|
||||||
|
<CompatibilityMode Value="True"/>
|
||||||
|
</Flags>
|
||||||
|
<Title Value="ownerdraw_demo"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
</General>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N LFM="False"/>
|
||||||
|
</i18n>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
<Modes Count="1">
|
||||||
|
<Mode0 Name="default"/>
|
||||||
|
</Modes>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="NiceGridLaz"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="2">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="ownerdraw_demo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="OwnerDraw_Demo"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<CursorPos X="53" Y="17"/>
|
||||||
|
<UsageCount Value="20"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="..\common\main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="MainForm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="Main"/>
|
||||||
|
<IsVisibleTab Value="True"/>
|
||||||
|
<CursorPos X="39" Y="10"/>
|
||||||
|
<UsageCount Value="20"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
<LoadedDesigner Value="True"/>
|
||||||
|
</Unit1>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="1">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="..\common\main.pas"/>
|
||||||
|
<Caret Line="16" Column="9" TopLine="16"/>
|
||||||
|
</Position1>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<OtherUnitFiles Value="..\common"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
<ObjectPath Value="..\.."/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf3"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
@ -0,0 +1,19 @@
|
|||||||
|
program OwnerDraw_Demo;
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$MODE Delphi}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
uses
|
||||||
|
|
||||||
|
Interfaces,
|
||||||
|
Forms,
|
||||||
|
Main in 'Main.pas' {MainForm};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TMainForm, MainForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
74
components/nicegrid/demos/Owner Draw/common/main.dfm
Normal file
74
components/nicegrid/demos/Owner Draw/common/main.dfm
Normal file
@ -0,0 +1,74 @@
|
|||||||
|
object MainForm: TMainForm
|
||||||
|
Left = 308
|
||||||
|
Top = 139
|
||||||
|
BorderIcons = [biSystemMenu, biMinimize]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = 'Customizing Cells Based on Conditions'
|
||||||
|
ClientHeight = 413
|
||||||
|
ClientWidth = 474
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = True
|
||||||
|
Position = poDesktopCenter
|
||||||
|
OnCreate = FormCreate
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object NiceGrid1: TNiceGrid
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 441
|
||||||
|
Height = 385
|
||||||
|
Cursor = 101
|
||||||
|
ColCount = 5
|
||||||
|
RowCount = 20
|
||||||
|
HeaderFont.Charset = DEFAULT_CHARSET
|
||||||
|
HeaderFont.Color = clWindowText
|
||||||
|
HeaderFont.Height = -11
|
||||||
|
HeaderFont.Name = 'MS Sans Serif'
|
||||||
|
HeaderFont.Style = []
|
||||||
|
FooterFont.Charset = DEFAULT_CHARSET
|
||||||
|
FooterFont.Color = clWindowText
|
||||||
|
FooterFont.Height = -11
|
||||||
|
FooterFont.Name = 'MS Sans Serif'
|
||||||
|
FooterFont.Style = []
|
||||||
|
FitToWidth = True
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Title = 'Column 1'
|
||||||
|
Width = 84
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Column 2'
|
||||||
|
Width = 84
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Column 3'
|
||||||
|
Width = 83
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Column 4'
|
||||||
|
Width = 83
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Column 5'
|
||||||
|
Width = 83
|
||||||
|
end>
|
||||||
|
GutterFont.Charset = DEFAULT_CHARSET
|
||||||
|
GutterFont.Color = clWindowText
|
||||||
|
GutterFont.Height = -11
|
||||||
|
GutterFont.Name = 'MS Sans Serif'
|
||||||
|
GutterFont.Style = []
|
||||||
|
ShowFooter = False
|
||||||
|
OnDrawCell = NiceGrid1DrawCell
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
54
components/nicegrid/demos/Owner Draw/common/main.lfm
Normal file
54
components/nicegrid/demos/Owner Draw/common/main.lfm
Normal file
@ -0,0 +1,54 @@
|
|||||||
|
object MainForm: TMainForm
|
||||||
|
Left = 308
|
||||||
|
Height = 419
|
||||||
|
Top = 139
|
||||||
|
Width = 472
|
||||||
|
BorderIcons = [biSystemMenu, biMinimize]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = 'Customizing Cells Based on Conditions'
|
||||||
|
ClientHeight = 419
|
||||||
|
ClientWidth = 472
|
||||||
|
OnCreate = FormCreate
|
||||||
|
Position = poDesktopCenter
|
||||||
|
LCLVersion = '2.3.0.0'
|
||||||
|
object NiceGrid1: TNiceGrid
|
||||||
|
Cursor = 101
|
||||||
|
Left = 16
|
||||||
|
Height = 385
|
||||||
|
Top = 16
|
||||||
|
Width = 441
|
||||||
|
ColCount = 5
|
||||||
|
RowCount = 20
|
||||||
|
HeaderFont.Height = -11
|
||||||
|
HeaderFont.Name = 'MS Sans Serif'
|
||||||
|
FooterFont.Height = -11
|
||||||
|
FooterFont.Name = 'MS Sans Serif'
|
||||||
|
FitToWidth = True
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Title = 'Column 1'
|
||||||
|
Width = 84
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Column 2'
|
||||||
|
Width = 84
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Column 3'
|
||||||
|
Width = 83
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Column 4'
|
||||||
|
Width = 83
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Column 5'
|
||||||
|
Width = 83
|
||||||
|
end>
|
||||||
|
GutterFont.Height = -11
|
||||||
|
GutterFont.Name = 'MS Sans Serif'
|
||||||
|
ShowFooter = False
|
||||||
|
OnDrawCell = NiceGrid1DrawCell
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
62
components/nicegrid/demos/Owner Draw/common/main.pas
Normal file
62
components/nicegrid/demos/Owner Draw/common/main.pas
Normal file
@ -0,0 +1,62 @@
|
|||||||
|
unit Main;
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$MODE Delphi}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Variants, Classes, Types, Graphics, Controls, Forms,
|
||||||
|
Dialogs, ExtCtrls, NiceGrid;
|
||||||
|
|
||||||
|
type
|
||||||
|
TMainForm = class(TForm)
|
||||||
|
NiceGrid1: TNiceGrid;
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure NiceGrid1DrawCell(Sender: TObject; ACanvas: TCanvas;
|
||||||
|
X, Y: Integer; Rc: TRect; var Handled: Boolean);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MainForm: TMainForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$R *.lfm}
|
||||||
|
{$ELSE}
|
||||||
|
{$R *.dfm}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
procedure TMainForm.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
x: Integer;
|
||||||
|
begin
|
||||||
|
for x := 0 to 19 do
|
||||||
|
begin
|
||||||
|
NiceGrid1.Cells[0, x] := IntToStr(Random(100));
|
||||||
|
NiceGrid1.Cells[1, x] := IntToStr(Random(100));
|
||||||
|
NiceGrid1.Cells[2, x] := IntToStr(Random(100));
|
||||||
|
NiceGrid1.Cells[3, x] := IntToStr(Random(100));
|
||||||
|
NiceGrid1.Cells[4, x] := IntToStr(Random(100));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.NiceGrid1DrawCell(Sender: TObject; ACanvas: TCanvas; X,
|
||||||
|
Y: Integer; Rc: TRect; var Handled: Boolean);
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
i := StrToIntDef(NiceGrid1.Cells[X, Y], 0);
|
||||||
|
if Odd(i)
|
||||||
|
then ACanvas.Font.Color := clRed;
|
||||||
|
if ((i mod 10) = 0)
|
||||||
|
then ACanvas.Brush.Color := clYellow;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,13 @@
|
|||||||
|
program Synchronized_Demo;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
Main in '..\common\main.pas' {MainForm};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TMainForm, MainForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
@ -0,0 +1,137 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{620AEB0E-F025-456F-A5D2-80637ACC3A71}</ProjectGuid>
|
||||||
|
<MainSource>synchronized_demo.dpr</MainSource>
|
||||||
|
<Base>True</Base>
|
||||||
|
<Config Condition="'$(Config)'==''">Debug</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_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||||
|
<DCC_UsePackage>vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;vclshlctrls;$(DCC_UsePackage)</DCC_UsePackage>
|
||||||
|
<SanitizedProjectName>synchronized_demo</SanitizedProjectName>
|
||||||
|
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(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=</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>
|
||||||
|
<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)'!=''">
|
||||||
|
<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>
|
||||||
|
</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)'!=''">
|
||||||
|
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="$(MainSource)">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\common\main.pas">
|
||||||
|
<Form>MainForm</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">synchronized_demo.dpr</Source>
|
||||||
|
</Source>
|
||||||
|
<Language>
|
||||||
|
<Language Name="RootDir">..\..\..\..\Prog_Lazarus\svn\lazarus-ccr\components\nicegrid\Demos\Synchronized\Project_Delphi\</Language>
|
||||||
|
</Language>
|
||||||
|
</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>
|
||||||
@ -0,0 +1,94 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<MainUnitHasCreateFormStatements Value="False"/>
|
||||||
|
<MainUnitHasTitleStatement Value="False"/>
|
||||||
|
<MainUnitHasScaledStatement Value="False"/>
|
||||||
|
<CompatibilityMode Value="True"/>
|
||||||
|
</Flags>
|
||||||
|
<Title Value="synchronized_demo"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
</General>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N LFM="False"/>
|
||||||
|
</i18n>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
<Modes Count="1">
|
||||||
|
<Mode0 Name="default"/>
|
||||||
|
</Modes>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="NiceGridLaz"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="2">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="synchronized_demo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="Synchronized_Demo"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<CursorPos X="21" Y="5"/>
|
||||||
|
<UsageCount Value="20"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="..\common\main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="MainForm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="Main"/>
|
||||||
|
<IsVisibleTab Value="True"/>
|
||||||
|
<CursorPos X="19" Y="8"/>
|
||||||
|
<UsageCount Value="20"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit1>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory HistoryIndex="-1"/>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<OtherUnitFiles Value="..\common"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
<ObjectPath Value="..\.."/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf3"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
@ -0,0 +1,16 @@
|
|||||||
|
program Synchronized_Demo;
|
||||||
|
|
||||||
|
{$MODE Delphi}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Interfaces,
|
||||||
|
Forms,
|
||||||
|
Main in 'main.pas' {MainForm};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TMainForm, MainForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
188
components/nicegrid/demos/Synchronized/common/main.dfm
Normal file
188
components/nicegrid/demos/Synchronized/common/main.dfm
Normal file
@ -0,0 +1,188 @@
|
|||||||
|
object MainForm: TMainForm
|
||||||
|
Left = 260
|
||||||
|
Top = 99
|
||||||
|
Width = 719
|
||||||
|
Height = 570
|
||||||
|
Caption = 'Tabel Budget'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = True
|
||||||
|
Position = poDesktopCenter
|
||||||
|
DesignSize = (
|
||||||
|
703
|
||||||
|
531)
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 678
|
||||||
|
Height = 504
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
BevelOuter = bvNone
|
||||||
|
TabOrder = 0
|
||||||
|
object Splitter1: TSplitter
|
||||||
|
Left = 329
|
||||||
|
Top = 0
|
||||||
|
Width = 5
|
||||||
|
Height = 504
|
||||||
|
end
|
||||||
|
object NiceGrid1: TNiceGrid
|
||||||
|
Left = 334
|
||||||
|
Top = 0
|
||||||
|
Width = 344
|
||||||
|
Height = 504
|
||||||
|
Cursor = 101
|
||||||
|
ColCount = 12
|
||||||
|
RowCount = 20
|
||||||
|
GridColor = clSilver
|
||||||
|
HeaderLine = 2
|
||||||
|
HeaderFont.Charset = DEFAULT_CHARSET
|
||||||
|
HeaderFont.Color = clWindowText
|
||||||
|
HeaderFont.Height = -11
|
||||||
|
HeaderFont.Name = 'MS Sans Serif'
|
||||||
|
HeaderFont.Style = []
|
||||||
|
FooterFont.Charset = DEFAULT_CHARSET
|
||||||
|
FooterFont.Color = clWindowText
|
||||||
|
FooterFont.Height = -11
|
||||||
|
FooterFont.Name = 'MS Sans Serif'
|
||||||
|
FooterFont.Style = []
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Title = '0|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '0|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2000|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2000|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2001|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2001|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2002|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2002|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2003|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2003|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2004|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2004|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end>
|
||||||
|
GutterKind = gkNone
|
||||||
|
GutterWidth = 40
|
||||||
|
GutterFont.Charset = DEFAULT_CHARSET
|
||||||
|
GutterFont.Color = clWindowText
|
||||||
|
GutterFont.Height = -11
|
||||||
|
GutterFont.Name = 'MS Sans Serif'
|
||||||
|
GutterFont.Style = []
|
||||||
|
ShowFooter = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object NiceGridSync1: TNiceGridSync
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 329
|
||||||
|
Height = 504
|
||||||
|
Cursor = 101
|
||||||
|
ColCount = 3
|
||||||
|
RowCount = 20
|
||||||
|
AutoAddRow = True
|
||||||
|
GridColor = clSilver
|
||||||
|
HeaderLine = 2
|
||||||
|
HeaderFont.Charset = DEFAULT_CHARSET
|
||||||
|
HeaderFont.Color = clWindowText
|
||||||
|
HeaderFont.Height = -11
|
||||||
|
HeaderFont.Name = 'MS Sans Serif'
|
||||||
|
HeaderFont.Style = []
|
||||||
|
FooterFont.Charset = DEFAULT_CHARSET
|
||||||
|
FooterFont.Color = clWindowText
|
||||||
|
FooterFont.Height = -11
|
||||||
|
FooterFont.Name = 'MS Sans Serif'
|
||||||
|
FooterFont.Style = []
|
||||||
|
FitToWidth = True
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Title = 'Unit Name'
|
||||||
|
Width = 135
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Unit Cost|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 15790335
|
||||||
|
CanResize = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Unit Cost|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 14671871
|
||||||
|
CanResize = False
|
||||||
|
end>
|
||||||
|
GutterKind = gkNumber
|
||||||
|
GutterWidth = 30
|
||||||
|
GutterFont.Charset = DEFAULT_CHARSET
|
||||||
|
GutterFont.Color = clWindowText
|
||||||
|
GutterFont.Height = -11
|
||||||
|
GutterFont.Name = 'MS Sans Serif'
|
||||||
|
GutterFont.Style = []
|
||||||
|
ShowFooter = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 1
|
||||||
|
Grid = NiceGrid1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
153
components/nicegrid/demos/Synchronized/common/main.lfm
Normal file
153
components/nicegrid/demos/Synchronized/common/main.lfm
Normal file
@ -0,0 +1,153 @@
|
|||||||
|
object MainForm: TMainForm
|
||||||
|
Left = 260
|
||||||
|
Height = 570
|
||||||
|
Top = 99
|
||||||
|
Width = 719
|
||||||
|
Caption = 'Tabel Budget'
|
||||||
|
ClientHeight = 570
|
||||||
|
ClientWidth = 719
|
||||||
|
Position = poDesktopCenter
|
||||||
|
LCLVersion = '2.3.0.0'
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 16
|
||||||
|
Height = 504
|
||||||
|
Top = 16
|
||||||
|
Width = 678
|
||||||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
|
BevelOuter = bvNone
|
||||||
|
ClientHeight = 504
|
||||||
|
ClientWidth = 678
|
||||||
|
TabOrder = 0
|
||||||
|
object Splitter1: TSplitter
|
||||||
|
Left = 329
|
||||||
|
Height = 504
|
||||||
|
Top = 0
|
||||||
|
Width = 5
|
||||||
|
end
|
||||||
|
object NiceGrid1: TNiceGrid
|
||||||
|
Cursor = 101
|
||||||
|
Left = 334
|
||||||
|
Height = 504
|
||||||
|
Top = 0
|
||||||
|
Width = 344
|
||||||
|
ColCount = 12
|
||||||
|
RowCount = 20
|
||||||
|
GridColor = clSilver
|
||||||
|
HeaderLine = 2
|
||||||
|
HeaderFont.Height = -11
|
||||||
|
HeaderFont.Name = 'MS Sans Serif'
|
||||||
|
FooterFont.Height = -11
|
||||||
|
FooterFont.Name = 'MS Sans Serif'
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Title = '0|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '0|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2000|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2000|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2001|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2001|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2002|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2002|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2003|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2003|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2004|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16775924
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = '2004|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 16773601
|
||||||
|
end>
|
||||||
|
GutterKind = gkNone
|
||||||
|
GutterWidth = 40
|
||||||
|
GutterFont.Height = -11
|
||||||
|
GutterFont.Name = 'MS Sans Serif'
|
||||||
|
ShowFooter = False
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object NiceGridSync1: TNiceGridSync
|
||||||
|
Cursor = 101
|
||||||
|
Left = 0
|
||||||
|
Height = 504
|
||||||
|
Top = 0
|
||||||
|
Width = 329
|
||||||
|
ColCount = 3
|
||||||
|
RowCount = 20
|
||||||
|
AutoAddRow = True
|
||||||
|
GridColor = clSilver
|
||||||
|
HeaderLine = 2
|
||||||
|
HeaderFont.Height = -11
|
||||||
|
HeaderFont.Name = 'MS Sans Serif'
|
||||||
|
FooterFont.Height = -11
|
||||||
|
FooterFont.Name = 'MS Sans Serif'
|
||||||
|
FitToWidth = True
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Title = 'Unit Name'
|
||||||
|
Width = 135
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Unit Cost|Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 15790335
|
||||||
|
CanResize = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Title = 'Unit Cost|Non Capital'
|
||||||
|
Width = 80
|
||||||
|
Color = 14671871
|
||||||
|
CanResize = False
|
||||||
|
end>
|
||||||
|
GutterKind = gkNumber
|
||||||
|
GutterWidth = 30
|
||||||
|
GutterFont.Height = -11
|
||||||
|
GutterFont.Name = 'MS Sans Serif'
|
||||||
|
ShowFooter = False
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 1
|
||||||
|
Grid = NiceGrid1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
36
components/nicegrid/demos/Synchronized/common/main.pas
Normal file
36
components/nicegrid/demos/Synchronized/common/main.pas
Normal file
@ -0,0 +1,36 @@
|
|||||||
|
unit Main;
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$MODE Delphi}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, ExtCtrls, NiceGrid, StdCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
TMainForm = class(TForm)
|
||||||
|
Panel1: TPanel;
|
||||||
|
Splitter1: TSplitter;
|
||||||
|
NiceGrid1: TNiceGrid;
|
||||||
|
NiceGridSync1: TNiceGridSync;
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MainForm: TMainForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$R *.lfm}
|
||||||
|
{$ELSE}
|
||||||
|
{$R *.dfm}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
end.
|
||||||
1
components/nicegrid/images/make_res.bat
Normal file
1
components/nicegrid/images/make_res.bat
Normal file
@ -0,0 +1 @@
|
|||||||
|
lazres ../source/nicegrid.res tnicegrid.bmp
|
||||||
BIN
components/nicegrid/images/tnicegrid.bmp
Normal file
BIN
components/nicegrid/images/tnicegrid.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 406 B |
@ -0,0 +1,37 @@
|
|||||||
|
package NiceGridDXE11;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$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 - NiceGrid'}
|
||||||
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
|
requires
|
||||||
|
rtl,
|
||||||
|
vcl,
|
||||||
|
DesignIDE;
|
||||||
|
|
||||||
|
contains
|
||||||
|
NiceGrid in '..\..\source\nicegrid.pas',
|
||||||
|
NiceGridReg in '..\..\source\nicegridreg.pas';
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,116 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{FBECAA36-F4AE-4F9C-96CC-75A78471B8AC}</ProjectGuid>
|
||||||
|
<MainSource>NiceGridDXE11.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="('$(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="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||||
|
<Cfg_2>true</Cfg_2>
|
||||||
|
<CfgParent>Base</CfgParent>
|
||||||
|
<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>NiceGridDXE11</SanitizedProjectName>
|
||||||
|
<DCC_DebugInformation>1</DCC_DebugInformation>
|
||||||
|
<DCC_Description>priyatna.org - NiceGrid</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>
|
||||||
|
</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>
|
||||||
|
<DCC_UsePackage>vcl;rtl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||||
|
<DCC_UsePackage>vcl;rtl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||||
|
</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>
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="$(MainSource)">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="rtl.dcp"/>
|
||||||
|
<DCCReference Include="vcl.dcp"/>
|
||||||
|
<DCCReference Include="DesignIDE.dcp"/>
|
||||||
|
<DCCReference Include="..\..\source\nicegrid.pas"/>
|
||||||
|
<DCCReference Include="..\..\source\nicegridreg.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">NiceGridDXE11.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</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>
|
||||||
37
components/nicegrid/packages/Delphi7/NiceGridD7.dpk
Normal file
37
components/nicegrid/packages/Delphi7/NiceGridD7.dpk
Normal file
@ -0,0 +1,37 @@
|
|||||||
|
package NiceGridD7;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$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 - NiceGrid'}
|
||||||
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
|
requires
|
||||||
|
rtl,
|
||||||
|
vcl,
|
||||||
|
DesignIDE;
|
||||||
|
|
||||||
|
contains
|
||||||
|
NiceGrid in '..\..\source\nicegrid.pas',
|
||||||
|
NiceGridReg in '..\..\source\nicegridreg.pas';
|
||||||
|
|
||||||
|
end.
|
||||||
49
components/nicegrid/packages/Lazarus/NiceGridLaz.lpk
Normal file
49
components/nicegrid/packages/Lazarus/NiceGridLaz.lpk
Normal file
@ -0,0 +1,49 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<Package Version="5">
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Name Value="NiceGridLaz"/>
|
||||||
|
<Type Value="RunAndDesignTime"/>
|
||||||
|
<AddToProjectUsesSection Value="True"/>
|
||||||
|
<Author Value="Priyatna"/>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="..\.."/>
|
||||||
|
<OtherUnitFiles Value="..\.."/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Description Value="A component that is aimed to be a standard string grid replacement. It is written from scratch, not descended from TStringGrid. Originally written for Delphi, it is adapted to Lazarus here."/>
|
||||||
|
<License Value="MPL 1.1"/>
|
||||||
|
<Version Major="3"/>
|
||||||
|
<Files Count="2">
|
||||||
|
<Item1>
|
||||||
|
<Filename Value="../../source/nicegrid.pas"/>
|
||||||
|
<UnitName Value="NiceGrid"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Filename Value="../../source/nicegridreg.pas"/>
|
||||||
|
<HasRegisterProc Value="True"/>
|
||||||
|
<UnitName Value="NiceGridReg"/>
|
||||||
|
</Item2>
|
||||||
|
</Files>
|
||||||
|
<CompatibilityMode Value="True"/>
|
||||||
|
<RequiredPkgs Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="IDEIntf"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
<MinVersion Major="1" Valid="True"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPkgs>
|
||||||
|
<UsageOptions>
|
||||||
|
<UnitPath Value="$(PkgOutDir)"/>
|
||||||
|
</UsageOptions>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
</PublishOptions>
|
||||||
|
</Package>
|
||||||
|
</CONFIG>
|
||||||
22
components/nicegrid/packages/Lazarus/NiceGridLaz.pas
Normal file
22
components/nicegrid/packages/Lazarus/NiceGridLaz.pas
Normal 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 NiceGridLaz;
|
||||||
|
|
||||||
|
{$warn 5023 off : no warning about unused units}
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
NiceGrid, NiceGridReg, LazarusPackageIntf;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
begin
|
||||||
|
RegisterUnit('NiceGridReg', @NiceGridReg.Register);
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterPackage('NiceGridLaz', @Register);
|
||||||
|
end.
|
||||||
BIN
components/nicegrid/source/NiceCursors.res
Normal file
BIN
components/nicegrid/source/NiceCursors.res
Normal file
Binary file not shown.
BIN
components/nicegrid/source/nicegrid.dcr
Normal file
BIN
components/nicegrid/source/nicegrid.dcr
Normal file
Binary file not shown.
3873
components/nicegrid/source/nicegrid.pas
Normal file
3873
components/nicegrid/source/nicegrid.pas
Normal file
File diff suppressed because it is too large
Load Diff
BIN
components/nicegrid/source/nicegrid.res
Normal file
BIN
components/nicegrid/source/nicegrid.res
Normal file
Binary file not shown.
111
components/nicegrid/source/nicegridreg.pas
Normal file
111
components/nicegrid/source/nicegridreg.pas
Normal file
@ -0,0 +1,111 @@
|
|||||||
|
|
||||||
|
{-------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
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 NiceGridReg.pas released at April 11st, 2003.
|
||||||
|
The Original Code is a part of NiceGrid component.
|
||||||
|
The Initial Developer of the Original Code is Priyatna.
|
||||||
|
(Website: http://www.priyatna.org/ Email: me@priyatna.org)
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
|
||||||
|
Alternatively, the contents of this file may be used under the terms of the
|
||||||
|
GNU General Public License Version 2 or later (the "GPL"), in which case
|
||||||
|
the provisions of the GPL are applicable instead of those above.
|
||||||
|
If you wish to allow use of your version of this file only under the terms
|
||||||
|
of the GPL 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 GPL.
|
||||||
|
If you do not delete the provisions above, a recipient may use your version
|
||||||
|
of this file under either the MPL or the GPL.
|
||||||
|
|
||||||
|
-------------------------------------------------------------------------------}
|
||||||
|
|
||||||
|
|
||||||
|
unit NiceGridReg;
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$MODE Delphi}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$R nicegrid.res}
|
||||||
|
{$ELSE}
|
||||||
|
{$R nicegrid.dcr}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Dialogs, Classes,
|
||||||
|
{$IFDEF FPC}
|
||||||
|
PropEdits, ComponentEditors,
|
||||||
|
{$ELSE}
|
||||||
|
DesignIntf, DesignEditors, ColnEdit,
|
||||||
|
{$ENDIF}
|
||||||
|
NiceGrid;
|
||||||
|
|
||||||
|
type
|
||||||
|
TNiceGridEditor = class(TComponentEditor)
|
||||||
|
protected
|
||||||
|
function GetVerbCount: Integer; override;
|
||||||
|
function GetVerb(Index: Integer): string; override;
|
||||||
|
procedure ExecuteVerb(Index: Integer); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TNiceGridEditor }
|
||||||
|
|
||||||
|
procedure TNiceGridEditor.ExecuteVerb(Index: Integer);
|
||||||
|
begin
|
||||||
|
(*
|
||||||
|
case Index of
|
||||||
|
|
||||||
|
0: ShowCollectionEditorClass(Designer, TCollectionEditor, Component,
|
||||||
|
TNiceGrid(Component).Columns, 'Columns', [coAdd, coDelete, coMove]);
|
||||||
|
|
||||||
|
1: ShowMessage(
|
||||||
|
'TNiceGrid v 1.00 (Mozilla Public License)'#13 +
|
||||||
|
'(c) Priyatna, 2003'#13 +
|
||||||
|
'Bandung - Indonesia'#13 +
|
||||||
|
'http://www.priyatna.org/'#13 +
|
||||||
|
'mailto:me@priyatna.org'
|
||||||
|
);
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNiceGridEditor.GetVerb(Index: Integer): string;
|
||||||
|
begin
|
||||||
|
case Index of
|
||||||
|
0: Result := 'Edit Columns ...';
|
||||||
|
1: Result := 'About';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNiceGridEditor.GetVerbCount: Integer;
|
||||||
|
begin
|
||||||
|
Result := 2;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
begin
|
||||||
|
RegisterComponents('priyatna.org', [TNiceGrid, TNiceGridSync]);
|
||||||
|
RegisterComponentEditor(TNiceGrid, TNiceGridEditor);
|
||||||
|
RegisterComponentEditor(TNiceGridSync, TNiceGridEditor);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Reference in New Issue
Block a user