Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.02.03;
Скачать: CL | DM;

Вниз

RichEdit и OLE.   Найти похожие ветки 

 
VAD*Anti Gopn!k ©   (2008-01-06 23:53) [0]

Доброе время суток.
Вставляю картинку в RichEdit:
...
procedure TImageDataObject.InsertBitmap(Wnd: HWND; Bitmap: HBITMAP);
var
 OleClientSite: IOleClientSite;
 RichEditOLE: IRichEditOLE;
 Storage: IStorage;
 LockBytes: ILockBytes;
 OleObject: IOleObject;
 ReObject: TReobject;
 clsid: TGUID;
begin
 if (SendMessage(wnd, EM_GETOLEINTERFACE, 0, Cardinal(@RichEditOle)) = 0) then Exit;
 FBmp := CopyImage(Bitmap, IMAGE_BITMAP, 0, 0, 0);
 if FBmp = 0 then Exit;
 try
   SetBitmap(Fbmp);
   RichEditOle.GetClientSite(OleClientSite);
   if (OleClientSite = nil) then Exit;
   CreateILockBytesOnHGlobal(0, True, LockBytes);
   if (LockBytes = nil) then exit;
   if (StgCreateDocfileOnILockBytes(LockBytes, STGM_SHARE_EXCLUSIVE or STGM_CREATE or STGM_READWRITE, 0, Storage) <> S_OK) then
   begin
     LockBytes._Release;
     Exit;
   end;
   if (Storage = nil) then exit;
   OleObject := GetOleObject(OleClientSite, Storage);
   if (OleObject = nil) then exit;
   OleSetContainedObject(OleObject, TRUE);
   ZeroMemory(@reobject, SizeOf(TReobject));
   reobject.cbStruct := SizeOf(TReobject);
   OleObject.GetUserClassID(clsid);
   reobject.clsid := clsid;
   reobject.cp := REO_CP_SELECTION;
   reobject.dvaspect := DVASPECT_CONTENT;
   reobject.poleobj := OleObject;
   reobject.polesite := OleClientSite;
   reobject.pstg := Storage;
   RichEditOle.InsertObject(reobject);
 finally
   DeleteObject(FBmp);
 end
end;

procedure InsertBitmapToRE(Wnd: HWND; bmp:HBITMAP);
begin
 with TImageDataObject.Create do
 try
   InsertBitmap(Wnd, Bmp);
 finally
   Free;
 end
end;
...

При попытке прокрутить richedit ничего не получается :( Как это можно сделать?? Прокручиваю так:
RichEdit1.SelLength := 0;
RichEdit1.SelStart := Length(RichEdit1.Text);
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);

Спасибо за внимание.


 
XerSon   (2008-01-08 05:25) [1]

uses Messages.

SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_LINEDOWN, 1);



Страницы: 1 вся ветка

Текущий архив: 2008.02.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
15-1199175624
vrem_
2008-01-01 11:20
2008.02.03
Подскажите программу размер поменять :)


15-1199109800
DillerXX
2007-12-31 17:03
2008.02.03
Новогодняя задачка


4-1182940157
Углук
2007-06-27 14:29
2008.02.03
Вычитание регионов.


2-1199443802
Барковъ
2008-01-04 13:50
2008.02.03
Antialiasing


2-1199842744
Артем
2008-01-09 04:39
2008.02.03
КАК сохранить JPEG в реестре