바둑판식 배열 예제입니다. 더 좋은 방법이 있을지는.. -_-a



//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TImage *BACKGROUND;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{

TImage            *_imChip = new TImage(Form1);
int               itWidth, itHeight;


BACKGROUND = new TImage(Form1);
BACKGROUND->Left   = 0;
BACKGROUND->Top    = 0;
BACKGROUND->Width  = Form1->Width  - 8;
BACKGROUND->Height = Form1->Height - 28;


_imChip->AutoSize = true;
_imChip->Picture->LoadFromFile("C:\\TEST.BMP");


for(itWidth = 0; itWidth < Form1->Width; itWidth += _imChip->Width)
   for(itHeight = 0; itHeight < Form1->Height; itHeight += _imChip->Height)
     BitBlt(BACKGROUND->Canvas->Handle, itWidth, itHeight,
            _imChip->Width, _imChip->Height,
            _imChip->Canvas->Handle, 0, 0, SRCCOPY);

BACKGROUND->Parent = Form1;
delete _imChip;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{

delete BACKGROUND;

}
//---------------------------------------------------------------------------



^^ 님이 쓰신 글 :
: 안녕하세요...
:
: 빌더를 실행시키면.. 초기 폼이 뜨는데요... 이폼에다가... 폼보다 크기가 작은 비트맵 이미지를
:
: 폼가득히 채우는 방법 좀 알고 싶습니다...
:
: 어떻게 하면 되나요??
:
: 부탁드립니다..