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

jvcllaz: Fix JvSimScope being inactive in Linux-qt.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6965 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-28 10:28:14 +00:00
parent 5e62c4ce10
commit f05bc54e79
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/jvcllaz/examples/JvYearGrid/YearGrid_Demo.lpr
View File

@ -16,7 +16,6 @@ begin
{$IF LCL_FULLVERSION >= 1080000} {$IF LCL_FULLVERSION >= 1080000}
Application.Scaled := True; Application.Scaled := True;
{$ENDIF} {$ENDIF}
Application.Scaled:=True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TMainForm, MainForm);
Application.Run; Application.Run;

7
components/jvcllaz/run/JvJans/jvsimscope.pas
View File

@ -228,6 +228,8 @@ type
implementation implementation
uses
InterfaceBase;
//=== { TJvScopeLineValues } ================================================= //=== { TJvScopeLineValues } =================================================
@ -730,7 +732,12 @@ begin
FLines[I].FValues.Add(FLines[I].Position); FLines[I].FValues.Add(FLines[I].Position);
end; end;
end; end;
{$IFDEF LCLQt}
Invalidate;
Application.ProcessMessages;
{$ELSE}
Repaint; Repaint;
{$IFEND}
if Assigned(FOnUpdate) then if Assigned(FOnUpdate) then
FOnUpdate(Self); FOnUpdate(Self);
end; end;