paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 17:17:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: less hints

Browse Source
This commit is contained in:
mattias 2023-01-08 18:45:46 +01:00
parent 955ab8dc27
commit 770a65172b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -9471,7 +9471,7 @@ var
NewClassName: String;
ARegComp: TRegisteredComponent;
BinCompStream: TMemoryStream;
{%H-}c: Char; // see fpc bug 38572
c: Char;
begin
if ConsoleVerbosity>0 then
DebugLn('Hint: (lazarus) TMainIDE.DesignerPasteComponent A');
@ -9504,6 +9504,7 @@ begin
LRSObjectTextToBinary(TxtCompStream,BinCompStream);
// always append an "object list end"
c:=#0;
if c=#0 then ; // see fpc bug 38572
BinCompStream.Write(c,1);
except
on E: Exception do begin