From: <ah...@us...> - 2006-10-19 18:33:21
|
Revision: 10986 http://svn.sourceforge.net/jvcl/?rev=10986&view=rev Author: ahuser Date: 2006-10-19 11:27:21 -0700 (Thu, 19 Oct 2006) Log Message: ----------- Workaround for RichEdit 5.50.30.2002 changes. Modified Paths: -------------- trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.pas Modified: trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.pas 2006-10-18 23:08:17 UTC (rev 10985) +++ trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.pas 2006-10-19 18:27:21 UTC (rev 10986) @@ -77,7 +77,7 @@ implementation uses - InstallerConsts, FileCtrl, FrmCompile, FrmCompileMessages; + InstallerConsts, FileCtrl, FrmCompile, FrmCompileMessages, ComStrs; {$R *.dfm} @@ -181,7 +181,13 @@ Exit; FLastCapLine := Line; - RichEditLog.Lines.Add(Line); + try + RichEditLog.Lines.Add(Line); + except + on E: EOutOfResources do + if E.Message <> sRichEditInsertError then // ignore this special EOutOfResources exception + raise; + end; if Text <> '' then begin if Text[1] = #1 then This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |