diff options
Diffstat (limited to 'extras')
| -rw-r--r-- | extras/tiopf/gui/tiRtfReport.pas | 6 | ||||
| -rw-r--r-- | extras/x11_wininfo/units/.placeholder.txt | 0 |
2 files changed, 3 insertions, 3 deletions
diff --git a/extras/tiopf/gui/tiRtfReport.pas b/extras/tiopf/gui/tiRtfReport.pas index 4f2d50d5..627d6d26 100644 --- a/extras/tiopf/gui/tiRtfReport.pas +++ b/extras/tiopf/gui/tiRtfReport.pas @@ -2901,7 +2901,7 @@ begin if AFieldName = '' then begin //Its a (nested) dataset Token := etDataset; - Value := integer(ADataset); + Value := PtrInt(ADataset); end else ResolveFieldValue(ADataset, AFieldName); end else begin @@ -2927,7 +2927,7 @@ begin else begin //Its a dataset or objectlist reference Token := etDataset; - Value := integer(ADataset); + Value := PtrInt(ADataset); end; end; @@ -4053,7 +4053,7 @@ begin AObject := TObject(Ptrint(AArgument.Value)); ADataset := Datasets.Add(AObject, AAliasname, true); AArgument.Token := etDataset; - AArgument.Value := integer(ADataset); + AArgument.Value := PtrInt(ADataset); end; procedure TtiRtfParser.UdfLower(AArgument: TRtfArgument); diff --git a/extras/x11_wininfo/units/.placeholder.txt b/extras/x11_wininfo/units/.placeholder.txt new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/extras/x11_wininfo/units/.placeholder.txt |