WPTools (Richtext) is exceeding the RightMargin. Below there's a simple DFM that does not respect right margin. Can you help me?
object Form1: TForm1
Left = 298
Top = 137
Width = 148
Height = 114
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ppReport1: TppReport
PrinterSetup.BinName = 'Default'
PrinterSetup.DocumentName = 'Report'
PrinterSetup.PaperName = 'A4'
PrinterSetup.PrinterName = 'Default'
PrinterSetup.SaveDeviceSettings = False
PrinterSetup.mmMarginBottom = 6350
PrinterSetup.mmMarginLeft = 6350
PrinterSetup.mmMarginRight = 6350
PrinterSetup.mmMarginTop = 6350
PrinterSetup.mmPaperHeight = 297000
PrinterSetup.mmPaperWidth = 210000
PrinterSetup.PaperSize = 9
Units = utMillimeters
DeviceType = 'Screen'
EmailSettings.ReportFormat = 'PDF'
OutlineSettings.CreateNode = True
OutlineSettings.CreatePageNodes = False
OutlineSettings.Enabled = False
OutlineSettings.Visible = False
PDFSettings.EmbedFontOptions = []
TextSearchSettings.DefaultString = '<FindText>'
TextSearchSettings.Enabled = True
Left = 56
Top = 24
Version = '11.02'
mmColumnWidth = 0
object ppHeaderBand1: TppHeaderBand
mmBottomOffset = 0
mmHeight = 13229
mmPrintPosition = 0
object ppLine1: TppLine
UserName = 'Line1'
Border.BorderPositions = []
Border.Color = clBlack
Border.Style = psSolid
Border.Visible = False
Position = lpLeft
Weight = 0.750000000000000000
mmHeight = 52388
mmLeft = 196057
mmTop = 7144
mmWidth = 1852
BandType = 0
end
end
object ppDetailBand1: TppDetailBand
PrintHeight = phDynamic
mmBottomOffset = 0
mmHeight = 45244
mmPrintPosition = 0
object ppWPTRichText1: TppWPTRichText
UserName = 'WPTRichText1'
RichText =
'{\rtf1\ansi\deff0\uc1\ansicpg1252\deftab720{\fonttbl{\f0\fnil\fc' +
'harset1 Arial;}{\f1\fnil\fcharset2 Wingdings;}}{\colortbl\red0\g' +
'reen0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\gree' +
'n0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128' +
'\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\' +
'green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\re' +
'd255\green255\blue255;\red192\green192\blue192;\red128\green128\' +
'blue128;\red0\green0\blue0;}\wpprheadfoot1\paperw2775\paperh1584' +
'0\margl0\margr0\margt0\margb0\headery720\footery720\endnhere\sec' +
'tdefaultcl{\*\generator WPTools_5.370;}{\qj\plain\fs22 BRAS\''CDL' +
'IA - Diante da forte desacelera\''E7\''E3o da atividade econ\''F4mi' +
'ca, o Comit\''EA de Pol\''EDtica Monet\''E1ria (Copom) do Banco Cen' +
'tral decidiu, nesta quarta-feira, reduzir em um ponto percentual' +
' a taxa Selic, que passar\''E1 a 12,75% ao ano. Foi a maior queda' +
' da Selic desde dezembro de 2003, quando a taxa passou de 17,5% ' +
'para 16,5%. Desde setembro de 2007, o BC n\''E3o reduzia a taxa d' +
'e juros. Logo ap\''F3s a decis\''E3o da Copom, bancos anunciaram r' +
'edu\''E7\''F5es em suas taxas.\par'#13#10'\pard\plain\qj\plain\fs22\par'#13 +
#10'\plain\fs22 A decis\''E3o desta quarta-feira do Copom n\''E3o foi' +
' un\''E2nime. Um total de cinco diretores do Banco Central votou ' +
'a favor do corte maior, de um ponto, enquanto outros tr\''EAs def' +
'enderam um corte de 0,75 ponto percentual. O corte de um ponto e' +
'ra previsto por alguns analistas do mercado, mas muitos apostava' +
'm em uma queda menor, de 0,75 ponto percentual.\par'#13#10'\pard\plain' +
'\qj\plain\fs22\par'#13#10'\plain\fs22 Clique aqui e entenda os motivos' +
' que levaram o Copom a cortar os juros.\par'#13#10'\pard\plain\qj\plai' +
'n\fs22\par'#13#10'\plain\fs22 Numa reuni\''E3o, o Copom tamb\''E9m indic' +
'ou que o processo de corte dos juros pode ser mais intenso, por\' +
'''E9m mais curto. Pelo comunicado distribu\''EDdo \''E0 imprensa, o' +
' BC afirma que "inicia um processo de flexibiliza\''E7\''E3o da po' +
'l\''EDtica monet\''E1ria, realizando de imediato parte relevante d' +
'o movimento da taxa b\''E1sica de juros, sem preju\''EDzo para o c' +
'umprimento da meta de infla\''E7\''E3o".\par'#13#10'\pard\plain\qj\plain' +
'\fs22\par'#13#10'\plain\fs22 M\''EDriam Leit\''E3o: Mesmo com corte, Bra' +
'sil tem maiores juros reais do mundo\par'#13#10'\pard\plain\qj\plain\f' +
's22\par'#13#10'\plain\fs22 Em abril de 2008, o Banco Central (BC) usar' +
'a a mesma estrat\''E9gia ao anunciar a alta da Selic de 11,25% pa' +
'ra 11,75%, com medo de a infla\''E7\''E3o sair do controle com a d' +
'emanda aquecida. Agora, o cen\''E1rio \''E9 o oposto, por causa da' +
' crise global. Um dos principais sinais foi a atividade da ind\''' +
'FAstria em dezembro, que recuou cerca de 5%. No mesmo m\''EAs, ho' +
'uve perda recorde de empregos formais, com mais de 650 mil demis' +
's\''F5es. Al\''E9m disso, o BC entende que o risco de a desvaloriz' +
'a\''E7\''E3o cambial - que ultrapassou 30% desde setembro - contam' +
'inar os pre\''E7os \''E9 menor agora por causa da expectativa de q' +
'ueda da infla\''E7\''E3o.\par'#13#10'\pard\plain\qj\plain\fs22\par'#13#10'\pla' +
'in\fs22 O ministro da Fazenda, Guido Mantega , disse estar satis' +
'feito com o corte de um ponto percentul da taxa b\''E1sica de jur' +
'o (Selic). E, apesar de admitir que, mesmo assim, os juros no Br' +
'asil continuar\''E3o os mais altos do mundo, afirmou que o govern' +
'o continuar\''E1 tomando medidas para reduzir o custo financeiro ' +
'no pa\''EDs. J\''E1 o Pal\''E1cio do Planalto comemorou discretamen' +
'te a decis\''E3o do Copom . Na avalia\''E7\''E3o de auxiliares dire' +
'tos do presidente Luiz In\''E1cio Lula da Silva, pela primeira ve' +
'z, desde que come\''E7ou a crise financeira internacional, o Banc' +
'o Central (BC) demonstrou sensibilidade\par'#13#10'\pard\plain\qj\plai' +
'n\fs22\par'#13#10'\plain\fs22 Recentes dados econ\''F4micos indicam uma' +
' tend\''EAncia de desaquecimento e infla\''E7\''E3o em queda, refor' +
'\''E7ando a expectativa de que os juros fossem cortados.\par'#13#10'\pa' +
'rd\plain\qj\plain\fs22\par'#13#10'\plain\fs22 A reuni\''E3o do Copom du' +
'rou cerca de duas horas e meia. A pr\''F3xima reuni\''E3o do Copom' +
' ocorre nos dias 10 e 11 de mar\''E7o.\par'#13#10'\pard\plain\plain\fs2' +
'2\par'#13#10'}}'
Caption = 'WPTRichText1'
ShiftWithParent = False
Stretch = True
AllowPageBreaks = True
mmHeight = 27781
mmLeft = 5292
mmTop = 7673
mmWidth = 185473
BandType = 4
mmBottomOffset = 0
mmOverFlowOffset = 0
mmStopPosition = 0
end
end
object ppFooterBand1: TppFooterBand
mmBottomOffset = 0
mmHeight = 10319
mmPrintPosition = 0
end
object ppParameterList1: TppParameterList
end
end
end
