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

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}
{