[cadil]

Сообщение от Rosenkrantz

... Откройте форму настроек при первом запуске программы, при последующих запусках не открывайте и ничего не нужно прятать, нет? ....

Идея хорошая. Спасибо!
Но все равно надо считать: первый запуск, последующий ... А если не хватит для настройки термометра первого (одного) запуска?
Я реализую обратную логику: если необходимо настроить приложение - вызывается и закрывается кликами полная форма (форма настроек).

[Alegun]

Сообщение от cadil

Подкорректировал высланный проект под свои задачи - в итоговую строку должно вставляться ОДНО значение из выпадающего списка и оставаться ОДИН флажок в списке...

Замените в сборке процедуру выбора на

Код:

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;

[Rosenkrantz]

Сообщение от cadil

Идея хорошая. Спасибо!
Но все равно надо считать: первый запуск, последующий ... А если не хватит для настройки термометра первого (одного) запуска?

Ну, считать-то как раз не нужно. Вы же куда-то сохраняете настройки? Есть сохраненные настройки - значит запуск не первый. И с повторной настройкой тоже вопрос решаемый. Хотя я, разумеется, не настаиваю )

[cadil]

Сообщение от Alegun

Напрямую не выйдет т.к. итемы у ComboBox - это обычные строки, но туда можно внедрить рисунок, вот пример псевдо CheckComboBox

Alegun! Подскажи, пожалуйста, как перенести картинки из твоего проекта в свой?

Код:

    Check0: TBitmap;
    Check1: TBitmap;

[cadil]

Сообщение от Rosenkrantz

... Вы же куда-то сохраняете настройки? Есть сохраненные настройки - значит запуск не первый. И с повторной настройкой тоже вопрос решаемый. Хотя я, разумеется, не настаиваю )

Настройки сохраняются, как общепринято, в ini-файле. Безусловно, контекстное меню - идеальное решение для Windows-платформы в моем случае. Тут вопросов нет.
Но дело в том, что я планировал адаптировать USB-термометр под мобильное устройство на Android'е. А там диалог ведется не через контекстное меню, а клики. Как оказалось, проблема адаптации термометра под Android намного серьезней, чем я предполагал. Поэтому сейчас занимаюсь причесыванием программы для Windows.

[Alegun]

Сообщение от cadil

...как перенести картинки из твоего проекта в свой?

Да как обычно, рисунки грузятся из ресурса, значит нужно перетянуть к себе файл *.res, отличный по-названию от имени проекта и в *.dpr указать директивой {$R название файла}, а чтоб их поменять на другие, можно пересобрать его содержимое в имидж эдиторе

[Rosenkrantz]

Сообщение от cadil

Настройки сохраняются, как общепринято, в ini-файле.

Ну так и заведите в ini-файле еще один параметр - флаг "первый/не первый запуск".

Я, конечно, зануда, но вот убейте не понимаю - что именно вы хотите сделать? Именно с точки зрения интерфейса, не надо мне про термометр, все равно не пойму )

Вам нужно один раз выполнить настройки и что дальше? Не пускать пользователя больше туда? Или не показывать настроечный интерфейс при очередном старте? Или что?

[cadil]

Сообщение от Alegun

Да как обычно, рисунки грузятся из ресурса, значит нужно перетянуть к себе файл *.res, отличный по-названию от имени проекта и в *.dpr указать директивой {$R название файла}, а чтоб их поменять на другие, можно пересобрать его содержимое в имидж эдиторе

Помогите, пожалуйста, записать следующие две команды с MainMenu1 применительно к ChCBox? Напомню, что ChCBox: TComboBox, но со вставкой рисунка - виртуальный CheckComboBox (см. по теме выше, стр.1).

Код:

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;

Заранее - спасибо!