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

jvcllaz: Fix compilation of thumbnail and simscope demos with Laz 1.6.4

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6324 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-20 11:17:15 +00:00
parent b6e1a4c495
commit a78e0acf2f
6 changed files with 43 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -166,6 +166,7 @@ type
procedure DrawTimerTimer(Sender: TObject);
function GetLinePixelPosition(Line: TJvScopeLine; Position: Integer): Integer;
procedure Loaded; override;
procedure Resize; override;
public
procedure Paint; override;
constructor Create(AOwner: TComponent); override;
@@ -497,6 +498,12 @@ begin
FAllowed := True;
end;
procedure TJvSimScope.Resize;
begin
inherited;
SetBounds(Left, Top, Width, Height);
end;
procedure TJvSimScope.Clear;
var
A: Double;