Improved for issue #24: Ribbon designer freezes during build

Author: Joachim Marder

Designer/Bin/RibbonDesigner.exe

@@ -226,7 +226,7 @@ function TRibbonCompiler.Execute(const Application, CurrentDir: String;
         AppRunning := WaitForSingleObject(ProcessInfo.hProcess, 10);
         if PeekNamedPipe(ReadPipe, @Buffer[0], Length(Buffer) -1, @BytesRead, @BytesAvail, @BytesLeft) and (BytesAvail >0) then
         begin
-          if ReadFile(ReadPipe, Buffer[0], Length(Buffer), BytesRead, nil) then
+          if (BytesAvail > 0) and ReadFile(ReadPipe, Buffer[0], BytesAvail, BytesRead, nil) then
             LogBuffer();
         end;//if
       until (AppRunning <> WAIT_TIMEOUT);