flushwin.pas

来自「企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载」· PAS 代码 · 共 54 行

//
//模块名称：闪显窗口

//参数说明：
//

unit flushwin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg,typinfo;
const screenwidth=1024;
const screenheight=768;
type
  TFlushwin_frm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Flushwin_frm: TFlushwin_frm;

implementation

{$R *.dfm}

procedure TFlushwin_frm.FormCreate(Sender: TObject);
{var
  i:integer;}
begin
  {Scaled:=true;
   if screen.Width<>screenwidth then
   begin
     height:=longint(height)*longint(screen.height) div screenwidth;
     width:=longint(width)*longint(screen.width) div screenwidth;
     scaleby(screen.Width,screenwidth);
     for i:=0 to componentcount-1 do
     with components[i] do
     begin
       if GetPropInfo(ClassInfo, 'font') <> nil  then
        font.size := (screen.Width  DIV screenWidth) * font.size;
     end;
   end;}
end;

end.