Memo yada Richedit'e Resim ekleme

[exterminater]

Arkadaşlar Memo yada Richedit'e nasıl Resim ekliyebilirim. Bunu freame yöntemiyle string gride smile resimler atabiliyorum fakat browser dan seçilen resimleri nasıl ekleyebilirim. MS Word de eklediğimiz gibi.

[mrmarman]

- Bildiğim kadarıyla, delphi ile gelen standart memo ve richedit'e resim eklenemiyor... Üçüncü parti bir bileşene ihtiyacınız var...

[DotCom]

Arkadaşlar Memo yada Richedit'e nasıl Resim ekliyebilirim. Bunu freame yöntemiyle string gride smile resimler atabiliyorum fakat browser dan seçilen resimleri nasıl ekleyebilirim. MS Word de eklediğimiz gibi.

sanırım notepad yapıyosun ve resim eklemeye çalışıyosun. ve yine tahmin tabiki , ege üniversitesinde okuyosun ve bu ödevi hakan hoca verdi ,

neyse ;

RxRichedit icin soyle bir kod var belki fikir babından isinize yarar...

Ayrica runtime'de bir yerden kopyalşadıgınz resmi richedit'in icine yapitistirabildiginize gore. Bu isi Kuri_TLJ'nin dedigi gibi kod ile yapmak da bir cozumdur.

Kod:
// Example to insert image from Image1 into RxRichEdit1
procedure TForm1.Button1Click(Sender: TObject);
var
SS: TStringStream;
BMP: TBitmap;
begin
BMP := TBitmap.Create;
BMP := Image1.Picture.Bitmap;
SS := TStringStream.Create(BitmapToRTF(BMP));
try
PutRTFSelection(RxRichEdit1, SS);
finally
SS.Free;
end;
end;

Kolay Gelsin.

[sychorax]

(Daha yeni format attım delphi yüklü değil o yüzden tam emin değilim)
Yanlış hatırlamıyorsam insertobject(ole nesneleri için) ve insertpicture gibi bir fonksiyon vardı.Delphi'yi yükleyince ayrıntılı bilgi veririm.

[exterminater]

ewet bütün bilgilerimi biliyorsun. Ben Delphi de ödev olarak basit bir oyun programı yaptım ve iyi bir not aldım. Fakat arkadaşlar note pad i yapamadı ve ben de uyuzlandım. Kodlar için teşekkürler.

[exterminater]

Bu arada sychorax sana da teşekkür ederim. Yardımcı olursan sevinirim.

[sychorax]

Evet dediğim gibi bir fonksiyon varmış.Ama ne yazıkki standart TRichedit'te değil JVCL ile gelen TJVRichEdit'te varmış.

Forma bir tane jvrichedit koyduktan sonra

Kod: Tümünü seç

var
a:TBitmap;
begin
JvRichEdit1.AllowObjects:=True;
a:=TBitmap.Create;
a.LoadFromFile('c:\alarm.bmp');
JvRichEdit1.InsertBitmap(a,True);

Buradaki(InsertBitmap(a,True)) true değerini false yaparsan richedit içinde boyutu değiştirilimez.

[bilbeyi]

bunları rahatça yapabileceğin componentler var. bunları bulmalısın.
Mesela Memoex yada RichviewActions

[exterminater]

ok. çok teşekkürler...