pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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 interface
uses uses
LclIntf, LCLType, Types, SysUtils, Classes, Graphics, StdCtrls; LclIntf, LCLType, LCLVersion, Types, SysUtils, Classes, Graphics, StdCtrls;
type type
TChemArrow = ( TChemArrow = (
@ -38,7 +38,7 @@ type
{%H-}WithThemeSpace: Boolean); override; {%H-}WithThemeSpace: Boolean); override;
procedure CalculateSize(out NeededWidth, NeededHeight: Integer); procedure CalculateSize(out NeededWidth, NeededHeight: Integer);
procedure DoMeasureTextPosition(var TextTop: integer; procedure DoMeasureTextPosition(var TextTop: integer;
var TextLeft: integer); override; var TextLeft: integer); {$IF LCL_FullVersion < 2010000} override; {$IFEND}
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure Paint; override; procedure Paint; override;