htmlabt.pas

来自「查看html文件的控件」· PAS 代码 · 共 77 行

PAS
77 行
字号 
unit HTMLAbt;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, Htmlview, ExtCtrls;

const
  Version = '9.4a';

type
  TAboutBox = class(TForm)
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    Viewer: THTMLViewer;
  private
    { Private declarations }
  public
    { Public declarations }
    constructor CreateIt(Owner: TComponent; const ProgName, CompName: string);
  end;

var
  AboutBox: TAboutBox;

implementation

{$R *.DFM}

constructor TAboutBox.CreateIt(Owner: TComponent; const ProgName, CompName: string);
var
  S: string[210];
begin
inherited Create(Owner);
Viewer.DefFontName := 'MS Sans Serif';
Viewer.DefFontSize := 9;
Viewer.DefFontColor := clNavy;
S :='<body bgcolor="ffffeb" text="000080">'+
    '<center>'+
    '<h1>'+ProgName+'</h1>'+
    '<font color="Maroon">A demo program for the '+CompName+' component</font>'+
    '<h3>Version '+Version+' compiled with Delphi '+
{$ifdef Windows}
    '1</h3>'+
{$endif}
{$ifdef Ver90}
    '2</h3>'+
{$endif}
{$ifdef Ver100}
    '3</h3>'+
{$endif}
{$ifdef Ver120}
    '4</h3>'+
{$endif}
{$ifdef Ver130}
    '5</h3>'+
{$endif}
{$ifdef Ver140}
    '6</h3>'+
{$endif}
{$ifdef Ver150}
    '7</h3>'+
{$endif}
{$ifdef Ver170}
    '2005</h3>'+
{$endif}
{$ifdef Ver180}
    '2006</h3>'+
{$endif}
    '</center>'+
    '</body>';
Viewer.LoadFromBuffer(@S[1], Length(S), '');
end;

end.

htmlabt.pas - 源码说明

本页面展示了「查看html文件的控件」中的 htmlabt.pas 源码文件，采用 PAS 编程语言编写，共 77 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与html相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?