From 53e55f23cf7a2951d5b68bc2aab19b628482f9ea Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 5 Oct 2005 09:03:57 +0000
Subject: [PATCH] fixed compilation with fpc 2.1.1

git-svn-id: trunk@7915 -
---
 lcl/interfaces/win32/win32wscomctrls.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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