procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
i:integer;
begin
with Sender as TStringGrid do
begin
Canvas.FillRect(Rect);
DrawText (Canvas.Handle,
PChar(Cells[ACol, ARow]),
Length(Cells[ACol, ARow]),
Rect, DT_WORDBREAK or DT_EXPANDTABS or DT_CENTER);
end;
for i:=2 to StringGrid1.RowCount - 1 do
if StringGrid1.Cells[3,i]='' then
begin
StringGrid1.Canvas.Brush.Color:=clRed;
if ((ACol=3)and(ARow=i)) then
begin
StringGrid1.Canvas.FillRect(Rect);
end;
end;
end;
задан Simon Robert 11 March 2019 в 17:33
поделиться