|
|
TStringGridBorderBug.png (10,710 bytes) |
|
|
Sorry, in Steps To Reproduce must be: 3 Change property FixedRows in object inspector to 0. |
|
|
So it has nothing to do with RowCount. I can reproduce on Qt. |
|
|
Sorry, must be "FixedRows" |
|
|
Maybe related to 0022351 ? |
|
|
In Lazarus-1.1-41901-fpc-2.6.2-20130626-win32 work correctly, border color not chaged. Tested in Windows 7 Rus, Windows XP Rus. |
|
|
StringgridBorder.png (93,801 bytes) |
|
|
Lazarus-1.1-42338-fpc-2.7.1-20130805-win32. Bug is present in two cases: 1 Multi col and row grid with one fixed col. 2 Multi row and one col grid with one fixed row. and if app window moved beyond the screen edge and return to screen then border broken in all sgtinggrid. Temporarily, a strange solution (draw border all stringgrid combination correctly and not broken when app window moved beyond the screen edge): procedure TCustomGrid.DrawBorder; ... Pen.Width := 0; //It is too strange, but it work. Why it work? I'm don't know. Pen.Width := 1; ... "Pen.Width := 0;" may be replaced by guaranteed any state pen change: Pen.Style := psClear; Pen.Style := psSolid; or Pen.Color := clNone Pen.Color := fBorderColor; and etc. P.S.: If in procedure "TCustomGrid.DrawRow(aRow: Integer)" "Draw Fixed Columns" code place before "Draw columns in this row" then "multi col and row grid with one fixed col" border draw correctly (but still broken by screen edge). |
|
|
StringGridBrokenBorder.png (41,663 bytes) |
|
|
reported as fixed in the meantime |
|
|
The problem has been resolved. |
- Anonymous
