Дабы не плодить темы...
Добрый день уважаемые, помогите зафиксить код
Попытался сделать чекбоксы как описано вот тут, переделав под свои нужды:
http://www.delphisources.ru/pages/faq/base/checkboxes_in_stringgrid.html
В моем гриде чекбоксы должны рисоваться во втором ряду с первой по последнюю колонку.
Все вроде бы работает. Но есть проблема:
При первой отрисовке и скроллинге колонка [0,j] принимает в себя чужие чекбоксы
[0,0] - чекбокс самой последней колонки
[fixed_col, 1] - чекбокс первой невидимой колонки
Скриншот чтоб было понятно:
http://i.piccy.info/i9/0ef4b9da6ddba3ed1b75afdfc2519e08/1544547343/29709/1225901/Bezymiannyi.png
Как зафиксить неправильную отрисовку этих двух чекбоксов?
Код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
procedure TFormMain.GridCheckBoxClick(Sender: TObject);
var cb: TCheckBox;
begin
cb := Sender as TCheckBox;
ShowMessage(IntToStr(cb.Tag));
end;
procedure TFormMain.clean_previus_buffer;
var NewCheckBox: TCheckBox;
i: Integer;
begin
for i := 0 to Grid.ColCount do begin
NewCheckBox := (Grid.Objects[i, 1] as TCheckBox);
if (NewCheckBox <> nil) then begin
NewCheckBox.Visible := false;
Grid.Objects[i, 1].Free;
end;
end;
end;
procedure TFormMain.set_checkbox_alignment;
var NewCheckBox: TCheckBox;
Rect: TRect;
i: Integer;
begin
for i := 1 to Data.nQ do begin
NewCheckBox := (Grid.Objects[i, 1] as TCheckBox);
if (NewCheckBox <> nil) then begin
Rect := Grid.CellRect(i, 1); // получаем размер ячейки для чекбокса
NewCheckBox.Left := Grid.Left + Rect.Left + 5;
NewCheckBox.Top := Grid.Top + Rect.Top + 5;
NewCheckBox.Width := 14;
NewCheckBox.Height := 14;
NewCheckBox.Visible := True;
end;
end;
end;
procedure TFormMain.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if not (gdFixed in State) then
set_checkbox_alignment;
end;
procedure TFormMain.AddCheckBox(i : Word);
var NewCheckBox: TCheckBox;
begin
NewCheckBox := TCheckBox.Create(Application);
NewCheckBox.Width := 0;
NewCheckBox.Visible := False;
NewCheckBox.Color := clWindow;
NewCheckBox.Tag := i;
NewCheckBox.OnClick := GridCheckBoxClick; // Связываем событие OnClick с существующим
NewCheckBox.Parent := Panel2;
Grid.Objects[i, 1] := NewCheckBox;
NewCheckBox.Checked := True;
end;
procedure TFormMain.FillMatrixGrid;
var i: Word;
begin
with Grid do begin
ColCount := Data.nQ + 2; // 2 = Имена и Всего
RowCount := Data.nM + 3; // 2 = Индексы, Чекбоксы и Верные
ColWidths[0] := 161;
Cells[0,0] := 'Коды';
ColWidths[ColCount-1] := 50;
Cells[ColCount-1, 0] := 'Всего';
clean_previus_buffer; // очищаем старые чекбоксы...
for i := 1 to Data.nQ do begin
Cells[i,0] := IntToStr(i);
AddCheckBox(i);
end;
set_checkbox_alignment; // расположение чекбоксов в ячейках таблицы...
end;
end;
