Картинка в RichView как в qip

[Downloads]

как вариант, хотя мне кажется можно и лучше!

  public
    sourse_map: TBitmap;
    procedure paint_thumbnail;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 sourse_map.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  jpeg_map: TJpegImage;
begin
  jpeg_map := TJpegImage.Create;
  jpeg_map.LoadFromFile('img2.jpg');
  sourse_map := TBitmap.Create;
  sourse_map.Width := jpeg_map.Width;
  sourse_map.Height := jpeg_map.Height;
  sourse_map.Assign(jpeg_map);
  jpeg_map.Free;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  paint_thumbnail;
end;

procedure TForm1.paint_thumbnail;
var
  map: TBitmap;
  x1, y1, x2, y2: Integer;
  fact1, fact2: Real;
begin
  map := TBitmap.Create;
  // размеры исходного изображения
  x1 := sourse_map.Width;
  y1 := sourse_map.Height;
  //размеры области, в которую помещается изображение
  x2 := Image1.ClientWidth;
  y2 := Image1.ClientHeight;
  // вычисляем отношение размеров
  fact1 := x2 / x1;
  fact2 := y2 / y1;
  // берём наименьший коэффициент, чтобы на него домножить размеры исходного изображения
  If fact2 < fact1 then
    fact1 := fact2;
  // а дальше уже отображение
  Image1.Canvas.Brush.Color := clGray;
  Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
  // если картинка больше заданной области, то сжимаем её
  If fact1 < 1.0 then
    begin
      map.Width := Round(x1 * fact1);
      map.Height := Round(y1 * fact1);
      map.Canvas.StretchDraw(map.Canvas.ClipRect, sourse_map);
    end
  else // иначе - оставляем такой, какая она есть (чтобы не расширять)
    map.Assign(sourse_map);
  // отображаем:
  Image1.Canvas.Draw((Image1.ClientWidth - map.Width) div 2,
      (Image1.ClientHeight - map.Height) div 2, map);
  map.Free;
end;

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

тему зачем создал?

[IvaniuS]

что значит зачем, человек желает поделится своим кодингом + какбы намекает что, если есть другие варианты получше - то вперед, посоревнуемся

[Downloads]

хотелось бы узнать, как это сделать лучше и без серых полосок. чтобы выравнивался не в Timage и в bmp сразу же.
ну или хотябы в Timage только вот чтобы, без серых полос.

[Vapaamies]

На самом деле приведенное в первом посте решение -- быдлокод, тупо выводящий пятно картинки поверх поля текста, не учитывая сам текст, не обеспечивая обтекания и прочего.

Штатный способ -- выводить картинку средствами самого RichEdit, как описано в темах на StackOverflow -- раз и два.

[Downloads]

Vapaamies, надеюсь вас не затруднит вывести пример?
я не понял.. честно говоря.

[Downloads]

неужели мне никто не поможет?

[Downloads]

ну хоть кто нибудь. выручайте!

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

Первая ссылка, первый же ответ. Там четко расписано как можно объект вставить.
Да и сам RTF документ умеет содержать картинки, наверняка и отображать тоже.

В MS Word'е создайте RTF с картинкой и откройте в своем RichEdit'е.
Или же пишите наследник от TCustomRichEdit и дописывайте получение картинки и её отрисовку.

[Shouldercannon]

В RichView можно вставить картику через AddBulletEx или InsertPicture