Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как выделить строку в Memo1 маской?

Автор: EntityFx 24.4.2009, 16:59

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

Автор: Akella 24.4.2009, 19:15

Так это ж не memo, а ListBox, кажется мне.

Автор: EntityFx 24.4.2009, 20:40

Цитата(Akella @ 24.4.2009, 19:15

)

Так это ж не memo, а ListBox, кажется мне.

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

Автор: Alexeis 24.4.2009, 20:50

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

Автор: EntityFx 24.4.2009, 21:34

Нет

Автор: EntityFx 24.4.2009, 23:47

А может подскажете другой компонент, который это позволяет? smile

Автор: Данкинг 24.4.2009, 23:56

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

Автор: Akella 25.4.2009, 00:00

Нарисовать зелёную линию в TMemo.

Автор: Данкинг 25.4.2009, 00:07

Цитата(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;

Автор: EntityFx 25.4.2009, 00:27

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

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

Автор: EntityFx 25.4.2009, 00:53

Ещё я бы хотел узнать, как можно узнать позицию курсора в Memo. Там есть свойства TMemo.CaretPos.X и TMemo.CaretPos.Y, но они неккоректно отображают позицию (при большом количестве строк числа отрицательные {даже когда менее 10000 строк}, либо при выделенном тексте неправильные значения).