Главная страница
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.01 c
3-84921
bobr12
2002-08-07 10:10
2002.08.26
Как узнать, существует ли таблица?


3-84883
Andrew_
2002-08-05 17:33
2002.08.26
Ошибка при выводе BLOB-поля в Interbase


8-85134
Doom
2002-04-19 23:52
2002.08.26
Как получить скриншот с веб-камеры?


14-85186
Mihail
2002-07-29 13:27
2002.08.26
Мастера, ПОМОГИТЕ, не могу установить.


1-85015
A7exander
2002-08-16 10:49
2002.08.26
Как это сделать программно (dock)