StringGrid, GridDrawCell

← →
Melifaro © (2006-05-05 20:22) [0]

Такая проблемма: Нашёл событие, с помощью которого можно прорисовать ромбический контур. Для курсовой это было нужно, но тут такая проблемма задают вопросы, а я немогу ответить! объясните пожалуйста что конкретно это за событие, зачем нужен FillRect(cellrect(ACol,ARow)); и DrawText

procedure TKontur.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
r: TRect;
begin
With Sender as TStringGrid do
With Canvas do
begin
begin
if ((acol)<(arow+6-q+w))and((acol)>(arow-6-q+w))and((arow + acol)<14+q+w)and((arow + acol)>2+q+w) then Brush.Color:= clYellow;
Font.Color:= clBlack;
FillRect(cellrect(ACol,ARow));
end;
r:=KdnRect(rect,2,2,0,0);
DrawText(Canvas.Handle, PChar(Grid.Cells[acol, ARow]),
Length(Grid.Cells[acol, arow]),r,DrawTextBiDiModeFlags(DT_LEFT));
end;
end;

← →
Melifaro © (2006-05-05 20:23) [1]

if ((acol)<(arow+6-q+w))and((acol)>(arow-6-q+w))and((arow + acol)<14+q+w)and((arow + acol)>2+q+w) - таким образом я выделяю контур и закрашиваю его в желтый Brush.Color:= clYellow.

>что конкретно это за событие
Это нужно прочитать в хелпе и разобраться
Потом вот это, например:
http://www.delphimaster.ru/articles/stringgrid/index.html

StringGrid, GridDrawCell Найти похожие ветки