zoukankan      html  css  js  c++  java
  • 图解 CSS (1): 先做一个样式表测试工具


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

    为了方便学习, 先写了一个样式表测试工具: 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
    
  • 相关阅读:
    iOS App播放完自己的音视频后,如何重新继续播放后台音乐
    苹果APP内购客户付款成功,没收到相应虚拟产品的解决办法
    Xcode11.1 踩坑备忘录
    foaf
    安卓开发:UI组件-图片控件ImageView(使用Glide)和ScrollView
    安卓开发:UI组件-RadioButton和复选框CheckBox
    安卓开发:UI组件-Button和EditText
    安卓开发:UI组件-布局管理器和文本显示
    基础环境系列:PHP7.3.0并连接pache/IIS和MySQL
    基础环境系列:MySQL8.0.12
  • 原文地址:https://www.cnblogs.com/del/p/1381184.html
Copyright © 2011-2022 走看看