paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 13:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove writeln statements

Browse Source 
git-svn-id: trunk@57527 -
This commit is contained in:
michael 2018-03-18 12:42:52 +00:00
parent d396966a7b
commit 75314f3319
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpreport/design/frafpreportdata.pp
View File

@ -162,19 +162,13 @@ begin
if (FVariablesLastDown.Y<>0) then if (FVariablesLastDown.Y<>0) then
begin begin
N:=TVData.GetNodeAt(FVariablesLastDown.X,FVariablesLastDown.Y); N:=TVData.GetNodeAt(FVariablesLastDown.X,FVariablesLastDown.Y);
if Assigned(N) then
Writeln('Checking ',N.Text)
else
Writeln('Not on node');
if (N<>Nil) and (TVVariables.Selected<>N) then if (N<>Nil) and (TVVariables.Selected<>N) then
begin begin
Writeln('Correcting ',N.Text);
TVVariables.Selected:=N; TVVariables.Selected:=N;
end; end;
end; end;
if (TVVariables.Selected<>Nil) then if (TVVariables.Selected<>Nil) then
begin begin
Writeln('Actual ',TVVariables.Selected.Text);
O:=TObject(TVVariables.Selected.Data); O:=TObject(TVVariables.Selected.Data);
if Assigned(o) then if Assigned(o) then
if (O.InheritsFrom(TFPReportVariable)) then if (O.InheritsFrom(TFPReportVariable)) then