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

Вниз

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

 
olafpalmer ©   (2002-06-21 16:19) [0]

Люди! Работаю с TRichEdit компонентом и понадобилось мне приостанавливать запись действий в UNDO буфер и запускать ее снова. В TRichEdit такой возможности нет. Но MSDN сказала, что в RichEdit 3.0 компоненте вообщето такая возможность реализована.


pITextDocument->Undo(tomSuspend,NULL); //Suspends Undo.

pITextDocument->Undo(tomResum! e,NULL); //Resumes Undo.


Т.е. нужно как-то использовать интерфейс ITextDocument. Знаю, что компонент лежит в riched20.dll.
Как оттуда вытащить этот интерфейс и заставить его работать в DELPHI?
Или есть какой другой способ?


 
pj ©   (2002-06-21 18:36) [1]

TMyRichEdit = class(TMemo)
Protected
procedure CreateParams(var Params: TCreateParams); override;
Public
End;


procedure TMyRichEdit.CreateParams(var Params: TCreateParams);
Const
RichEditModuleName = "RICHED20.DLL";
HideScrollBars: array[Boolean] of DWORD = ($00002000, 0);
HideSelections: array[Boolean] of DWORD = (ES_NOHIDESEL, 0);
ES_DISABLENOSCROLL = $2000;
ES_VERTICAL = $400000;
TB_ENABLEBUTTON = $401;
Var
Res: TColor;
Begin
if ModuleHandle(RichEditModuleName) = 0 then
begin
FRichEditModule := LoadLibrary(RichEditModuleName);
If FRichEditModule <= HINSTANCE_ERROR then
FRichEditModule := 0;
end;
Inherited CreateParams(Params);
CreateSubClass(Params, "RichEdit20W");
with Params do
begin
Style := Style or HideScrollBars[FHideScrollBars] or
HideSelections[HideSelection] or ES_MULTILINE;
ExStyle := ExStyle;// or WS_EX_TRANSPARENT;
WindowClass.style := WindowClass.style and not (CS_HREDRAW or CS_VREDRAW);
end;
End;



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
1-84953
Smithson
2002-08-15 12:22
2002.08.26
Как отобразить на taskbarе вторичные формы?


14-85180
AL2002
2002-07-26 13:18
2002.08.26
Кто играл в детстве на Аари 8-бит


1-85044
Andrey Shakula
2002-08-14 11:06
2002.08.26
dsgnintf.pas


14-85198
Гэймер
2002-07-31 06:35
2002.08.26
ZX Spectrum


1-84988
ed_209
2002-08-16 03:25
2002.08.26
ListBox & TreeView Scrolling