Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты!
В stringgrid в определенной ячейке реализую многострочность в фиксированной строке. Все вроде хорошо когда DrawingStyle равен Classic, но стоит только сменить на Themed или Gradient, тогда текст двоится.
Если закрасить ячейку любым цветом, то лишний текст уберется, вопрос как ее закрасить точно таким же градиентом как при DrawingStyle равном Themed?
Или может есть какой другой выход ... ?

Использую код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  MyRect:TRect;
  Format: Word;
  C: array[0..255] of Char;
 
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;

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Вопрос задал: Андрей Николаевич (статус: Посетитель) Вопрос отправлен: 21 марта 2012, 10:40 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

bugmenot (статус: 3-ий класс), 21 марта 2012, 18:13 [#1]: Цитата (Андрей Николаевич): текст двоится Есть предположение, что это эффект от DefaultDrawing виконання програми розпочинається з того самого мiсця, де призупинилося.

22 марта 2012, 11:25: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.