CppBuilderTips

UserPreferences

1. 내부에서의 드래그&드랍 처리하기
2. 외부에서의 파일 드래그&드랍 처리하기
3. PerformanceGraph
4. XMLDocument 사용법
5. TreeView 상의 모든 노드 횡단하기
6. TreeNode 아이콘 설정하기
7. 커맨드 라인 인수 얻기
8. RichEdit 컨트롤 내부의 문자열 빠르게 치환하기
9. Virtual ListView 사용하기
10. Memo, RichEdit 컴포넌트에서 특정 라인 선택하기
11. CppWebBrowser 사용하기 샘플
12. ListBox 가로스크롤 하기
13. 다수의 컨트롤 한꺼번에 이름 정하기
14. StringGrid 셀 선택시 하이라이트 막기
15. ListView 컬럼 폭 자동 조절하기
16. ListView 안의 어느 아이템을 클릭했는지 알아내기
17. ListView 폰트 칼라 바꾸기
18. TRichEdit, TMemo에서 스크롤바가 항상 최하위에 위치하게 하기

1 내부에서의 드래그&드랍 처리하기

OnStartDrag, OnDragOver, OnEndDrag 이벤트를 잘 처리해주면 끝. 단 폼 내부에 컨트롤이 하나 밖에 없는 것이 아니므로, 어느 컨트롤에서 드래그를 시작했고, 현재 어느 컨트롤 위에 와 있느냐를 잘 처리해야한다.


void __fastcall OnStartDrag(
    TObject *Sender, TDragObject *&DragObject)
{
    // 현재 어떤 아이템이 선택되었는가를 
    // 컨트롤의 종류에 따라 기억해둔다.
}

void __fastcall OnDragOver(
    TObject *Sender, TObject *Source, 
    int X, int Y, TDragState State, bool &Accept)
{
    // Sender는 현재 마우스 커서가 올라가있는 컨트롤.
    // Source는 드래그가 시작된 컨트롤.
    //
    // 상당수의 컨트롤들이 HitTest 함수를 가지고 있는데
    // 이를 이용해 해당하는 드래그를 처리해줄지 말지를 판단한다.
    // Accept 변수를 false로 하면 드래그 처리를 막을 수 있다.
}

void __fastcall OnEndDrag(TObject *Sender, TObject *Target,
      int X, int Y)
{
    // Sender는 드래그가 시작된 컨트롤.
    // Target은 드래그가 끝난 컨트롤.
    //
    // 좌표를 이용해 최종적으로 어디에 드래그했냐를 판단한 다음
    // 해당하는 처리를 해주면 된다.
}

2 외부에서의 파일 드래그&드랍 처리하기

프로그램 외부에서 파일을 끌어다 폼 위에 놓는 경우를 처리하려면, WM_DROPFILES 함수를 가로채야한다. 대부분의 컴포넌트에 해당하는 이벤트 핸들러가 노출되어 있지 않으므로 서브클래싱을 해야한다.


TWndMethod OriginalProc = Component->WndProc; // 원래 프로시져를 기록해둔다.
Component->WndProc = ConsumeComponentMessage; // 새로운 프로시져를 대입
...

// 메시지 처리함수
MESSAGE void __fastcall ConsumeComponentMessage(TMessage& Message)
{
    if (Message.Msg == WM_DROPFILES)
    {
        HDROP hDrop = (HDROP)Message.WParam;
        char FileName[1024] = {0,};
    
        // 3번째 인자를 NULL로 넘기면 파일의 갯수를 반환한다.
        int Count = ::DragQueryFile(hDrop, 0xFFFFFFFF, NULL, MAX_PATH);
        for (int i=0; i<Count; ++i)
        {
            // i번째 파일 이름을 받아온다.
            DragQueryFile(hDrop, i, FileName, MAX_PATH);
      
            // 이 시점에서 FileName 배열에는 해당하는 
            // 파일 또는 디렉토리의 이름이 들어가있게 된다. 
            // 뭔가 원하는 작업을 하면 되겠다.
        }
        
        // 용무가 끝났으면 삭제해준다.
        DragFinish((HDROP)Message.WParam);
    }
    else
    {
        OriginalProc(Message); // WM_DROPFILES 외에는 원래 핸들러로 처리한다.
    }
}

3 PerformanceGraph

• Sample 탭에 있는 컴포넌트다.
  
• DataPoint 함수와 Update 함수만 쓰면 된다.
  

  Graph->DataPoint(clLime, rand()%1000);
  Graph->Update();

• 그래프 간격을 늘리기 위해서는 StepSize를 늘려주자.
  
• 스케일링은 알아서 해주니 신경쓰지 말자.
  
  
  

4 XMLDocument 사용법

• Active 프로퍼티를 true로 설정해주는 것을 잊지 말자.
  
• DocumentElement 프로퍼티는 XML 최상위 노드를 나타낸다. 기본적으로 생성되지 않으므로 따로 생성해줘야한다. LoadFrom... 함수를 사용해서 트리를 구성하는 경우에는 내부적으로 생성해주므로 필요없다.
  
• 파일에다 XML 문서를 로드하는 데에는 LoadFromFile 함수를 이용하면 되고, 저장하는 데에는 SaveToFile 함수를 이용하면 된다.
  
• 자식 노드를 액세스하기 위해서는 ChildNodes 프로퍼티를 이용한다. 이 프로퍼티는 리스트 형식의 컬렉션 클래스를 반환하는데, VCL 클래스들의 대부분이 그렇듯이 Count 변수를 이용해 횡단할 수 있다.
  

  IXMLNode* pRoot = XMLDocument->DocumentElement;
  IXMLNodeList* pChildren = pRoot->ChildNodes;
  for (int i=0; i<pChildren->Count; i++)
  {
      IXMLNode* pChild = pChildren->Nodes[i];
      ...
  }

  Nodes 함수가 받아들이는 인자가 OLE Variant 형이기 때문에, 문자열을 이용해서 자식 노드에 접근하는 것도 가능하다. 문자열은 당연히(?) 태그 이름이다.
  

  IXMLNode* pChild = pChildren->Nodes[AnsiString("NodeName")];

• 노드의 속성(attribute)를 액세스하기 위해서는 Attributes 프로퍼티를 이용한다. 이 또한 OLE Variant 형을 이용하기 때문에 편하게 사용할 수 있다.
  

  AnsiString StringAttr = pNode->Attributes[AnsiString("MyString")];
  int IntAttr = pNode->Attributes[AnsiString("MyInt")];
  pNode->Attributes[AnsiString("MyString")] = "Test";
  pNode->Attributes[AnsiString("MyInt")] = 33;

• 저장할 때 인코딩을 지정하기 위해서는 Encoding 프로퍼티를 이용한다. "euc-kr" 잘 먹는다.
  
• 모든 자식 노드들을 삭제하기 위해서는 다음과 같이 하면 된다.
  

  IXMLNode* pRoot = XMLDocument->DocumentElement;
  if (pRoot != NULL)
  {
      pRoot->ChildNodes->Clear();
  }

  
  
  

5 TreeView 상의 모든 노드 횡단하기

에디트 컨트롤 상의 텍스트와 같은 텍스트를 가지는 노드를 찾아서 포커싱하기


TTreeNode* pItem = TreeView->Items->GetFirstNode();
while (pItem)
{
    if (pItem->Text.AnsiPos(Edit->Text.UpperCase()) != 0)
    {
        pItem->MakeVisible();
        pItem->Selected = true;
        pItem->Focused = true;
        break;
    }

    pItem = pItem->GetNext();
}

6 TreeNode 아이콘 설정하기

TTreeView 컨트롤에다가 이미지 리스트를 붙인 후에, 각각의 노드의 ImageIndex 값을 설정하면 된다. 여기서 주의해야할 것은 SelectedIndex도 같이 설정하지 않으면, 해당하는 노드를 선택하는 경우 아이콘이 콩가루가 된다는 점이다.


TTreeNode* pNode = TreeView->Items->Add(NULL, "test");
pNode->ImageIndex = 0;
pNode->SelectedIndex = 0;

7 커맨드 라인 인수 얻기

문서를 실행 파일 단축 아이콘에다 끌어다 놓았을 때, 해당 문서를 열기 위해서는 커맨드 라인을 이용해야 한다.

프로젝트이름.cpp 파일, 즉 WinMain 함수가 있는 파일을 열어보면 WinMain 함수 세번째 인자로 문자열을 받는 것을 알 수 있다. 문제는 이 문자열이 통짜 문자열이라는 점이다. 적당히 파싱해서 사용해야한다.

8 RichEdit 컨트롤 내부의 문자열 빠르게 치환하기

핵심은 문자열의 사본을 만들지 않는 것이다. 루프 내부에서 RichEdit 컨트롤의 Text 프로퍼티를 건드리는 것은 매번 문자열의 사본을 만들게 되므로 주의해야한다.


void __fastcall Selection(
    const AnsiString& start, const AnsiString& end, TRichEdit *re)
{
    TSearchTypes options;
    
    int pos = re->FindText(start, 0, re->GetTextLen(), options);
    if( pos == -1 )
    {
        ShowMessage("Ein unbekannter Fehler ist aufgetreten...");
        return;
    }
    
    re->Lines->BeginUpdate();
    try
    {
        int pos;
        do
        {
            re->SelStart = pos;
            re->SelLength = start.Length();
            re->SelText = end;
    
            pos += end.Length();
            pos = re->FindText(start, pos, re->GetTextLen()-pos, options);
        }
        while(pos != -1);
    }
    __finally 
    {
        re->Lines->EndUpdate();
    }
}

void __fastcall FindeText(const String& a, const String& b, TRichEdit* re)
{
    frmMain->Progress->Position = 0;
    frmMain->Progress->Max = re->GetTextLen();
    
    TSearchTypes options;
    
    re->Lines->BeginUpdate();
    try
    {
        int pos = re->FindText(a, 0, re->GetTextLen(), options);
        while( pos != -1 )
        {
            re->SelStart = pos;
            re->SelLength = a.Length();
            re->SelText = b;
    
            frmMain->Progress->Position = pos;
            frmMain->Progress->Update();
    
            pos += b.Length();
            pos = re->FindText(a, pos, re->GetTextLen()-pos, options);
        }
    }
    __finally
    {
        re->Lines->EndUpdate();
        frmMain->Progress->Position = 0;
    }
    
    frmMain->txtSuchen->Text   = a;
    frmMain->txtErsetzen->Text = b;
}

void __fastcall StrReplace(
    const AnsiString &search, const AnsiString& replace, TRichEdit *re)
{
    re->Text = StringReplace(
        re->Text, search, replace, TReplaceFlags() << rfReplaceAll);
}

첫번째 방법이 제일 빠르다.

9 Virtual ListView 사용하기

TListView는 아이템 갯수가 많아지면 O(N)으로 속도가 떨어진다. 아이템이 리스트 형식으로 들어가있기 때문에, 특정 위치의 아이템 데이터를 읽어와 화면에 그려야하는 경우, 이 리스트를 선형으로 검색해야하니 느릴 수 밖에 없다.

표시해야할 아이템이 아주 많은 경우, VirtualListView를 사용해야한다. "가상"이라고 해서 뭔가 특별한 것은 아니고, 단지 데이터 관리를 사용자가 해줄 뿐이다. 일단 ListView의 OwnerData 속성을 true로 설정해주고, OnData 이벤트 핸들러를 오버라이드해주면 된다. 아래는 볼랜드 뉴스그룹에서 긁어온 간단한 샘플이다.


#include <vector>

struct MyInfo 
{
    AnsiString Caption;
    int SomeValue;
    // other stuff you want to include...
};

struct MyCustomSort
{
    const DWORD Column;

    MyCustomSort(const DWORD ColumnIndex) : Column(ColumnIndex) {}

    operator bool (const MyInfo& lhs, const MyInfo& rhs) const
    {
        switch( Column )
        {
            case 0:
                return (lhs.Caption < rhs.Caption);
            case 1:
                return (lhs.SomeValue < rhs.SomeValue);
            //...
        }
        
        return false;
    }
};

std::vector<MyInfo> MyData;

__fastcall TForm1::TForm1(TComponent *Owner)
    : TForm(Owner)
{
    //...

    MyData.reserve(100);
    
    for(unsigned i = 0; i < 100; ++i)
    {
        // fill MyData as needed...
        MyInfo &Info = MyData[i];
        Info.Caption = i;
        Info.SomeValue = i;
        //...
    }
    
    ListView1->Items->Count = 100;

    //...
}

void __fastcall TForm1::ListView1ColumnClick(TObject* Sender, TListColumn* Column)
{
    AnsiString OldStatus = StatusBar1->SimpleText;
    StatusBar1->SimpleText = (OldStatus + " - Sorting ..");
    StatusBar1->Update();
    
    std::sort(MyData.begin(), MyData.end(),
    MyCustomSort(Column->Index));
    ListView1->Invalidate();
    
    StatusBar1->SimpleText = OldStatus;
}

void __fastcall TForm1::ListView1Data(TObject *Sender, TListItem *Item)
{
    Item->Caption = MyData[Item->Index].Caption;
    
    if( Item->SubItems->Count > 0 )
        Item->SubItems->Strings[0] = MyData[Item->Index].SomeValue;
    else
        Item->SubItems->Append(MyData[Item->Index].SomeValue);
    
    // add in the other values as needed...
}

10 Memo, RichEdit 컴포넌트에서 특정 라인 선택하기

// 해당 라인으로 커서를 이동
int start = RichEdit1->Perform(EM_LINEINDEX, LineNumber-1, 0);   

// 라인의 길이를 알아낸다.
int end = (start + RichEdit1->Perform(EM_LINELENGTH, start, 0)); 

// 라인을 선택한다.
RichEdit1->Perform(EM_SETSEL, start, end);                  

CHARRANGE range;
range.cpMin = RichEdit1->Perform(EM_LINEINDEX, LineNumber-1, 0);
range.cpMax = (range.cpMin + RichEdit1->Perform(EM_LINELENGTH,range.cpMin, 0));
RichEdit1->Perform(EM_SETSEL, 0, reinterpret_cast<int>(&range));

11 CppWebBrowser 사용하기 샘플

CppWebBrowser1->GoHome(); 
CppWebBrowser1->GoForward(); 
CppWebBrowser1->GoBack(); 
WideString tempURL = "http://www.osakac.ac.jp/";
BSTR URL;
URL = BSTR(tempURL);
CppWebBrowser1->Navigate(URL); 
CppWebBrowser1->Refresh(); 

// HTML 세이브하기
void __fastcall TForm1::Button6Click(TObject *Sender)
{
    TVariant *in;
    TVariant *out;
    CppWebBrowser1->QueryStatusWB(Shdocvw_tlb::OLECMDID_SAVEAS);
    CppWebBrowser1->ExecWB(
        Shdocvw_tlb::OLECMDID_SAVEAS,Shdocvw_tlb::OLECMDEXECOPT_DODEFAULT,in,out);
}

12 ListBox 가로스크롤 하기

When setting up the forms at runtime, send the ListBox a LB_SETHORIZONTALEXTENT message specifying the maximum viewable width. The OS will then automatically handle displaying the horizontal scroll bar when appropriate:


ListBox1->Perform(LB_SETHORIZONTALEXTENT, ListBox1->Width, 0);

Why this isn't handled automatically by Windows, or exposed as a property in the VCL, I have no idea.

13 다수의 컨트롤 한꺼번에 이름 정하기

(I'm supposing all buttons are children of the same component and the buttons are named BitBtn1, BitBtn2,...,BitBtn100.)

Use the FindChildControl method of the buttons' parent.


TBitBtn* btn;
for (int i=1; i<=100; i++) 
{
    AnsiString name = "BitBtn" + IntToStr(i); // "BitBtn1", "BitBtn2", ...
    btn = dynamic_cast <TBitBtn*> (BitBtn1->Parent->FindChildControl(name));
    if (btn)
    {
        btn->Caption = "New &Caption";
    }
}

14 StringGrid 셀 선택시 하이라이트 막기

You need to use the Selection property for that:


TGridRect gr;
gr.Left = gr.Top = gr.Right = gr.Bottom = -1;
StringGrid1->Selection = gr;

15 ListView 컬럼 폭 자동 조절하기

This function will correctly adjust column widths every time you call it.


void General_AutoSizeTListViewColumns( TListView * ListView )
{
    for (int index=0;
         index<ListView->Columns->Count;
         ++index )
    {
        ListView->Columns->Items[ index ]->Width=ColumnTextWidth;
        ListView->Columns->Items[ index ]->Width=ColumnHeaderWidth;
    }
}

16 ListView 안의 어느 아이템을 클릭했는지 알아내기

Use the OnMouseDown/Up event instead. Inside that handler, call the GetHitTestInfoAt() method of the ListView to find out where exactly the user is clicking. If the return value of GetHitTestInfoAt() contains the htOnStateIcon value, then use the GetItemAt() method to get the item and use it's Checked property as needed.

For example:


void __fastcall TForm1::ListView1MouseDown(
    TObject* Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
    THitTests ht = ListView1->GetHitTestInfoAt(X, Y);
    if(ht.Contains(htOnStateIcon))
    {
        TListItem *item = ListView1->GetItemAt(X, Y);
        if(item)
            // use item->Checked as needed
    }
}

17 ListView 폰트 칼라 바꾸기

TListView has a Font property for that. If that is not good enough for your needs, then you will need to instead use one of the TListView's On...Draw events to draw each list item yourself, then you can anipulate the TListView's Canvas anyway you want.

As an example (and there are lines you can leave commented out, or comment in as desired to experiment with)


void __fastcall TForm1::ListView1CustomDrawSubItem(
    TCustomListView *Sender, TListItem *Item, int SubItem, 
    CustomDrawState State, bool& DefaultDraw)
{
    DefaultDraw = true;

    // choose columns to act upon
    // exit if not first subitem column
    if (SubItem != 1) return;

    // you could also just use ListView1 here
    TListView *ListView = static_cast<TListView*>(Sender);
    if (ListView)
    {
        // extract the bounding rectangle of the subitem
        RECT R = {LVIR_BOUNDS, SubItem, 0, 0};

        SNDMSG(ListView->Handle, LVM_GETSUBITEMRECT, 
            Item->Index,reinterpret_cast<LPARAM>(&R));

        //  change rectangle size if desired...
        //  InflateRect(&R, -1, -1);
        TCanvas *LVCanvas = ListView->Canvas;
        HDC Hdc = LVCanvas->Handle;

        //  render a rectangle in/on perimeter of R if desired...
        //  LVCanvas->Brush->Color = clWindow;
        //  LVCanvas->Rectangle(R.left, R.top, R.right, R.bottom);

        //  change rectangle size if desired...
        //  InflateRect(&R, -LVCanvas->Pen->Width, -LVCanvas->Pen->Width);

        //  TColor OldColor=LVCanvas->Brush->Color; // save original canvas brush color

        LVCanvas->Brush->Color = clRed; // set new canvas brush color

        // fill the rectangle
        LVCanvas->FillRect(R); // fill 100% (adjust R.right otherwise)

        // get the text currently in the subitem
        AnsiString text(Item->SubItems->Strings[SubItem-1]);

        //  COLORREF x=GetTextColor(Hdc); // save original text color
        //  int y=GetBkMode(Hdc);         // save original background mix mode

        SetBkMode(Hdc, TRANSPARENT);

        SetTextColor(Hdc, ColorToRGB(clYellow)); // set new text color

        // render the text in rectangle R with various attributes
        DrawText(Hdc, text.c_str(), text.Length(), 
            &R, DT_LEFT | DT_VCENTER | DT_SINGLELINE);

        //  LVCanvas->Brush->Color=OldColor; // restore color
        //  SetTextColor(Hdc, x);            // restore text color
        //  SetBkMode(Hdc, y);               // restore background mix mode

        // tell Windows we drew the item manually
        DefaultDraw = false;
    }
}

18 TRichEdit, TMemo에서 스크롤바가 항상 최하위에 위치하게 하기

Memo1->SelStart = Memo1->GetTextLen();
Memo1->Perform(EM_SCROLLCARET, 0, 0);

잘 안 될 때는 위아래로 Focus 관련 코드를 집어넣어보길 바란다.


Memo1->SetFocus();
Memo1->SelStart = Memo1->GetTextLen();
Memo1->Perform(EM_SCROLLCARET, 0, 0);
OriginalControl->SetFocus();

• see also CppBuilder
  

• CategoryTools