TTStringGrid часть 2 стр.5

стр. 5

TStringGrid, часть II

Автор Деймон Чандлер перевод Виктор Алексеев aka prom

стр. 5

#include <cassert>
void __fastcall 
TForm1::StringGrid1DrawCell(
  TObject *Sender, int ACol, int ARow,
  TRect &Rect, TGridDrawState State)
{
  // other code from before...

// if this cell contains a checkbox
  if (GetCheckBox(
        *StringGrid, ACol, ARow)) {
    // set the flags for rendering 
    // checked/unchecked
    unsigned int state = 
      DFCS_BUTTONCHECK;
    if (GetCheckState(
          *StringGrid, ACol, ARow)) {
        state = state | DFCS_CHECKED;
    }

// size the checkbox
    RECT RCell =static_cast<RECT>(Rect);
    OffsetRect(&RCell, 2, 
      0.5 * (RCell.bottom - RCell.top));
    RCell.right = RCell.left + 
      GetSystemMetrics(SM_CXMENUCHECK);
    RCell.bottom = RCell.top + 
      GetSystemMetrics(SM_CYMENUCHECK);
    RCell.top -= 0.5 * 
      (RCell.bottom - RCell.top) + 2;

// draw the checkbox
    DrawFrameControl(
      StringGrid1->Canvas->Handle, 
      &RCell, DFC_BUTTON, state);

// move the text over
    RText.left = RCell.right;
  }

// draw the text
  RText.left += 2; RText.top += 2;
  DrawText(SGCanvas->Handle, 
    text.c_str(), text.Length(), &RText,
    DT_LEFT |DT_VCENTER |DT_SINGLELINE);
}

Взаимодействие с флажками

Для отображения флажка необходимо изменить его состояние кликнув мышью или нажать клавишу пробел на соответствующей сфокусированной ячейке. В первом случае мы можем использовать комбинацию метода CellRect() и функцииPtInRect(). Во втором просто использовать событие OnKeyPress:

bool __fastcall PtInCheckBox(
  TStringGrid& AGrid, int AX, int AY,
  int &ACol, int &ARow)
{
  AGrid.MouseToCell(AX, AY, ACol, ARow);
  RECT RCell = static_cast<RECT>(
    AGrid.CellRect(ACol, ARow));

OffsetRect(&RCell, 2, 
    0.5 * (RCell.bottom - RCell.top));
  RCell.right = RCell.left + 
    GetSystemMetrics(SM_CXMENUCHECK);
  RCell.bottom = RCell.top + 
    GetSystemMetrics(SM_CYMENUCHECK);
  RCell.top -= 0.5 * 
    (RCell.bottom - RCell.top) + 2;

return 
    PtInRect(&RCell, Point(AX, AY));
}

// OnMouseDown event handler:
void __fastcall TForm1::
  StringGrid1MouseDown(TObject *Sender,
  TMouseButton Button,
  TShiftState Shift, int X, int Y)
{
  TStringGrid* StringGrid = 
    static_cast<TStringGrid*>(Sender);
  assert(StringGrid != NULL);

int Col, Row;
  if (PtInCheckBox(
       *StringGrid, X, Y, Col, Row)) {
    if (GetCheckBox(
         *StringGrid, Col, Row)) {
      bool is_checked = GetCheckState(
        *StringGrid, Col, Row);
      SetCheckState(*StringGrid, 
        Col, Row, !is_checked);
    }
  }
}

// OnKeyPress event handler:
void __fastcall 
TForm1::StringGrid1KeyPress(
  TObject *Sender, char &Key)
{
  TStringGrid* StringGrid = 
    static_cast<TStringGrid*>(Sender);
  assert(StringGrid != NULL);

if (Key == VK_SPACE) {
    const int col = StringGrid->Col;
    const int row = StringGrid->Row;

if (GetCheckBox(
         *StringGrid, col, row)) {
      SetCheckState(*StringGrid, col, 
        row, !GetCheckState(
          *StringGrid, col, row));
    }
  }
}

P R O M S I T E

Статьи по С++Builder 6

страницы: 1 2 3 4 5 6

Для отображения Облака ссылок
необходим
Adobe Flash Player 9
или выше.