Code:

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

:=(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;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить