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