Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Option.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by yoffy, Sat Aug 9 14:22:51 2003 UTC revision 1.3 by h677, Wed Aug 13 05:07:02 2003 UTC
# Line 157  type Line 157  type
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);
# Line 207  type Line 215  type
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;
# Line 276  begin Line 285  begin
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);
# Line 293  begin Line 303  begin
303          end;          end;
304          SaveSetting;          SaveSetting;
305          SettingApply;          SettingApply;
306        SetAbonpropertys;
307          FClose := False;          FClose := False;
308  end;  end;
309    
# Line 629  begin Line 640  begin
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;
# Line 772  begin Line 789  begin
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;
# Line 1017  begin Line 1048  begin
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    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26