Commit84bb428

committed

Fixed issue#1314: Make fixed columns non-draggable

1 parent8afd48e commit84bb428Copy full SHA for 84bb428

File tree

-0

lines changed

-0

lines changed

Lines changed: 2 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -3243,6 +3243,8 @@ procedure TVirtualTreeColumn.SetOptions(Value : TVTColumnOptions);`
`3243`	`3243`	`ToBeSet :=Value - FOptions;`
`3244`	`3244`
`3245`	`3245`	`FOptions :=Value;`
	`3246`	`+if coFixedin ToBeSetthen`
	`3247`	`+ FOptions := FOptions - [coDraggable];// issue #1314`
`3246`	`3248`
`3247`	`3249`	`VisibleChanged := coVisiblein (ToBeSet + ToBeCleared);`
`3248`	`3250`	`lParentColorSet := coParentColorin ToBeSet;`

Comments

(0)