| 157 |
PutPostTimeRadioButton: TRadioButton; |
PutPostTimeRadioButton: TRadioButton; |
| 158 |
BackPostTimeRadioButton: TRadioButton; |
BackPostTimeRadioButton: TRadioButton; |
| 159 |
ResPopupBoldCheckBox: TCheckBox; |
ResPopupBoldCheckBox: TCheckBox; |
| 160 |
|
NGwordSheet: TTabSheet; |
| 161 |
|
GroupBox14: TGroupBox; |
| 162 |
|
RloCheckBox: TCheckBox; |
| 163 |
|
ReplaceulCheckBox: TCheckBox; |
| 164 |
|
PopUpAbonCheckBox: TCheckBox; |
| 165 |
|
CutOffLabeledEdit: TLabeledEdit; |
| 166 |
|
Label26: TLabel; |
| 167 |
|
Label28: TLabel; |
| 168 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 169 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 170 |
procedure ApplyButtonClick(Sender: TObject); |
procedure ApplyButtonClick(Sender: TObject); |
| 215 |
procedure SaveSetting; |
procedure SaveSetting; |
| 216 |
procedure SettingApply; |
procedure SettingApply; |
| 217 |
function CheckFolder: Boolean; |
function CheckFolder: Boolean; |
| 218 |
|
procedure SetAbonpropertys; |
| 219 |
public |
public |
| 220 |
{ Public 宣言 } |
{ Public 宣言 } |
| 221 |
end; |
end; |
| 285 |
end; |
end; |
| 286 |
SaveSetting; |
SaveSetting; |
| 287 |
SettingApply; |
SettingApply; |
| 288 |
|
SetAbonpropertys; |
| 289 |
end; |
end; |
| 290 |
|
|
| 291 |
procedure TOptionDialog.ApplyButtonClick(Sender: TObject); |
procedure TOptionDialog.ApplyButtonClick(Sender: TObject); |
| 303 |
end; |
end; |
| 304 |
SaveSetting; |
SaveSetting; |
| 305 |
SettingApply; |
SettingApply; |
| 306 |
|
SetAbonpropertys; |
| 307 |
FClose := False; |
FClose := False; |
| 308 |
end; |
end; |
| 309 |
|
|
| 640 |
PutPostTimeRadioButton.Checked := True |
PutPostTimeRadioButton.Checked := True |
| 641 |
else |
else |
| 642 |
BackPostTimeRadioButton.Checked := True; |
BackPostTimeRadioButton.Checked := True; |
| 643 |
|
//あぼ〜ん |
| 644 |
|
RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo; |
| 645 |
|
ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul; |
| 646 |
|
PopUpAbonCheckBox.Checked := GikoSys.Setting.PopUpAbon; |
| 647 |
|
CutOfflabeledEdit.Text := IntToStr(GikoSys.Setting.AbonCutoffNum); |
| 648 |
|
|
| 649 |
end; |
end; |
| 650 |
|
|
| 651 |
procedure TOptionDialog.SaveSetting; |
procedure TOptionDialog.SaveSetting; |
| 789 |
else |
else |
| 790 |
GikoSys.Setting.SoundFileName[i] := ''; |
GikoSys.Setting.SoundFileName[i] := ''; |
| 791 |
end; |
end; |
| 792 |
|
|
| 793 |
|
//あぼ〜ん |
| 794 |
|
GikoSys.Setting.AbonDeleterlo := RloCheckBox.Checked; |
| 795 |
|
GikoSys.Setting.AbonReplaceul := ReplaceulCheckBox.Checked; |
| 796 |
|
GikoSys.Setting.PopUpAbon := PopUpAbonCheckBox.Checked; |
| 797 |
|
try |
| 798 |
|
if StrToInt(CutOfflabeledEdit.Text) > 0 then begin |
| 799 |
|
GikoSys.Setting.AbonCutoffNum := StrToInt(CutOfflabeledEdit.Text); |
| 800 |
|
end else begin |
| 801 |
|
GikoSys.Setting.AbonCutoffNum := 0; |
| 802 |
|
end; |
| 803 |
|
except |
| 804 |
|
GikoSys.Setting.AbonCutoffNum := 0; |
| 805 |
|
end; |
| 806 |
end; |
end; |
| 807 |
|
|
| 808 |
procedure TOptionDialog.SettingApply; |
procedure TOptionDialog.SettingApply; |
| 1048 |
PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked; |
PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked; |
| 1049 |
BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked; |
BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked; |
| 1050 |
end; |
end; |
| 1051 |
|
procedure TOptionDialog.SetAbonpropertys; |
| 1052 |
|
begin |
| 1053 |
|
//あぼ〜ん |
| 1054 |
|
GikoSys.FAbon.Deleterlo := RloCheckBox.Checked; |
| 1055 |
|
GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked; |
| 1056 |
|
GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked; |
| 1057 |
|
try |
| 1058 |
|
if StrToInt(CutOfflabeledEdit.Text) > 0 then begin |
| 1059 |
|
GikoSys.FAbon.SetCutoffNum(StrToInt(CutOfflabeledEdit.Text)); |
| 1060 |
|
end else begin |
| 1061 |
|
GikoSys.FAbon.SetCutoffNum(0); |
| 1062 |
|
end; |
| 1063 |
|
except |
| 1064 |
|
GikoSys.FAbon.SetCutoffNum(0); |
| 1065 |
|
end; |
| 1066 |
|
|
| 1067 |
|
end; |
| 1068 |
end. |
end. |
| 1069 |
|
|