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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.02.2018, 01:27   #1
cyberdev
Форумчанин
 
Аватар для cyberdev
 
Регистрация: 10.10.2013
Сообщений: 150
По умолчанию Добавление прокрутки и показ курсора в Мемо

Нужно добавить вертикальную полосу прокрутки в Мемо, если текст занимает больше места по вертикали нежели размер самого Мемо.
Можно сделать так:
Общая высота текста = Memo.Lines.Count * (высота строки + расстояние между строками)
как-то так... Но как получить эти величины достоверными, в пикселях?

И второе. После программного перемещения курсора за пределы Мемо нужно показать его программно изменив положение прокрутки по вертикали.
Сайт о программировании и трехмерной графике - cybersite.ucoz.net

Последний раз редактировалось cyberdev; 23.02.2018 в 03:16.
cyberdev вне форума Ответить с цитированием
Старый 23.02.2018, 09:02   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
как-то так... Но как получить эти величины достоверными, в пикселях?
memo.Canvas....
TextExtent /TextWidth /TextHeight и прочий функционал TCanvas
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 23.02.2018, 12:26   #3
cyberdev
Форумчанин
 
Аватар для cyberdev
 
Регистрация: 10.10.2013
Сообщений: 150
По умолчанию

Цитата:
Сообщение от evg_m Посмотреть сообщение
memo.Canvas....
TextExtent /TextWidth /TextHeight и прочий функционал TCanvas
Работает, как для вертикальной, так и для горизонтальной прокрутки. Спасибо!

Теперь, осталось решить вторую задачу. При изменении курсора с помощью CaretРos, он может попасть за пределы видимой области текста Мемо. Прокрутка при этом никак не реагирует. Как заставить прокрутку Мемо показывать курсор?
Сайт о программировании и трехмерной графике - cybersite.ucoz.net
cyberdev вне форума Ответить с цитированием
Старый 23.02.2018, 12:46   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Memo1.SelLength:=0;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 23.02.2018, 13:24   #5
cyberdev
Форумчанин
 
Аватар для cyberdev
 
Регистрация: 10.10.2013
Сообщений: 150
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Memo1.SelLength:=0;
Ну теперь Мемо станет более функциональным Спасибо!
Сайт о программировании и трехмерной графике - cybersite.ucoz.net
cyberdev вне форума Ответить с цитированием
Старый 23.02.2018, 14:40   #6
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
отображение данных БД типа мемо в поле мемо brutalis БД в Delphi 5 13.05.2012 18:14
Добавление в столбик в мемо Миледи Общие вопросы Delphi 2 18.04.2012 17:37
Как из простого мемо записать в поле БД Access в поле тоже типа мемо с сохранением всех абзацев пробелов Speeker БД в Delphi 2 28.11.2011 16:22
Добавление курсора мыши к скриншоту Pavel_S Мультимедиа в Delphi 2 20.04.2011 20:46
Как скопировать текст из мемо одной формы в мемо другой CraZZy RabbIt Общие вопросы Delphi 4 27.02.2009 00:01