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

LCL: Fix not setting RadioGroup.ItemIndex to -1 in GTK2 (Issue #0028133).

Browse Source 
git-svn-id: trunk@50508 -
This commit is contained in:
bart 2015-11-26 12:57:12 +00:00
parent 921bba63bb
commit 6dbbab636b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/radiogroup.inc
View File

@ -221,8 +221,6 @@ begin
ARadioButton.Parent := Self; ARadioButton.Parent := Self;
end; end;
FHiddenButton.Parent:=Self; FHiddenButton.Parent:=Self;
if HandleAllocated then
FHiddenButton.HandleNeeded;
// the checked and unchecked states can be applied only after all other // the checked and unchecked states can be applied only after all other
for i := 0 to FItems.Count-1 do for i := 0 to FItems.Count-1 do
@ -234,6 +232,8 @@ begin
//FHiddenButton must remain the last item in Controls[], so that Controls[] is in sync with Items[] //FHiddenButton must remain the last item in Controls[], so that Controls[] is in sync with Items[]
Self.RemoveControl(FHiddenButton); Self.RemoveControl(FHiddenButton);
Self.InsertControl(FHiddenButton); Self.InsertControl(FHiddenButton);
if HandleAllocated then
FHiddenButton.HandleNeeded;
FHiddenButton.Checked := (FItemIndex = -1); FHiddenButton.Checked := (FItemIndex = -1);
UpdateTabStops; UpdateTabStops;
end; end;