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

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8827 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-06 18:23:57 +00:00
parent ec547b35ca
commit 670eceeb88
19 changed files with 48 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jvcllaz/run/JvCtrls/jvgroupheader.pas
View File

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

2
components/jvcllaz/run/JvCustomControls/jvimagelistviewer.pas
View File

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

3
components/jvcllaz/run/JvHMI/jvled.pas
View File

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

27
components/jvcllaz/run/JvNet/jvstrtohtml.pas
View File

@ -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.

2
components/jvcllaz/run/JvPageComps/jvnavigationpane.pas
View File

@ -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

2
components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas
View File

@ -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

2
components/jvcllaz/run/JvStdCtrls/jvbutton.pas
View File

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

2
components/jvcllaz/run/JvTimeFramework/jvtfglancetextviewer.pas
View File

@ -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;

2
components/jvcllaz/run/JvTimeFramework/jvtfmanager.pas
View File

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

2
components/jvcllaz/run/JvValidators/jverrorindicator.pas
View File

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

3
components/jvcllaz/run/JvWizard/jvwizardroutemapnodes.pas
View File

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

3
components/jvcllaz/run/JvWizard/jvwizardroutemapsteps.pas
View File

@ -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

2
components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas
View File

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

2
components/jvcllaz/run/JvXPCtrls/jvxpcoreutils.pas
View File

@ -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;

4
components/mbColorLib/mbColorPalette.pas
View File

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

2
components/tvplanit/source/vpbasepainter.pas
View File

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

2
components/tvplanit/source/vpcalendarpainter.pas
View File

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

2
components/tvplanit/source/vpmisc.pas
View File

@ -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

2
components/tvplanit/source/vpnavbarpainter.pas
View File

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