Ребята, задача стандартная
Необходимо иметь StringGrid c чекбоксами.
Не вижу ошибки. Просто не перерисовываются чекбоксы.Подскажите,пожалуйста
| Код |
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
i:integer;
begin
if ACol=0 then
begin
for i:=0 to StringGrid1.RowCount do
begin
if check[i]=true then
style := DFCS_CHECKED
else style := DFCS_BUTTONCHECK;
end;
DrawFrameControl(TStringGrid(Sender).Canvas.Handle, Rect, DFC_BUTTON,style);
end;
end;
procedure TForm1.StringGrid1Click(Sender: TObject);
var
i:integer;
begin
SetLength(check,StringGrid1.RowCount);
if StringGrid1.Col=0 then
begin
i:=StringGrid1.Row;
if check[i]=false then check[i]:=true else check[i]:=false;
StringGrid1.Refresh;
end;
end;
|
Всего наилучшего |