unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit; // ±×³É ¿Ã·Á³õÀº °ÍÀÓ
Memo1: TMemo; // ±×³É ¿Ã·Á³õÀº °ÍÀÓ
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
r: Trect;
ScreenCanvas: TCanvas;
bmp: TBitmap;
i,k, offset: Integer;
begin
r := BoundsRect;
ScreenCanvas := TCanvas.Create;
try
ScreenCanvas.Handle := GetDC( 0 );
try
bmp:= TBitmap.Create;
try
with bmp do
begin
width := 8;
height:= 8;
monochrome := true;
offset := 0;
for i := 0 to 7 do
begin
for k:= 0 to 7 do
if ((k+offset) mod 4) <> 0 then
canvas.Pixels[k,i] := clWhite
else
canvas.Pixels[k,i] := clBlack;
Inc(offset)
end;
end;
with ScreenCanvas do
begin
Brush.Color := clGray;
Brush.Bitmap := bmp;
SetBkColor(handle, RGB(255,255,255));
PatBlt(handle, r.left, r.top, r.right-r.left, r.bottom-r.top, $A000C9);
end;
finally
bmp.free;
end;
finally
ReleaseDC(0, ScreenCanvas.Handle);
ScreenCanvas.Handle := 0;
end;
finally
ScreenCanvas.Free;
end;
ShowMessage('ÇÁ·Î±×·¥À» Á¾·áÇÕ´Ï´Ù.');
PostMessage(Handle, WM_CLOSE, 0, 0); // Close;
end;
end. |
|