StringGrid перенос слов в XE2

[andrejjka]

При переносе проекта из 7 версии в xe2, эффект переноса текста по словам в stringgrid стал косячить (в ячейке остается "перенесенный" текст и не перенесенный).

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  MyRect:TRect;
  Format: Word;
  C: array[0..255] of Char;
  I, J : Integer;

begin

    if (ACol=4) and (ARow=0) then
    begin

    Format := DT_CENTER or DT_WORDBREAK;
    (Sender as TStringGrid).Canvas.FillRect(Rect);
    StrPCopy(C, (Sender as TStringGrid).Cells[ACol, ARow]);
    WinProcs.DrawText((Sender as TStringGrid).Canvas.Handle, C,
    StrLen(C), Rect, Format);

    end;


end;

Подскажите пожалуйста как исправить.

[denisbrain]

1 вариант не корректные

  DT_CENTER = 1;
  DT_WORDBREAK = $10

2 вариант с:char кодировка не та которая использовалась в Delphi от Borland-a
как вариант DrawText -> DrawTextW

function DrawText(hDC: HDC; lpString: PChar; nCount: Integer;
  var lpRect: TRect; uFormat: UINT): Integer; stdcall;

function DrawTextW(hDC: HDC; lpString: PWideChar; nCount: Integer;
  var lpRect: TRect; uFormat: UINT): Integer; stdcall;

[andrejjka]

Не помогло. Заметил что все становится нормально когда в stringgrid меняю DrawingStyle на Classic (который и был в 7-й). То все отлично переносится и центруется, но стоит только сменить на Themed или Gradient, тогда текст снова двоится.
Все это происходит в фиксированной строке, которая если я не ошибаюсь имеет background градиентного цвета ...

Если закрасить ячейку любым цветом, то лишний текст уберется, вопрос как ее закрасить точно таким же градиентом как при DrawingStyle равном Themed?