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.70 by yoffy, Mon Jan 10 15:41:04 2005 UTC revision 1.71 by genyakun, Mon Feb 21 08:32:04 2005 UTC
# Line 22  type Line 22  type
22                  FontDialog: TFontDialog;                  FontDialog: TFontDialog;
23                  ColorDialog: TColorDialog;                  ColorDialog: TColorDialog;
24                  OpenDialog: TOpenDialog;                  OpenDialog: TOpenDialog;
25      Label26: TLabel;                  Label26: TLabel;
26      CroutOption: TButton;                  CroutOption: TButton;
27      OptionTab: TPageControl;                  OptionTab: TPageControl;
28      ConnectSheet: TTabSheet;                  ConnectSheet: TTabSheet;
29      ReadProxyGroupBox: TGroupBox;                  ReadProxyGroupBox: TGroupBox;
30      ReadAddressLabel: TLabel;                  ReadAddressLabel: TLabel;
31      ReadPortLabel: TLabel;                  ReadPortLabel: TLabel;
32      ReadUserIDLabel: TLabel;                  ReadUserIDLabel: TLabel;
33      ReadPasswordLabel: TLabel;                  ReadPasswordLabel: TLabel;
34      ReadProxyCheck: TCheckBox;                  ReadProxyCheck: TCheckBox;
35      ReadProxyAddressEdit: TEdit;                  ReadProxyAddressEdit: TEdit;
36      ReadPortEdit: TEdit;                  ReadPortEdit: TEdit;
37      ReadProxyUserIDEdit: TEdit;                  ReadProxyUserIDEdit: TEdit;
38      ReadProxyPasswordEdit: TEdit;                  ReadProxyPasswordEdit: TEdit;
39      WriteProxyGroupBox: TGroupBox;                  WriteProxyGroupBox: TGroupBox;
40      WriteAddressLabel: TLabel;                  WriteAddressLabel: TLabel;
41      WritePortLabel: TLabel;                  WritePortLabel: TLabel;
42      WriteUserIDLabel: TLabel;                  WriteUserIDLabel: TLabel;
43      WritePasswordLabel: TLabel;                  WritePasswordLabel: TLabel;
44      WriteProxyCheck: TCheckBox;                  WriteProxyCheck: TCheckBox;
45      WriteProxyAddressEdit: TEdit;                  WriteProxyAddressEdit: TEdit;
46      WritePortEdit: TEdit;                  WritePortEdit: TEdit;
47      WriteProxyUserIDEdit: TEdit;                  WriteProxyUserIDEdit: TEdit;
48      WriteProxyPasswordEdit: TEdit;                  WriteProxyPasswordEdit: TEdit;
49      Font1Sheet: TTabSheet;                  Font1Sheet: TTabSheet;
50      Bevel1: TBevel;                  Bevel1: TBevel;
51      Bevel2: TBevel;                  Bevel2: TBevel;
52      Label19: TLabel;                  Label19: TLabel;
53      Bevel5: TBevel;                  Bevel5: TBevel;
54      Label20: TLabel;                  Label20: TLabel;
55      Label21: TLabel;                  Label21: TLabel;
56      Label22: TLabel;                  Label22: TLabel;
57      Label23: TLabel;                  Label23: TLabel;
58      lblSFont: TLabel;                  lblSFont: TLabel;
59      CabinetFontBotton: TButton;                  CabinetFontBotton: TButton;
60      CabinetColorBotton: TButton;                  CabinetColorBotton: TButton;
61      CabinetDefaultButton: TButton;                  CabinetDefaultButton: TButton;
62      CabinetMemo: TMemo;                  CabinetMemo: TMemo;
63      ListMemo: TMemo;                  ListMemo: TMemo;
64      ListFontBotton: TButton;                  ListFontBotton: TButton;
65      ListColorBotton: TButton;                  ListColorBotton: TButton;
66      ListDefaultBotton: TButton;                  ListDefaultBotton: TButton;
67      HintFontButton: TButton;                  HintFontButton: TButton;
68      HintBackButton: TButton;                  HintBackButton: TButton;
69      HintDefaultButton: TButton;                  HintDefaultButton: TButton;
70      HintMemo: TMemo;                  HintMemo: TMemo;
71      EditorMemo: TMemo;                  EditorMemo: TMemo;
72      EditorFontBotton: TButton;                  EditorFontBotton: TButton;
73      EditorColorBotton: TButton;                  EditorColorBotton: TButton;
74      EditorDefaultBotton: TButton;                  EditorDefaultBotton: TButton;
75      BrowserTabMemo: TMemo;                  BrowserTabMemo: TMemo;
76      BruwserTabFontButton: TButton;                  BruwserTabFontButton: TButton;
77      BrowserTabDefaultButton: TButton;                  BrowserTabDefaultButton: TButton;
78      OddResNumCheckBox: TCheckBox;                  OddResNumCheckBox: TCheckBox;
79      OddResNumColorBox: TColorBox;                  OddResNumColorBox: TColorBox;
80      CSSTabSheet: TTabSheet;                  CSSTabSheet: TTabSheet;
81      GroupBox12: TGroupBox;                  GroupBox12: TGroupBox;
82      CSSListLabel: TLabel;                  CSSListLabel: TLabel;
83      CSSCheckBox: TCheckBox;                  CSSCheckBox: TCheckBox;
84      CSSListView: TListView;                  CSSListView: TListView;
85      CSSBrowser: TWebBrowser;                  CSSBrowser: TWebBrowser;
86      CSSFontCheckBox: TCheckBox;                  CSSFontCheckBox: TCheckBox;
87      CSSBackColorCheckBox: TCheckBox;                  CSSBackColorCheckBox: TCheckBox;
88      CSSFontButton: TButton;                  CSSFontButton: TButton;
89      CSSBackColorButton: TButton;                  CSSBackColorButton: TButton;
90      TabSheet3: TTabSheet;                  TabSheet3: TTabSheet;
91      GroupBox9: TGroupBox;                  GroupBox9: TGroupBox;
92      ThreadListIconCheckBox: TCheckBox;                  ThreadListIconCheckBox: TCheckBox;
93      GroupBox16: TGroupBox;                  GroupBox16: TGroupBox;
94      CreationTimeLogsCheckBox: TCheckBox;                  CreationTimeLogsCheckBox: TCheckBox;
95      FutureThreadCheckBox: TCheckBox;                  FutureThreadCheckBox: TCheckBox;
96      GroupBox5: TGroupBox;                  GroupBox5: TGroupBox;
97      BrowserMaxLabel: TLabel;                  BrowserMaxLabel: TLabel;
98      BrowserMaxCombo: TComboBox;                  BrowserMaxCombo: TComboBox;
99      GroupBox17: TGroupBox;                  GroupBox17: TGroupBox;
100      SelectIntervalLabel: TLabel;                  SelectIntervalLabel: TLabel;
101      Label4: TLabel;                  Label4: TLabel;
102      Label6: TLabel;                  Label6: TLabel;
103      SelectIntervalEdit: TEdit;                  SelectIntervalEdit: TEdit;
104      GroupBox18: TGroupBox;                  GroupBox18: TGroupBox;
105      DatOchiSortCombo: TComboBox;                  DatOchiSortCombo: TComboBox;
106      ThreadSheet: TTabSheet;                  ThreadSheet: TTabSheet;
107      GroupBox1: TGroupBox;                  GroupBox1: TGroupBox;
108      ShowMailCheckBox: TCheckBox;                  ShowMailCheckBox: TCheckBox;
109      ResRangeHoldCheckBox: TCheckBox;                  ResRangeHoldCheckBox: TCheckBox;
110      ResRangeHoldComboBox: TComboBox;                  ResRangeHoldComboBox: TComboBox;
111      GroupBox2: TGroupBox;                  GroupBox2: TGroupBox;
112      AppFolderLabel: TLabel;                  AppFolderLabel: TLabel;
113      URLAppCheckBox: TCheckBox;                  URLAppCheckBox: TCheckBox;
114      AppFolderEdit: TEdit;                  AppFolderEdit: TEdit;
115      AppFolderButton: TButton;                  AppFolderButton: TButton;
116      OpenMailerCheckBox: TCheckBox;                  OpenMailerCheckBox: TCheckBox;
117      GroupBox6: TGroupBox;                  GroupBox6: TGroupBox;
118      LogDeleteMessageCheckBox: TCheckBox;                  LogDeleteMessageCheckBox: TCheckBox;
119      ResAnchorGroupBox: TGroupBox;                  ResAnchorGroupBox: TGroupBox;
120      ResAnchorCheckBox: TCheckBox;                  ResAnchorCheckBox: TCheckBox;
121      TabSheet1: TTabSheet;                  TabSheet1: TTabSheet;
122      PopupPositionRadioGroup: TRadioGroup;                  PopupPositionRadioGroup: TRadioGroup;
123          TabAddRadioGroup: TRadioGroup;                  TabAddRadioGroup: TRadioGroup;
124      GroupBox8: TGroupBox;                  GroupBox8: TGroupBox;
125      Label14: TLabel;                  Label14: TLabel;
126      Label15: TLabel;                  Label15: TLabel;
127      Label16: TLabel;                  Label16: TLabel;
128      PreviewVisibleCheckBox: TCheckBox;                  PreviewVisibleCheckBox: TCheckBox;
129      PreviewSizeComboBox: TComboBox;                  PreviewSizeComboBox: TComboBox;
130      PreviewWaitEdit: TEdit;                  PreviewWaitEdit: TEdit;
131      GroupBox10: TGroupBox;                  GroupBox10: TGroupBox;
132      UnActivePopupCheckBox: TCheckBox;                  UnActivePopupCheckBox: TCheckBox;
133      ResPopupBoldCheckBox: TCheckBox;                  ResPopupBoldCheckBox: TCheckBox;
134      TabSheet2: TTabSheet;                  TabSheet2: TTabSheet;
135      GroupBox7: TGroupBox;                  GroupBox7: TGroupBox;
136      Label3: TLabel;                  Label3: TLabel;
137      Label11: TLabel;                  Label11: TLabel;
138      URLDisplayCheckBox: TCheckBox;                  URLDisplayCheckBox: TCheckBox;
139      AddressHistoryCountEdit: TEdit;                  AddressHistoryCountEdit: TEdit;
140      TabStopAddressBarCheckBox: TCheckBox;                  TabStopAddressBarCheckBox: TCheckBox;
141      LinkAddCheckBox: TCheckBox;                  LinkAddCheckBox: TCheckBox;
142      GroupBox15: TGroupBox;                  GroupBox15: TGroupBox;
143      ShowDialogForEndCheckBox: TCheckBox;                  ShowDialogForEndCheckBox: TCheckBox;
144      AllTabCloseCheckBox: TCheckBox;                  AllTabCloseCheckBox: TCheckBox;
145      SambaGroupBox: TGroupBox;                  SambaGroupBox: TGroupBox;
146      UseSambaCheckBox: TCheckBox;                  UseSambaCheckBox: TCheckBox;
147      TabAutoSaveLoad: TGroupBox;                  TabAutoSaveLoad: TGroupBox;
148      TabLoadSave: TCheckBox;                  TabLoadSave: TCheckBox;
149      SoundSheet: TTabSheet;                  SoundSheet: TTabSheet;
150      SoundEventGroupBox: TGroupBox;                  SoundEventGroupBox: TGroupBox;
151      SoundListView: TListView;                  SoundListView: TListView;
152      SoundReferButton: TButton;                  SoundReferButton: TButton;
153      SoundFileEdit: TEdit;                  SoundFileEdit: TEdit;
154      SoundPlayButton: TBitBtn;                  SoundPlayButton: TBitBtn;
155      FolderSheet: TTabSheet;                  FolderSheet: TTabSheet;
156      FolderGroupBox: TGroupBox;                  FolderGroupBox: TGroupBox;
157      Label1: TLabel;                  Label1: TLabel;
158      Label2: TLabel;                  Label2: TLabel;
159      Label5: TLabel;                  Label5: TLabel;
160      LogFolderEdit: TEdit;                  LogFolderEdit: TEdit;
161      LogFolderButton: TButton;                  LogFolderButton: TButton;
162      NGwordSheet: TTabSheet;                  NGwordSheet: TTabSheet;
163      GroupBox14: TGroupBox;                  GroupBox14: TGroupBox;
164      RloCheckBox: TCheckBox;                  RloCheckBox: TCheckBox;
165      ReplaceulCheckBox: TCheckBox;                  ReplaceulCheckBox: TCheckBox;
166      PopUpAbonCheckBox: TCheckBox;                  PopUpAbonCheckBox: TCheckBox;
167      ShowNGLineCheckBox: TCheckBox;                  ShowNGLineCheckBox: TCheckBox;
168      AddResAnchorCheckBox: TCheckBox;                  AddResAnchorCheckBox: TCheckBox;
169      DeleteSyriaCheckBox: TCheckBox;                  DeleteSyriaCheckBox: TCheckBox;
170      UserIDSheet: TTabSheet;                  UserIDSheet: TTabSheet;
171      Tora3URLLabel: TLabel;                  GroupBox3: TGroupBox;
172      Label12: TLabel;                  Label9: TLabel;
173      GroupBox3: TGroupBox;                  Label10: TLabel;
174      Label9: TLabel;                  ForcedLoginLabel: TLabel;
175      Label10: TLabel;                  UserIDEdit: TEdit;
176      ForcedLoginLabel: TLabel;                  PasswordEdit: TEdit;
177      UserIDEdit: TEdit;                  AutoLoginCheckBox: TCheckBox;
178      PasswordEdit: TEdit;                  ForcedLoginCheckBox: TCheckBox;
179      AutoLoginCheckBox: TCheckBox;                  GroupBox4: TGroupBox;
180      ForcedLoginCheckBox: TCheckBox;                  Label13: TLabel;
181      GroupBox4: TGroupBox;                  BoardURLComboBox: TComboBox;
182      Label13: TLabel;                  AddURLButton: TButton;
183      BoardURLComboBox: TComboBox;                  RemoveURLButton: TButton;
184      AddURLButton: TButton;                  OkBotton: TButton;
185      RemoveURLButton: TButton;                  SpamFilterGroupBox: TGroupBox;
186      OkBotton: TButton;                  SpamFilterAlgorithmComboBox: TComboBox;
187      SpamFilterGroupBox: TGroupBox;                  TabSheet4: TTabSheet;
188      SpamFilterAlgorithmComboBox: TComboBox;                  GroupBox13: TGroupBox;
189      TabSheet4: TTabSheet;                  UseUndecidedCheckBox: TCheckBox;
190      GroupBox13: TGroupBox;                  Tora3URLLabel: TLabel;
191      UseUndecidedCheckBox: TCheckBox;                  Label12: TLabel;
192                    GroupBox11: TGroupBox;
193                    Label7: TLabel;
194                    BeUserIDEdit: TEdit;
195                    Label8: TLabel;
196                    BePasswordEdit: TEdit;
197                    BeAutoLoginCheckBox: TCheckBox;
198                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
199                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
200                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 234  type Line 240  type
240                          Change: TItemChange);                          Change: TItemChange);
241                  procedure AddURLButtonClick(Sender: TObject);                  procedure AddURLButtonClick(Sender: TObject);
242                  procedure RemoveURLButtonClick(Sender: TObject);                  procedure RemoveURLButtonClick(Sender: TObject);
243      procedure OddResNumCheckBoxClick(Sender: TObject);                  procedure OddResNumCheckBoxClick(Sender: TObject);
244      procedure ResRangeHoldCheckBoxClick(Sender: TObject);                  procedure ResRangeHoldCheckBoxClick(Sender: TObject);
245      procedure CroutOptionClick(Sender: TObject);                  procedure CroutOptionClick(Sender: TObject);
246          private          private
247                  { Private 宣言 }                  { Private 宣言 }
248                  FClose: Boolean;                  FClose: Boolean;
# Line 301  begin Line 307  begin
307                                                                                  + 'スレッド表示エリアのフォント変更は、'#13#10                                                                                  + 'スレッド表示エリアのフォント変更は、'#13#10
308                                                                                  + '「CSS とスキン」タブで設定出来ます';                                                                                  + '「CSS とスキン」タブで設定出来ます';
309    
310      ForcedLoginLabel.Caption := '- チェックを入れるのはセキュリティ上好ましくありません。' + #13#10          ForcedLoginLabel.Caption := '- チェックを入れるのはセキュリティ上好ましくありません。' + #13#10
311                                                                  + ' やむを得ない時だけにしてください。';                                                                          + ' やむを得ない時だけにしてください。';
312      CSSCheckBoxClick(Sender);          CSSCheckBoxClick(Sender);
313          BrowserMaxLabel.Caption :=          BrowserMaxLabel.Caption :=
314                  'ブラウザが最小化されているときに以下の操作でブラウザを最大化します。'#13#10 +                  'ブラウザが最小化されているときに以下の操作でブラウザを最大化します。'#13#10 +
315                  'また、ホイールクリックにより最大化をキャンセルすることが出来ます。';                  'また、ホイールクリックにより最大化をキャンセルすることが出来ます。';
# Line 338  begin Line 344  begin
344                  FClose := False;                  FClose := False;
345                  Exit;                  Exit;
346          end;          end;
347      SetAbonpropertys;          SetAbonpropertys;
348          SaveSetting;          SaveSetting;
349          SettingApply;          SettingApply;
350    
# Line 355  begin Line 361  begin
361                  FClose := False;                  FClose := False;
362                  Exit;                  Exit;
363          end;          end;
364      SetAbonpropertys;          SetAbonpropertys;
365          SaveSetting;          SaveSetting;
366          SettingApply;          SettingApply;
367          FClose := False;          FClose := False;
# Line 837  begin Line 843  begin
843          //TabAutoLoad          //TabAutoLoad
844          TabLoadSave.Checked := Gikosys.Setting.TabAutoLoadSave;          TabLoadSave.Checked := Gikosys.Setting.TabAutoLoadSave;
845          UseUndecidedCheckBox.Checked := GikoSys.Setting.UseUndecided;          UseUndecidedCheckBox.Checked := GikoSys.Setting.UseUndecided;
846    
847            //Be2ch認証
848            BeUserIDEdit.Text := GikoSys.Setting.BeUserID;
849            BePasswordEdit.Text := GikoSys.Setting.BePassword;
850            BeAutoLoginCheckBox.Checked := GikoSys.Setting.BeAutoLogin;
851  end;  end;
852    
853  procedure TOptionDialog.SaveSetting;  procedure TOptionDialog.SaveSetting;
# Line 960  begin Line 971  begin
971          // 起動時レス表示範囲の固定          // 起動時レス表示範囲の固定
972          GikoSys.Setting.ResRangeHold := ResRangeHoldCheckBox.Checked;          GikoSys.Setting.ResRangeHold := ResRangeHoldCheckBox.Checked;
973          case ResRangeHoldComboBox.ItemIndex of          case ResRangeHoldComboBox.ItemIndex of
974          0: GikoSys.Setting.ResRange := Ord( grrAll );                  0: GikoSys.Setting.ResRange := Ord( grrAll );
975          1: GikoSys.Setting.ResRange := 100;                  1: GikoSys.Setting.ResRange := 100;
976          2: GikoSys.Setting.ResRange := Ord( grrKoko );                  2: GikoSys.Setting.ResRange := Ord( grrKoko );
977          3: GikoSys.Setting.ResRange := Ord( grrNew );                  3: GikoSys.Setting.ResRange := Ord( grrNew );
978          end;          end;
979    
980          GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);          GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);
# Line 985  begin Line 996  begin
996          GikoSys.Setting.ShowDialogForEnd := ShowDialogForEndCheckBox.Checked;          GikoSys.Setting.ShowDialogForEnd := ShowDialogForEndCheckBox.Checked;
997          //AllTabClose          //AllTabClose
998          GikoSys.Setting.ShowDialogForAllTabClose := AllTabCloseCheckBox.Checked;          GikoSys.Setting.ShowDialogForAllTabClose := AllTabCloseCheckBox.Checked;
999      //Samba          //Samba
1000          GikoSys.Setting.UseSamba := UseSambaCheckBox.Checked;          GikoSys.Setting.UseSamba := UseSambaCheckBox.Checked;
1001          GikoSys.Setting.ResAnchorJamp := ResAnchorCheckBox.Checked;          GikoSys.Setting.ResAnchorJamp := ResAnchorCheckBox.Checked;
1002          // ブラウザ最大化          // ブラウザ最大化
# Line 1112  begin Line 1123  begin
1123          //Tab自動保存          //Tab自動保存
1124          GikoSys.Setting.TabAutoLoadSave := TabLoadSave.Checked;          GikoSys.Setting.TabAutoLoadSave := TabLoadSave.Checked;
1125          GikoSys.Setting.UseUndecided := UseUndecidedCheckBox.Checked;          GikoSys.Setting.UseUndecided := UseUndecidedCheckBox.Checked;
1126            //Be2ch
1127            GikoSys.Setting.BeUserID := BeUserIDEdit.Text;
1128            GikoSys.Setting.BePassword := BePasswordEdit.Text;
1129            GikoSys.Setting.BeAutoLogin := BeAutoLoginCheckBox.Checked;
1130  end;  end;
1131    
1132  procedure TOptionDialog.SettingApply;  procedure TOptionDialog.SettingApply;
# Line 1151  begin Line 1166  begin
1166    
1167                  //GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;                  //GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;
1168                  GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor;                  GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
1169          GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;                  GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
1170          GikoForm.OddColor := GikoSys.Setting.OddColor;                  GikoForm.OddColor := GikoSys.Setting.OddColor;
1171    
1172                  GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;                  GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
1173                  GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;                  GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
# Line 1384  end; Line 1399  end;
1399    
1400  procedure TOptionDialog.SetAbonpropertys;  procedure TOptionDialog.SetAbonpropertys;
1401  begin  begin
1402    //あぼ〜ん          //あぼ〜ん
1403    GikoSys.FAbon.Deleterlo := RloCheckBox.Checked;          GikoSys.FAbon.Deleterlo := RloCheckBox.Checked;
1404    GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked;          GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked;
1405    GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked;          GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked;
1406          GikoSys.FAbon.ReturnNGwordLineNum := ShowNGLineCheckBox.Checked;          GikoSys.FAbon.ReturnNGwordLineNum := ShowNGLineCheckBox.Checked;
1407          GikoSys.FAbon.SetNGResAnchor := AddResAnchorCheckBox.Checked;          GikoSys.FAbon.SetNGResAnchor := AddResAnchorCheckBox.Checked;
1408      GikoSys.FAbon.DeleteSyria := DeleteSyriaCheckBox.Checked;          GikoSys.FAbon.DeleteSyria := DeleteSyriaCheckBox.Checked;
1409  end;  end;
1410  procedure TOptionDialog.CSSFontButtonClick(Sender: TObject);  procedure TOptionDialog.CSSFontButtonClick(Sender: TObject);
1411  begin  begin
# Line 1470  begin Line 1485  begin
1485                                          GikoSys.Setting.CSSFileName := string( CSSListView.Items[CSSListView.ItemIndex].data )                                          GikoSys.Setting.CSSFileName := string( CSSListView.Items[CSSListView.ItemIndex].data )
1486                                  else                                  else
1487                                          GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css';                                          GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css';
1488        end;                          end;
1489                  except                  except
1490                  end;                  end;
1491          end;          end;

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

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