在Win7(x64)安裝BCB5後, 每次開啟都會跳出一個錯誤訊息 "1 transfer item(s) contain syntax errors"
- 4月 14 週二 201510:30
[BCB] "1 transfer item(s) contain syntax errors"
在Win7(x64)安裝BCB5後, 每次開啟都會跳出一個錯誤訊息 "1 transfer item(s) contain syntax errors"
- 3月 30 週一 201515:36
[BCB] ComboBox->Items 置中
[原創]
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::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);
}
- 3月 30 週一 201515:32
[BCB] StringGrid ->Cells[][] 內容置中
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);
}
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);
}
- 3月 25 週三 201513:06
[BCB] 虛擬按鍵對照表
- 3月 25 週三 201511:48
[BCB] 判斷 StringGrid 選中的 cell 位置
利用 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);
}
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);
}
- 3月 24 週二 201517:13
[BCB] FindFile method
/**
* @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);
}
* @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);
}
- 2月 04 週三 201514:36
[BCB]HexToInt 超 easy
int HexToInt(AnsiString Hex)
{
return StrToInt("$" + Hex);
}
{
return StrToInt("$" + Hex);
}
1
學習 (8)