VPF::StringGrid / CheckBox - Форум программистов

Ekate

Дата 13.8.2007, 20:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 6.7.2007

Репутация: нет
Всего: нет

Ребята, задача стандартная,нарисовать StringGrid с чекбоксами.
Замучалась,не вижу ошибки.
Подвскажите, пожалуйста.

Код


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;

Всего наилучшего

Добавлено через 5 минут
Добавлю, что ни на что не ругается, просто не перерисовываются чекбоксы

ALeXandrK

Дата 14.8.2007, 00:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: 1
Всего: 6

А ты убрал галочку у StringGrid DefaultDrawing?

--------------------

Богат не/ни тот, у кого много, а тот, кому хватает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »