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.56 by genyakun, Fri Aug 13 11:40:21 2004 UTC revision 1.57 by genyakun, Fri Aug 13 13:04:26 2004 UTC
# Line 10  uses Line 10  uses
10    
11  type  type
12          TOptionDialog = class(TForm)          TOptionDialog = class(TForm)
                 OkBotton: TButton;  
13                  CancelBotton: TButton;                  CancelBotton: TButton;
                 OptionTab: TPageControl;  
                 ConnectSheet: TTabSheet;  
                 Font1Sheet: TTabSheet;  
14                  ApplyButton: TButton;                  ApplyButton: TButton;
15                  FontDialog: TFontDialog;                  FontDialog: TFontDialog;
16                  ColorDialog: TColorDialog;                  ColorDialog: TColorDialog;
                 ReadProxyGroupBox: TGroupBox;  
                 ReadAddressLabel: TLabel;  
                 ReadPortLabel: TLabel;  
                 ReadProxyCheck: TCheckBox;  
                 ReadProxyAddressEdit: TEdit;  
                 ReadPortEdit: TEdit;  
                 ReadProxyUserIDEdit: TEdit;  
                 ReadProxyPasswordEdit: TEdit;  
                 ReadUserIDLabel: TLabel;  
                 ReadPasswordLabel: TLabel;  
                 FolderSheet: TTabSheet;  
                 FolderGroupBox: TGroupBox;  
                 LogFolderEdit: TEdit;  
                 LogFolderButton: TButton;  
                 Label1: TLabel;  
                 Label2: TLabel;  
                 ThreadSheet: TTabSheet;  
                 SoundSheet: TTabSheet;  
                 SoundEventGroupBox: TGroupBox;  
                 SoundListView: TListView;  
                 SoundReferButton: TButton;  
                 SoundFileEdit: TEdit;  
17                  OpenDialog: TOpenDialog;                  OpenDialog: TOpenDialog;
18                  WriteProxyGroupBox: TGroupBox;      Label26: TLabel;
19                  WriteAddressLabel: TLabel;      CroutOption: TButton;
20                  WritePortLabel: TLabel;      OptionTab: TPageControl;
21                  WriteUserIDLabel: TLabel;      ConnectSheet: TTabSheet;
22                  WritePasswordLabel: TLabel;      ReadProxyGroupBox: TGroupBox;
23                  WriteProxyCheck: TCheckBox;      ReadAddressLabel: TLabel;
24                  WriteProxyAddressEdit: TEdit;      ReadPortLabel: TLabel;
25                  WritePortEdit: TEdit;      ReadUserIDLabel: TLabel;
26                  WriteProxyUserIDEdit: TEdit;      ReadPasswordLabel: TLabel;
27                  WriteProxyPasswordEdit: TEdit;      ReadProxyCheck: TCheckBox;
28                  BoardSheet: TTabSheet;      ReadProxyAddressEdit: TEdit;
29                  GroupBox4: TGroupBox;      ReadPortEdit: TEdit;
30                  Label13: TLabel;      ReadProxyUserIDEdit: TEdit;
31                  UserIDSheet: TTabSheet;      ReadProxyPasswordEdit: TEdit;
32                  GroupBox3: TGroupBox;      WriteProxyGroupBox: TGroupBox;
33                  Label9: TLabel;      WriteAddressLabel: TLabel;
34                  Label10: TLabel;      WritePortLabel: TLabel;
35                  UserIDEdit: TEdit;      WriteUserIDLabel: TLabel;
36                  PasswordEdit: TEdit;      WritePasswordLabel: TLabel;
37                  SoundPlayButton: TBitBtn;      WriteProxyCheck: TCheckBox;
38                  AutoLoginCheckBox: TCheckBox;      WriteProxyAddressEdit: TEdit;
39                  Tora3URLLabel: TLabel;      WritePortEdit: TEdit;
40                  Label12: TLabel;      WriteProxyUserIDEdit: TEdit;
41                  Label5: TLabel;      WriteProxyPasswordEdit: TEdit;
42                  CabinetFontBotton: TButton;      Font1Sheet: TTabSheet;
43                  CabinetColorBotton: TButton;      Bevel1: TBevel;
44                  CabinetDefaultButton: TButton;      Bevel2: TBevel;
45                  CabinetMemo: TMemo;      Label19: TLabel;
46                  ListMemo: TMemo;      Bevel5: TBevel;
47                  ListFontBotton: TButton;      Label20: TLabel;
48                  ListColorBotton: TButton;      Label21: TLabel;
49                  ListDefaultBotton: TButton;      Label22: TLabel;
50                  HintFontButton: TButton;      Label23: TLabel;
51                  HintBackButton: TButton;      lblSFont: TLabel;
52                  HintDefaultButton: TButton;      CabinetFontBotton: TButton;
53                  HintMemo: TMemo;      CabinetColorBotton: TButton;
54                  EditorMemo: TMemo;      CabinetDefaultButton: TButton;
55                  EditorFontBotton: TButton;      CabinetMemo: TMemo;
56                  EditorColorBotton: TButton;      ListMemo: TMemo;
57                  EditorDefaultBotton: TButton;      ListFontBotton: TButton;
58                  BrowserTabMemo: TMemo;      ListColorBotton: TButton;
59                  BruwserTabFontButton: TButton;      ListDefaultBotton: TButton;
60                  BrowserTabDefaultButton: TButton;      HintFontButton: TButton;
61                  Bevel1: TBevel;      HintBackButton: TButton;
62                  Bevel2: TBevel;      HintDefaultButton: TButton;
63                  GroupBox1: TGroupBox;      HintMemo: TMemo;
64                  GroupBox2: TGroupBox;      EditorMemo: TMemo;
65                  URLAppCheckBox: TCheckBox;      EditorFontBotton: TButton;
66                  AppFolderLabel: TLabel;      EditorColorBotton: TButton;
67                  AppFolderEdit: TEdit;      EditorDefaultBotton: TButton;
68                  AppFolderButton: TButton;      BrowserTabMemo: TMemo;
69                  OpenMailerCheckBox: TCheckBox;      BruwserTabFontButton: TButton;
70                  TabSheet1: TTabSheet;      BrowserTabDefaultButton: TButton;
                 PopupPositionRadioGroup: TRadioGroup;  
                 TabAddRadioGroup: TRadioGroup;  
                 TabSheet2: TTabSheet;  
                 GroupBox7: TGroupBox;  
                 URLDisplayCheckBox: TCheckBox;  
                 Label3: TLabel;  
                 Label11: TLabel;  
                 TabStopAddressBarCheckBox: TCheckBox;  
                 AddressHistoryCountEdit: TEdit;  
                 LinkAddCheckBox: TCheckBox;  
                 GroupBox8: TGroupBox;  
                 PreviewVisibleCheckBox: TCheckBox;  
                 PreviewSizeComboBox: TComboBox;  
                 Label14: TLabel;  
                 Label15: TLabel;  
                 PreviewWaitEdit: TEdit;  
                 Label16: TLabel;  
                 ShowMailCheckBox: TCheckBox;  
                 TabSheet3: TTabSheet;  
                 GroupBox9: TGroupBox;  
                 ThreadListIconCheckBox: TCheckBox;  
                 NonAcquiredCountCheckBox: TCheckBox;  
                 GroupBox6: TGroupBox;  
                 LogDeleteMessageCheckBox: TCheckBox;  
                 GroupBox10: TGroupBox;  
                 UnActivePopupCheckBox: TCheckBox;  
                 GroupBox11: TGroupBox;  
                 RecvBufferSize: TEdit;  
                 Label17: TLabel;  
                 ProxyProtocolCheckBox: TCheckBox;  
                 ProtocolCheckBox: TCheckBox;  
                 Label18: TLabel;  
                 Label19: TLabel;  
                 Bevel5: TBevel;  
                 Label20: TLabel;  
                 Label21: TLabel;  
                 Label22: TLabel;  
                 Label23: TLabel;  
                 CSSTabSheet: TTabSheet;  
                 lblSFont: TLabel;  
                 GroupBox12: TGroupBox;  
                 CSSCheckBox: TCheckBox;  
                 CSSListLabel: TLabel;  
                 CSSListView: TListView;  
                 GroupBox13: TGroupBox;  
                 PostTimeCheckBox: TCheckBox;  
                 Label24: TLabel;  
                 Label25: TLabel;  
                 PostTimeEdit: TEdit;  
                 PostTimeLabel: TLabel;  
                 Label27: TLabel;  
                 PutPostTimeRadioButton: TRadioButton;  
                 BackPostTimeRadioButton: TRadioButton;  
                 ResPopupBoldCheckBox: TCheckBox;  
                 NGwordSheet: TTabSheet;  
                 GroupBox14: TGroupBox;  
                 RloCheckBox: TCheckBox;  
                 ReplaceulCheckBox: TCheckBox;  
                 PopUpAbonCheckBox: TCheckBox;  
                 CSSBrowser: TWebBrowser;  
                 CSSFontCheckBox: TCheckBox;  
                 CSSBackColorCheckBox: TCheckBox;  
                 CSSFontButton: TButton;  
                 CSSBackColorButton: TButton;  
                 ShowNGLineCheckBox: TCheckBox;  
                 AddResAnchorCheckBox: TCheckBox;  
     ResRangeHoldCheckBox: TCheckBox;  
                 BoardURLComboBox: TComboBox;  
                 AddURLButton: TButton;  
                 RemoveURLButton: TButton;  
                 GroupBox15: TGroupBox;  
                 ShowDialogForEndCheckBox: TCheckBox;  
71      OddResNumCheckBox: TCheckBox;      OddResNumCheckBox: TCheckBox;
72      OddResNumColorBox: TColorBox;      OddResNumColorBox: TColorBox;
73      ForcedLoginCheckBox: TCheckBox;      CSSTabSheet: TTabSheet;
74      ForcedLoginLabel: TLabel;      GroupBox12: TGroupBox;
75        CSSListLabel: TLabel;
76        CSSCheckBox: TCheckBox;
77        CSSListView: TListView;
78        CSSBrowser: TWebBrowser;
79        CSSFontCheckBox: TCheckBox;
80        CSSBackColorCheckBox: TCheckBox;
81        CSSFontButton: TButton;
82        CSSBackColorButton: TButton;
83        TabSheet3: TTabSheet;
84        GroupBox9: TGroupBox;
85        ThreadListIconCheckBox: TCheckBox;
86        NonAcquiredCountCheckBox: TCheckBox;
87      GroupBox16: TGroupBox;      GroupBox16: TGroupBox;
88      CreationTimeLogsCheckBox: TCheckBox;      CreationTimeLogsCheckBox: TCheckBox;
89      FutureThreadCheckBox: TCheckBox;      FutureThreadCheckBox: TCheckBox;
     DeleteSyriaCheckBox: TCheckBox;  
     TabSheet4: TTabSheet;  
     SambaGroupBox: TGroupBox;  
     UseSambaCheckBox: TCheckBox;  
     Label26: TLabel;  
     ResAnchorGroupBox: TGroupBox;  
     ResAnchorCheckBox: TCheckBox;  
     AllTabCloseCheckBox: TCheckBox;  
90      GroupBox5: TGroupBox;      GroupBox5: TGroupBox;
91      BrowserMaxLabel: TLabel;      BrowserMaxLabel: TLabel;
92      BrowserMaxCombo: TComboBox;      BrowserMaxCombo: TComboBox;
93      GroupBox17: TGroupBox;      GroupBox17: TGroupBox;
94      SelectIntervalLabel: TLabel;      SelectIntervalLabel: TLabel;
     SelectIntervalEdit: TEdit;  
95      Label4: TLabel;      Label4: TLabel;
96      Label6: TLabel;      Label6: TLabel;
97      TabAutoSaveLoad: TGroupBox;      SelectIntervalEdit: TEdit;
     TabLoadSave: TCheckBox;  
                 ResRangeHoldComboBox: TComboBox;  
98      GroupBox18: TGroupBox;      GroupBox18: TGroupBox;
99      DatOchiSortCombo: TComboBox;      DatOchiSortCombo: TComboBox;
100      CroutOption: TButton;      ThreadSheet: TTabSheet;
101        GroupBox1: TGroupBox;
102        ShowMailCheckBox: TCheckBox;
103        ResRangeHoldCheckBox: TCheckBox;
104        ResRangeHoldComboBox: TComboBox;
105        GroupBox2: TGroupBox;
106        AppFolderLabel: TLabel;
107        URLAppCheckBox: TCheckBox;
108        AppFolderEdit: TEdit;
109        AppFolderButton: TButton;
110        OpenMailerCheckBox: TCheckBox;
111        GroupBox6: TGroupBox;
112        LogDeleteMessageCheckBox: TCheckBox;
113        ResAnchorGroupBox: TGroupBox;
114        ResAnchorCheckBox: TCheckBox;
115        TabSheet1: TTabSheet;
116        PopupPositionRadioGroup: TRadioGroup;
117        TabAddRadioGroup: TRadioGroup;
118        GroupBox8: TGroupBox;
119        Label14: TLabel;
120        Label15: TLabel;
121        Label16: TLabel;
122        PreviewVisibleCheckBox: TCheckBox;
123        PreviewSizeComboBox: TComboBox;
124        PreviewWaitEdit: TEdit;
125        GroupBox10: TGroupBox;
126        UnActivePopupCheckBox: TCheckBox;
127        ResPopupBoldCheckBox: TCheckBox;
128        TabSheet2: TTabSheet;
129        GroupBox7: TGroupBox;
130        Label3: TLabel;
131        Label11: TLabel;
132        URLDisplayCheckBox: TCheckBox;
133        AddressHistoryCountEdit: TEdit;
134        TabStopAddressBarCheckBox: TCheckBox;
135        LinkAddCheckBox: TCheckBox;
136        GroupBox15: TGroupBox;
137        ShowDialogForEndCheckBox: TCheckBox;
138        AllTabCloseCheckBox: TCheckBox;
139        SambaGroupBox: TGroupBox;
140        UseSambaCheckBox: TCheckBox;
141        TabAutoSaveLoad: TGroupBox;
142        TabLoadSave: TCheckBox;
143        SoundSheet: TTabSheet;
144        SoundEventGroupBox: TGroupBox;
145        SoundListView: TListView;
146        SoundReferButton: TButton;
147        SoundFileEdit: TEdit;
148        SoundPlayButton: TBitBtn;
149        FolderSheet: TTabSheet;
150        FolderGroupBox: TGroupBox;
151        Label1: TLabel;
152        Label2: TLabel;
153        Label5: TLabel;
154        LogFolderEdit: TEdit;
155        LogFolderButton: TButton;
156        NGwordSheet: TTabSheet;
157        GroupBox14: TGroupBox;
158        RloCheckBox: TCheckBox;
159        ReplaceulCheckBox: TCheckBox;
160        PopUpAbonCheckBox: TCheckBox;
161        ShowNGLineCheckBox: TCheckBox;
162        AddResAnchorCheckBox: TCheckBox;
163        DeleteSyriaCheckBox: TCheckBox;
164        UserIDSheet: TTabSheet;
165        Tora3URLLabel: TLabel;
166        Label12: TLabel;
167        GroupBox3: TGroupBox;
168        Label9: TLabel;
169        Label10: TLabel;
170        ForcedLoginLabel: TLabel;
171        UserIDEdit: TEdit;
172        PasswordEdit: TEdit;
173        AutoLoginCheckBox: TCheckBox;
174        ForcedLoginCheckBox: TCheckBox;
175        GroupBox4: TGroupBox;
176        Label13: TLabel;
177        BoardURLComboBox: TComboBox;
178        AddURLButton: TButton;
179        RemoveURLButton: TButton;
180        OkBotton: TButton;
181                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
182                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
183                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 232  type Line 215  type
215                  procedure BrowserTabDefaultButtonClick(Sender: TObject);                  procedure BrowserTabDefaultButtonClick(Sender: TObject);
216                  procedure AddressHistoryCountEditExit(Sender: TObject);                  procedure AddressHistoryCountEditExit(Sender: TObject);
217                  procedure PreviewWaitEditExit(Sender: TObject);                  procedure PreviewWaitEditExit(Sender: TObject);
218                  procedure RecvBufferSizeExit(Sender: TObject);                  procedure CSSCheckBoxClick(Sender: TObject);            procedure CSSFontButtonClick(Sender: TObject);
                 procedure CSSCheckBoxClick(Sender: TObject);  
                 procedure PostTimeEditExit(Sender: TObject);  
                 procedure PostTimeCheckBoxClick(Sender: TObject);  
                 procedure CSSFontButtonClick(Sender: TObject);  
219                  procedure CSSBackColorButtonClick(Sender: TObject);                  procedure CSSBackColorButtonClick(Sender: TObject);
220                  procedure CSSFontCheckBoxClick(Sender: TObject);                  procedure CSSFontCheckBoxClick(Sender: TObject);
221                  procedure CSSBackColorCheckBoxClick(Sender: TObject);                  procedure CSSBackColorCheckBoxClick(Sender: TObject);
# Line 317  begin Line 296  begin
296      ForcedLoginLabel.Caption := '- チェックを入れるのはセキュリティ上好ましくありません。' + #13#10      ForcedLoginLabel.Caption := '- チェックを入れるのはセキュリティ上好ましくありません。' + #13#10
297                                                                  + ' やむを得ない時だけにしてください。';                                                                  + ' やむを得ない時だけにしてください。';
298      CSSCheckBoxClick(Sender);      CSSCheckBoxClick(Sender);
         PostTimeCheckBoxClick(Sender);  
299          BrowserMaxLabel.Caption :=          BrowserMaxLabel.Caption :=
300                  'ブラウザが最小化されているときに以下の操作でブラウザを最大化します。'#13#10 +                  'ブラウザが最小化されているときに以下の操作でブラウザを最大化します。'#13#10 +
301                  'また、ホイールクリックにより最大化をキャンセルすることが出来ます。';                  'また、ホイールクリックにより最大化をキャンセルすることが出来ます。';
# Line 343  end; Line 321  end;
321  procedure TOptionDialog.OkBottonClick(Sender: TObject);  procedure TOptionDialog.OkBottonClick(Sender: TObject);
322  begin  begin
323          FClose := True;          FClose := True;
         RecvBufferSizeExit(Sender);  
324          ReadPortEditExit(Sender);          ReadPortEditExit(Sender);
325          WritePortEditExit(Sender);          WritePortEditExit(Sender);
326          AddressHistoryCountEditExit(Sender);          AddressHistoryCountEditExit(Sender);
327          PreviewWaitEditExit(Sender);          PreviewWaitEditExit(Sender);
         PostTimeEditExit(Sender);  
328    
329          if not CheckFolder then begin          if not CheckFolder then begin
330                  FClose := False;                  FClose := False;
# Line 362  end; Line 338  end;
338    
339  procedure TOptionDialog.ApplyButtonClick(Sender: TObject);  procedure TOptionDialog.ApplyButtonClick(Sender: TObject);
340  begin  begin
         RecvBufferSizeExit(Sender);  
341          ReadPortEditExit(Sender);          ReadPortEditExit(Sender);
342          WritePortEditExit(Sender);          WritePortEditExit(Sender);
343          AddressHistoryCountEditExit(Sender);          AddressHistoryCountEditExit(Sender);
344          PreviewWaitEditExit(Sender);          PreviewWaitEditExit(Sender);
         PostTimeEditExit(Sender);  
345    
346          if not CheckFolder then begin          if not CheckFolder then begin
347                  FClose := False;                  FClose := False;
# Line 554  var Line 528  var
528          idx: Integer;          idx: Integer;
529          FileList: TStringList;          FileList: TStringList;
530  begin  begin
         //受信バッファサイズ  
         RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize);  
         //HTTP1.1使用  
         ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;  
         //プロキシ接続HTTP1.1使用  
         ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;  
531    
532          //読み込み用プロキシ          //読み込み用プロキシ
533          ReadProxyCheck.Checked := GikoSys.Setting.ReadProxy;          ReadProxyCheck.Checked := GikoSys.Setting.ReadProxy;
# Line 820  begin Line 788  begin
788                  DatOchiSortCombo.ItemIndex := 0;                  DatOchiSortCombo.ItemIndex := 0;
789          end;          end;
790    
         //書き込み時マシン時間使用設定  
         PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;  
         PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec);  
         if GikoSys.Setting.TimeAdjust then  
                 PutPostTimeRadioButton.Checked := True  
         else  
                 BackPostTimeRadioButton.Checked := True;  
791          //あぼ〜ん          //あぼ〜ん
792          RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo;          RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo;
793          ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul;          ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul;
# Line 846  var Line 807  var
807          tmp: string;          tmp: string;
808  //      Item: TListItem;  //      Item: TListItem;
809  begin  begin
         //受信バッファサイズ  
         Gikosys.Setting.RecvBufferSize := StrToInt(RecvBufferSize.Text);  
         //HTTP1.1使用  
         GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;  
         //プロキシ接続HTTP1.1使用  
         Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;  
   
810          GikoSys.Setting.OptionDialogTabIndex := OptionTab.TabIndex;          GikoSys.Setting.OptionDialogTabIndex := OptionTab.TabIndex;
811    
812          GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked;          GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked;
# Line 1078  begin Line 1032  begin
1032                     end;                     end;
1033          end;          end;
1034    
         //書き込み時マシン時間使用設定  
         GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;  
         if GikoSys.IsNumeric(PostTimeEdit.Text) then  
                 GikoSys.Setting.TimeAdjustSec := StrToInt(PostTimeEdit.Text)  
         else  
                 GikoSys.Setting.TimeAdjustSec := 0;  
         GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;  
   
   
1035          GikoSys.Setting.WriteSystemSettingFile;          GikoSys.Setting.WriteSystemSettingFile;
1036          GikoSys.Setting.WriteBoardURLSettingFile;          GikoSys.Setting.WriteBoardURLSettingFile;
1037  //      GikoForm.SetBrowserTabState;  //      GikoForm.SetBrowserTabState;
# Line 1358  begin Line 1303  begin
1303                  PreviewWaitEdit.Text := '9999';                  PreviewWaitEdit.Text := '9999';
1304  end;  end;
1305    
 procedure TOptionDialog.RecvBufferSizeExit(Sender: TObject);  
 begin  
         if not GikoSys.IsNumeric(RecvBufferSize.Text) then  
                 RecvBufferSize.Text := '4096';  
         if StrToInt(RecvBufferSize.Text) < 256 then  
                 RecvBufferSize.Text := '4096';  
 end;  
   
1306  procedure TOptionDialog.CSSCheckBoxClick(Sender: TObject);  procedure TOptionDialog.CSSCheckBoxClick(Sender: TObject);
1307  begin  begin
1308          CSSListLabel.Enabled := CSSCheckBox.Checked;          CSSListLabel.Enabled := CSSCheckBox.Checked;
1309          CSSListView.Enabled := CSSCheckBox.Checked;          CSSListView.Enabled := CSSCheckBox.Checked;
1310  end;  end;
1311    
 procedure TOptionDialog.PostTimeEditExit(Sender: TObject);  
 begin  
         if not GikoSys.IsNumeric(PostTimeEdit.Text) then  
                 PostTimeEdit.Text := '0';  
 end;  
   
 procedure TOptionDialog.PostTimeCheckBoxClick(Sender: TObject);  
 begin  
         PostTimeLabel.Enabled := PostTimeCheckBox.Checked;  
         PostTimeEdit.Enabled := PostTimeCheckBox.Checked;  
         PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;  
         BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;  
 end;  
1312  procedure TOptionDialog.SetAbonpropertys;  procedure TOptionDialog.SetAbonpropertys;
1313  begin  begin
1314    //あぼ〜ん    //あぼ〜ん

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

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