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

* Add FieldIsNull built-in function

Browse Source 
git-svn-id: trunk@57526 -
This commit is contained in:
michael 2018-03-18 12:00:26 +00:00
parent 4c12df05e8
commit d396966a7b
2 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpreport/design/frafpreportdata.lfm
View File

@ -49,8 +49,11 @@ object ReportDataDisplay: TReportDataDisplay
Width = 321
Align = alClient
DragMode = dmAutomatic
ReadOnly = True
TabOrder = 0
OnMouseDown = TVVariablesMouseDown
OnStartDrag = LBVariablesStartDrag
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
end
object TabSheet1: TTabSheet
@ -59,9 +62,9 @@ object ReportDataDisplay: TReportDataDisplay
ClientWidth = 321
object TVFunctions: TTreeView
Left = 0
Height = 205
Height = 242
Top = 0
Width = 314
Width = 321
Align = alClient
DragMode = dmAutomatic
HideSelection = False

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

@ -38,12 +38,14 @@ type
procedure TVDataMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TVDataStartDrag(Sender: TObject; var DragObject: TDragObject);
procedure TVFunctionsStartDrag(Sender: TObject; var DragObject: TDragObject);
procedure TVVariablesMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
FPageCount : TFPExprIdentifierDef;
FIdentifiers: TFPExprIdentifierDefs;
FUserVariables : TTreeNode;
FBuiltinVariables : TTreeNode;
FDataLastDown : TPoint;
FVariablesLastDown : TPoint;
FReport: TFPReport;
FReportData: TFPReportDataCollection;
@ -81,10 +83,10 @@ Var
begin
DragObject:=Nil;
if (TVData.Selected=Nil) and (FDataLastDown.Y<>0) then
if (FDataLastDown.Y<>0) then
begin
N:=TVData.GetNodeAt(FDataLastDown.X,FDataLastDown.Y);
if N<>Nil then
if (N<>Nil) and (TVData.Selected<>N) then
TVData.Selected:=N;
end;
if (TVData.Selected<>Nil) then
@ -142,6 +144,11 @@ begin
end;
end;
procedure TReportDataDisplay.TVVariablesMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FVariablesLastDown:=Point(X,Y);
end;
procedure TReportDataDisplay.LBVariablesStartDrag(Sender: TObject;
var DragObject: TDragObject);
@ -149,10 +156,25 @@ Var
S : String;
M : TMemoDragDrop;
O : TObject;
N : TTreeNode;
begin
if (FVariablesLastDown.Y<>0) then
begin
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
begin
Writeln('Correcting ',N.Text);
TVVariables.Selected:=N;
end;
end;
if (TVVariables.Selected<>Nil) then
begin
Writeln('Actual ',TVVariables.Selected.Text);
O:=TObject(TVVariables.Selected.Data);
if Assigned(o) then
if (O.InheritsFrom(TFPReportVariable)) then
@ -166,6 +188,8 @@ begin
DragObject:=M;
end;
end;
FVariablesLastDown.X:=0;
FVariablesLastDown.Y:=0;
end;
procedure TReportDataDisplay.TVDataMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);