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.15 by yoffy, Sat Sep 27 07:05:33 2003 UTC revision 1.16 by yoffy, Sun Sep 28 05:32:39 2003 UTC
# Line 168  type Line 168  type
168      CSSBackColorCheckBox: TCheckBox;      CSSBackColorCheckBox: TCheckBox;
169      CSSFontButton: TButton;      CSSFontButton: TButton;
170      CSSBackColorButton: TButton;      CSSBackColorButton: TButton;
     SkinPopupCheckBox: TCheckBox;  
171                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
172                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
173                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 279  begin Line 278  begin
278          CSSCheckBoxClick(Sender);          CSSCheckBoxClick(Sender);
279          PostTimeCheckBoxClick(Sender);          PostTimeCheckBoxClick(Sender);
280    
281      if OptionTab.PageCount > GikoSys.Setting.OptionDialogTabIndex then begin
282            OptionTab.ActivePageIndex := GikoSys.Setting.OptionDialogTabIndex;
283                    OptionTabChange( nil );
284      end;
285      
286  end;  end;
287    
288  procedure TOptionDialog.FormDestroy(Sender: TObject);  procedure TOptionDialog.FormDestroy(Sender: TObject);
# Line 622  begin Line 626  begin
626          if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then          if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then
627                  CSSListView.Items[0].Selected := True;                            CSSListView.Items[0].Selected := True;          
628    
   // スキンでもポップアップ  
   SkinPopupCheckBox.Checked := GikoSys.Setting.SkinPopup;  
   SkinPopupCheckBox.Enabled := (CSSListView.Selected.Data <> nil);  
   
629          //Mail欄表示          //Mail欄表示
630          ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail;          ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail;
631          //タブ追加位置          //タブ追加位置
# Line 726  begin Line 726  begin
726          //プロキシ接続HTTP1.1使用          //プロキシ接続HTTP1.1使用
727          Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;          Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
728    
729      GikoSys.Setting.OptionDialogTabIndex := OptionTab.TabIndex;
730    
731          GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked;          GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked;
732          GikoSys.Setting.ReadProxyAddress := ReadProxyAddressEdit.Text;          GikoSys.Setting.ReadProxyAddress := ReadProxyAddressEdit.Text;
733          GikoSys.Setting.ReadProxyPort := StrToInt(ReadPortEdit.Text);          GikoSys.Setting.ReadProxyPort := StrToInt(ReadPortEdit.Text);
# Line 801  begin Line 803  begin
803          GikoSys.Setting.BrowserBackColor := -1;          GikoSys.Setting.BrowserBackColor := -1;
804    end;    end;
805    
   // スキンでもポップアップ  
   GikoSys.Setting.SkinPopup := SkinPopupCheckBox.Checked;  
   
806          //Mail欄表示          //Mail欄表示
807          GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;          GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;
808    
# Line 901  var Line 900  var
900    ThreadItem: TThreadItem;    ThreadItem: TThreadItem;
901  begin  begin
902          GikoForm.TreeView.Items.BeginUpdate;          GikoForm.TreeView.Items.BeginUpdate;
903      GikoForm.FavoriteTreeView.Items.BeginUpdate;
904          GikoForm.ListView.Items.BeginUpdate;          GikoForm.ListView.Items.BeginUpdate;
905          try          try
906                  GikoForm.TreeView.Font.Name := GikoSys.Setting.CabinetFontName;                  GikoForm.TreeView.Font.Name := GikoSys.Setting.CabinetFontName;
# Line 908  begin Line 908  begin
908                  GikoForm.TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;                  GikoForm.TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
909                  GikoForm.TreeView.Color := GikoSys.Setting.CabinetBackColor;                  GikoForm.TreeView.Color := GikoSys.Setting.CabinetBackColor;
910    
911                    GikoForm.FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName;
912                    GikoForm.FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
913                    GikoForm.FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
914                    GikoForm.FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor;
915    
916                  GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName;                  GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName;
917                  GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize;                  GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize;
918                  GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor;                  GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor;
# Line 926  begin Line 931  begin
931    
932          finally          finally
933                  GikoForm.TreeView.Items.EndUpdate;                  GikoForm.TreeView.Items.EndUpdate;
934        GikoForm.FavoriteTreeView.Items.EndUpdate;
935                  GikoForm.ListView.Items.EndUpdate;                  GikoForm.ListView.Items.EndUpdate;
936          end;          end;
937    
# Line 1339  procedure TOptionDialog.CSSListViewChang Line 1345  procedure TOptionDialog.CSSListViewChang
1345    Change: TItemChange);    Change: TItemChange);
1346  begin  begin
1347    
         SkinPopupCheckBox.Enabled := (Item.Data <> nil);  
   
1348          if OptionTab.ActivePage = CSSTabSheet then          if OptionTab.ActivePage = CSSTabSheet then
1349                  CSSPreview;                  CSSPreview;
1350    

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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