IJCuper Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Ugnetatel Попроще напишите, чуток подетальнее что и в каком порядке выполняется.   Желательно с примером вида: CheckBox1 - отмечен, в SPanel1.Caption текст такой-то. Отметили CheckBox1 и CheckBox2 - текст такой-то Сняли CheckBox1 и отметили Checkbox2 - текст такой-то чтобы более менее суть была видна.. Реализовать изменяющийся текст sPanel.Caption в зависимости от установленных флажков? Причем текст должен быть составной, каждый фрагмент текста добавляется при включении того или иного CheckBox-а?   Или я неверно понял постановку вопроса.. Всего записей: 664 | Зарегистр. 07-07-2004 | Отправлено: 21:21 17-02-2014

Ugnetatel Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Ознакамливаюсь, читаю..   Т.к. я относительно недавно начал изучение, то ответ напишу завтра, т.к.   мне сложно сосредоточиться.   Часть кода у меня уже просто написана, поделюсь комментариями завтра, а может ещё чем-нибудь))...   Добавлено: Принял во внимание пост A_V, если честно, то не разобрался. Слаб для этого пока ещё(со временем станет понятно).   Написал и не совсем подумал про Код: sPanel2.Caption:='Описание 1' идет в sPanel3.Caption:='Описание 1' Слишком запутанно вышло, мысли новичка, что сделать         Подскажите пожалуйста как читать и выводить из текстового файла(name.txt) строки следующим образом.   Всего предполагается 30 sCheckBox, возьму с запасом 200 sCheckBox   Когда sCheckBox1 отмечен(cbChecked) в sPanel1.Caption:='заносится строка 1 из name.txt' Если снято с него выделение(cbUnChecked) в sPanel1.Caption:='Пусто' И т.д.   Когда к примеру: sCheckBox50, sCheckBox49, sCheckBox13, sCheckBox25 отмечены(cbChecked), то из name.txt в sPanel1.Caption:='заносится строка 50 переход на новую строку, строка 49 переход на новую строку, строка 13 переход на новую строку,   строка 25 переход на новую строку'   Если с sCheckBox49, sCheckBox13 сняли выделение, то из name.txt в sPanel1.Caption:='заносится строка 50 переход на новую строку,   строка 25 переход на новую строку'   Замечательно, если будет полный пример.         Всего записей: 31 | Зарегистр. 06-01-2014 | Отправлено: 23:14 17-02-2014 | Исправлено: Ugnetatel, 04:22 18-02-2014

IJCuper Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Ну вроде более менее прояснилось. Тогда можно попробовать такой код Код:   Const   CheckBoxPrefix = 'CheckBox'; var   Form1: TForm1;   CheckBoxCaptions: TStringList;   PanelCaption: TStringList; implementation   {$R *.dfm}   procedure TForm1.CheckBoxClick(Sender: TObject); var   P: Integer;   Num: Word; begin   try     Num := StrToInt( StringReplace((Sender as TCheckBox).Name, CheckBoxPrefix, '', []) ) - 1;     if (Sender as TCheckBox).Checked       then PanelCaption.Add(CheckBoxCaptions.Strings[Num])       else         begin           P := PanelCaption.IndexOf(CheckBoxCaptions.Strings[Num]);           if not (P < 0) then PanelCaption.Delete(P);         end;     Panel1.Caption := PanelCaption.Text;   finally     // если ошибка преобразования StrToInt, значит где-то беда с наименованиями CheckBox-ов     // и надо как-то это отработать, например выдать сообщение   end; end;   procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin    PanelCaption.Free;    CheckBoxCaptions.Free; end;   procedure TForm1.FormCreate(Sender: TObject); begin   CheckBoxCaptions := TStringList.Create;   PanelCaption := TStringList.Create;   PanelCaption.QuoteChar := #13;   CheckBoxCaptions.LoadFromFile('checkboxcaptions.txt'); end;   В директории с программой должен лежать файл checkboxcaptions.txt, каждая строка которого это соответствующий текст для вывода в Panel при включении CheckBox-а. Да, CheckBoxClick надо назначить всем CheckBox-ам на событие onClick.   Всего записей: 664 | Зарегистр. 07-07-2004 | Отправлено: 09:12 18-02-2014 | Исправлено: IJCuper, 09:14 18-02-2014

IJCuper Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Ugnetatel Так надо было в инспекторе объектов создать для Form1 создать события onCreate (выполняется при создании формы, типа при запуске приложения) и onClose (при закрытии формы, ну в твоем случае при закрытии приложения) и в них поместить приведенный мной код Всего записей: 664 | Зарегистр. 07-07-2004 | Отправлено: 11:38 18-02-2014

IJCuper Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Ugnetatel ну в старых версиях текстовые файлы предполагали такую кодировку, в современных (2009 и выше) уже unicode по умолчанию. мм.. в какой объект картинку вставлять? в Caption объекта TPanel? Всего записей: 664 | Зарегистр. 07-07-2004 | Отправлено: 13:04 18-02-2014

Ugnetatel Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору В современных (2009 и выше) уже unicode по умолчанию - ясно, мне больше 7 нравится(не знаю почему).   В Caption объекта TPanel? Да, точно, я просто тащусь Всего записей: 31 | Зарегистр. 06-01-2014 | Отправлено: 13:07 18-02-2014

IJCuper Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Ugnetatel Цитата: объекта TPanel с трудом но можно.. только стоит ли? Надо будет напрямую рисовать на объекте Panel, сложно и муторно..может как-то задачу по другому сформулировать? Всего записей: 664 | Зарегистр. 07-07-2004 | Отправлено: 13:17 18-02-2014

Ugnetatel Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Давай показывай , у меня не получилось, ошибки при компиляции, формат png. Всего записей: 31 | Зарегистр. 06-01-2014 | Отправлено: 13:43 18-02-2014

IJCuper Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору A_V Как я понял, задача стояла вывести изображение перед каждой строчкой многострочного caption-а..   Конечно, если нужно одно изображение  - то TImage самое то.. ну или TPNGImage как альтернатива Всего записей: 664 | Зарегистр. 07-07-2004 | Отправлено: 14:38 18-02-2014

Страницы: 1 2

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » CheckBox и его отметка(cbChecked и cbUnChecked)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование