|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Цитата:
Но все равно надо считать: первый запуск, последующий ... А если не хватит для настройки термометра первого (одного) запуска? Я реализую обратную логику: если необходимо настроить приложение - вызывается и закрывается кликами полная форма (форма настроек). |
#17
|
||||
|
||||
Цитата:
Код:
procedure TForm1.CheckComboBoxSelect(Sender: TObject); var i: integer; begin with (Sender as TComboBox) do begin for i:= 0 to Items.Count-1 do if i <> ItemIndex then begin Items.Objects[i].Free(); Items.Objects[i]:= nil; end; if Items.Objects[ItemIndex] = nil then Items.Objects[ItemIndex]:= TObject.Create(); end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#18
|
|||
|
|||
Цитата:
Ну, считать-то как раз не нужно. Вы же куда-то сохраняете настройки? Есть сохраненные настройки - значит запуск не первый. И с повторной настройкой тоже вопрос решаемый. Хотя я, разумеется, не настаиваю ) |
#19
|
|||
|
|||
Цитата:
Код:
Check0: TBitmap; Check1: TBitmap; |
#20
|
|||
|
|||
Цитата:
Но дело в том, что я планировал адаптировать USB-термометр под мобильное устройство на Android'е. А там диалог ведется не через контекстное меню, а клики. Как оказалось, проблема адаптации термометра под Android намного серьезней, чем я предполагал. Поэтому сейчас занимаюсь причесыванием программы для Windows. |
#21
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 21.01.2016 в 20:10. |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
cadil (21.01.2016)
|
#22
|
|||
|
|||
Цитата:
Ну так и заведите в ini-файле еще один параметр - флаг "первый/не первый запуск". Я, конечно, зануда, но вот убейте не понимаю - что именно вы хотите сделать? Именно с точки зрения интерфейса, не надо мне про термометр, все равно не пойму ) Вам нужно один раз выполнить настройки и что дальше? Не пускать пользователя больше туда? Или не показывать настроечный интерфейс при очередном старте? Или что? |
#23
|
|||
|
|||
Цитата:
Код:
MainMenu1.Items[0].Items[n-1].Checked:=true; ... MainMenu1.Items[0].Items[n-1].Enabled:=AccessCom(PChar('COM'+Chr(n+$30))); Код:
for i:=1 to 4 do ChCBox.Items.Objects[i-1]:= nil; // for i:=1 to 4 do MainMenu1.Items[0].Items[i-1].Checked:=false; Последний раз редактировалось cadil, 24.01.2016 в 13:22. |