paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 09:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, check custom columns on copy grid's content to clipboard

Browse Source 
git-svn-id: trunk@25502 -
This commit is contained in:
jesus 2010-05-18 21:23:04 +00:00
parent 430aa43196
commit ab9338a782
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/grids.pas
View File

@ -8935,16 +8935,31 @@ end;
procedure TCustomStringGrid.CopyCellRectToClipboard(const R: TRect);
var
SelStr: String;
i: LongInt;
j: LongInt;
i,j,k: LongInt;
begin
SelStr := '';
for i:=R.Top to R.Bottom do begin
for j:=R.Left to R.Right do begin
SelStr := SelStr + Cells[j,i];
if Columns.Enabled and (j>=FirstGridColumn) then begin
k := ColumnIndexFromGridColumn(j);
if not Columns[k].Visible then
continue;
if (i=0) then
SelStr := SelStr + Columns[k].Title.Caption
else
SelStr := SelStr + Cells[j,i];
end else
SelStr := SelStr + Cells[j,i];
if j<>R.Right then
SelStr := SelStr + #9;
end;
SelStr := SelStr + #13#10;
end;
Clipboard.AsText := SelStr;