View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0030608 | Lazarus | LCL | public | 2016-09-16 22:37 | 2021-01-23 10:24 |
Reporter | K155LA3 | Assigned To | Jesus Reyes | ||
Priority | normal | Severity | minor | Reproducibility | always |
Status | closed | Resolution | fixed | ||
OS | Windows | ||||
Product Version | 1.7 (SVN) | ||||
Target Version | 1.8 | Fixed in Version | 1.7 (SVN) | ||
Summary | 0030608: TStringGrid when FixedRow = 0 instead of the data copied the title | ||||
Description | If you copy some cell from first row when FixedRow = 0 and paste it, than first row data not copied, they will replaced by the title. | ||||
Steps To Reproduce | 1 Place StringGrid to form. 2 Add some column 3 Set in Options goEditing. 4 Set FixedRow = 0 5 Run programm. 6 Fill some cell (with first row) with any data. 7 Select some or one cell (with first row) and press Ctrl+C. 8 Place cursor on cell and press Ctrl+V 9 Data from first row was not copied, they will replaced by the title. | ||||
Additional Information | This bug exist in procedure TCustomStringGrid.CopyCellRectToClipboard(const R: TRect): if (aRow=0) then SelStr := SelStr + QuoteText(Columns[k].Title.Caption) else SelStr := SelStr + QuoteText(Cells[aCol,aRow]); When FixedRow = 0 first row, which can be copied is 0, and it dose not copied, they will replaced by the title it can be fixed by: - if (aRow=0) then + if (aRow = 0) and (FixedRow > 0) then | ||||
Tags | No tags attached. | ||||
Fixed in Revision | 52983 | ||||
LazTarget | 1.8 | ||||
Widgetset | |||||
Attached Files |
|
related to | 0030556 | closed | Jesus Reyes | TStringGrid empty cells does not replace cells with data when copy and paste one empty cell or one column with empty cell. |
related to | 0030454 | closed | Jesus Reyes | TStringGrid copy selection bug, when cell in last column in selected range is empty. |
|
|
|
Thanks. Fixed. |
|
Thank you. I think that this condition can be removed: - if (aRow=0) (FixedRow>0) then - SelStr := SelStr + QuoteText(Columns[k].Title.Caption) - else Because the fixed cells can never be selected. Or fixed cell selection is possible? |
|
Selection can be set by code. |
|
The problem has been resolved. |
Date Modified | Username | Field | Change |
---|---|---|---|
2016-09-16 22:37 | K155LA3 | New Issue | |
2016-09-16 22:37 | K155LA3 | File Added: TSGBug4.gif | |
2016-09-16 23:59 | Jesus Reyes | Assigned To | => Jesus Reyes |
2016-09-16 23:59 | Jesus Reyes | Status | new => assigned |
2016-09-17 01:41 | Jesus Reyes | Fixed in Revision | => 52983 |
2016-09-17 01:41 | Jesus Reyes | LazTarget | => 1.8 |
2016-09-17 01:41 | Jesus Reyes | Note Added: 0094688 | |
2016-09-17 01:41 | Jesus Reyes | Status | assigned => resolved |
2016-09-17 01:41 | Jesus Reyes | Fixed in Version | => 1.7 (SVN) |
2016-09-17 01:41 | Jesus Reyes | Resolution | open => fixed |
2016-09-17 01:41 | Jesus Reyes | Target Version | => 1.8 |
2016-09-17 13:58 | K155LA3 | Note Added: 0094694 | |
2016-09-17 19:48 | Jesus Reyes | Note Added: 0094696 | |
2016-12-18 20:19 | Jesus Reyes | Relationship added | related to 0030556 |
2016-12-18 20:19 | Jesus Reyes | Relationship added | related to 0030454 |
2021-01-23 10:24 | K155LA3 | Status | resolved => closed |
2021-01-23 10:24 | K155LA3 | Note Added: 0128506 |