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

fixed compilation with fpc 2.1.1

Browse Source 
git-svn-id: trunk@7915 -
This commit is contained in:
vincents 2005-10-05 09:03:57 +00:00
parent 28e54af177
commit 53e55f23cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -268,7 +268,7 @@ begin
if StatusBar.Panels.Count=0 then begin if StatusBar.Panels.Count=0 then begin
// SETPARTS 0,0 does not work :S // SETPARTS 0,0 does not work :S
Windows.SendMessage(StatusBar.Handle, SB_SIMPLE, 1, 0); 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; exit;
end; end;
Getmem(Rights, StatusBar.Panels.Count * sizeof(integer)); Getmem(Rights, StatusBar.Panels.Count * sizeof(integer));