anchor.diff:  {******************************************************************************}
   { Projeto: FortesReport Community Edition                                      }
  -{  um poderoso gerador de relatrios disponvel como um pacote de componentes }
  -{ para Delphi. Em FortesReport, os relatrios so constitudos por bandas que  }
  -{ tm funes especficas no fluxo de impresso. Voc definir agrupamentos     }
  -{ subnveis e totais simplesmente pela relao hierrquica entre as bandas.    }
  -{ Alm disso possui uma rica paleta de Componentes                             }
  +{ É um poderoso gerador de relatórios disponível como um pacote de componentes }
  +{ para Delphi. Em FortesReport, os relatórios são constituídos por bandas que  }
  +{ têm funções específicas no fluxo de impressão. Você definir agrupamentos     }
  +{ subníveis e totais simplesmente pela relação hierárquica entre as bandas.    }
  +{ Além disso possui uma rica paleta de Componentes                             }
   {                                                                              }
  -{ Direitos Autorais Reservados(c) Copyright  1999-2015 Fortes Informtica     }
  +{ Direitos Autorais Reservados(c) Copyright © 1999-2015 Fortes Informática     }
   {                                                                              }
   { Colaboradores nesse arquivo: Ronaldo Moreira                                 }
  -{                              Mrcio Martins                                  }
  -{                              Rgys Borges da Silveira                        }
  +{                              Márcio Martins                                  }
  +{                              Régys Borges da Silveira                        }
   {                              Juliomar Marchetti                              }
   {                                                                              }
  -{  Voc pode obter a ltima verso desse arquivo na pagina do Projeto          }
  +{  Você pode obter a última versão desse arquivo na pagina do Projeto          }
   {  localizado em                                                               }
   { https://github.com/fortesinformatica/fortesreport-ce                         }
   {                                                                              }
  -{  Para mais informaes voc pode consultar o site www.fortesreport.com.br ou }
  +{  Para mais informações você pode consultar o site www.fortesreport.com.br ou }
   {  no Yahoo Groups https://groups.yahoo.com/neo/groups/fortesreport/info       }
   {                                                                              }
  -{  Esta biblioteca  software livre; voc pode redistribu-la e/ou modific-la }
  -{ sob os termos da Licena Pblica Geral Menor do GNU conforme publicada pela  }
  -{ Free Software Foundation; tanto a verso 2.1 da Licena, ou (a seu critrio) }
  -{ qualquer verso posterior.                                                   }
  +{  Esta biblioteca é software livre; você pode redistribuí-la e/ou modificá-la }
  +{ sob os termos da Licença Pública Geral Menor do GNU conforme publicada pela  }
  +{ Free Software Foundation; tanto a versão 2.1 da Licença, ou (a seu critério) }
  +{ qualquer versão posterior.                                                   }
   {                                                                              }
  -{  Esta biblioteca  distribuda na expectativa de que seja til, porm, SEM   }
  -{ NENHUMA GARANTIA; nem mesmo a garantia implcita de COMERCIABILIDADE OU      }
  -{ ADEQUAO A UMA FINALIDADE ESPECFICA. Consulte a Licena Pblica Geral Menor}
  -{ do GNU para mais detalhes. (Arquivo LICENA.TXT ou LICENSE.TXT)              }
  +{  Esta biblioteca é distribuída na expectativa de que seja útil, porém, SEM   }
  +{ NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU      }
  +{ ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral Menor}
  +{ do GNU para mais detalhes. (Arquivo LICENÇA.TXT ou LICENSE.TXT)              }
   {                                                                              }
  -{  Voc deve ter recebido uma cpia da Licena Pblica Geral Menor do GNU junto}
  -{ com esta biblioteca; se no, escreva para a Free Software Foundation, Inc.,  }
  -{ no endereo 59 Temple Street, Suite 330, Boston, MA 02111-1307 USA.          }
  -{ Voc tambm pode obter uma copia da licena em:                              }
  +{  Você deve ter recebido uma cópia da Licença Pública Geral Menor do GNU junto}
  +{ com esta biblioteca; se não, escreva para a Free Software Foundation, Inc.,  }
  +{ no endereço 59 Temple Street, Suite 330, Boston, MA 02111-1307 USA.          }
  +{ Você também pode obter uma copia da licença em:                              }
   { http://www.opensource.org/licenses/gpl-license.php                           }
   {                                                                              }
   {******************************************************************************}
  
positive.code:     for I := 0 to objlist.Count - 1 do
      begin
        obj := TDraftObj(objlist[I]);
        // posio do objeto em agulhas
        objpos := obj.PinBounds;
        // no pode imprimir antes da linha atual (ou fora da rea imprimvel)
        if objpos.Top < FCurrentPrintPos.Y then
          objpos.Top := FCurrentPrintPos.Y;
        //
        if obj is TDraftText then
        begin
          // compresso
          SetPrintCompression(TDraftText(obj).CPP);
          // posicionamento
          SetPrintPos(objpos.Top, objpos.Left);
  
negative.code: |* Historico
  |*
  |* xx/xx/xxxx:  Autor...
  |* - Descrição...
  ******************************************************************************}
  
  {$I RLReport.inc}
  
  {@unit RLDraftFilter - Implementação do filtro de impressão draft. }
  unit RLDraftFilter;
  
  interface
  