김용유 닷컴

VCL을 사용하다가 보면 알람이나 에러메시지를 만나면 간단한것들은 그냥 해결이 가능하나 어떤것들은 모호할때가 있다. 이럴때를 대비해서 Codegear에서 제공하는 메뉴얼을 참조해 하나씩 번역할려고 한다..

그런데, 언제 끝날지 모른다.. 번역기의 도움과 어설픈 영어해석으로 말이 안 맞을수도 있다.
그러나 대충 뜻은 알아 들을수 있을것이다. (예전에 컴파일시 나타나는 에러 메시지를 한글화 했으나. 업데이트 할때마다 이 파일을 자꾸 건들려야 해서.. 이제부터는 아예 이런식으로 정리할려고 한다. 추후 시간이 되면 기존에 하던 작업도 업데이트 해야겠다.)

문서는 100 단위씩 나누어서 작업할 예정..

작업환경 : RAD STUDIO (C++ Builder 2007)
참고문서 : 24682_rad_studio_2007_help_c_reference_help
번역기 : http://translation.infoseek.co.jp/ - 일한번역기가 따로 없어서 인터넷이 될때만 한다.

CODEGene.zip

일반 폼에서 만들어본.. 화면.. 검정색 부분은 바탕화면임(즉 투명부분...)

영역 지정화면 테스트겸해서 만들어본것...

추후 알림 메시지 박스로 사용하면 될듯함...

---------------------------------------------------------------

#ifndef FormMainH
#define FormMainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Buttons.hpp>
#include <ImgList.hpp>
#include "XiPanel.hpp"
#include "LMDPNGImage.hpp"
//---------------------------------------------------------------------------
class TfrmMain : public TForm
{
__published: // IDE-managed Components
 TImageList *ImageListMain;
 TShape *shpTitle;
 TLabel *lblTitle;
 TShape *shpBG;
 TImage *imgExit;
 TShape *Shape1;
 TLabel *Label1;
 void __fastcall shpTitleMouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y);
 void __fastcall shpTitleMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
 void __fastcall shpTitleMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
 void __fastcall imgExitClick(TObject *Sender);
private: // User declarations
public:  // User declarations
 __fastcall TfrmMain(TComponent* Owner);
 BOOL bDragState;
 int nMouseDownX, nMouseDownY;
};

#define TITLE_WIDTH  400
#define MAIN_WIDTH   640
#define TITLE_HEIGHT  20
#define MAIN_HEIGHT   440

#define SYSTEM_WIDTH    300
#define SYSTEM_HEIGHT   20
#define LEFT_MARGIN  5
//---------------------------------------------------------------------------
extern PACKAGE TfrmMain *frmMain;
//---------------------------------------------------------------------------
#endif

.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "FormMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "XiPanel"
#pragma link "LMDPNGImage"
#pragma resource "*.dfm"
TfrmMain *frmMain;
//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
 : TForm(Owner)
{
 ////////////////////////////////////////////////////////////////////////////
 HWND hRegionMain, hRegionTitle, hRegionSystem ;

 hRegionTitle = CreateRectRgn(0, 0, TITLE_WIDTH, TITLE_HEIGHT);                   // 영역 지정

 hRegionMain = CreateRectRgn(0, TITLE_HEIGHT, MAIN_WIDTH, TITLE_HEIGHT + MAIN_HEIGHT);

 hRegionSystem = CreateRectRgn(MAIN_WIDTH - SYSTEM_WIDTH,
          TITLE_HEIGHT + MAIN_HEIGHT,
          MAIN_WIDTH,
          TITLE_HEIGHT + MAIN_HEIGHT + SYSTEM_HEIGHT);

 CombineRgn(hRegionMain, hRegionTitle, hRegionMain, RGN_OR);                 // 영역병합
 CombineRgn(hRegionSystem, hRegionMain, hRegionSystem, RGN_OR);                 // 영역병합

 SetWindowRgn(Handle, hRegionSystem, True);                                        // 영역 등록

 Brush->Style = bsClear;                                                       // 브러쉬 스타일 정의..
 //Pen->Style = psSolid;
 ////////////////////////////////////////////////////////////////////////////
 //btnTitle->Glyph = ImageListMain->
   // this->Color = clBlack;
   // ImageListMain->GetBitmap(0, imgExit->Picture->Bitmap);
 //  imgExit->Picture->LoadFromFile(".\\Shutdown.png");
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::shpTitleMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if(bDragState)
 {
  this->Left = this->Left + X - nMouseDownX;
  this->Top = this->Top + Y - nMouseDownY;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::shpTitleMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 nMouseDownX = X;
 nMouseDownY = Y;
 bDragState = true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::shpTitleMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 bDragState = false;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::imgExitClick(TObject *Sender)
{
 PostQuitMessage(-1);
}
//---------------------------------------------------------------------------

GUI Test_20071227.zip