Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Option.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 1492 |
|
|
| 1493 |
procedure TOptionDialog.CSSSetContent(Content: string); |
procedure TOptionDialog.CSSSetContent(Content: string); |
| 1494 |
var |
var |
| 1495 |
doc : Variant; |
doc : OleVariant; |
| 1496 |
begin |
begin |
| 1497 |
if CSSBrowser.Document <> nil then begin |
if CSSBrowser.Document <> nil then begin |
| 1498 |
doc := CSSBrowser.Document; |
doc := CSSBrowser.OleObject.Document; |
| 1499 |
doc.open; |
doc.open; |
| 1500 |
doc.Clear; |
doc.Clear; |
| 1501 |
doc.charset := 'Shift_JIS'; |
doc.charset := 'Shift_JIS'; |
| 1502 |
doc.Write(Content); |
doc.Write(Content); |
| 1503 |
doc.Close; |
doc.Close; |
|
|
Legend:
| Removed from v.1.89 |
|
| changed lines |
| |
Added in v.1.90 |
|
|
|