orpheus: Fix compilation with Laz 1.8/1.9

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6123 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2018-01-09 19:39:55 +00:00 · 2018-01-09 19:39:55 +00:00 · 3062cbec03
commit 3062cbec03
parent c5ac664c09
2 changed files with 9 additions and 0 deletions
--- a/components/orpheus/mymisc.pas
+++ b/components/orpheus/mymisc.pas
@ -353,6 +353,11 @@ function GetBrowserPath : string;

 implementation

+{$IFDEF LCL}
+uses
+  LCLPlatformDef ;
+{$ENDIF}
+
 {These functions belong in LclIntf unit}

 function IsCharAlpha(c : Char) : Boolean;
--- a/components/orpheus/ovccal.pas
+++ b/components/orpheus/ovccal.pas
@ -412,6 +412,10 @@ type

 implementation

+{$IFDEF LCL}
+uses
+  LazUTF8;
+{$ENDIF}

 const
  calMargin = 4; {left, right, and top margin}