Большое спасибо за помощь!
Решил через формат rtf, там можно просто задать скалирование отображаемой картинки.
Всего-то добавить 2 команды \picscalex и \picscaley, а саму картинку делать с размером достаточного качества.
Не претендую на качество кода, однако, работает, вдруг кому понадобится
Как вставить bmp картинку в rtf разметку
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
function TdlgOutTemplateCreate.ConvertBitmatToEMF(ABMP: TBitmap; AScale: Integer): String;
var
MF: TMetafile;
MFCanvas: TMetafileCanvas;
aHDC: HDC;
MS: TMemoryStream;
hexpict,S: String;
i: Integer;
B: Byte;
begin
try
hexpict := '';
MF := TMetafile.Create;
MF.Width := ABMP.Width;
MF.Height := ABMP.Height;
MF.Enhanced := True;
aHDC := CreateDC('DISPLAY', nil, nil, nil);
MFCanvas := TMetafileCanvas.Create(MF, aHDC);
try
MFCanvas.Draw(0,0,ABMP);
finally
MFCanvas.Free;
end;
MS := TMemoryStream.Create;
MF.SaveToStream(MS);
MS.Position := 0;
for i := 0 to MS.Size-1 do
begin
MS.Read(B,1);
hexpict := hexpict + IntToHex(Integer(B), 2);
end;
S := ''; if not (AScale in [0,100]) then S := '\picscalex'+IntToStr(AScale)+'\picscaley'+IntToStr(AScale);
Result := '{\pict'+S+'\emfblip '+hexpict+'}';
finally
MS.Position := 0;
FreeAndNil(MF);
FreeAndNil(MS);
end;
end;
//возвращает готовый тег для вставки картинки в текст как отдельного абзаца
