Обрезанный текст на StatusBar

[BLACK_RAIN]

Здравствуйте.
Проблема с обрезанным текстом на статусбаре.
MSDN пишет:

lParam

Pointer to an integer array. The number of elements is specified in wParam. Each element specifies the position, in client coordinates, of the right edge of the corresponding part. If an element is -1, the right edge of the corresponding part extends to the border of the window.

Если я правильно понял, то если последний элемент массива равен -1, то последняя панель статусбара будет растянута до правой границы окна. Но это не работает! Текст последней панели ограничивается несколькими десятками символов, хотя до правой границы окна еще далеко.

var
  arr : array [0..3] of Integer;

WM_CREATE:
begin
  sbar1 := createwindowex(WS_EX_LEFT or WS_EX_LTRREADING or WS_EX_RIGHTSCROLLBAR,
  Statusclassname,'bla-bla',
  SBARS_SIZEGRIP or SBT_TOOLTIPS or SBARS_TOOLTIPS or WS_CHILD or
  WS_OVERLAPPED or WS_VISIBLE,
  x,y,w,h, wnd, 0,hinstance,nil);
        arr[0] := 110;
        arr[1] := 300;
        arr[2] := 380;
        arr[3] := -1;
        sendmessage(sbar1,sb_setparts,4,lparam(@arr));
  sendmessage(sbar1,sb_simple,wparam(false),0);
end;

Потом такой функцией меняю текст панелей:

function sbsettext(sbar: hwnd; PanelID: integer; newtext: string): integer;
begin
  result := sendmessage(sbar,sb_settext,panelid,lparam(pchar(newtext)));
end;

Пробовал делать так:

WM_RESIZE:
begin
        arr[0] := 110;
        arr[1] := 300;
        arr[2] := 380;
        arr[3] := -1;
        sendmessage(sbar1,sb_setparts,4,lparam(@arr));
end;

но это тоже не помогает. Как быть?