Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Option.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|