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

ValEdit: fix bug in SetOptions (once goColMoving was set, it wasn't possible to change options anymore).

Browse Source 
git-svn-id: trunk@40225 -
This commit is contained in:
bart 2013-02-09 16:09:25 +00:00
parent b3c2eafeb0
commit b48441883c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/valedit.pas
View File

@ -686,8 +686,10 @@ end;
procedure TValueListEditor.SetOptions(const AValue: TGridOptions); procedure TValueListEditor.SetOptions(const AValue: TGridOptions);
begin begin
if not (goColMoving in Options) then if not (goColMoving in AValue) then
inherited Options := AValue; inherited Options := AValue
else
inherited Options := AValue - [goColMoving];
end; end;
procedure TValueListEditor.SetStrings(const AValue: TValueListStrings); procedure TValueListEditor.SetStrings(const AValue: TValueListStrings);