[Lazarus] stringgrid copytoclipboard

[Andrea Mauri]

Lazarus 0.9.29 r25476 FPC 2.4.0 i386-win32-win32/win64
If I put a TStringGrid on a form and then in Form Click event I put:ù

procedure TForm1.FormClick(Sender: TObject);
begin
  StringGrid1.CopyToClipboard(False);
end;

I properly get the stringgrid in the clipboard if the stringgrid is 
filled as follows:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.cells[0, 1]:= '1';
  StringGrid1.cells[0, 2]:= '2';

  StringGrid1.ColCount:= 3;
  StringGrid1.cells[1, 0]:= 'a';
  StringGrid1.cells[1, 1]:= '1';

  StringGrid1.cells[2, 1]:= '2';
  StringGrid1.cells[2, 0]:= 'b';
end;

Otherwise if I use the following code the grid is filled identically but 
when I copy it to the clipboard the titles are missing.

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.cells[0, 1]:= '1';
  StringGrid1.cells[0, 2]:= '2';

  StringGrid1.Columns.Add;
  StringGrid1.Columns[0].Title.Caption:= 'a';
  StringGrid1.Cells[1, 1]:= '1';
  StringGrid1.Columns.Add;
  StringGrid1.Columns[1].Title.Caption:= 'b';
  StringGrid1.Cells[2, 1]:= '2';
end;

regards,
andrea



--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus