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

jvcllaz: Avoid memory leak in JvFullColorCircleDialog demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6973 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-30 09:38:27 +00:00
parent e3711649be
commit ad01e30cdf
1 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jvcllaz/examples/JvFullColorCircleDialog/JvFullColorCircleDialogMainForm.pas
View File

@ -112,7 +112,6 @@ begin
PitchX := Memo.Width + 32; PitchX := Memo.Width + 32;
PitchY := Memo.Top + Memo.Height - Image.Top + 31; PitchY := Memo.Top + Memo.Height - Image.Top + 31;
Index := 0; Index := 0;
Image.Picture.Bitmap := TBitmap.Create;
for X := 0 to 3 do for X := 0 to 3 do
for Y := 0 to 1 do for Y := 0 to 1 do
if (X <> 0) or (Y <> 0) then if (X <> 0) or (Y <> 0) then
@ -125,7 +124,6 @@ begin
LImage.Parent := Self; LImage.Parent := Self;
LImage.Stretch := False; LImage.Stretch := False;
LImage.Center := true; LImage.Center := true;
LImage.Picture.Bitmap := TBitmap.Create;
LImage.SetBounds(Image.Left+X*PitchX, Image.Top+Y*PitchY, Image.Width, Image.Height); LImage.SetBounds(Image.Left+X*PitchX, Image.Top+Y*PitchY, Image.Width, Image.Height);
LMemo := TMemo.Create(Self); LMemo := TMemo.Create(Self);
LMemo.Parent := Self; LMemo.Parent := Self;