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.89 by h677, Sun Aug 19 07:18:39 2007 UTC revision 1.90 by eggcake, Sun Apr 13 04:20:24 2008 UTC
# Line 1492  end; Line 1492  end;
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

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