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

jvcllaz: Check packages and demos for Laz 1.8.4 / 2.0.0 / 2.0.2 / trunk and FPC 3.0.4 / FPC 3.2 / trunk. 32-bit, Laz 2.0.2/FPC 3.2 64 bit. Make fixes needed.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6971 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-29 23:35:34 +00:00
parent 35b4753bbc
commit a67a3f9d55
89 changed files with 441 additions and 327 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -115,7 +115,7 @@ type
implementation
uses
SysUtils;
SysUtils, LCLVersion;
{$R ../../resource/jvled.res}
@ -234,7 +234,11 @@ end;
procedure TJvCustomLED.DoBlink(Sender: TObject);
begin
{$IF LCL_FullVersion >= 2000000}
if not IsIconic(Application.Handle) then
{$ELSE}
if not IsIconic(Application.MainForm.Handle) then
{$IFEND}
Status := not Status;
end;