图解 CSS (1): 先做一个样式表测试工具

一直没有把样式表系统一下, 春节假期有空, 不能再等了.

为了方便学习, 先写了一个样式表测试工具: CssTest(点击下载)

---

工具非常简单, 写了 10 行左右的代码; 运行效果图:

---

代码文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls, ComCtrls, OleCtrls, SHDocVw;typeTForm1 = 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;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
varpath: string;
beginText := 'CssTest';WebBrowser1.Navigate('about:blank');Memo1.ScrollBars := ssBoth;with Memo1.Font do beginName := '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);
beginWriteComponentResFile(ChangeFileExt(ParamStr(0),'.dat'), Memo1);
end;procedure TForm1.Memo1Change(Sender: TObject);
beginWebBrowser1.Navigate('about:' + Memo1.Text);
end;end.

窗体文件:

---

object Form1: TForm1Left = 0Top = 0ActiveControl = Memo1Caption = 'Form1'ClientHeight = 231ClientWidth = 439Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnClose = FormCloseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object Splitter1: TSplitterLeft = 241Top = 0Height = 231MinSize = 1ExplicitLeft = 219ExplicitHeight = 196endobject Memo1: TMemoLeft = 0Top = 0Width = 241Height = 231Align = alLeftLines.Strings = ('Memo1')TabOrder = 0OnChange = Memo1Changeendobject Panel1: TPanelLeft = 244Top = 0Width = 195Height = 231Align = alClientBevelOuter = bvNoneCaption = 'Panel1'TabOrder = 1object WebBrowser1: TWebBrowserLeft = 0Top = 0Width = 195Height = 231Align = alClientTabOrder = 0ExplicitLeft = 88ExplicitTop = 88ExplicitWidth = 300ExplicitHeight = 150ControlData = {4C00000027140000E01700000000000000000000000000000000000000000000000000004C000000000000000000000001000000E0D057007335CF11AE6908002B2E126208000000000000004C0000000114020000000000C000000000000046800000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000}endend
end