Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как выделить строку в Memo1 маской? 
:(
    Опции темы
EntityFx
Дата 24.4.2009, 16:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 30.3.2009

Репутация: нет
Всего: нет



Подскажите, как выделить строку в Memo1 маской. См. картинку.

Присоединённый файл ( Кол-во скачиваний: 25 )
Присоединённый файл  Memo1_line_masked.PNG 4,35 Kb
PM MAIL WWW ICQ Jabber   Вверх
Akella
Дата 24.4.2009, 19:15 (ссылка) |  (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



Так это ж не memo, а ListBox, кажется мне.
PM MAIL   Вверх
EntityFx
Дата 24.4.2009, 20:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 30.3.2009

Репутация: нет
Всего: нет



Цитата(Akella @  24.4.2009,  19:15 Найти цитируемый пост)
Так это ж не memo, а ListBox, кажется мне.

Не, ListBox - это список. А у меня текстовое поле Memo. 

PM MAIL WWW ICQ Jabber   Вверх
Alexeis
Дата 24.4.2009, 20:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



EntityFx, в строке за текстом идут пробелы?


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
EntityFx
Дата 24.4.2009, 21:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 30.3.2009

Репутация: нет
Всего: нет



Нет
PM MAIL WWW ICQ Jabber   Вверх
EntityFx
  Дата 24.4.2009, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 30.3.2009

Репутация: нет
Всего: нет



А может подскажете другой компонент, который это позволяет? smile 
PM MAIL WWW ICQ Jabber   Вверх
Данкинг
Дата 24.4.2009, 23:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130



Я вообще не понял, что именно требуется сделать. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Akella
Дата 25.4.2009, 00:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



Нарисовать зелёную линию в TMemo.
PM MAIL   Вверх
Данкинг
Дата 25.4.2009, 00:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130



Цитата(Akella @ 25.4.2009,  01:00)
Нарисовать зелёную линию в TMemo.

Ну а почему действительно листбокс для этого не заюзать? smile 

Нашёл пример какой-то, не знаю, что он делает:  smile 
Код

procedure TfrmMain.Memo1Click(Sender: TObject);
 var
   Line: Integer;
 begin
   with (Sender as TMemo) do
   begin
     Line      := Perform(EM_LINEFROMCHAR, SelStart, 0);
     SelStart  := Perform(EM_LINEINDEX, Line, 0);
     SelLength := Length(Lines[Line]);
   end;
 end;



Это сообщение отредактировал(а) Данкинг - 25.4.2009, 00:10


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
EntityFx
Дата 25.4.2009, 00:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 30.3.2009

Репутация: нет
Всего: нет



Вот я и сам думаю как можно нарисовать линию. Это я тут транслятор ассемблера (абстрактного процессора) делаю и выделеная строка - текущая обрабатываемая строка.

Добавлено @ 00:30
В общем (на картинке скриншот), я сделал это пока выделением текста, но как видно, он выделяет символы в строке. См. картинку.

Это сообщение отредактировал(а) EntityFx - 25.4.2009, 00:38

Присоединённый файл ( Кол-во скачиваний: 18 )
Присоединённый файл  Screenshot.PNG 43,18 Kb
PM MAIL WWW ICQ Jabber   Вверх
EntityFx
Дата 25.4.2009, 00:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 30.3.2009

Репутация: нет
Всего: нет



Ещё я бы хотел узнать, как можно узнать позицию курсора в Memo. Там есть свойства TMemo.CaretPos.X и TMemo.CaretPos.Y, но они неккоректно отображают позицию (при большом количестве строк числа отрицательные {даже когда менее 10000 строк}, либо при выделенном тексте неправильные значения).
PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0755 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.