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.14 by yoffy, Sat Sep 27 06:35:19 2003 UTC revision 1.15 by yoffy, Sat Sep 27 07:05:33 2003 UTC
# Line 898  end; Line 898  end;
898  procedure TOptionDialog.SettingApply;  procedure TOptionDialog.SettingApply;
899  var  var
900          i: Integer;          i: Integer;
901      ThreadItem: TThreadItem;
902  begin  begin
903          GikoForm.TreeView.Items.BeginUpdate;          GikoForm.TreeView.Items.BeginUpdate;
904          GikoForm.ListView.Items.BeginUpdate;          GikoForm.ListView.Items.BeginUpdate;
# Line 935  begin Line 936  begin
936                  GikoForm.AddressComboBox.Items.Delete(i);                  GikoForm.AddressComboBox.Items.Delete(i);
937          end;          end;
938          GikoForm.AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;          GikoForm.AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
939    
940      // スレッドのリフレッシュ
941      ThreadItem := GikoForm.GetActiveContent;
942      if ThreadItem <> nil then
943        GikoForm.SetContent( ThreadItem );
944  end;  end;
945    
946  procedure TOptionDialog.ReadProxyCheckClick(Sender: TObject);  procedure TOptionDialog.ReadProxyCheckClick(Sender: TObject);
# Line 1207  end; Line 1213  end;
1213    
1214  procedure TOptionDialog.CSSPreview;  procedure TOptionDialog.CSSPreview;
1215  var  var
1216            Board: TBoard;
1217          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
1218          html: string;          html: string;
1219    sTitle: string;    sTitle: string;
# Line 1231  begin Line 1238  begin
1238                  end;                  end;
1239          end;          end;
1240    
1241      Board := TBoard.Create;
1242          ThreadItem := TThreadItem.Create;          ThreadItem := TThreadItem.Create;
1243    
1244    try    try
1245          ThreadItem.ParentBoard := nil;          Board.URL := 'about://sample/';
1246        Board.Title := 'サンプル板';
1247            ThreadItem.ParentBoard := Board;
1248      ThreadItem.AllResCount := High( Res );      ThreadItem.AllResCount := High( Res );
1249      ThreadItem.NewResCount := 1;      ThreadItem.NewResCount := 1;
1250      ThreadItem.NewReceive := 2;      ThreadItem.NewReceive := 2;
# Line 1319  begin Line 1329  begin
1329    
1330    finally    finally
1331      ThreadItem.Free;      ThreadItem.Free;
1332        Board.Free;
1333            GikoSys.Setting.CSSFileName := fileName;            GikoSys.Setting.CSSFileName := fileName;
1334    end;    end;
1335    

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

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