back.pas

类似文明的游戏源代码。

{$INCLUDE switches}

unit Back;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Forms;

type
  TBackground = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    img: TBitmap;
  end;

var
  Background: TBackground;

implementation

uses
ScreenTools,DePNG;

{$R *.DFM}

procedure TBackground.FormCreate(Sender: TObject);
begin
img:=nil;
end;

procedure TBackground.FormShow(Sender: TObject);
begin
if FileExists(HomeDir+'Graphics\Background.bmp')
  or FileExists(HomeDir+'Graphics\Background.png') then
  begin
  img:=TBitmap.Create;
  if not LoadBitmapFromPNG(img,HomeDir+'Graphics\Background.png') then
    img.LoadFromFile(HomeDir+'Graphics\Background.bmp');
  if TrueColor=1 then
    img.PixelFormat:=pf24bit;
  InitTexture(StartTex,'StdTextures',img.Canvas.Pixels[0,0] mod 8);
  end
else img:=nil;
end;

procedure TBackground.FormPaint(Sender: TObject);
begin
if img<>nil then
  BitBlt(Canvas.Handle,ClientWidth div 2-img.Width div 2,
    ClientHeight div 2-img.Height div 2,img.Width,img.Height,
    img.Canvas.Handle,0,0,SRCCOPY);
end;

procedure TBackground.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if img<>nil then begin img.Free; img:=nil end;
end;

end.