paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 16:31:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK3: Group RadioButtons also outside a RadioGroup. Issue #36445, patch from CudaText man.

Browse Source 
git-svn-id: trunk@62402 -
This commit is contained in:
juha 2019-12-15 21:26:10 +00:00
parent 46beb34edb
commit 5f84d21266
1 changed files with 27 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -6506,7 +6506,8 @@ var
w: PGtkWidget;
ctl, Parent: TWinControl;
rb: TRadioButton;
pl: PGsList;
//pl: PGsList;
i: Integer;
begin
if Self.LCLObject.Name='HiddenRadioButton' then
exit;
@ -6517,15 +6518,33 @@ begin
if Assigned(ctl) then
begin
Parent := ctl.Parent;
if (Parent is TRadioGroup) and (TRadioGroup(Parent).Items.Count>0) then
if (Parent is TRadioGroup) then
begin
rb := TRadioButton(Parent.Controls[0]);
if rb<>ctl then
if (TRadioGroup(Parent).Items.Count>0) then
begin
w := TGtk3RadioButton(rb.Handle).Widget;
pl := PGtkRadioButton(w)^.get_group;
PGtkRadioButton(Result)^.set_group(pl);
end;
rb := TRadioButton(Parent.Controls[0]);
if rb<>ctl then
begin
w := TGtk3RadioButton(rb.Handle).Widget;
//pl := PGtkRadioButton(w)^.get_group;
//PGtkRadioButton(Result)^.set_group(pl);
PGtkRadioButton(Result)^.join_group(PGtkRadioButton(w));
end;
end
end
else
begin
for i := 0 to Parent.ControlCount - 1 do
if Parent.Controls[i] is TRadioButton and
TWinControl(Parent.Controls[i]).HandleAllocated then
begin
rb := TRadioButton(Parent.Controls[i]);
w := TGtk3RadioButton(rb.Handle).Widget;
//pl := PGtkRadioButton(w)^.get_group;
//PGtkRadioButton(Result)^.set_group(pl);
PGtkRadioButton(Result)^.join_group(PGtkRadioButton(w));
Break;
end;
end;
end;
end;