From c55ae368e5f8187c5325c43cb2647dbaf7296c8f Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Sat, 5 Mar 2005 21:41:47 +0000
Subject: [PATCH] fix removing all panels from statusbar (last one was not
 removed)

git-svn-id: trunk@6904 -
---
 lcl/interfaces/win32/win32wscomctrls.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32wscomctrls.pp b/lcl/interfaces/win32/win32wscomctrls.pp
index bf06a1c866..be320eae54 100644
--- a/lcl/interfaces/win32/win32wscomctrls.pp
+++ b/lcl/interfaces/win32/win32wscomctrls.pp
@@ -264,7 +264,9 @@ var
   CurrentRight: integer;
 begin
   if StatusBar.Panels.Count=0 then begin
-    Windows.SendMessage(StatusBar.Handle, SB_SETPARTS, 0, 0);
+    // SETPARTS 0,0 does not work :S
+    Windows.SendMessage(StatusBar.Handle, SB_SIMPLE, 1, 0);
+    Windows.SendMessage(StatusBar.Handle, SB_SETTEXT, 255, WPARAM(''));    
     exit;
   end;
   Getmem(Rights, StatusBar.Panels.Count * sizeof(integer));