Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2018, 20:53   #1
Вася Иванов
 
Регистрация: 27.12.2015
Сообщений: 6
По умолчанию RichEdit Delphi

Всем привет. Есть вопрос...
Как можно привязать ProgressBar к прокрутке текста в RichEdit?
Есть код: SpinEdit1.Text:= IntToStr(RichEdit1.Lines.Count);
При открытии файла в SpinEdit имеется ТОЧНОЕ число строк текста.
Пытаюсь объявить в глобальную /n/ ОДНУ строку текста.
Чтобы потом попробовать крутить ProgressBar так:
ProgressBar1.Position:= n;
Не получается у меня строку в n загнать...
Как это сделать, дайте совет.
Возможно, есть другие пути решения... буду признателен за информацию.
Хочу, чтобы ProgressBar отображал прокрутку текста ТОЧНО... Но своих умений не хватает. Лопатил в Нете... тоже глухо.
Заранее спасибо.
Вася Иванов вне форума Ответить с цитированием
Старый 08.02.2018, 07:57   #2
Heneken87
Форумчанин
 
Регистрация: 27.04.2012
Сообщений: 219
По умолчанию

Попробуйте через ProgressBar1.position := GetScrollPos(RichEdit1.Handle, SB_VERT) где нибудь на таймере
ProgressBar1.max примерно (RichEdit1.Lines.Count * 13) - RichEdit1.height

P/S Только скролбар включите в RichEdit
Пишу много и развернуто
Heneken87 вне форума Ответить с цитированием
Старый 08.02.2018, 13:33   #3
Вася Иванов
 
Регистрация: 27.12.2015
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Heneken87 Посмотреть сообщение
Попробуйте через ProgressBar1.position := GetScrollPos(RichEdit1.Handle, SB_VERT) где нибудь на таймере
ProgressBar1.max примерно (RichEdit1.Lines.Count * 13) - RichEdit1.height

P/S Только скролбар включите в RichEdit
Спасибо.
Вася Иванов вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
RichEdit Delphi 7 Fotal Общие вопросы Delphi 0 15.02.2017 10:31
Delphi RichEdit River_ Помощь студентам 2 24.01.2016 17:03
RichEdit в Delphi !abiturient! Общие вопросы Delphi 3 21.02.2012 13:29
Richedit. Delphi Pudge Помощь студентам 2 14.02.2012 02:02
RichEdit в Delphi Valerich Помощь студентам 0 02.05.2009 13:53