文档章节

图解 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
深圳
程序员
Confluence 6 CSS 编辑技巧

开始编辑空间样式表 一个空间的样式表是你开始对 CSS 进行自定义编辑的好的开始。在空间样式表中,包含了你所有可以进行修改的元素。当你对空间样式表进行编辑的时候,空间样式表的修改只会对...

honeymoose
05/02
0
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

没有更多内容

加载失败,请刷新页面

加载更多

简易审计系统

1、有时候我们需要对线上用户的操作进行记录,可以进行追踪,出现问题追究责任,但是linux自带的history并不会实时的记录(仅仅在内存中,当用户正常退出(exit logout )时才会记录到history文件里...

芬野de博客
11分钟前
0
0
Qt那些事0.0.6

QML中使用Image,在设置source的后,通过Qt Quick2 Preview(qmlscene)遇到了图片找不到的问题: Image { id: success_img anchors.centerIn: parent ...

Ev4n
12分钟前
0
0
白话SpringCloud | 第十一章:路由网关(Zuul):利用swagger2聚合API文档

前言 通过之前的两篇文章,可以简单的搭建一个路由网关了。而我们知道,现在都奉行前后端分离开发,前后端开发的沟通成本就增加了,所以一般上我们都是通过swagger进行api文档生成的。现在由...

oKong
18分钟前
1
0
javah 生成jni文件的问题

命令:(on macbook for android) javah -d src/main/jni -jni -classpath /Users/Carlyle_Pro/Documents/android_adt/sdk/platforms/android-25/android.jar:build/intermediates/classes/......

Carlyle_Lee
21分钟前
0
0
Ubuntu 安装ssh服务以及开启root用户ssh登录

一、安装ssh服务 安装ssh服务 sudo apt-get update sudo apt-get install openssh-server 安装完成后启动ssh服务 sudo service ssh start 二、开启root用户ssh登录 解决root远程ssh不能登录,...

15834278076
40分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部