and (FActiveContent.FBrowser.Busy) then Exit;
FResRangeMenuSelect := Ord( grrAll );
+ AllResAction.Checked := True;
if GikoSys.ResRange <> Ord( grrAll ) then begin
GikoSys.ResRange := Ord( grrAll );
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
and (FActiveContent.FBrowser.Busy) then Exit;
- FResRangeMenuSelect := 100;
+ FResRangeMenuSelect := 100;
+ OnlyAHundredResAction.Checked := True;
if GikoSys.ResRange <> 100 then begin
GikoSys.ResRange := 100;
and (FActiveContent.FBrowser.Busy) then Exit;
FResRangeMenuSelect := Ord( grrKoko );
+ OnlyKokoResAction.Checked := True;
if GikoSys.ResRange <> Ord( grrKoko ) then begin
GikoSys.ResRange := Ord( grrKoko );
and (FActiveContent.FBrowser.Busy) then Exit;
FResRangeMenuSelect := Ord( grrNew );
+ OnlyNewResAction.Checked := True;
if GikoSys.ResRange <> Ord( grrNew ) then begin
GikoSys.ResRange := Ord( grrNew );