SetToolBarPopup;
// \83\8c\83X\95\\8e¦\94Í\88Í
- FResRangeMenuSelect := 100;
+ FResRangeMenuSelect := GikoSys.ResRange;
case GikoSys.ResRange of
Ord( grrAll ):
begin
end;
Ord( grrSelect ):
begin
- SelectComboBox.Text := SelectComboBox.Items[ 0 ];
+ SelectComboBox.Text := SelectComboBox.Items[ 1 ];
SelectResAction.Checked := True;
end;
else
- FResRangeMenuSelect := GikoSys.ResRange;
// ResRangeAction.Execute;
case FResRangeMenuSelect of
Ord( grrKoko ): OnlyKokoResAction.Checked := True;