From 6d080bbd7a733eec97d7bad2908a4dd08ff17f41 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 30 Oct 2019 19:13:08 +0100
Subject: [PATCH] prevent multiple reallocs when building the widget list

---
 src/u_main.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/u_main.pas b/src/u_main.pas
index db052e88..b0f78cc1 100644
--- a/src/u_main.pas
+++ b/src/u_main.pas
@@ -1588,6 +1588,7 @@ begin
 
   getMessageDisplay(fMsgs);
 
+  fWidgList.Capacity := 32;
   fWidgList.addWidget(@fMesgWidg);
   fWidgList.addWidget(@fEditWidg);
   fWidgList.addWidget(@fProjWidg);