PrnFreeBookmarks

PrnFreeBookmarks - это процедура

PrnFreeBookmarks(pipeline)

Отключение помеченных записей для генератора отчетов

Текст программы

type
 TQREvPrnFreeBookMarks = class(TQREvDbFunction)
 public
   function Calculate: TQREvResult; override;
 end;

function TQREvPrnFreeBookMarks.Calculate: TQREvResult;
begin
 if (ArgList.Count > 0) and (Argument(0).Kind = ResObject) and
   (Argument(0).ObjResult is TppDataPipeline) then
   with Argument(0).ObjResult as TppDataPipeline do
     FreeBookmarks
 else
 begin
   if PrintForm = nil then
     Result := ErrorCreate(Format(SqrExpWrongArguments, ['PrnFreeBookMarks']))
   else if PrintForm is TFormRpt then
     if TFormRpt(PrintForm).Report.DataPipeLine <> nil then
       TFormRpt(PrintForm).Report.DataPipeLine.FreeBookmarks
     else
       Result := ErrorCreate(Format(SqrExpWrongArguments,
         ['PrnFreeBookMarks']));
 end;
end;

Смотрите также

Функции Delphi

Полезные функции