Stringgrid+чекбокс

[Алексей_2012]

возможно ли по нажатию Tbutton заполнить первый столбец Tstringgridа чекбоксом через строчку, то есть две фиксированные строки пропускаем, затем идет чекбокс, затем пусто, затем еще один чекбокс, если да, то как? и возможно ли проверить чекбоксы каких строк оказались активными?

[Stilet]

В стринглисте чекбоксы уже есть или их туда нужно создать?
Если создать то предположим так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
      aRect: TRect; aState: TGridDrawState);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

// Создадим чекбоксы и привяжем к ячейкам грида
procedure TForm1.FormCreate(Sender: TObject);
var i:integer; cb:TCheckBox;
begin
 with StringGrid1 do begin
   i:=FixedRows;
   while i<RowCount do begin
     cb:=TCheckBox.Create(StringGrid1);
     cb.Parent:=StringGrid1;
     Objects[1,i]:=cb;
     inc(i,2);
   end;
 end;
end;

// Покажем чекбоксы
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
  with TStringGrid(sender) do begin
    if Objects[aCol,aRow] is TCheckBox then begin
      with TCheckBox(Objects[aCol,aRow]) do begin
        Top:=aRect.Top; Left:=aRect.Left;
        Show;
      end;
    end;
  end;
end;

end.

[Алексей_2012]

спасибо большое) только там почему-то галочка не ставится( Вот допустим в клетках, закрашенные через фотошоп фиолетовым цветом (кроме первых двух фиксированных строк) должны появиться Tcheckbox, а затем после нажатия какой-либо кнопки или другого события содержимое выделенных строк tcheckbox должно быть перенесено в файл, при этом следует учитывать то что запись выводится в две строки (первая-зеленая, вторая-желтая). Возможно ли сделать такое? Или слишком сложно все придумал? так то у меня задание проще, по клику на запись распечатать все данные о человеке) а я для усложнения придумал эти чекбоксы, чтобы можно было сразу несколько человек выбрать

[Алексей_2012]

ой, извиняюсь, праздник вчера был, вроде фото я не выложил, забыл)) а галочка все равно в чекбоксе не ставится

[Stilet]

Попробуй cb.Parent:=Self;

[Аватар]

Что бы оно было на что-то похоже и скрол вертикальный нормально работал подправь чуть процедуры от Виталия

procedure TForm1.FormCreate(Sender: TObject);
var i:integer; cb:TCheckBox;
begin
 with StringGrid1 do begin
   i:=FixedRows;
   while i<RowCount do begin
     cb:=TCheckBox.Create(Self);
     cb.Parent:=Self;
     cb.Caption:=IntToStr(i);
     Objects[1,i]:=cb;
     inc(i,2);
   end;
 end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var i: Integer;
begin
  for i:=1 to StringGrid1.RowCount-1 do
    if StringGrid1.Objects[1,i] is TCheckBox then TCheckBox(StringGrid1.Objects[1,i]).Visible:=(i>=StringGrid1.TopRow) and (i<=StringGrid1.TopRow+StringGrid1.VisibleRowCount);
  with TStringGrid(sender) do begin
    if Objects[aCol,aRow] is TCheckBox then begin
      with TCheckBox(Objects[aCol,aRow]) do begin
        Top:=StringGrid1.Top+Rect.Top+4;
        Left:=StringGrid1.Left+Rect.Left+4;
        Width:=Rect.Right-Rect.Left;
        Height:=Rect.Bottom-Rect.Top;
        Show;
      end;
    end
    else Canvas.FillRect(Rect);
  end;
end;

[Алексей_2012]

Спасибо большое, но чекбоксы не в тех ячейках появились(( Нужно на одну ячейку левее, а код поправил немного, чтоб на одну ячейку ниже было)

 
procedure TForm1.FormCreate(Sender: TObject);
var i:integer; cb:TCheckBox;
begin
 with StringGrid1 do begin
  i := FixedRows+1;
      while i < RowCount do begin
        cb := TCheckBox.Create(Self);
        cb.Parent := Self;
        cb.Caption := IntToStr(i);
        Objects[1, i] := cb;
        inc(i, 2);
      end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var i: Integer;
begin
for i := 1 to StringGrid1.RowCount - 1 do
        if StringGrid1.Objects[1, i] is TCheckBox then TCheckBox(StringGrid1.Objects[1, i]).Visible := (i >= StringGrid1.TopRow) and (i <= StringGrid1.TopRow + StringGrid1.VisibleRowCount);
      with TStringGrid(sender) do begin
        if Objects[aCol, aRow] is TCheckBox then begin
          with TCheckBox(Objects[aCol, aRow]) do begin
            Top := StringGrid1.Top + Rect.Top + 4;
            Left := StringGrid1.Left + Rect.Left + 4;
            Width := Rect.Right - Rect.Left;
            Height := Rect.Bottom - Rect.Top;
            Show;
          end;
        end
        else Canvas.FillRect(Rect);
end;

[Алексей_2012]

ну есть идеи как сдвинуть чек бокс на ячейку левее, вернее все чекбоксы? а затем как организовать проверку checked? и по необходимости убрать все эти чекбоксы? покажите пару примеров, или киньте ссылку, заранее спасибо!

[Аватар]

ну есть идеи как сдвинуть чек бокс на ячейку левее

Везде где в коде колонка 1 замените на 0

а затем как организовать проверку checked?

Первые две строки из StringGrid1DrawCell и есть цикл по всем. И проверять Checked

[Алексей_2012]

Аватар, спасибо, но я совсем запутался, чтобы все нормально заработало, ну как нормально, чекбокс не должен выводиться в фиксированных строках, нужно сначала нажать на кнопку показать, а затем на кнопку просмотр/печать, тогда все чекбоксы выведутся верно, ну как верно, почему-то фон белого цвета, а надо желтого(( в общем я совсем запутался в этой штуке и ничего не выходит(((