paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 19:09:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix mem leak when editing barcode

Browse Source 
git-svn-id: trunk@33204 -
This commit is contained in:
jesus 2011-11-01 21:02:01 +00:00
parent b20c06b135
commit 57cd95b7e0
1 changed files with 27 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
components/lazreport/source/lr_barc.pas
View File

@ -692,32 +692,37 @@ var
bc: TBarCode;
Bmp: TBitmap;
begin
Bmp := nil;
bc := TBarCode.Create(nil);
if Pos('[',M1.Text) = 1 then
begin
bc.Text := cbDefaultText;
bc.checksum := true
end
else
begin
bc.Text := M1.Text;
bc.CheckSum := ckCheckSum.Checked;
end;
bc.Ratio := StrToFloatDef(edZoom.Text,1);
bc.Typ := TBarcodeType(cbType.ItemIndex);
Bmp := TBitmap.Create;
Bmp.Width := 16; Bmp.Height := 16;
try
Bmp.Canvas.Brush.Style:=bsSolid;
Bmp.Canvas.Brush.Color:=clWhite;
Bmp.Canvas.FillRect(Rect(0,0,Bmp.Width,Bmp.Height));
if Pos('[',M1.Text) = 1 then
begin
bc.Text := cbDefaultText;
bc.checksum := true
end
else
begin
bc.Text := M1.Text;
bc.CheckSum := ckCheckSum.Checked;
end;
bc.Ratio := StrToFloatDef(edZoom.Text,1);
bc.Typ := TBarcodeType(cbType.ItemIndex);
Bmp := TBitmap.Create;
Bmp.Width := 16; Bmp.Height := 16;
try
Bmp.Canvas.Brush.Style:=bsSolid;
Bmp.Canvas.Brush.Color:=clWhite;
Bmp.Canvas.FillRect(Rect(0,0,Bmp.Width,Bmp.Height));
bc.DrawBarcode(Bmp.Canvas);
except
MessageDlg(sBarcodeError,mtError,[mbOk],0);
ModalResult := 0;
bc.DrawBarcode(Bmp.Canvas);
except
MessageDlg(sBarcodeError,mtError,[mbOk],0);
ModalResult := 0;
end;
finally
Bmp.Free;
bc.Free;
end;
Bmp.Free;
end;