6
67455536
Unregistered / Unconfirmed
GUEST, unregistred user!
修改report builder 的source文件夾的ppUtils.pas文件中,
找到function TruncateWord: Integer;它是procedure ppWordWrap的一個局部
函數
修改為下面的,注意只是增加了注釋包圍的兩行代碼.
function TruncateWord: Integer;
var
lsTruncatedWord: String;
begin
lsTruncatedWord := lsWord;
while ppLineTooLong(lsTruncatedWord, llWidthAvailable, lCanvas, liTabStops, lTabStopArray) and
(Length(lsTruncatedWord) > 1)do
//*************************Added by Shiny to fix Truncatedo
uble byte Word*******************//
if StrByteType(PChar(lsTruncatedWord),Length(lsTruncatedWord) - 1) = mbTrailByte then
lsTruncatedWord := Copy(lsTruncatedWord, 1, Length(lsTruncatedWord) - 2)
else
//*************************Added by Shiny to fix Truncatedo
uble byte Word*******************//
lsTruncatedWord := Copy(lsTruncatedWord, 1, Length(lsTruncatedWord) - 1);
Result := Length(lsTruncatedWord);
end;
{function, ppTruncateWord}
然後打開rbRCL55.dpk,Compile,退出DELPHI,把$delphi/projects/bpl/rbRCL55.bpl
拷貝到$windows/system32下面,進入DELPHI,重新Build你的Project.
有換行問題的兄弟試試,看這樣能否解決你的問題.參與測試給分
找到function TruncateWord: Integer;它是procedure ppWordWrap的一個局部
函數
修改為下面的,注意只是增加了注釋包圍的兩行代碼.
function TruncateWord: Integer;
var
lsTruncatedWord: String;
begin
lsTruncatedWord := lsWord;
while ppLineTooLong(lsTruncatedWord, llWidthAvailable, lCanvas, liTabStops, lTabStopArray) and
(Length(lsTruncatedWord) > 1)do
//*************************Added by Shiny to fix Truncatedo
uble byte Word*******************//
if StrByteType(PChar(lsTruncatedWord),Length(lsTruncatedWord) - 1) = mbTrailByte then
lsTruncatedWord := Copy(lsTruncatedWord, 1, Length(lsTruncatedWord) - 2)
else
//*************************Added by Shiny to fix Truncatedo
uble byte Word*******************//
lsTruncatedWord := Copy(lsTruncatedWord, 1, Length(lsTruncatedWord) - 1);
Result := Length(lsTruncatedWord);
end;
{function, ppTruncateWord}
然後打開rbRCL55.dpk,Compile,退出DELPHI,把$delphi/projects/bpl/rbRCL55.bpl
拷貝到$windows/system32下面,進入DELPHI,重新Build你的Project.
有換行問題的兄弟試試,看這樣能否解決你的問題.參與測試給分