精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>Re:请问如何将一张图片做为窗口的低纹?

主题:Re:请问如何将一张图片做为窗口的低纹?
发信人: d_fang(df)
整理人: teleme(2001-02-08 21:38:45), 站内信件
【 在 zczbm 的大作中提到:】
:请问如何将一张图片做为窗口的低纹?
:
:Thank you.
:......
 

unit Unit1;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Bitmap: TBitmap;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

Bitmap := TBitmap.Create;

Bitmap.LoadFromFile('C:\WINDOWS\cars.BMP');

end;

procedure TForm1.FormPaint(Sender: TObject);

var

X, Y, W, H: LongInt;

begin

with Bitmap do begin

W := Width;

H := Height;

end;

Y := 0;

while Y < Height do begin

X := 0;

while X < Width do begin

Canvas.Draw(X, Y, Bitmap);

Inc(X, W);

end;

Inc(Y, H);

end;

end;

end.


----
欢迎参观方文设计室
http://funstudio.coolwww.net

[关闭][返回]