paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ChemText: Fix compilation after LCL changes in r64173.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7954 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2021-01-03 18:16:11 +00:00
parent ef821b4227
commit 9561a4e614
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,7 +22,7 @@ unit chemtext;
interface
uses
LclIntf, LCLType, Types, SysUtils, Classes, Graphics, StdCtrls;
LclIntf, LCLType, LCLVersion, Types, SysUtils, Classes, Graphics, StdCtrls;
type
TChemArrow = (
@ -38,7 +38,7 @@ type
{%H-}WithThemeSpace: Boolean); override;
procedure CalculateSize(out NeededWidth, NeededHeight: Integer);
procedure DoMeasureTextPosition(var TextTop: integer;
var TextLeft: integer); override;
var TextLeft: integer); {$IF LCL_FullVersion < 2010000} override; {$IFEND}
public
constructor Create(AOwner: TComponent); override;
procedure Paint; override;