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

Examples: Prevent merged header cells in merged_cells demo being drawn as selected.

Browse Source 
git-svn-id: trunk@63790 -
This commit is contained in:
wp 2020-08-19 08:20:33 +00:00
parent e9f700554a
commit 02e9b21883
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/gridexamples/merged_cells/mcgrid.pas
View File

@ -174,7 +174,7 @@ procedure TMCStringGrid.PrepareCanvas(aCol, aRow: Integer;
var var
L, T, R, B: Integer; L, T, R, B: Integer;
begin begin
if IsMerged(ACol, ARow, L, T, R, B) and if IsMerged(ACol, ARow, L, T, R, B) and not (gdFixed in AState) and
(Col >= L) and (Col <= R) and (Row >= T) and (Row <= B) and (Col >= L) and (Col <= R) and (Row >= T) and (Row <= B) and
not ((ACol = Col) and (ARow = Row)) not ((ACol = Col) and (ARow = Row))
then then