[an error occurred while processing this directive]
|
// пример создания кнопок, символизирыющих несколько микросхем в JTAG-цепочеке
int Btns = StrToInt(Edit55->Text);
if(BtnsDone!=0) // SetWindowLong(psg[i]->Handle,GWL_STYLE,GetWindowLong(psg[i]->Handle,GWL_STYLE)|BS_MULTILINE); psg[i]->Align = alNone; */
{
for(int i=0; i
delete psg[i];
}
}
for(int i=0; i
psg[i] = new TButton(this);
psg[i]->Parent = Form1->GroupBox9;
psg[i]->Name = AnsiString("pts") + IntToStr(i);
psg[i]->Caption="Chip "+IntToStr(i) + "\nLoaded - ****\nManuf - ****\nIr Scan - ****\nMy Regs - ***";
psg[i]->Height = 80;
psg[i]->Width = (Form1->GroupBox9->Width-10)/Btns;
psg[i]->Top = 20;
psg[i]->Left = 5 + (psg[i]->Width)*i;
psg[i]->ShowHint=true;
psg[i]->Hint="Chip "+IntToStr(i) + "\nLoaded - ****\nManuf - ****\nIr Scan - ****\nMy Regs - ***";
/*
psg[i]->Tag = i;
//-----------------------------------------------------------
psg[i]->OnClick = FloorPlanForm->Button1Click;
}
BtnsDone = Btns;
скоро все это выложу. Надо только причесать и доделать статью...
Ответы
Перейти к списку ответов
|||
Конференция
|||
Архив
|||
Главная страница
|||
Содержание