[an error occurred while processing this directive]
Как создать кнопки - пример
(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)

миниатюрный аудио-видеорекордер mAVR

Отправлено iosifk. 01 сентября 2006 г. 13:41
В ответ на: "Рисую" осцилограф на экране PC. как сделать красиво.правильно? отправлено misyachniy 01 сентября 2006 г. 13:34

// пример создания кнопок, символизирыющих несколько микросхем в JTAG-цепочеке
int Btns = StrToInt(Edit55->Text);

if(BtnsDone!=0)
{
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);

SetWindowLong(psg[i]->Handle,GWL_STYLE,GetWindowLong(psg[i]->Handle,GWL_STYLE)|BS_MULTILINE);
psg[i]->Caption="Chip "+IntToStr(i) + "\nLoaded - ****\nManuf - ****\nIr Scan - ****\nMy Regs - ***";

psg[i]->Align = alNone;
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;


скоро все это выложу. Надо только причесать и доделать статью...

Составить ответ  |||  Конференция  |||  Архив

Ответы


Отправка ответа
Имя (обязательно): 
Пароль: 
E-mail: 

Тема (обязательно):
Сообщение:

Ссылка на URL: 
Название ссылки: 
URL изображения: 


Rambler's Top100 Рейтинг@Mail.ru
Перейти к списку ответов  |||  Конференция  |||  Архив  |||  Главная страница  |||  Содержание