gppRighBottomRB: TRadioButton;
ResAnchorCheckBox: TCheckBox;
IgnoreLimitResCountCheckBox: TCheckBox;
+ GroupBox25: TGroupBox;
+ Label25: TLabel;
+ BoukenComboBox: TComboBox;
+ BoukenModButton: TButton;
+ BoukenDelButton: TButton;
+ BoukenEdit: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ApplyButtonClick(Sender: TObject);
procedure ResRangeHoldCheckBoxClick(Sender: TObject);
procedure CroutOptionClick(Sender: TObject);
procedure MaxRecordCountEditExit(Sender: TObject);
+ procedure BoukenDelButtonClick(Sender: TObject);
+ procedure BoukenComboBoxChange(Sender: TObject);
+ procedure BoukenModButtonClick(Sender: TObject);
private
{ Private \90é\8c¾ }
FClose: Boolean;
Item: TListItem;
// s: string;
idx: Integer;
- FileList: TStringList;
+ FileList : TStringList;
+ DomainList : TStringList;
begin
//\93Ç\82Ý\8d\9e\82Ý\97p\83v\83\8d\83L\83V
//Be2ch\94F\8fØ
BeUserIDEdit.Text := GikoSys.Setting.BeUserID;
- BeCodeEdit.Text := GikoSys.Setting.BeCode;
+ BeCodeEdit.Text := GikoSys.Setting.BePassword;
BeAutoLoginCheckBox.Checked := GikoSys.Setting.BeAutoLogin;
//\97\9a\97ð\82Ì\8dÅ\91å\95Û\91¶\90\94
MaxRecordCountEdit.Text := IntToStr(GikoSys.Setting.MaxRecordCount);
LoopBrowserTabsCB.Checked := GikoSys.Setting.LoopBrowserTabs;
//
IgnoreContextCheckBox.Checked := GikoSys.Setting.GestureIgnoreContext;
+
+ // \96`\8c¯\82Ì\8f\91\83h\83\81\83C\83\93\88ê\97\97\8eæ\93¾
+ BoukenComboBox.Text := '';
+ BoukenComboBox.Items.Clear;
+ DomainList := TStringList.Create;
+ GikoSys.GetBoukenDomain(DomainList);
+ for i := 0 to DomainList.Count - 1 do begin
+ BoukenComboBox.Items.Add( DomainList[i] ) ;
+ end;
+ DomainList.Free;
+ BoukenComboBox.ItemIndex := 0;
+ BoukenComboBox.OnChange(nil);
end;
procedure TOptionDialog.SaveSetting;
GikoSys.Setting.UseUndecided := UseUndecidedCheckBox.Checked;
//Be2ch
GikoSys.Setting.BeUserID := BeUserIDEdit.Text;
- GikoSys.Setting.BeCode := BeCodeEdit.Text;
+ GikoSys.Setting.BePassword := BeCodeEdit.Text;
GikoSys.Setting.BeAutoLogin := BeAutoLoginCheckBox.Checked;
//\97\9a\97ð\82Ì\8dÅ\91å\95Û\91¶\90\94
GikoSys.Setting.MaxRecordCount := Max(StrToInt64Def(MaxRecordCountEdit.Text,100),1);
GikoSys.Setting.LoopBrowserTabs := LoopBrowserTabsCB.Checked;
GikoSys.Setting.GestureIgnoreContext := IgnoreContextCheckBox.Checked;
+
end;
procedure TOptionDialog.SettingApply;
MaxRecordCountEdit.Text := '1';
end;
+procedure TOptionDialog.BoukenDelButtonClick(Sender: TObject);
+begin
+ if ( BoukenComboBox.Items.IndexOf( BoukenComboBox.Text ) <> -1 ) then begin
+ if MsgBox(Self.Handle, BoukenComboBox.Text + ' \82ð\8dí\8f\9c\82µ\82Ü\82·\81B'#13#10 +
+ '\8dí\8f\9c\82·\82é\82Æ\95\9c\8c³\82Å\82«\82Ü\82¹\82ñ\81B\82æ\82ë\82µ\82¢\82Å\82·\82©\81H', '\94E\96@\92\9f\81@\83h\83\81\83C\83\93\8dí\8f\9c', MB_YESNO or MB_ICONQUESTION) = IDYES then begin
+ GikoSys.DelBoukenCookie(BoukenComboBox.Text);
+ GikoSys.Setting.WriteBoukenSettingFile;
+ BoukenComboBox.Items.Delete(BoukenComboBox.ItemIndex);
+ if ( BoukenComboBox.Items.Count = 0 ) then begin
+ BoukenComboBox.Text := '';
+ end;
+ BoukenComboBox.OnChange(nil);
+ end
+ end else begin
+ BoukenComboBox.Text := '';
+ end;
+end;
+
+procedure TOptionDialog.BoukenComboBoxChange(Sender: TObject);
+begin
+ BoukenEdit.Text := GikoSys.GetBoukenCookie('http://*' +BoukenComboBox.Text);
+end;
+
+procedure TOptionDialog.BoukenModButtonClick(Sender: TObject);
+var
+ DomainList : TStringList;
+ i : Integer;
+ s : String;
+begin
+ if ( Length(BoukenComboBox.Text) > 0 ) then begin
+ s := BoukenComboBox.Text;
+ GikoSys.SetBoukenCookie(BoukenEdit.Text, s);
+ GikoSys.Setting.WriteBoukenSettingFile;
+ // \96`\8c¯\82Ì\8f\91\83h\83\81\83C\83\93\88ê\97\97\8eæ\93¾
+ BoukenComboBox.Text := '';
+ BoukenComboBox.Items.Clear;
+ DomainList := TStringList.Create;
+ GikoSys.GetBoukenDomain(DomainList);
+ for i := 0 to DomainList.Count - 1 do begin
+ BoukenComboBox.Items.Add( DomainList[i] ) ;
+ end;
+ DomainList.Free;
+ BoukenComboBox.ItemIndex := 0;
+ for i := 0 to BoukenComboBox.Items.Count - 1 do begin
+ if ( BoukenComboBox.Items[i] = s) then begin
+ BoukenComboBox.ItemIndex := i;
+ Break;
+ end;
+ end;
+ BoukenComboBox.OnChange(nil);
+ end;
+end;
+
end.