На главную
Подписка
Новости


Рейтинг@Mail.ru











Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Компоненты / Назначение цвета для каждой строки, вывод ячейки в несколько строк в StringGrid Сделать домашней страницей Добавить в избранное Написать писмо

Назначение цвета для каждой строки, вывод ячейки в несколько строк в StringGrid



procedure TFormHistory.ListHistoryDrawCell(Sender: TObject; Col, Row: Integer;
          Rect: TRect; State: TGridDrawState);
var
  S: string;
  DrawRect: TRect;
  CurrentColor: TColor;
begin
  // Определяем цвет строки в зависимости типа Imcoming
  if (Sender as TStrinGgrid).Cells[COLUMN_INCOMING , Row ] = '1' then
    CurrentColor:=clBlue
  else
    CurrentColor:=clMaroon;

  if (Sender as TStrinGgrid).Row = Row then
    CurrentColor := clHighlightText;

  (Sender as TStrinGgrid).Canvas.font.color := CurrentColor;
  S:= (Sender as TStrinGgrid).Cells[ Col, Row ];
  if (Col = COLUMN_MESSAGE ) and (Row <> ROW_HEADER) then
  begin
    if Length(S) > 0 then
    begin
      DrawRect:=Rect;
      DrawText((Sender as TStrinGgrid).Canvas.Handle, Pchar(S), Length(S),
      DrawRect, dt_calcrect or dt_wordbreak or dt_left );
      if (DrawRect.bottom - DrawRect.top) > (Sender as TStrinGgrid).RowHeights[Row] then
        (Sender as TStrinGgrid).RowHeights[row] :=(DrawRect.bottom - DrawRect.top)
      else
      begin
        DrawRect.Right:=Rect.Right;
        (Sender as TStrinGgrid).Canvas.FillRect( DrawRect );
        DrawText((Sender as TStrinGgrid).Canvas.Handle, Pchar(S),
                  Length(S), DrawRect, dt_wordbreak or dt_left);
      end;
    end;
  end
  else
    if Row <> ROW_HEADER then
      (Sender as TStrinGgrid).Canvas.Textout(rect.left+3, rect.top+3 , S );
end;


Copyright ©   "DELPHI WORLD"   E-mail:   delphiworld@mail.ru  http://www.delphiworld.narod.ru
Источник получения информации: http://www.delphiworld.narod.ru
Hosted by uCoz