paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 04:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, cleanup and fix memleak by Javier Villarroya, issue #16038

Browse Source 
git-svn-id: trunk@24106 -
This commit is contained in:
jesus 2010-03-20 04:13:20 +00:00
parent 95c4d44c8d
commit 6a78f28957
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/lazreport/source/lr_class.pas
View File

@ -15,11 +15,10 @@ interface
{$I LR_Vers.inc}
uses
SysUtils, Classes, MaskUtils, Controls, FileUtil,
Forms, ComCtrls, Dialogs, Menus,
Variants, DB,Graphics,Printers,osPrinters,XMLConf,
LCLType,LCLIntf,TypInfo,LCLProc, SysUtilsAdds,
LR_View, LR_Pars, LR_Intrp, LR_DSet, LR_DBSet, LR_DBRel, LR_Const;
SysUtils, Classes, MaskUtils, Controls, FileUtil, Forms, ComCtrls, Dialogs,
Menus, Variants, DB, Graphics, Printers, osPrinters, XMLConf, LCLType, LCLIntf,
TypInfo, LCLProc,{$IFDEF UNIX}SysUtilsAdds,{$ENDIF} LR_View, LR_Pars, LR_Intrp,
LR_DSet, LR_DBSet, LR_DBRel, LR_Const;
const
// object flags
@ -2453,7 +2452,6 @@ type
const
gl:string='ÀŨÈÎÓÛÝÞßàåèîóûýþ';
r_sogl:string='ÚÜúü';
spaces: set of Char = [' ', '.', ',', '-'];
function BreakWord(s: string): TWordBreaks;
@ -2703,9 +2701,6 @@ begin
OutMemo;
end;
var
DxArray: Array[0..2047] of Integer;
procedure TfrMemoView.ShowMemo;
var
DR : TRect;
@ -4247,7 +4242,10 @@ begin
// todo: TBlobField.AssignTo is not implemented yet
s := TDataset(FDataset).CreateBlobStream(TField(b),bmRead);
if s.Size = 0 then
Picture.Clear
begin
Picture.Clear;
s.Free;
end
else
begin
try
@ -8893,7 +8891,7 @@ end;
function TfrReport.FindObject(const aName: String): TfrObject;
var
i, j: Integer;
i: Integer;
begin
Result := nil;
for i := 0 to Pages.Count - 1 do
@ -9008,7 +9006,6 @@ function TfrExportFilter.AddData(x, y: Integer; view: TfrView):pointer;
var
p: PfrTextRec;
s: string;
i: Integer;
begin
result := nil;
@ -9806,7 +9803,6 @@ begin
end;
procedure TfrObject.SetName(const AValue: string);
var i : Integer;
begin
if fName=AValue then exit;
@ -10061,7 +10057,6 @@ begin
end;
procedure TfrPageDialog.InitReport;
var i : Integer;
begin
//inherited InitReport;
fHasVisibleControls:=False;