Как нарисовать что-нибудь на TMemo

Delphi , Компоненты и Классы , TMemo и TRichEdit

Для рисования на поверхности TMemo необходимо создать создать собственный компонент, наследованный от TMemo и переопределить в нём рисование. Примерно так:

type
  TMyMemo = class(TMemo)
  protected
    procedure WMPaint(var message: TWMPaint); message WM_PAINT;
end;

А теперь добавьте реализацию этой процедуры:

procedure TMyMemo.WMPaint(var message: TWMPaint);
var
  MCanvas: TControlCanvas;
  DrawBounds : TRect;
begin
  inherited;
  MCanvas:=TControlCanvas.Create;
  // Работаем с временной записью TRect.
  DrawBounds := ClientRect;
  try
    MCanvas.Control:=Self;
    with MCanvas do
    begin
      Brush.Color := clBtnFace;
      FrameRect( DrawBounds );
      InflateRect( DrawBounds, -1, -1);
      FrameRect( DrawBounds );
      FillRect ( DrawBounds );
      MoveTo ( 33, 0 );
      Brush.Color := clWhite;
      LineTo ( 33, ClientHeight );
      PaintImages;
    end;
  finally
    MCanvas.Free;
  end;
end;

Процедура PaintImages рисует картинки на канвасе Memo.

procedure TMyMemo.PaintImages;
var
  MCanvas: TControlCanvas;
  DrawBounds : TRect;
  i, j : Integer;
  OriginalRegion : HRGN;
  ControlDC : HDC;
begin
  MCanvas:=TControlCanvas.Create;
  // Работаем с временной записью TRect.
  DrawBounds := ClientRect;
  try
    MCanvas.Control:=Self;
    ControlDC := GetDC(Handle);
    MCanvas.Draw(0, 1, Application.Icon);
  finally
    MCanvas.Free;
  end;
end;

Теперь мы имеем собственноручно нарисованный memo.

Прекрасный пост!

Вы правы, чтобы нарисовать что-то на TMemo, вам нужно создать свой собственный компонент, который наследуется от TMemo, и переопределить процедуру рисования.

Код, предоставленный вами, является хорошим стартовым пунктом, но есть некоторые минорные проблемы с ним. Давайте пройдемся по нему шаг за шагом:

Создание собственного компонента

type
  TMyMemo = class(TMemo)
  protected
    procedure WMPaint(var message: TWMPaint); message WM_PAINT;
  end;

Это объявление вашего собственного компонента, TMyMemo, который наследуется от TMemo.

Переопределение процедуры рисования

procedure TMyMemo.WMPaint(var message: TWMPaint);
var
  MCanvas: TControlCanvas;
  DrawBounds: TRect;
begin
  inherited;
  MCanvas := TControlCanvas.Create;
   // ...
end;

Здесь вы переопределяете процедуру WMPaint, которая вызывается, когда контроль necesita быть перерисован. Вы создаете временный объект TControlCanvas и используете его для рисования на мемо.

Рисование на канвасе

MCanvas.Control := Self;
with MCanvas do
begin
  Brush.Color := clBtnFace;
  FrameRect(DrawBounds);
  InflateRect(DrawBounds, -1, -1);
  FrameRect(DrawBounds);
  FillRect(DrawBounds);
  MoveTo(33, 0);
  Brush.Color := clWhite;
  LineTo(33, ClientHeight);
end;

Код устанавливает цвет кисти в светло-синий (clBtnFace), рисует рамку вокруг мемо с помощью FrameRect, а затем заливает ее тем же цветом. Он также рисует белую линию от (33,0) до (33,ClientHeight).

Рисование изображений

procedure TMyMemo.PaintImages;
var
  MCanvas: TControlCanvas;
  DrawBounds: TRect;
  i, j: Integer;
  OriginalRegion: HRGN;
  ControlDC: HDC;
begin
  MCanvas := TControlCanvas.Create;
   // ...
end;

Эта процедура supposed рисовать изображения на мемо, но она неproperly реализована. Вам нужно добавить более кода здесь, чтобы действительно рисовать изображения.

Освобождение ресурсов

finally
  MCanvas.Free;
end;

Не забывайте освобождать временные объекты, которые вы создаете!

Некоторые предложения:

• Вместо использования TControlCanvas, рассмотрите использование объекта TPaint, который специально предназначен для рисования.
• Вы можете хотеть разделить код рисования на свой собственный процедуру или метод, а не иметь его все в одном месте.
• Если вы будете рисовать изображения, убедитесь, что правильно обрабатывает ошибки и исключения.

В целом, ваш код выглядит как хороший стартовый пункт. С некоторыми коррекциями и улучшениями вы должны сможете создать собственный компонент TMemo с вашими желаемыми возможностями рисования!

Нарисовать что-нибудь на TMemo можно создавая свой компонент, наследуя от TMemo и переопределяя в нем рисование.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TMemo и TRichEdit ::