![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 06.09.2008
Сообщений: 156
|
![]()
Помогите пожалуйста сделать блокнот на паскале, который чисто открывает текстовые файлы (*.txt), позволяет выделять и редактировать текст при помощи мыши, и записывать в файл (*.txt).
Ужас, как я устал от тупизны...
|
![]() |
![]() |
![]() |
#2 |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
![]()
Это всмысле на TurboPascal??? Если так, то у тех, кто это задал есть чувство юмора
![]() Только сразу скажу, сделать, чтобы паскаль в графическом режиме на любом компьютере отображал кирилицу - это проблематично. Ну а если текст будет на латинице - тогда это будет не очень красиво.
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 06.09.2008
Сообщений: 156
|
![]()
NeshSoft
Надо чтобы программа работала в текстовом режиме без использования модуля graph, с использованием модулей crt и dos. Сделать просто программу, чтобы она открывала текстовый файл, позволяла выделять текст мышью и удалять при помощи клавиши Del или текст по одной букве при помощи BackSpace и редактировать его, и сохраняла файл, всяких наворотов блокнота делать не надо. PS. На делфи я за 5 минут её сделаю, а вот на паскале затрудняюсь.
Ужас, как я устал от тупизны...
Последний раз редактировалось rainbow; 27.02.2009 в 09:51. |
![]() |
![]() |
![]() |
#4 | |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
![]() Цитата:
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
Последний раз редактировалось NeshSoft; 27.02.2009 в 12:58. |
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 06.09.2008
Сообщений: 156
|
![]()
По идее мне надо сделать совсем другую программу, исходники этой программы мне нужны, чтобы научиться работать с текстовыми файлами, и мышью. Я нигде никакого материала найти не могу. Я сделал выходной файл, но он не читаем, надо чтобы прога в паскале сохраняла в txt, в читаемом виде Lister'а в Total Commander, и выделение мышью тоже не могу сделать, все везде во всех учебных материалах только коротко описано.
Ужас, как я устал от тупизны...
Последний раз редактировалось rainbow; 27.02.2009 в 14:55. |
![]() |
![]() |
![]() |
#6 |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
![]()
Работа с русским языком в паскале описана здесь: http://pasc.al.ru/www/exampl4.htm , собственно может быть этот пример поможет во всем, кроме мыши. А с мышью работа обстоит следущим образом: получаем координаты мыши, состояния нажатия кнопок, если нажата левая кнопка и мышь двигается, то "выделяем" текст, по которому движется мышь, выделять можно - просто менять фон под текстом. Координаты мыши можно получить следующим образом:
Код:
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
Последний раз редактировалось NeshSoft; 27.02.2009 в 17:30. |
![]() |
![]() |
![]() |
#7 | |
Форумчанин
Регистрация: 06.09.2008
Сообщений: 156
|
![]()
NeshSoft спасибо, разобрался, только
Цитата:
Добавлено через 10 мин: А понял, После TextColor(14+128) надо устанавливать текст по умолчанию TextColor(15) иначе при вызове Clrscr он весь экран заливает этим фоном.
Ужас, как я устал от тупизны...
Последний раз редактировалось rainbow; 27.02.2009 в 20:03. |
|
![]() |
![]() |
![]() |
#8 |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
![]()
TextBackground, он изменяет фон вновь печатаемого текста, т.е. при выделении, нужно изменить цвет фона, и напечатать эти символы ещё раз. А чтобы снять выделение - перепечатать снова, но уже с черным фоном
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
|
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 06.09.2008
Сообщений: 156
|
![]()
Ага, а как увязать координаты курсора и положения текста они же разные? Например сделать так чтобы текст бегал за курсором.
Ужас, как я устал от тупизны...
|
![]() |
![]() |
![]() |
#10 | |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
![]() Цитата:
Вообще, лучше сделать прогу, чтобы она в цикле repeat выводила координаты мыши, и чтобы был напечан какой-нибудь текст, затем водить мышью по тексту, и смотреть, как меняются координаты.
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
|
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блокнот | azazelpj | Фриланс | 2 | 08.12.2008 13:38 |
Сетевой блокнот | Viteef | Софт | 5 | 20.04.2008 20:40 |
Delphi + блокнот (txt) | R11 | Помощь студентам | 8 | 25.02.2008 15:14 |
Блокнот в делфи. | KORT | Помощь студентам | 11 | 08.07.2007 18:05 |
Блокнот by GN | GN_ | Софт | 11 | 09.06.2007 19:43 |