图解 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
转载于:https://www.cnblogs.com/del/archive/2009/01/28/1381184.html
图解 CSS (1): 先做一个样式表测试工具相关推荐
- [css] 使用css3做一个魔方旋转的效果
[css] 使用css3做一个魔方旋转的效果 总的来说,用了一些 3D 效果的样式,如 translate3d,rotate3d,perspective,transform-style: preser ...
- MySQL小练习——做一个User表
做一个User表: Id username password roleId 能够实现对User表的持久化操作 进行 增 删 改 查操作 CURD 使用 mybatis Jdbc state ...
- 0基础用android做一个excel表查询器(2):编写程序
0基础用android做一个Excel表查询器(2):编写程序 编完页面下面就该开始写程序了,首先确定一下思路,很简单,将Excel表写入一个List(或数组)里,然后获取Plain Text中写入的 ...
- 开始做一个简单的记账工具
用VScode做一个简单的记账工具 内容保存在 https://leonchan0608.coding.net/public/bookkeeping/bookkeeping/git 下班学习,奋斗一年 ...
- python监听多个udp端口_用Python写一个UDP端口测试工具(一)
需求 最近有个运维需求,需要测试客户端的UDP端口与服务器的连通性. 需求也很简单:客户端测往服务端发UDP包,服务端收到包后响应客户端,当客户端能收到服务端的响应则可断定端口是可达的.但是客户端需要 ...
- Web前端开发笔记——第三章 CSS语言 第一节 CSS的基本概念和样式表
目录 一.CSS和HTML 二.CSS的基本语法格式 三.CSS样式设置 (一)行内样式 (二)内嵌样式 (三)引用外部CSS文件 四.多重样式优先级 结语 一.CSS和HTML CSS,又称为层叠样 ...
- CSS基础 外部样式表 内嵌样式表 行内样式表
CSS简述:css是Cascading Style Sheet的缩写,直译过来为层叠样式表或级联样式表,简称样式表.利用css样式表定义页面样式,将会大大减少设计工作量.一些好的css样式表的建立,可 ...
- 配置 postCSS 自动添加 css 的兼容前缀||打包样式表中的图片和字体文件||打包处理 js 文件中的高级语法
配置 postCSS 自动添加 css 的兼容前缀 ① 运行 npm i postcss-loader autoprefixer -D 命令 ② 在项目根目录中创建 postcss 的配置文件 pos ...
- Web开发(一)·期末不挂之第四章·CSS语法基础(CSS选择器选择器优先级各类样式表的使用方法)
CSS语法基础 一.单纯html控制样式的缺点 二. CSS✪✪✪ CSS概述 CSS基础语法 组成 选择器 标签选择器 类选择器 id选择器 通配选择器 后代选择器 插入样式表的三种方式 行内样式 ...
最新文章
- PHP脚本管理kvm,kvm管理脚本
- 埃森哲报告:2017年数字化浪潮下的医疗行业五大趋势
- Gym - 101480K_K - Kernel Knights (DFS)
- EM算法(Expectation Maximization Algorithm)详解
- java session创建_request创建session
- 使用conda安装pydot及其遇到的问题解决方案
- 因涉嫌信披违规 神州优车被证监会立案调查
- pca 矩阵 迹_再谈协方差矩阵之主成分分析PCA
- C语言之volatile用法(二十一)
- windows 搭建HTTP文件服务器(Nginx 方式)
- vant 个人中心头像修改
- 教你在Windows自带的微软拼音输入法中用上小鹤双拼方案
- YOLOv4中常见CV学术名词说明(三){CSP/WRC/SAT}
- 美国3D理发师可剪出球星脸发型
- 5W无线充发射IC芯片方案XPM7105、XPM7305 无线充SOC芯片
- Block.one的EOS区块链入门开发教程Elemental Battles
- javaSE探赜索隐六(常用类API)
- 迷你播放器--第一阶段(1)--检索媒体音乐并添加到List播放列表
- C语言(void *)用法实例
- 高级项目管理师培训!看优秀的领导者如何给团队注入激情?
热门文章
- LeetCode 1617. 统计子树中城市之间最大距离(枚举所有可能+图的最大直径)
- LeetCode 317. 离建筑物最近的距离(逆向BFS)*
- LeetCode 1062. 最长重复子串(二分查找)
- 程序员面试金典 - 面试题 03.05. 栈排序(两栈)
- 小案例:编写立方体六个面,合成一张全景图后端
- Telegraf安装及使用
- flyme8会更新Android版本吗,魅族17系列升级Flyme 8.1操作系统:终于到Android 10
- Spark性能优化指南——高级篇
- 论文浅尝 | 多内容实体和关系联合抽取的对抗训练
- The command ‘/bin/sh -c apt-get install -y vim’ returned a non-zzero code: 100