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.9 by yoffy, Fri Sep 26 07:44:35 2003 UTC revision 1.10 by yoffy, Fri Sep 26 08:12:10 2003 UTC
# Line 1187  end; Line 1187  end;
1187  procedure TOptionDialog.CSSPreview;  procedure TOptionDialog.CSSPreview;
1188  var  var
1189          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
1190      Board: TBoard;
1191            Category: TCategory;
1192      BBS2ch: TBBS2ch;
1193          doc: Variant;          doc: Variant;
1194          html: string;          html: string;
1195    sTitle: string;    sTitle: string;
 begin  
1196    
1197          {  begin
1198      {
1199            BBS2ch := TBBS2ch.Create( GikoSys.GetAppDir );
1200      Category := TCategory.Create;
1201            Board := TBoard.Create;
1202          ThreadItem := TThreadItem.Create;          ThreadItem := TThreadItem.Create;
   ThreadItem.FileName := GikoSys.GetAppDir + 'Sample.dat';  
   ThreadItem.AllResCount := 5;  
   
   sTitle := 'サンプルプレビュー';  
1203    
1204          doc := CSSBrowser.Document;    try
1205          doc.Clear;          Category.ParentBBS2ch := BBS2ch;
1206        Board.ParentCategory := Category;
1207    GikoSys.CreateHTML2( doc, ThreadItem, sTitle );      ThreadItem.ParentBoard := Board;
1208        ThreadItem.IsLogFile := True;
1209        ThreadItem.FileName := 'Sample.dat';
1210        ThreadItem.AllResCount := 5;
1211    
1212        sTitle := 'サンプルプレビュー';
1213    
1214        doc := CSSBrowser.Document;
1215        doc.Clear;
1216    
1217        GikoSys.CreateHTML2( doc, ThreadItem, sTitle );
1218      finally
1219        ThreadItem.Free;
1220        Board.Free;
1221        Category.Free;
1222        BBS2ch.Free;
1223      end;
1224    }    }
   
1225  end;  end;
1226    
1227  end.  end.

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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