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

orpheus: Fix compilation with Laz 1.8/1.9

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6123 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-01-09 19:39:55 +00:00
parent c5ac664c09
commit 3062cbec03
2 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/orpheus/mymisc.pas
View File

@ -353,6 +353,11 @@ function GetBrowserPath : string;
implementation implementation
{$IFDEF LCL}
uses
LCLPlatformDef ;
{$ENDIF}
{These functions belong in LclIntf unit} {These functions belong in LclIntf unit}
function IsCharAlpha(c : Char) : Boolean; function IsCharAlpha(c : Char) : Boolean;

4
components/orpheus/ovccal.pas
View File

@ -412,6 +412,10 @@ type
implementation implementation
{$IFDEF LCL}
uses
LazUTF8;
{$ENDIF}
const const
calMargin = 4; {left, right, and top margin} calMargin = 4; {left, right, and top margin}