Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать чтобы при загрузке текста в ричидит, текст не менялся [D7, WinXP]

Logan © (2005-07-26 20:13:00)
Народ подскажите как сделать чтобы при загрузке текста в ричидит, форматирование текста не менялось???

Leonid Troyanovsky (2005-08-01 21:53:00) [1]

> Logan © (01.08.05 20:11) [8]
> эээ как бы объяснить... у меня в richedit'e в свойствах
> шрифта стоит tahoma 12, и вот весь текст загружается именно
> tahoma 12, даже если он был до этого сохранён в arial. так
> вот надо чтобы он загружался arial, а не tahoma!!!

By Peter Below (TeamB):

To extract and insert formatted
text you need to work with EM_STREAMIN and EM_STREAMOUT since the available
interface of the Delphi controls can only do that for the complete content of
a rich edit control. Add richedit to your Uses clause and play with the
following functions:

Type
TEditStreamCallBack = function (dwCookie: Longint; pbBuff: PByte;
cb: Longint; var pcb: Longint): DWORD; stdcall;

TEditStream = record
dwCookie: Longint;
dwError: Longint;
pfnCallback: TEditStreamCallBack;
end;

function EditStreamInCallback(dwCookie: Longint; pbBuff: PByte;
cb: Longint; var pcb: Longint): DWORD; Stdcall;
var
theStream: TStream;
dataAvail: LongInt;
begin
theStream := TStream(dwCookie);
with theStream do begin
dataAvail := Size - Position;
Result := 0; {assume everything is ok}
if dataAvail <= cb then begin
pcb := Read(pbBuff^, dataAvail);
if pcb <> dataAvail then {couldn't read req. amount of bytes}
result := E_FAIL;
end
else begin
pcb := Read(pbBuff^, cb);
if pcb <> cb then
result := E_FAIL;
end;
end;
end;

Function EditStreamOutCallback(dwCookie: Longint; pbBuff: PByte;
cb: Longint; var pcb: Longint): DWORD; stdcall;
var
theStream: TStream;
begin
theStream := TStream(dwCookie);

with theStream do begin
If cb > 0 Then
pcb := Write(pbBuff^, cb);
Result := 0;
end;
end;

Procedure GetRTFSelection( aRichEdit: TRichEdit; intoStream: TStream );
Var
editstream: TEditStream;
Begin
With editstream Do Begin
dwCookie:= Longint(intoStream);
dwError:= 0;
pfnCallback:= EditStreamOutCallBack;
end;
aRichedit.Perform( EM_STREAMOUT, SF_RTF or SFF_SELECTION,
longint(@editstream));
End;

Procedure PutRTFSelection( aRichEdit: TRichEdit; sourceStream: TStream );
Var
editstream: TEditStream;
Begin
With editstream Do Begin
dwCookie:= Longint(sourceStream);
dwError:= 0;
pfnCallback:= EditStreamInCallBack;
end;
aRichedit.Perform( EM_STREAMIN, SF_RTF or SFF_SELECTION,
longint(@editstream));
End;

To copy the selection from one control to the other your do this:

Var
aMemStream: TMemoryStream;
begin
aMemStream := TMemoryStream.Create;
try
GetRTFSelection( richedit1, aMemStream );
aMemStream.Position := 0;
PutRTFSelection( richedit2, aMemStream );
finally
aMemStream.Free;
end;
end;

В твоем случае, IMHO, должно хватить PutRTFSelection.

--
Regards, LVT.

Starcom (2005-08-01 21:20:00) [2]
Logan © (01.08.05 20:32) [9]

По моему тема неплохая, а что вот Мастера молчат, Дык :(

Logan (2005-08-01 20:32:00) [3]
}{eRsOn (26.07.05 20:54) [3]
не работает

Logan (2005-08-01 20:11:00) [4]
эээ как бы объяснить... у меня в richedit'e в свойствах шрифта стоит tahoma 12, и вот весь текст загружается именно tahoma 12, даже если он был до этого сохранён в arial. так вот надо чтобы он загружался arial, а не tahoma!!!

Virgo_Style (2005-08-01 20:04:00) [5]
Logan © (01.08.05 19:56) [6]
он у меня за перенос текста отвечает???

У меня тоже %-) А что ты подразумеваешь под форматированием?

Logan (2005-08-01 19:56:00) [6]
А причём здесь RichEdit.WordWrap = false;
он у меня за перенос текста отвечает???

ferr (2005-07-27 00:12:00) [7]
}{eRsOn (26.07.05 20:54) [3]
А при чём здесь форматирование?

Logan (2005-07-26 22:38:00) [8]
Пойду попробую :)

}{eRsOn (2005-07-26 20:54:00) [9]
Logan © (26.07.05 20:13)

Модернизируй его...
>>>>>>>
unit RichEditEx;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;

type
TLangChangeEvent=procedure(Sender:TObject;Lang:HKL) of object;

TRichEditEx = class(TRichEdit)
private
FOnLangChange:TLangChangeEvent;
procedure WMLangRequest(var M:TMessage);message WM_INPUTLANGCHANGEREQUEST;
procedure WMLangChange(var M:TMessage);message WM_INPUTLANGCHANGE;

{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
property OnLangChange:TLangChangeEvent read FOnLangChange write FOnLangChange;

{ Published declarations }
end;

procedure Register;

implementation

procedure tricheditex.WMLangRequest(var M:TMessage);
begin
if assigned(FOnLangChange) then FOnLangChange(self,m.LParam);
inherited;end;

procedure tricheditex.WMLangChange(var M:TMessage);
begin m.Result:=1;end;

procedure Register;
begin

RegisterComponents('Samples', [TRichEditEx]);
end;

end.
>>>>>>>>

Logan (2005-07-26 20:42:00) [10]
Не работает???

Virgo_Style (2005-07-26 20:26:00) [11]
(*включает телепатор*)
RichEdit.WordWrap = false;?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »