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

jvcllaz: Fix compilation with Laz 1.8.4/FPC3.0.4

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8252 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-04-15 22:56:31 +00:00
parent 3a13c399a1
commit 509f33e4d7
5 changed files with 20 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jvcllaz/run/JvCore/jvjvclutils.pas
View File

@ -901,10 +901,12 @@ const
const
SInvalidBitmap = 'Invalid bitmap';
{$IF LCL_FullVersion > 1080400}
function GetAppHandle: THandle;
begin
Result := Application.Handle;
end;
{$IFEND}
(***************** NOT CONVERTED ***
type

6
components/jvcllaz/run/JvDB/jvdblookup.pas
View File

@ -39,8 +39,8 @@ unit JvDBLookup;
interface
uses
Variants, Classes, Graphics, Controls, Forms, DB, DBCtrls,
LMessages, LCLType, LCLIntf, LCLProc, Themes,
LCLType, LCLIntf, LCLProc, LMessages, LCLVersion,
Variants, Classes, Graphics, Controls, Forms, DB, DBCtrls, Themes,
JvThemes, JvDBUtils;
const
@ -535,7 +535,9 @@ type
property LookupFormat;
property LookupSource;
property ParentColor;
{$IF LCL_FullVersion >= 2000000}
property ParentDoubleBuffered;
{$IFEND}
property ParentFont;
property ParentShowHint;
property PopupMenu;

7
components/jvcllaz/run/JvPageComps/jvpagelist.pas
View File

@ -31,7 +31,8 @@ unit JvPageList;
interface
uses
SysUtils, Classes, Graphics, Controls, Types, LMessages, LCLIntf, LCLType,
LMessages, LCLIntf, LCLType, LCLVersion,
SysUtils, Classes, Graphics, Controls, Types,
JvComponent, JvThemes;
type
@ -214,7 +215,9 @@ type
property OnMouseEnter;
property OnMouseLeave;
property OnParentColorChange;
{$IF LCL_FullVersion > 1080400}
property ParentBackground default False;
{$ENDIF}
end;
TJvPageList = class(TJvCustomPageList)
@ -271,7 +274,9 @@ type
property OnMouseWheelUp;
property OnResize;
property OnStartDrag;
{$IF LCL_FullVersion > 1080400}
property ParentBackground default False;
{$ENDIF}
end;
implementation

8
components/jvcllaz/run/JvPageComps/jvtabbar.pas
View File

@ -1186,13 +1186,13 @@ begin
if newHint <> inherited Hint then
begin
// Without the next instruction the currently shown hint will not be replaced.
// Without the next instruction the currently shown hint will not be
// replaced when moving the mouse from tab to tab.
Application.CancelHint;
// Move the new hint text to the control, but do not overwrite the
// own hint of the TabBar.
// Move the new hint text to the control, but keep the TabBar's own hint.
inc(FHintLocked);
inherited Hint := newHint;
Hint := newHint;
dec(FHintLocked);
// Display the new hint

4
components/jvcllaz/run/JvTimeFramework/jvtfdays.pas
View File

@ -906,7 +906,9 @@ type
// internal stuff
// procedure CMCtl3DChanged(var Msg: TLMessage); message CM_CTL3DCHANGED;
{$IF LCL_FullVersion >= 2000000}
procedure WMGetDlgCode(var Msg: TLMGetDlgCode); message LM_GETDLGCODE;
{$ENDIF}
// procedure SetBorderStyle(Value: TBorderStyle);
procedure SetTFVisibleScrollBars(Value: TJvTFVisibleScrollBars);
procedure AlignScrollBars;
@ -4439,10 +4441,12 @@ begin
end;
{$IFEND}
{$IF LCL_FullVersion >= 2000000}
procedure TJvTFDays.WMGetDlgCode(var Msg: TLMGetDlgCode);
begin
Msg.Result := DLGC_WANTALLKEYS or DLGC_WANTARROWS;
end;
{$IFEND}
{