paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 16:13:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

make sure the data link is in edit state (bug #946) from Jesus

Browse Source 
git-svn-id: trunk@7234 -
This commit is contained in:
vincents 2005-06-12 13:19:29 +00:00
parent 49823c14e4
commit 5f280446fe
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dbradiogroup.inc
View File

@ -133,12 +133,16 @@ end;
procedure TDBRadioGroup.UpdateRadioButtonStates;
var
OldValue: String;
SettingValue: boolean;
begin
OldValue:=Value;
inherited UpdateRadioButtonStates;
SettingValue := FInSetValue;
Value := GetButtonValue(ItemIndex);
if (Value<>OldValue) then begin
if FDataLink.Editing then FDataLink.Modified;
if (Value<>OldValue) and FDatalink.CanModify and not SettingValue then
begin
FDatalink.Edit; // ensure that we are in edit state
FDataLink.Modified;
end;
end;