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 const
SInvalidBitmap = 'Invalid bitmap'; SInvalidBitmap = 'Invalid bitmap';
{$IF LCL_FullVersion > 1080400}
function GetAppHandle: THandle; function GetAppHandle: THandle;
begin begin
Result := Application.Handle; Result := Application.Handle;
end; end;
{$IFEND}
(***************** NOT CONVERTED *** (***************** NOT CONVERTED ***
type type

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

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

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

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

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

@ -1186,13 +1186,13 @@ begin
if newHint <> inherited Hint then if newHint <> inherited Hint then
begin 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; Application.CancelHint;
// Move the new hint text to the control, but do not overwrite the // Move the new hint text to the control, but keep the TabBar's own hint.
// own hint of the TabBar.
inc(FHintLocked); inc(FHintLocked);
inherited Hint := newHint; Hint := newHint;
dec(FHintLocked); dec(FHintLocked);
// Display the new hint // Display the new hint

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

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