Graphic CSS (1) Make a style sheet test tool first

This article supporting source code

The tool is very simple, write about 10 lines of code; Run Effect chart:

Code files:Unit Unit1;
Interface
Uses
Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
Dialogs, Extctrls, Stdctrls, Comctrls, Olectrls, SHDOCVW;
Type
TForm1 = Class (Tform)
Memo1:tmemo;
Splitter1:tsplitter;
Panel1:tpanel;
Webbrowser1:twebbrowser;
Procedure Formcreate (Sender:tobject);
Procedure Formclose (Sender:tobject; var action:tcloseaction);
Procedure Memo1change (Sender:tobject);
End
Var
Form1:tform1;
Implementation
{$R *.DFM}
Procedure Tform1.formcreate (Sender:tobject);
Var
path:string;
Begin
Text: = ' csstest ';
WebBrowser1.Navigate (' About:blank ');
Memo1.scrollbars: = Ssboth;
With Memo1.font do begin
Name: = ' Verdana ';
Size: = 10;
Color: = $000080;
End
Path: = Changefileext (paramstr (0), '. dat ');
If FileExists (path) then Readcomponentresfile (path, Memo1);
End
Procedure Tform1.formclose (Sender:tobject; var action:tcloseaction);
Begin
Writecomponentresfile (Changefileext (paramstr (0), '. Dat '), Memo1);
End
Procedure Tform1.memo1change (Sender:tobject);
Begin
WebBrowser1.Navigate (' about: ' + memo1.text);
End
End.