VPF::Как осуществить разлиновку строк в TMemo ?

timself

Дата 14.2.2007, 01:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Господа, прошу помощи в решении следующей задачи:

Как осуществить линовку строк (как в тетради для письма) в TMemo?
В пакете LMD есть TLMDMemo с линовкой, но у него один недостаток: прокрутка за scroll bar происходит не в реальном времени, а после того как отпустите кнопку мыши - это мне не подходит совершенно. Подскажите, как быть?

LMDшники для линовки использовали некую функцию, но ее выдернуть сам я не могу, там странная цепь наследований.
Вот прямая ссылка на файл LMDCustomMemo.pas . Именно в нем сидит свойство Lined.

Этот же файл есть в аттаче.

LMDCustomMemo.pas 18 kb.

Взгляните кто-нибудь, плиз.

Присоединённый файл ( Кол-во скачиваний: 5 )

LMDCustomMemo.rar 18,39 Kb

MetalFan

Дата 14.2.2007, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

timself, в Paint там рисуются твои полосочки...
кста, а где модуль с TLMDBaseEdit?

Код


procedure TLMDCustomMemo.Paint;
...
  try //these try ... finally block has been duplicated into CreateBack
    if Lined then
      begin
        y := FTextRect.Top + RowHeight ('');
        while y < FTextRect.Bottom do
          begin
            y := y - FLineStyle.Width div 2;
            myCanvas.Pen.Assign (FLineStyle);
            myCanvas.MoveTo (1, y-1);
            myCanvas.LineTo (FTextRect.Right {- FTextRect.Left} - 1, y-1);
            y := y + FLineStyle.Width div 2;
            inc(y, RowHeight (''));
          end;
      end;
  finally
  end;
...

только вот зачем try..finally, я не понял %)

--------------------

There are always someone smarter than you...

timself

Дата 15.2.2007, 00:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Вот файл TLMDBaseEdit.pas

Присоединённый файл ( Кол-во скачиваний: 3 )

LMDBaseEdit.rar 19,18 Kb

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