文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 336
阅读 10
收藏 0

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

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

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



代码文件:
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.

 
 
 
 
 

 

 

  

窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  ActiveControl = Memo1
  Caption = 'Form1'
  ClientHeight = 231
  ClientWidth = 439
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 241
    Top = 0
    Height = 231
    MinSize = 1
    ExplicitLeft = 219
    ExplicitHeight = 196
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 241
    Height = 231
    Align = alLeft
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
    OnChange = Memo1Change
  end
  object Panel1: TPanel
    Left = 244
    Top = 0
    Width = 195
    Height = 231
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 1
    object WebBrowser1: TWebBrowser
      Left = 0
      Top = 0
      Width = 195
      Height = 231
      Align = alClient
      TabOrder = 0
      ExplicitLeft = 88
      ExplicitTop = 88
      ExplicitWidth = 300
      ExplicitHeight = 150
      ControlData = {
        4C00000027140000E01700000000000000000000000000000000000000000000
        000000004C000000000000000000000001000000E0D057007335CF11AE690800
        2B2E126208000000000000004C0000000114020000000000C000000000000046
        8000000000000000000000000000000000000000000000000000000000000000
        00000000000000000100000000000000000000000000000000000000}
    end
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/01/28/1381184.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
Web表现层性能优化

我们先了解一下,从输入URL地址或者点击URL的一个链接到页面呈现的一次请求,大致需要下面几个步骤 简单分析一下上面这些步骤的这个过程: 什么是延迟 延迟指的是:消息或分组从信息源发送到...

weiliu007
2016/09/30
42
0
jquery的show/hide性能测试

这篇文章是jQuery各种show/hide方式的性能测试。作者之所以测试这个源于Robert Duffy在SanFrancisco举行的jQuery大会上的一句话:“.hide()和.show()的执行速度会比直接改变css慢”。但由于未...

kevin_pang
2012/10/02
0
2
CSS 层叠式样式表

css cascading style sheets 1996 电脑586 层叠样式表 本身也是文本 {} 工作环境 任何文本编辑器 Dreamweaver webstorm 显示环境-浏览器 优势 避免使用不必要的HTML元素 减少代码量 缩短更新...

RanoB
2016/12/18
5
0
使用排除法解决模板上的问题

在wordpress模板制作过程中,有一些貌似复杂的问题,其实只要确定了问题出现的位置,大多数都可以自行解决。 1.使用Firebug进行排查 1.1 简要介绍与安装方法 Firebug是Firefox的一款插件,提...

小卒过河
2011/07/06
143
0
掌握这11项技能,你就是优秀的前端开发工程师

导读: 你也许会觉得前端开发是一个很简单的工作,对呀,你就是刚刚从网页设计转型过来的。但当你深入其中时,一定会发现好像前端开发不是那么简单,光网站性能优化、响应式、框架就让你焦头...

半饱即好
06/26
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

windbg学习记录

我开始熟练使用windbg是从帮助手册开始的,也就是.hh命令。 就像学习windows开发从msdn开始一样,微软的产品虽然不开源,但是文档做的是相当的好。然而那些开源的东西呢?开源的竞争力其实就...

simpower
5分钟前
0
0
学习scala的网站汇总

https://www.codacy.com/blog/how-to-learn-scala/

Littlebox
7分钟前
0
0
配置本地的cloud9开发环境

前言 说到(前端)在线IDE开发环境,cloud9是不能绕过的,cloud9支持很多语言,默认支持的就有Node.js,Python,Ruby,PHP,Go,更逆天的是,他还支持数据库,包括MySQL,MongoDB,Redis,S...

Kefy
11分钟前
0
0
springcloud应用程序上下文层次结构

如果您从SpringApplication或SpringApplicationBuilder构建应用程序上下文,则将Bootstrap上下文添加为该上下文的父级。这是一个Spring的功能,即子上下文从其父进程继承属性源和配置文件,因...

itcloud
15分钟前
0
0
新程序员最爱的免费资源

简评:国外美女程序员推荐了她自己用过的一些免费资源,对新手比较友好的那种。 原作者 Ali Spittel,是个美女程序员,以下这些资源都是她自己试过的。以下「我」代表 Ali Spittel。 学 HTML...

极光推送
19分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部