String TfrmMain::refreshVersion()
{
DWORD dwHandle = 0, dwVersionInfoSize;
UINT uLength;
LPVOID pFileInfo, ptr;
String sOut; // 리턴될 버전 정보.
String filename = Application->ExeName;
dwVersionInfoSize = GetFileVersionInfoSize(filename.c_str(), &dwHandle);
pFileInfo = (LPVOID) HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, dwVersionInfoSize);
GetFileVersionInfo(filename.c_str(), dwHandle, dwVersionInfoSize, pFileInfo);
VerQueryValue(pFileInfo, TEXT("\\VarFileInfo\\Translation"), &ptr, &uLength);
WORD *id = (WORD *) ptr;
String sQuery = "FileVersion";//{"CompanyName", "FileDescription", "FileVersion", "InternalName", "LegalCopyright", "LegalTradeMarks", "OriginalFileName", "ProductName", "ProductVersion", "Comments"};
String szString = "\\StringFileInfo\\" + IntToHex(id[0], 4) + IntToHex(id[1], 4) + "\\" + sQuery;
VerQueryValue(pFileInfo, szString.c_str(), &ptr, &uLength);
sOut = String((wchar_t *) ptr);
HeapFree(GetProcessHeap(), 0, pFileInfo );
return sOut;
}
void __fastcall TDesignFrm::btStartNewClick(TObject *Sender)
{
if(SourceGenDesignFrm->StartDesign() == false)
return;
String fileName, head, subHead;
m_WorkSpaceManager->BeginUpdate();
for(int i=0; i<SourceGenDesignFrm->GetHeadCount(); i++)
{
for(int j=0; j<SourceGenDesignFrm->GetSubHeadCount(); j++)
{
head = IntToHex(i+1, 2);
subHead = IntToHex(j+1, 2);
fileName = FormatStr("Pack_%s_%s.eggxp", head, subHead);
WorkSpace * selWorkSpace = m_WorkSpaceManager->CreateNewWorkSpace();
selWorkSpace->InitWorkSpace(m_WorkSpaceManager->GetFilePath(),
fileName, head + " " + subHead);
selWorkSpace->GetFileManager()->CreateNew();
selWorkSpace->SaveToFile();
}
}
m_WorkSpaceManager->ReloadWorkSpacePack();
WorkspaceToGUI();
m_WorkSpaceManager->EndUpdate();
}
//---------------------------------------------------------------------------
// TImageBuffer constructor
//
__fastcall TImageBuffer::TImageBuffer(int Size, int Count) {
FAllocSister = NULL;
Sync = new TMultiReadExclusiveWriteSynchronizer();
ChunkSize = Size;
ChunkCount = 1 << (int)Ceil(Log2(Count));
IndexMask = ChunkCount - 1;
Chunks = new TBufferChunk *[ChunkCount];
ChunkStates = new TBufferChunkState [ChunkCount];
NextReadChunkIndex = NextWriteChunkIndex = 0;
// Create all the buffer chunks
for (unsigned n = 0; n < ChunkCount; n++) {
Chunks[n] = new TBufferChunk(ChunkSize, n);
ChunkStates[n] = csFree;
} // for (unsigned n = 0; n < nChunkCount; n++)
// Initialize our event objects
ReadChunkReady = new TEvent(NULL, true, false, IntToHex((int)this, 8) + ":Read");
if (!ReadChunkReady->Handle)
throw ESelfImageSystemError("Failed to create image buffer read event object.");
WriteChunkReady = new TEvent(NULL, true, false, IntToHex((int)this, 8) + ":Write");
if (!WriteChunkReady->Handle)
throw ESelfImageSystemError("Failed to create image buffer write event object.");
} // TImageBuffer::TImageBuffer(int nChunkSize, int nChunkCount)
void __fastcall TDesignFrm::btClearHeadDefClick(TObject *Sender)
{
int result = Application->MessageBox(L"这个清空动作会清空所有文件! 是否继续?",L"删除询问",MB_OKCANCEL);
if(result == IDCANCEL)
{
return;
}
m_WorkSpaceManager->BeginUpdate();
for(int i=m_WorkSpaceManager->GetWorkSpaceCount()-1; i>=0; i--)
{
m_WorkSpaceManager->DeleteWorkSpace(i);
}
//添加一条新数据
String head = IntToHex(0, 2);
String subHead = IntToHex(0, 2);
String fileName = FormatStr("Pack_%s_%s.eggxp", head, subHead);
WorkSpace * selWorkSpace = m_WorkSpaceManager->CreateNewWorkSpace();
selWorkSpace->InitWorkSpace(m_WorkSpaceManager->GetFilePath(),
fileName, head);
selWorkSpace->GetFileManager()->CreateNew();
selWorkSpace->SaveToFile();
m_WorkSpaceManager->ReloadWorkSpacePack();
WorkspaceToGUI();
m_WorkSpaceManager->EndUpdate();
}
QString Cdebug_ti57cpu::Decode(TI57regs *r) {
QString Result;
// qWarning()<<QString("OP:%1").arg(r->OP,4,16,QChar('0'));
if (r->OP & 0x1000) {
if (r->OP & 0x0800) Result=BranchOP(r);
else Result=CallOP(r);
}
else {
r->MF = (r->OP >> 8);
switch (r->MF) {
case 0:
case 1:
case 2:
case 3:
case 4:
case 5:
case 7:
case 8:
case 9:
case 0x0a:
case 0x0d:
case 0x0f: Result = MaskOP(r); break;
case 0x0C: Result = FlagOP(r); break;
case 0x0E: Result = MiscOP(r); break;
default: Result="Error: Invalid Instruction"; break;
}
}
Result.prepend(IntToHex(r->PC).append(" ").append(IntToHex(r->OP,4)).append(" "));
return Result;
}
//---------------------------------------------------------------------------
AnsiString TDrawingItem::Encode()
{
//文字列で記述
AnsiString result;
result += IntToHex(m_nType, 8) + IntToHex(m_nPenColor, 8) + IntToHex(m_nBrushColor, 8) + IntToHex(Count, 8);
for (int i = 0 ; i < 4 ; i++) {
result += IntToHex(*(int*)&m_Rect[i], 8);
}
for (int i = 0 ; i < Count ; i++) {
result += IntToHex((int)Items[i], 8);
}
return result;
}
//---------------------------------------------------------------------------
AnsiString TDrawing::Encode(bool bAll)
{
//文字列で記述
AnsiString result;
int count = 0;
for (int i = 0 ; i < Count ; i++) {
if (bAll || DItem(i)->m_bSelected) {
//エンコード対象のアイテム
AnsiString S = DItem(i)->Encode();
result += IntToHex(S.Length(), 8) + S;
count++;
}
}
return IntToHex(count, 8) + result;
}
void __fastcall TForm1::setLight(TObject *Sender)
{
/* Метод расчета и передачи значения состояния управляющих освещением выводов */
if (Sender->ClassName() == "TCheckBox") {
// Значение (2 байта) состояния управляющих выходов (0x0000 .. 0xFFFF)
unsigned short int light = 0x0000;
// Опрос состояния выключателей с целью расчета значения
for (int i = 1; i < GroupBox1->ControlsCount; i++) {
if (GroupBox1->Controls->Items[i]->ClassName() == "TCheckBox")
if (((TCheckBox*)GroupBox1->Controls->Items[i])->IsChecked)
light ^= (1 << i-1);
}
// Передача данных в структуру
DeviceConfig.light = light;
// Отправка данных устройству
deviceSend(DeviceConfig);
// DEBUG: Вывод отладочной информации
Memo1->Lines->Strings[0] = ("Light: 0x" + IntToHex(light, 4));
}
}
void main() {
unsigned char write = 'A';
unsigned char read;
char buffer[10];
TWI_Init(100000);
Lcd_Init();
Write24C64_Byte(DEV24C64_ADDR, 0x00, write);
read = Read24C64_Byte(DEV24C64_ADDR, 0x00);
IntToHex(read, buffer);
Lcd_Out(1, 1, buffer);
while (1);
if( write == read ) {
Lcd_Out(1, 1, "Successfully written");
} else {
Lcd_Out(1, 1, "Data writing failed");
}
while (1) {
}
}
//---------------------------------------------------------------------------
int __fastcall TFormGrepStringsDialog::PutAllStringsInStringGrid(TStringList * ActiveList)
{
//TODO: Add your source code here
int i, Pos;
AnsiString Full, Address, Str;
if (ActiveList->Count==0) return 0;
ClearStringGrid();
StringGrid->RowCount=ActiveList->Count+1;
for (i=0; i<ActiveList->Count; i++)
{
Full=ActiveList->Strings[i];
Pos=Full.Pos(":");
Address=Full.SubString(0, Pos-1).TrimRight();
Str =Full.SubString(Pos+1, Full.Length()-Pos).Trim();
StringGrid->Cells[0][i+1]=i+1;
if (CheckBHexAdress->Checked==true)
StringGrid->Cells[1][i+1]=IntToHex(StrToInt(Address), 8);
else
StringGrid->Cells[1][i+1]=Address;
StringGrid->Cells[2][i+1]=Str;
}
StatusBar->Panels->Items[2]->Text=" Count = "+ IntToStr(i);
return i;
}
BSTR CCommonUtils::BinaryToHex(LPVOID lpData, ULONG ulSize)
{
LPWSTR lpString = NULL;
BSTR bstrRet = NULL;
LPBYTE lpBytes = (LPBYTE)lpData;
DWORD dwSize = 0;
dwSize = ulSize*2*sizeof(WCHAR)+sizeof(WCHAR);
// Alloc enough for two chars per byte plus NUL
lpString = (LPWSTR)LocalAlloc(LPTR, dwSize);
if(!lpString)
{
throw _com_error(E_OUTOFMEMORY);
}
memset(lpString, 0, dwSize);
for(UINT pos = 0; pos < ulSize; pos++)
{
lpString[pos*2] = IntToHex(lpBytes[pos] >> 4);
lpString[pos*2+1] = IntToHex(lpBytes[pos] & 0xF);
}
bstrRet = ::SysAllocString(lpString);
LocalFree(lpString);
return bstrRet;
}
QString Cdebug_ti57cpu::BranchOP(TI57regs *r) {
QString Result="";
if (r->OP & 0x0400) Result="BRC ";
else Result="BRNC ";
Result.append(IntToHex((r->PC & 0x0400) | (r->OP & 0x03FF)));
return Result;
}
void __fastcall TForm1::setVolume(TObject *Sender)
{
/* Метод расчета и передачи значения уровня громкости */
// Положение ползунка громкости (0 .. 127)
float level = TrackBar1->Value;
// Значение (1 байт) уровня громкости (0x00 .. 0x7F)
unsigned char volume_level = 0x00;
// Расчет значения уровня для передачи устройству
// DEBUG: возможность инвертирования значения
if (CheckBox16->IsChecked) {
volume_level = (unsigned char) (TrackBar1->Max - level);
}
else
volume_level = (unsigned char) level;
// Расчет и отображение уровня громкости в процентах
Label1->Text = "Уровень: " + FloatToStrF(level*100/TrackBar1->Max, ffNumber, 3, 0) + "%";
// Передача данных в структуру
DeviceConfig.volume_level = volume_level;
// Отправка данных устройству
deviceSend(DeviceConfig);
// DEBUG: Вывод отладочной информации
Memo1->Lines->Strings[1] = ("Level: 0x" + IntToHex(volume_level, 2));
}
//---------------------------------------------------------------------------
UnicodeString __fastcall TFrDeviceExplorer::ConverToHex(TByteDynArray Bytes)
{
Integer I;
UnicodeString ResultString;
for(int i = 0; i < Bytes.get_length(); i++){
ResultString = ResultString + IntToHex(Bytes.operator [](i), 1);
}
return ResultString;
}
QString Cdebug_ti57cpu::Debugging(TI57regs *r) {
QString s="";
s=QString("A\t= ").append(Reg(r->RA)).append("\n");
s.append("B\t= ").append(Reg(r->RB)).append("\n");
s.append("C\t= ").append(Reg(r->RC)).append("\n");
s.append("D\t= ").append(Reg(r->RD)).append("\n");
s.append("COND\t= %1").arg(r->COND).append("\n");
s.append("BASE\t= %1\n").arg(r->BASE);
s.append("R5\t= ").append(IntToHex(r->R5,2)).append("\n");
s.append("RAB\t= ").append(IntToHex(r->RAB,1)).append("\n\n");
s.append("ST\t= ").append(IntToHex(r->ST[0],3)).append(" ").append(IntToHex(r->ST[1],3)).append(" ").append(IntToHex(r->ST[2],3)).append("\n\n");
for (int i=0; i<8;i++)
s.append(QString("X%1 = %2 Y%3 = %4\n").arg(i).arg(Reg(r->RX[i])).arg(i).arg(Reg(r->RY[i])));
//if Application.MessageBox(PChar(s),PChar(Decode),MB_OKCancel)<>IDOK then
//Debugger=False;
return s;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try {
//Привязка к серийному номеру винта.
unsigned long aa = MAX_PATH;
char VolumeName[MAX_PATH], FileSystemName[MAX_PATH];
unsigned long VolumeSerialNo;
unsigned long MaxComponentLength, FileSystemFlags;
GetVolumeInformation("C:\\", VolumeName, aa, &VolumeSerialNo,
&MaxComponentLength,&FileSystemFlags,
FileSystemName,aa);
AnsiString as1 = "VName = "; as1 = as1 + + VolumeName;
AnsiString as2 = "FSName = "; as2 = as2 + + FileSystemName;
Memo1->Clear();
Memo1->Lines->Add("C:\\");
// Memo1->Lines->Add(as1);
Memo1->Lines->Add("SerialNo = $"+IntToHex((int)VolumeSerialNo,8));
/* Memo1->Lines->Add("CompLen = "+IntToStr(MaxComponentLength));
Memo1->Lines->Add("Flags = $"+IntToHex((int)FileSystemFlags,4));
Memo1->Lines->Add(as2);*/
Memo1->Lines->Add("");
Memo1->Lines->Add("");
GetVolumeInformation("D:\\", VolumeName, aa, &VolumeSerialNo,
&MaxComponentLength,&FileSystemFlags,
FileSystemName,aa);
as1 = "VName = "; as1 = as1 + + VolumeName;
as2 = "FSName = "; as2 = as2 + + FileSystemName;
Memo1->Lines->Add("D:\\");
// Memo1->Lines->Add(as1);
Memo1->Lines->Add("SerialNo = $"+IntToHex((int)VolumeSerialNo,8));
/* Memo1->Lines->Add("CompLen = "+IntToStr(MaxComponentLength));
Memo1->Lines->Add("Flags = $"+IntToHex((int)FileSystemFlags,4));
Memo1->Lines->Add(as2);*/
} catch ( ... ) {
}
}
//将1字节数组转化为对应16进制字符串
AnsiString f_bytetohex(UCHAR *buff,int ilen)
{
AnsiString s1;
int i;
s1="";
for(i=0;i<ilen;i++)
{
s1=s1+IntToHex(buff[i],2);
};
return s1;
}
//===========================================================================
void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
// ---------------------------------------------------
frmLogoDiALab = new TfrmLogoDiALab(NULL);
//frmLogoDiALab->Show();
Application->ProcessMessages();
Sleep(2300);
// ---------------------------------------------------
WhoUseProgram = wupSensei;
//WhoUseProgram = wupTsisarzh;
//WhoUseProgram = wupTanjaKvant;
if (WhoUseProgram == wupTsisarzh) { // ---- ѕровер¤ем винты ------// || WhoUseProgram == wupSensei
unsigned long aa = MAX_PATH;
char VolumeName[MAX_PATH], FileSystemName[MAX_PATH];
unsigned long VolumeSerialNo;
unsigned long MaxComponentLength, FileSystemFlags;
GetVolumeInformation("C:\\", VolumeName, aa, &VolumeSerialNo,
&MaxComponentLength,&FileSystemFlags,
FileSystemName,aa);
AnsiString HexVolumeSerialNo = IntToHex((int)VolumeSerialNo,8);
if ( HexVolumeSerialNo != "0D471DF1" && HexVolumeSerialNo != "104E16FB" && HexVolumeSerialNo != "256E13FC") {
Error_None_LicenseProgram(Handle);
ExitProcess(0);
}
}
// ---------------------------------------------------
Left = 0;
Top = 0;
Height = 730;
EnabledTVModivication = true;
// ---- –егистрирую в ¬индовсе расширение ------------
RegisterFileType("dls", Application->ExeName, 1);
AddNewFileToMainMenu(pmFile, "Load", LoadProjectFromMenu);
// ------- «аполн¤ем “ри¬ью —писками элементов -----
SetupTreeView();
// -------
aAllAction(aNewScheme);
// ------- »нициализаци¤ пути ќпен и —айф ƒиалога --------
OpenDialog1->InitialDir = ExtractFilePath( Application->ExeName );
SaveDialog1->InitialDir = ExtractFilePath( Application->ExeName );
// -----
TimerLogo->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall CreateSoundBuffer(const WAVEFORMATEXTENSIBLE * wfx)
{
// 0.25 秒間のセカンダリバッファを作成する
/* wfx.Format の nAvgBytesPerSec や nBlockAlign は変な値になっていないかどうか
チェックが必要 */
if(SoundBuffer)
{
SoundBuffer->Release();
SoundBuffer = NULL;
}
// プライマリバッファのフォーマットを再設定
if(SoundPrimaryBuffer)
{
SoundPrimaryBuffer->SetFormat((const WAVEFORMATEX *)wfx);
}
// セカンダリバッファの作成
memset(&SoundBufferDesc,0,sizeof(DSBUFFERDESC));
SoundBufferDesc.dwSize=sizeof(DSBUFFERDESC);
SoundBufferDesc.dwFlags=
DSBCAPS_GETCURRENTPOSITION2/* | DSBCAPS_CTRLPAN */| DSBCAPS_CTRLVOLUME
|DSBCAPS_GLOBALFOCUS ;
SoundBufferDesc.dwBufferBytes = wfx->Format.nAvgBytesPerSec /4;
SoundBufferDesc.dwBufferBytes /= wfx->Format.nBlockAlign * 2;
SoundBufferDesc.dwBufferBytes *= wfx->Format.nBlockAlign * 2;
SoundBufferBytes = SoundBufferDesc.dwBufferBytes;
SoundBufferBytesHalf = SoundBufferBytes / 2;
Frequency = wfx->Format.nSamplesPerSec;
Channels = wfx->Format.nChannels;
SampleSize = wfx->Format.nBlockAlign;
SoundBufferDesc.lpwfxFormat = (WAVEFORMATEX*)wfx;
// セカンダリバッファを作成する
HRESULT hr = Sound->CreateSoundBuffer(&SoundBufferDesc,&SoundBuffer,NULL);
if(FAILED(hr))
{
SoundBuffer=NULL;
throw Exception("セカンダリバッファの作成に失敗しました"
"/周波数:"+AnsiString(wfx->Format.nSamplesPerSec)+
"/チャネル数:"+AnsiString(wfx->Format.nChannels)+
"/ビット数:"+AnsiString(16)+
"/HRESULT:"+IntToHex((int)hr,8));
}
ResetSoundBuffer();
}
//---------------------------------------------------------------------------
//Called when the user dubbleclicks on the image
void __fastcall TIColorSelect::ImageDblClick(TObject *Sender)
{
//If editing of colors is enabled then show the color dialog and
//update the select box with the user chosen color
if(!EditColor)
return;
TColorDialog *ColorDialog=new TColorDialog(this);
ColorDialog->Color = ColorList[SelectedBox.x][SelectedBox.y];
ColorDialog->CustomColors->Add(("ColorA=")+IntToHex((int)ColorDialog->Color,8));
if(ColorDialog->Execute())
DrawBox(SelectedBox,ColorDialog->Color);
delete ColorDialog;
}
void TRadioManager::TransmitMsg(TRadioMsg * msg, TRfd * sender)
{
TListItem * new_item = formMain->lvLog->Items->Add();
new_item->MakeVisible(false);
new_item->Caption = FormatFloat("#000", msg->Sender_Node->MAC_Address);
new_item->SubItems->Add( (msg->Recipient_Node == MSG_RECIPIENT_ALL_NODES) ?
(AnsiString)"<ALL>" : (AnsiString) FormatFloat("#000", msg->Recipient_Node->MAC_Address) );
AnsiString data;
for ( sint32 i = 0; i < msg->Msg_Length; i++ )
{
data += IntToHex(msg->Msg_Data[i], 2) + " ";
}
new_item->SubItems->Add(data);
// Transmit the message to all nodes that match the recipient address and are within transmission range
const sint32 sender_pos_x = sender->Node_Body->Left + (sender->Node_Body->Width / 2);
const sint32 sender_pos_y = sender->Node_Body->Top + (sender->Node_Body->Height / 2);
for (sint32 i = 0; i < formMain->Node_List->Count; i++ )
{
TRfd * rx_node = (TRfd *)formMain->Node_List->Items[i];
if ( (rx_node->MAC_Address != msg->Sender_Node->MAC_Address) &&
((msg->Recipient_Node == rx_node) || (msg->Recipient_Node == MSG_RECIPIENT_ALL_NODES)) )
{
// The address matches. Now check the range
const sint32 rx_node_pos_x = rx_node->Node_Body->Left + (rx_node->Node_Body->Width / 2);
const sint32 rx_node_pos_y = rx_node->Node_Body->Top + (rx_node->Node_Body->Height / 2);
const sint32 dx = rx_node_pos_x - sender_pos_x;
const sint32 dy = rx_node_pos_y - sender_pos_y;
const sint32 dx2 = dx * dx;
const sint32 dy2 = dy * dy;
const sint32 node_dist_sq = dx2 + dy2;
if ( node_dist_sq <= (sender->Tx_Range * sender->Tx_Range) )
{
// Create a copy of the message to send to each recipient
TRadioMsg * msg_copy = new TRadioMsg(*msg);
rx_node->Msg_Buffer->Add(msg_copy);
// Leave a random time before the node reads the message.
// This simulates latency and allows different nodes to answer braodcast messages in different orders
if ( ! rx_node->Msg_Timer->Enabled )
{
rx_node->Msg_Timer->Interval = Random(80) + 20;
rx_node->Msg_Timer->Enabled = true;
}
} // end of Tx range check
} // End of address check
} // End of node list scan loop
} // End of TransmitMsg
//---------------------------------------------------------------------------
void TdRegTest::Compare(sPrData *pPrData)
{
String Str;
BYTE itmp;
bool bTestRez = true;
int mask;
for(int i=0; i<pPrData->iToW; i++)
{
if((pPrData->cDataW[pPrData->iWInd[i]] & pPrData->cTestMap[pPrData->iWInd[i]]) != (pPrData->cDataR[pPrData->iWInd[i]] & pPrData->cTestMap[pPrData->iWInd[i]]))
{
bTestRez = false;
Str = "Reg Addr = ";
Str = Str + pPrData->iWInd[i];
Str = Str + " Failed (Write/Read Values): ";
itmp = pPrData->cDataW[pPrData->iWInd[i]] & 0x00FF;
Str = Str + IntToHex(itmp, 2);
Str = Str + " / ";
//itmp = pPrData->cDataR[pPrData->iWInd[i]] & (BYTE)pPrData->cTestMap[pPrData->iWInd[i]];
itmp = pPrData->cDataR[pPrData->iWInd[i]];
Str = Str + IntToHex(itmp, 2);
reInfo->Lines->Add(Str);
};
};
if(pPrData->iToW == 0) reInfo->Lines->Add("Length Wrong!");
if(bTestRez)
{
reInfo->Lines->Add("Module test with this pattern is OK.");
}
else
{
reInfo->Lines->Add("Module test with this pattern FAILED!");
};
};
BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam)
{
TStringGrid *grid = (TStringGrid *)lParam;
AnsiString str, cname, caption;
str.SetLength(1024);
GetClassName(hwnd,str.c_str(),1023);
cname = str;
str.SetLength(1024);
GetWindowText(hwnd,str.c_str(),1023);
caption = str;
grid->Tag++;
grid->Rows[grid->Tag]->Text = "0x" + IntToHex((int)hwnd,6) + "\n" + cname + "\n" + caption;
grid->Rows[grid->Tag]->Objects[0] = (TObject *)hwnd;
return true;
}
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
AnsiString temp_a;
char temp;
if(Edit2->Modified)
{
temp_a=(Edit2->Text);
try
{
temp=temp_a.ToInt();
}
catch ( EConvertError& )
{
}
bukva=temp;
Edit1->Text=bukva;
Edit3->Text=IntToHex(bukva,2);
if(indikator==0)
{
int ptr;
ptr=((int)bukva)*6;
simbol_vert[0]=simbol_all[ptr];
ptr++;
simbol_vert[1]=simbol_all[ptr];
ptr++;
simbol_vert[2]=simbol_all[ptr];
ptr++;
simbol_vert[3]=simbol_all[ptr];
ptr++;
simbol_vert[4]=simbol_all[ptr];
ptr++;
simbol_vert[5]=simbol_all[ptr];
ptr++;
simbol_vert[6]=simbol_all[ptr];
ptr++;
simbol_vert[7]=simbol_all[ptr];
ptr++;
horiz_create();
qwads_drow();
}
}
}
//---------------------------------------------------------------------------
void __fastcall TServerForm::ServerWSocketSessionAvailable(TObject *Sender,
WORD Error)
{
TClientThread *ClientThread;
// Create a new thread to handle client request
ClientThread = new TClientThread(ServerWSocket->Accept());
// Assign the thread's OnTerminate event
ClientThread->OnTerminate = ClientThreadTerminate;
// Add the thread to the listbox which is our client list
ClientListBox->Items->Add(IntToHex(Integer(ClientThread), 8));
// Then start the client thread work
// because it was created in the blocked state
ClientThread->Resume();
}
//---------------------------------------------------------------------------
__fastcall TDlgSettings::TDlgSettings(TComponent* Owner)
: TForm(Owner)
{
cbShowSplashScreen->Checked = config.SHOW_SPLASH;
cbShowWelcomeScreen->Checked = config.SHOW_WELCOME;
cbQuerySaving->Checked = config.QUERY_SAVING;
cbToolBarVisible->Checked = WndMain->ToolBar3->Checked;
cbShowTextLabels->Checked = WndMain->TextLabels1->Checked;
cbAlwaysColour->Checked = WndMain->AlwaysColour1->Checked;
bcToolbarBitmap->Checked = WndMain->MainPanel2->Bitmap!=NULL;
tbBitmapName = config.tbBitmapName;
if(bcToolbarBitmap->Checked)
Image1->Picture->Bitmap->Assign(WndMain->MainPanel2->Bitmap);
for(int i=0;i<TOTAL_RES_TYPES;i++)
DefaultResourceType->Items->Add(resTypes[i].name);
DefaultResourceType->ItemIndex = config.ewsDefResType;
for(int i=0;i<4;i++)
cbViewStyle->Items->Add(vsNames[i]);
cbViewStyle->ItemIndex = config.ewsViewStyle;
cbShowPreview->Checked = config.ewsSHOW_PREVIEW;
cbFlatScroll->Checked = config.ewsFLAT_SCROLL;
cbGridLines->Checked = config.ewsGRID_LINES;
cbHotTrack->Checked = config.ewsHOT_TRACK;
cbHandPoint->Checked = config.ewsHAND_POINT;
cbUnderlineC->Checked = config.ewsUNDERLINEC;
cbUnderlineH->Checked = config.ewsUNDERLINEH;
shBkColour->Brush->Color = WndMain->Color;
edBkColour->Text = IntToHex(shBkColour->Brush->Color,6);
SpeedButton1->Font->Color = (TColor)((~shBkColour->Brush->Color)&0x00FFFFFF);
cbSepScrWnds->Checked = config.ewsSEP_SCR_WNDS;
cbAsResourcemap->Checked = config.RegExtInfo[0].Set;
cbAsSC->Checked = config.RegExtInfo[1].Set;
cbAsSH->Checked = config.RegExtInfo[2].Set;
cbFolderShortcut->Checked = config.RegExtInfo[3].Set;
udMaxUndos->Position = config.maxUndos;
udMaxUndosClick(this,(TUDBtnType)NULL);
}
//---------------------------------------------------------------------------
AnsiString __fastcall Encode(AnsiString msg)
{
int I;
AnsiString Result;
char ch;
// Result = new AnsiString;
Result = "";
for (I = 1; I < msg.Length(); I++) {
ch = (msg)[I];
if (ch == ' ')
Result = Result + "+";
else if ((toupper(ch) < 'A') || (toupper(ch) > 'Z'))
Result = Result + "%" + IntToHex(ch, 2);
else
Result = Result + ch;
}
return(Result);
}
//---CLEAR-------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
unsigned char buff[8];
buff[0]=0x55;
buff[1]=0x55;
buff[2]=0x5c;
buff[3]=0x5d;
buff[4]=0x5e;
buff[5]=0x5f;
buff[6]=0x50;
buff[7]=0x51;
WritePort1(buff,8);
buff[0]=0x00; //claer buffer [0]
ReadPort2(buff,8);
Form1->Memo1->Lines->Add("CLEAR Result 0x"+IntToHex((__int64)buff[0], 2));
if (buff[0]==0xcc) Form1->Memo1->Lines->Add("Error ");
}
//---------------------------------------------------------------------------
int __fastcall TFormGrepStringsDialog::PutStringsInStringGrid(TStringList * ActiveList, AnsiString StrToSearch)
{
//TODO: Add your source code here
int i, j, Pos;
AnsiString Full, Address, Str;
// StringGrid->Rows->BeginUpdate();
ClearStringGrid();
if (ActiveList==NULL) return 0;
if (ActiveList->Count==0) return 0;
for (i=0, j=1; i<ActiveList->Count; i++)
{
Full=ActiveList->Strings[i];
Pos=Full.Pos(":");
Address=Full.SubString(0, Pos-1).TrimRight();
Str =Full.SubString(Pos+1, Full.Length()-Pos).Trim();
// if (StrToSearch!="")
{
Pos=Str.Pos(StrToSearch);
if (CheckBContainString->Checked==true) // Si puede estar en cualquier lugar
{
if (Pos==0) continue; // No la contiene, continuar.
}
else
{ // Tiene que estar al principio de la cadena
if (Pos !=1) continue; // No fue al principio, continuar.
}
}
StringGrid->RowCount=j+1;
StringGrid->Cells[0][j]=j;
if (CheckBHexAdress->Checked==true)
StringGrid->Cells[1][j]=IntToHex(StrToInt(Address), 8);
else
StringGrid->Cells[1][j]=Address;
StringGrid->Cells[2][j]=Str;
j++;
}
StatusBar->Panels->Items[2]->Text=" Count = "+ IntToStr(j-1) + " of " + IntToStr(i);
return j-1;
}
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
AnsiString temp_a;
unsigned char temp;
if(Edit1->Modified)
{
temp_a=(Edit1->Text);
//temp=*((char*)temp_a);
bukva=*(temp_a.c_str());
Edit2->Text=bukva;
Edit3->Text=IntToHex(bukva,2);
Edit1->SelectAll();
if(indikator==0)
{
int ptr;
ptr=((int)bukva)*6;
simbol_vert[0]=simbol_all[ptr];
ptr++;
simbol_vert[1]=simbol_all[ptr];
ptr++;
simbol_vert[2]=simbol_all[ptr];
ptr++;
simbol_vert[3]=simbol_all[ptr];
ptr++;
simbol_vert[4]=simbol_all[ptr];
ptr++;
simbol_vert[5]=simbol_all[ptr];
ptr++;
simbol_vert[6]=simbol_all[ptr];
ptr++;
simbol_vert[7]=simbol_all[ptr];
ptr++;
horiz_create();
qwads_drow();
}
}
}
