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

chemtext: add readme.txt

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5960 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-06-25 16:29:53 +00:00
parent 9e238d3552
commit bb633f3f8c
3 changed files with 38 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/chemtext/demo/runtime/project1.lpi
View File

@ -57,6 +57,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

29
components/chemtext/readme.txt Normal file
View File

@ -0,0 +1,29 @@
--------------------------------------------------------------------------------
CHEMTEXT
--------------------------------------------------------------------------------
This library is intended to display chemical formulas and equations with
automatically placed subscripts and superscripts.
The procedure ChemTextOut draws the chemical text onto any canvas object
(useful for writing event handlers for user drawn lists and grids).
This procedure is used by the component TChemLabel to display chemical formulas
on the forms.
The formulas are written in a straightforward way. The "2" in H2O is automatically
subscripted, and the + in H+ is automatically displayed as superscript. Note
that multiple-charge ions must repeat the charge sign, i.e. the double-negatively
charged oxygon ion must be written as O--, not as O2-.
For chemical reactions, arrows can be entered as -->, <-- or <-->. The property
Arrow of the TChemLabel determines whether this simple is to be replaced by
a nice UTF8 character.
The code is based on "chemtxt" written by Patrick Spanel
(Patrik.Spanel@jh-inst.cas.cz). It was adapted to Lazarus and extended by
Werner Pamler.
The code does not work under Delphi any more.
License:
LGPL with linking exception (the same license used by Lazarus).

8
components/chemtext/source/chemtext.pas
View File

@ -95,13 +95,11 @@ type
{ The following rotuines can be used in an event handler, for example in
OnDrawDataCell of DBGrid:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State:
TGridDrawState);
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if Assigned(Field) then
ChemTextOut((Sender as TDBGrid).Canvas, Rect, Rect.Left,
Rect.Top, Field.DisplayText);
ChemTextOut((Sender as TDBGrid).Canvas, Rect.Left, Rect.Top, Field.DisplayText);
end;
}