學習就是生活

在Win7(x64)安裝BCB5後, 每次開啟都會跳出一個錯誤訊息 "1 transfer item(s) contain syntax errors"

[原創]

void __fastcall TLCDSimForm::cbImageListDrawItem(TWinControl *Control,
int Index, TRect &Rect, TOwnerDrawState State)
{
AnsiString str = cbImageList->Items->Strings[Index];
cbImageList->Canvas->FillRect(Rect);
DrawText(cbImageList->Canvas->Handle, str.c_str(),
str.Length(), &Rect, DT_CENTER);
}

void __fastcall TLCDSimForm::StringGridInfoDrawCell(TObject *Sender,
int ACol, int ARow, TRect &Rect, TGridDrawState State)
{
StringGridInfo->Canvas->FillRect(Rect);    // 清空
DrawText(StringGridInfo->Canvas->Handle, StringGridInfo->Cells[ACol][ARow].c_str(),
StringGridInfo->Cells[ACol][ARow].Length(), &Rect, DT_CENTER);
}

value: DT_VCENTER | DT_SINGLELINE | DT_CENTER

Reference: 程式雜記

Reference: The Back if Daniel

利用 mouse event + StringGrid.MouseToCell method 得到 col and row

void __fastcall TLCDSimForm::sgComSegViewMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
int iCol, iRow;
TStringGrid *sgTable = (TStringGrid *)Sender;
sgTable->MouseToCell(X, Y, iCol, iRow);
}

Reference: [BCB] StringGrid 使用大全

/**
* @fn TEditorOptionForm::FindFile(TStringList * FileList, AnsiString sStartDir, AnsiString sFileMask)
* @brief Get .khl file path
* @param FileList store IC profile path
* @param sStartDir search directory
* @param sFileMask file mask (ex: *.bmp)
* @return null
*/
void __fastcall TEditorOptionForm::FindFile(TStringList * FileList, AnsiString sStartDir, AnsiString sFileMask)
{
TSearchRec SR; /* TSearchRec defines file information */
bool IsFound;
/* 0:a file was successfully located */
IsFound = (FindFirst(sStartDir+sFileMask, faAnyFile-faDirectory, SR) == 0);
while (IsFound)
{
FileList->Add(sStartDir + SR.Name);
IsFound = (FindNext(SR) == 0);
}
FindClose(SR);
}

int HexToInt(AnsiString Hex)

{

    return StrToInt("$" + Hex);

}

超厲害的!!

來源網站: http://huasoft.blog.163.com/blog/static/2450241120087945955121/

感謝分享~