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.13 by h677, Fri Sep 26 17:30:31 2003 UTC revision 1.14 by yoffy, Sat Sep 27 06:35:19 2003 UTC
# Line 168  type Line 168  type
168      CSSBackColorCheckBox: TCheckBox;      CSSBackColorCheckBox: TCheckBox;
169      CSSFontButton: TButton;      CSSFontButton: TButton;
170      CSSBackColorButton: TButton;      CSSBackColorButton: TButton;
171        SkinPopupCheckBox: TCheckBox;
172                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
173                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
174                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 258  const Line 259  const
259    
260  procedure TOptionDialog.FormCreate(Sender: TObject);  procedure TOptionDialog.FormCreate(Sender: TObject);
261  begin  begin
262      CSSBrowser.Navigate('about:blank');  
263            CSSBrowser.Navigate('about:blank');
264          FClose := True;          FClose := True;
265    
266          OptionTab.ActivePage := ConnectSheet;          OptionTab.ActivePage := ConnectSheet;
# Line 277  begin Line 279  begin
279          CSSCheckBoxClick(Sender);          CSSCheckBoxClick(Sender);
280          PostTimeCheckBoxClick(Sender);          PostTimeCheckBoxClick(Sender);
281    
   
282  end;  end;
283    
284  procedure TOptionDialog.FormDestroy(Sender: TObject);  procedure TOptionDialog.FormDestroy(Sender: TObject);
# Line 621  begin Line 622  begin
622          if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then          if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then
623                  CSSListView.Items[0].Selected := True;                            CSSListView.Items[0].Selected := True;          
624    
625      // スキンでもポップアップ
626      SkinPopupCheckBox.Checked := GikoSys.Setting.SkinPopup;
627      SkinPopupCheckBox.Enabled := (CSSListView.Selected.Data <> nil);
628    
629          //Mail欄表示          //Mail欄表示
630          ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail;          ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail;
631          //タブ追加位置          //タブ追加位置
# Line 796  begin Line 801  begin
801          GikoSys.Setting.BrowserBackColor := -1;          GikoSys.Setting.BrowserBackColor := -1;
802    end;    end;
803    
804      // スキンでもポップアップ
805      GikoSys.Setting.SkinPopup := SkinPopupCheckBox.Checked;
806    
807          //Mail欄表示          //Mail欄表示
808          GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;          GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;
809    
# Line 1226  begin Line 1234  begin
1234          ThreadItem := TThreadItem.Create;          ThreadItem := TThreadItem.Create;
1235    
1236    try    try
1237      ThreadItem.AllResCount := 2;          ThreadItem.ParentBoard := nil;
1238        ThreadItem.AllResCount := High( Res );
1239      ThreadItem.NewResCount := 1;      ThreadItem.NewResCount := 1;
1240      ThreadItem.NewReceive := 2;      ThreadItem.NewReceive := 2;
1241    
# Line 1319  procedure TOptionDialog.CSSListViewChang Line 1328  procedure TOptionDialog.CSSListViewChang
1328    Change: TItemChange);    Change: TItemChange);
1329  begin  begin
1330    
1331          if OptionTab.ActivePage <> CSSTabSheet then          SkinPopupCheckBox.Enabled := (Item.Data <> nil);
         exit;  
1332    
1333          CSSPreview;          if OptionTab.ActivePage = CSSTabSheet then
1334                    CSSPreview;
1335    
1336  end;  end;
1337    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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