Question

delphi想对一个 drawgrid 单元格 颜色进行设置，求帮助……

建立了一个drawgrid 控件，想实现这样 一个功能
有一个存有 0,1 的二元数组，想把数组的对应的值在表格中显示，1显示黑色 ，0显示白色，

比如 数组的 [1,1]就在 表格的第一行第一列 显示 对应的颜色

求高手解惑！！！谢谢

Answer 1

const
mycol: array[1..4,1..4] of integer //4行4列
=((1,1,0,0),
(0,1,1,1),
(0,0,0,1),
(1,0,0,1)
); function CellDraw:boolean;
var
myrect:TRect ;
i, j: integer;
col: TColor;
begin
Result := False ;
try
for i := 1 to Length(mycol) do
begin
for j:= 1 to Length(mycol[1]) do
begin
if mycol[i,j] = 1 then
col := clBlack //1-黑色
else if mycol[i,j] = 0 then
col := clWhite; //0-白色
myrect := Form1.DrawGrid1.CellRect(j,i);
Form1.DrawGrid1.Canvas.Brush.Color := col;
Form1.DrawGrid1.Canvas.FillRect(myrect);
end;
end;
Result := True;
except
end;
end; procedure TForm1.BitBtn1Click(Sender: TObject);
begin
CellDraw; //调用自定义函数
end;