TLMDRichEdit InsertGraphic background color

gregory pannet · June 2024

Good morning,

Problem insert a png image with its transparency or to modify the background color.

procedure TForm1.Button1Click(Sender: TObject);

var

Picture: TPicture;

begin

Picture := TPicture.Create;

Picture.LoadFromFile('D:\Embarcadero\Dragon.png');

LMDRichEdit.InsertGraphic(Picture.Graphic);

Picture.Free;

end;

Thanks a lot

gregory pannet · June 2024

problem solved

procedure TForm1.Button1Click(Sender: TObject);

var

Picture: TPicture;

bmp: Tbitmap;

begin

Picture := TPicture.Create;

Picture.LoadFromFile('D:\Embarcadero\Dragon.png');

bmp := Tbitmap.Create;

bmp.Assign(Picture.Graphic);

bmp.Transparent := True;

bmp.TransparentColor := clwhite;

bmp.Canvas.Brush.Color := clwhite;

bmp.Canvas.FillRect(Rect(0, 0, bmp.Width, bmp.Height));

bmp.Canvas.Draw(0, 0, Picture.Graphic);

LMDRichEdit.InsertBitmap(bmp);

bmp.Free;

Picture.Free;

end;

Comments