RichEdit - работа с Clipboard

[GAGARIN-NEW]

Имеется RichEdit
Как исрользкя clipBoard напрямую вставить в этот рич эдит картинку в определённое место (например из image1, imaglist1,или файла с диска?).
после вставки видна картинка (если выделить (нажать) то появляется сетка редактирования (ресайза картинки))

Яркие тому примеры Чаты : Net Assistence и SmashChat

Помогите пожалуйста !

[bill]

чтобы вывести картинку в определеное место думаю надо пользоваться процедурой paintto-

richedit1.paintto...

Скопировать в буфер картинку(или ее область) можно так:

image1.canvas.copyrect()...

Можно и так-

clipboard.assign(image1.picture);

[GAGARIN-NEW]

неа не канвасом , там копируется как обьект ...
Вот Вы не видели на некоторых форумах (в полях где сообщения пишут)
стоят продвинутые текстовые редакторы, и если в них вставить текст с форматированием то они и покажут его с форматированием.
Аналогично например в ICQ, если скопировать "Правильно" картинку то её можно вставить в поле ввода сообщения и пона автоматически отошлётся собеседнику ...
Вот если Вам не трудно и нтрересно вот ссылка на сайт программы SmashChat http://smashnet.narod.ru/soft.htm . я запускал прямо с скачянного архива .
Вот послав там смайлик можно увидеть его в поле ричэдит как обьект ....
его можно выделить, растянуть , сжать если ухватится мышкой за край смайла ... как утверждает автор эо делается с помощью clipboard тобиш буфера обмена , что добавляет недостаток программе тк она чистит буфер обмена при каждом добавлении смайла ...

[JTG]

Вот что-то есть, правда без редактирования мышью и т.д. http://articles.org.ru/cfaq/index.php?qid=238&catid=1

Ещё может быть OLE (?)

[GAGARIN-NEW]

Сообщение от JTG

Вот что-то есть, правда без редактирования мышью и т.д. http://articles.org.ru/cfaq/index.php?qid=238&catid=1

Ещё может быть OLE (?)

Ура ! мне и ненадо чтобы было редактирование , это только побочный эффект вставки с помощью буфера !
СПААААСИБООО ! ОЧень пригодилось !
Только чтото она не работает .... есть ошибки ........((((((((((((

вот в DelphiWorld нашол ещё 2 примера и оба не работают ....

у каво работает синьте плиз исходничек ....

[GAGARIN-NEW]

В вложении есть нужный юнит (незабываем его добавлять в папку с проектом и дописывать )

А применять так :

procedure TForm1.Button1Click(Sender: TObject);// Это из "готовой" картинки на форме
begin
InsertBitmapToRE(RichEdit1.Handle,Image1.Picture.Bitmap.Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);// это загружая из файла
var
bmp:TBitmap;
begin
if (not OpenPictureDialog1.Execute) then exit;
bmp:=TBitmap.Create;
try
   bmp.LoadFromFile(OpenPictureDialog1.Filename);
   InsertBitmapToRE(RichEdit1.Handle,bmp.Handle);
finally
   bmp.Free
end
end;

Модераторам - тему можно закрывать.