Вставка фона в memo. Есть проблемы

[dolphin705]

Здравствуйте, я вставляю фоновую картинку в мемо

procedure TForm1.FormCreate(Sender: TObject);
var
 SplashImage: TImage;

begin
       SplashImage := TImage.Create(Memo1);
       SplashImage.Stretch := true;
       SplashImage.Align := alClient;

       SplashImage.Parent := Memo1;

       SplashImage.Picture.LoadFromFile('C:\0.bmp');
       SplashImage.Width:= Memo1.Width;
       SplashImage.Height:= Memo1.Height;
       SplashImage.Stretch:= True;

       Memo1.Brush.Bitmap:= SplashImage.Canvas.Brush.Bitmap;
end;

Проблема в том что когда начинаешь писать в таком мемо появляется белая строка в той части где вводятся символы! Как с этим бороться? Спасибо.

[Человек_Борща]

есть такая вещь как beginUpdate,EndUpdate, используй её в событии когда человек вводит текст. Иначе с каждой буквой картинка перересовывается.

[Aliens_wolfs]

Эта тема уже обсуждалась здесь, воспользуйтесь поисковиком.
Что бы не ломать голову скачайте компонент TRichView, он поддерживает графические параметры можно использовать за место TMemo http://www.trichview.com/rvfiles/richview.zip
А так для TМемо что бы отображал и текст и фоновую картинку нужно много чего написать, постоянным обновлением фона здесь не обойтись, будет все моргать и не корректно отображаться.

Вот пример четко выводит из TМемо можно и из любого другого контрола, текст поверх фоновой картинки правда на канву формы, может пригодиться.

   
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Image1: TImage;
    procedure Memo1Change(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    procedure MemoDraw;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//Процедура для перерисовывания
procedure TForm1.MemoDraw;
var
MemoCanvas: TCanvas;
BMP: TBitMap;
tBmp: TBitmap;
ARect: TRect;
begin
//Создаем канву для Memo
MemoCanvas:= TCanvas.Create;
//Создаем Bitmap для фоновой картинки
BMP:= TBitMap.Create;
//Создаем Bitmap для содержимого Memo
tBmp:= TBitmap.Create;
//Загружаем фоновую картинку
BMP.LoadFromFile('C:\0.bmp');
//Захватываем графический дескриптор Memo для канвы
MemoCanvas.Handle:=GetDC(Memo1.Handle);
//Устанавливаем размеры для содержимого Memo
tbmp.Width:= Memo1.Width;
tbmp.Height:= Memo1.Height;
ARect := Rect(0, 0, Memo1.Width, Memo1.Height);
//Копируем с Memo в Bitmap
tbmp.Canvas.CopyRect(ARect, MemoCanvas, ARect);
//Устанавливаем прозрачность для картинки содержимого Memo
//Нужно для того чтобы текст с мемо был виден вместе с фоном
tBMP.TransparentMode:= tmFixed;
tBMP.TransparentColor:= tBMP.Canvas.Pixels[0, 0];
tBMP.Transparent:= true;
//Выводим фон на канву формы
Canvas.StretchDraw(Rect(0, 0, Memo1.Width, Memo1.Height), BMP);
//Выводим поверх фона содержимое Memo на канву формы
Canvas.Draw(0,0, TBMP);
//Уничтожаем ресурсы чтобы не занимать память
BMP.Free;
 MemoCanvas.Free;
 tBMP.Free;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
//При вводе текста в Memo будет рисовать
MemoDraw;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
MemoDraw;
end;

[dolphin705]

Aliens_wolfs, твой пример у меня в d7 не работает(

beginUpdate,EndUpdate не помогло, помойму пример изначально неправельный тк. после этих дествий текст как бы пропадает за изображением.

Пробую искать альтернативные варианты

[Aliens_wolfs]

Это будет работать в любой версии Delphi. Еще раз взгляни на мое сообщение выше и код я кое что дописал.

[dolphin705]

Конешно прежде чем написать покопал интернет, но нужного так и не нашёл. Спасибо, очень интересное решение для данного вопроса! Есть над чем теперь поработать.