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

fixed initial TRadioGroup.ItemIndex under gtk

Browse Source 
git-svn-id: trunk@8664 -
This commit is contained in:
mattias 2006-01-30 20:20:33 +00:00
parent 563a126a1b
commit 87439b8fab
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/include/radiogroup.inc
View File

@ -79,6 +79,20 @@ end;
Create the visual component of the Radiogroup.
------------------------------------------------------------------------------}
procedure TCustomRadioGroup.InitializeWnd;
procedure RealizeItemIndex;
var
i: Integer;
begin
if (FItemIndex <> -1) then
TRadioButton(FButtonList[FItemIndex]).Checked := true
else
FHiddenButton.Checked:=true;
for i:=0 to FItems.Count-1 do begin
TRadioButton(FButtonList[i]).Checked := fItemIndex = i;
end;
end;
begin
if FCreatingWnd then RaiseGDBException('TCustomRadioGroup.InitializeWnd');
FCreatingWnd := true;
@ -88,6 +102,7 @@ begin
if (FHiddenButton<>nil) and (FHiddenButton.Parent=Self) then
FHiddenButton.HandleNeeded;
RealizeItemIndex;
FCreatingWnd := false;
end;
@ -314,6 +329,7 @@ var
OldItemIndex: LongInt;
OldIgnoreClicks: Boolean;
begin
//DebugLn('TCustomRadioGroup.SetItemIndex ',dbgsName(Self),' Old=',dbgs(FItemIndex),' New=',dbgs(Value));
if Value = FItemIndex then exit;
if FReading then
FItemIndex:=Value
@ -354,6 +370,7 @@ begin
else
FItemIndex := Value;
end;
//DebugLn('TCustomRadioGroup.SetItemIndex ',dbgsName(Self),' END Old=',dbgs(FItemIndex),' New=',dbgs(Value));
end;
{------------------------------------------------------------------------------