PrnFreeBookmarks — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показана одна промежуточная версия этого же участника)
Строка 2: Строка 2:
 
  Отключение помеченных записей для генератора отчетов
 
  Отключение помеченных записей для генератора отчетов
 
[[PrnFreeBookmarks]]( pipeline )
 
[[PrnFreeBookmarks]]( pipeline )
= Текст =
 
 
type
 
  TQREv[[PrnFreeBookmarks]] = class(TQREvDbFunction)
 
  public
 
    function Calculate: TQREvResult; override;
 
  end;
 
 
function TQREv[[PrnFreeBookmarks]].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]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

Текущая версия на 16:54, 11 января 2020

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

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

PrnFreeBookmarks( pipeline )

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

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

Функции Delphi