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

TStringGrid: also call DoCellProcess when pasting HTML. Issue #0036576.

Browse Source 
git-svn-id: trunk@62621 -
This commit is contained in:
bart 2020-02-08 18:11:34 +00:00
parent 0d5ae4a252
commit acc7de51bd
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/grids.pas
View File

@ -11700,7 +11700,11 @@ begin
if bTagEnd then // table end cell tag </td>
begin
if IsColumnIndexValid(bCol) and IsRowIndexValid(bRow) then
Cells[bCol, bRow] := ReplaceEntities(bCellStr);
begin
bCellStr := ReplaceEntities(bCellStr);
DoCellProcess(bCol, bRow, cpPaste, bCellStr);
Cells[bCol, bRow] := bCellStr;
end;
bSelRect.Right := bCol;
Inc(bCol);
bCellStr := '';
@ -11724,7 +11728,11 @@ begin
end;
end;
if (bCol = bStartCol) and (bRow = bStartRow) then Cells[bCol, bRow] := TheText; //set text in cell if clipboard has CF_HTML fomat, but havent HTML table
if (bCol = bStartCol) and (bRow = bStartRow) then
begin
DoCellProcess(bCol, bRow, cpPaste, TheText);
Cells[bCol, bRow] := TheText; //set text in cell if clipboard has CF_HTML fomat, but havent HTML table
end;
Selection := bSelRect; // set correct selection
end;
end;