JVCL, mbColorLib, TvPlanIt: Fix compilation with Laz/main

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8827 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/run/JvCtrls/jvgroupheader.pas

@@ -25,7 +25,7 @@ interface
 
 uses
   LCLIntf, LCLType,
-  Classes, Graphics, Controls, ExtCtrls,
+  Types, Classes, Graphics, Controls, ExtCtrls,
   JvComponent, JvTypes;
 
 type

components/jvcllaz/run/JvCustomControls/jvimagelistviewer.pas

@@ -30,7 +30,7 @@ interface
 
 uses
   LCLVersion,
-  SysUtils, Classes, Controls, Graphics, ComCtrls, ImgList,
+  SysUtils, Types, Classes, Controls, Graphics, ComCtrls, ImgList,
   JvCustomItemViewer;
 
 type

components/jvcllaz/run/JvHMI/jvled.pas

@@ -35,8 +35,7 @@ interface
 
 uses
   LCLIntf,
-  //Windows, Messages,
+  Types, Controls, Forms, Graphics, ExtCtrls, Classes,
-  Controls, Forms, Graphics, ExtCtrls, Classes,
   JvComponent;
 
 type

components/jvcllaz/run/JvNet/jvstrtohtml.pas

@@ -488,5 +488,32 @@ begin
   SetLength(Result, CurrPos-1);
 end;
 
+{<<<<<<<<<<<<<< NOT CONVERTED
+function CharToHtml(Ch: Char): string;
+var
+  I: Integer;
+  W: Word;
+begin
+  if (Ord(Ch) >= 128) or not (AnsiChar(Ch) in ['A'..'Z', 'a'..'z', '0'..'9', '_']) then
+  begin
+    W := Word(Ch);
+    {$IFNDEF UNICODE}
+    if (W < 128) or (MultiByteToWideChar(CP_ACP, MB_ERR_INVALID_CHARS, @Ch, 1, PWideChar(@W), 1) <> 0) then
+    {$ENDIF ~UNICODE}
+    begin
+      I := 0;
+      while (I < Length(Conversions)) and (Conversions[I].Ch <> W) do
+        Inc(I);
+      if I < Length(Conversions) then
+      begin
+        Result := Conversions[I].Html;
+        Exit;
+      end;
+    end;
+  end;
+  Result := Ch;
+end;
+>>>>>>>>>>>>>>>>>>> }
+
 end.
 

components/jvcllaz/run/JvPageComps/jvnavigationpane.pas

@@ -48,7 +48,7 @@ interface
 
 uses
   LCLIntf, LCLType, LMessages,
-  SysUtils, Classes, Controls, ExtCtrls, Graphics, ImgList, JvButton, Menus,
+  SysUtils, Types, Classes, Controls, ExtCtrls, Graphics, ImgList, JvButton, Menus,
   JvComponent, JvExExtCtrls, JvPageList, JvTypes;
 
 const

components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   LCLProc, LCLType, LResources, LCLIntf, LMessages,
-  SysUtils, Classes, Controls, Graphics, Forms, ExtCtrls, Contnrs,
+  SysUtils, Types, Classes, Controls, Graphics, Forms, ExtCtrls, Contnrs,
   JvDesignUtils, JvDesignSurface;
 
 const

components/jvcllaz/run/JvStdCtrls/jvbutton.pas

@@ -35,7 +35,7 @@ interface
 
 uses
   LMessages,
-  Classes, Controls, Graphics, Menus,
+  Classes, Types, Controls, Graphics, Menus,
   JvComponent, JvConsts, JvTypes;
 
 type

components/jvcllaz/run/JvTimeFramework/jvtfglancetextviewer.pas

@@ -32,7 +32,7 @@ interface
 
 uses
   LCLIntf, LCLType, LMessages,
-  SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  SysUtils, Types, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
   JvComponent,
   JvTFManager, JvTFGlance, JvTFUtils;
 

components/jvcllaz/run/JvTimeFramework/jvtfmanager.pas

@@ -32,7 +32,7 @@ interface
 
 uses
   LCLIntf, LCLType,
-  Classes, SysUtils, Controls,
+  Classes, SysUtils, Types, Controls,
   Graphics, ImgList, ExtCtrls, Printers, Forms,
   //JvComponentBase,
   JvComponent, JvTypes, JvTFUtils;

components/jvcllaz/run/JvValidators/jverrorindicator.pas

@@ -41,7 +41,7 @@ unit JvErrorIndicator;
 interface
 
 uses
-  Classes, Graphics, Controls, ImgList;
+  Classes, Graphics, Types, Controls, ImgList;
 
 type
   IJvErrorIndicatorClient = interface;

components/jvcllaz/run/JvWizard/jvwizardroutemapnodes.pas

@@ -44,7 +44,8 @@ unit JvWizardRouteMapNodes;
 interface
 
 uses
-  Graphics, Classes, Controls, LCLIntf, LCLType,
+  LCLIntf, LCLType,
+  Graphics, Types, Classes, Controls,
   JvWizard;
 
 type

components/jvcllaz/run/JvWizard/jvwizardroutemapsteps.pas

@@ -36,7 +36,8 @@ unit JvWizardRouteMapSteps;
 interface
 
 uses
-  SysUtils, Classes, Graphics, Controls, Forms, LCLIntf, LCLType,
+  LCLIntf, LCLType,
+  SysUtils, Types, Classes, Graphics, Controls, Forms,
   JvWizard;
 
 type

components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas

@@ -34,7 +34,7 @@ interface
 
 uses
   LCLIntf, LCLProc, LCLType,
-  TypInfo, Classes, Controls, Graphics, ExtCtrls,
+  Types, TypInfo, Classes, Controls, Graphics, ExtCtrls,
   JvXPCore, JvXPCoreUtils;
 
 type

components/jvcllaz/run/JvXPCtrls/jvxpcoreutils.pas

@@ -35,7 +35,7 @@ interface
 
 uses
   LCLIntf, LCLType, SysUtils,
-  Classes, Controls, Graphics, TypInfo,
+  Types, Classes, Controls, Graphics, TypInfo,
   JvXPCore;
 
 function JvXPMethodsEqual(const Method1, Method2: TMethod): Boolean;

components/mbColorLib/mbColorPalette.pas

@@ -6,8 +6,8 @@ unit mbColorPalette;
 interface
 
 uses
-  LCLIntf, LCLType, LMessages, SysUtils, Classes, Controls, Graphics,
+  LCLIntf, LCLType, LMessages,
-  Forms, Dialogs, Themes,
+  SysUtils, Classes, Types, Controls, Graphics, Forms, Dialogs, Themes,
   HTMLColors, PalUtils, mbBasicPicker;
 
 type

components/tvplanit/source/vpbasepainter.pas

@@ -3,7 +3,7 @@ unit VpBasePainter;
 interface
 
 uses
-  Classes, Graphics, LCLType,
+  Classes, Types, Graphics, LCLType,
   VPBase;
 
 type

components/tvplanit/source/vpcalendarpainter.pas

@@ -5,7 +5,7 @@ unit VpCalendarPainter;
 interface
 
 uses
-  SysUtils, Classes, Graphics, Controls,
+  SysUtils, Classes, Types, Graphics, Controls,
   VpBase, VpMisc, VpBasePainter, VpCalendar;
 
 type

components/tvplanit/source/vpmisc.pas

@@ -39,7 +39,7 @@ uses
   {$ELSE}
   Windows, Consts, Messages,
   {$ENDIF}
-  SysUtils, Buttons, Classes, Controls, StdCtrls, ExtCtrls, Forms, Graphics, Menus,
+  SysUtils, Graphics, Types, Classes, Controls, StdCtrls, ExtCtrls, Buttons, Forms, Menus,
   VpBase, VpData, VpConst;
 
 type

components/tvplanit/source/vpnavbarpainter.pas

@@ -10,7 +10,7 @@ uses
   {$ELSE}
   Windows, Messages, MMSystem,
   {$ENDIF}
-  Graphics, Classes, SysUtils, Controls, Buttons,
+  Graphics, Types, Classes, SysUtils, Controls, Buttons,
   VpNavBar;
 
 type