|
ｿｽ@ｿｽｿｽricheditｿｽﾌ難ｿｽeｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
po 2005/03/12(ｿｽy) 22:32:58
ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽArichedit1ｿｽﾌ難ｿｽeｿｽｿｽFｿｽｿｽtｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽｿｽrichedit2ｿｽﾉコｿｽsｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽsｿｽ[ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎ、ｿｽFｿｽAｿｽtｿｽHｿｽｿｽｿｽgｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽH 2005/03/13(ｿｽｿｽ) 04:57:52
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽsｿｽ[ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆなゑｿｽｿｽｿｽｿｽﾇ。
po 2005/03/13(ｿｽｿｽ) 13:27:55
>ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆなゑｿｽｿｽｿｽｿｽﾇ。
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽB
ｿｽｿｽｿｽﾍ、richedit2.textｿｽ@:=ｿｽ@richedit1.textｿｽG,richedit2.Lines.Text := richedit1.Lines.Text;ｿｽﾈどゑｿｽｿｽﾄゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽB
Mr.XRAY 2005/03/13(ｿｽｿｽ) 14:05:03
>ｿｽｿｽｿｽﾍ、richedit2.textｿｽ@:=ｿｽ@richedit1
ｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽﾍ，ｿｽﾅ擾ｿｽｿｽﾉどのようｿｽﾉゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽC
ｿｽｿｽｿｽﾌようｿｽﾉコｿｽ[ｿｽhｿｽｿｽ示ゑｿｽｿｽ驍｢ｿｽｿｽｿｽﾅゑｿｽｿｽﾋ．ｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽ...ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ考ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽDｿｽｿｽｿｽｿｽｿｽﾄ環具ｿｽｿｽｿｽD
ｿｽﾈ会ｿｽｿｽﾌ抵ｿｽｿｽxｿｽﾌコｿｽ[ｿｽhｿｽﾅゑｿｽｿｽｿｽｿｽｿｽCｿｽ¥ｿｽｿｽｿｽfｿｽｿｽｿｽﾂゑｿｽUPｿｽﾅゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ...
(1ｿｽsｿｽﾉ全ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌは，ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽﾈ単ｿｽﾈテｿｽXｿｽgｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽJｿｽｿｽｿｽﾌ姿ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾝゑｿｽｿｽﾅゑｿｽ)
ｿｽｿｽｿｽﾍゑｿｽｿｽｿｽCRichEditｿｽﾌ難ｿｽeｿｽSｿｽｿｽｿｽ他ゑｿｽRichEditｿｽﾌコｿｽsｿｽ[ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ．
RichEditｿｽﾅ全ｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽ[Ctrl]+[C]ｿｽﾅ，ｿｽｿｽｿｽｿｽRichEditｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽﾚ難ｿｽ
ｿｽｿｽｿｽｿｽ[Crtl]+[V]ｿｽﾆゑｿｽｿｽｿｽﾎ難ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ¥ｿｽtｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽDｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽoｿｽｿｽｿｽﾊゑｿｽｿｽK
ｿｽvｿｽﾈ場合ｿｽﾉはゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽD
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelectAll;
RichEdit1.CopyToClipboard;
RichEdit2.PasteFromClipboard;
end;
ｿｽﾜゑｿｽｿｽCｿｽｿｽxｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽﾄ，ｿｽｿｽｿｽｿｽｿｽﾇ搾ｿｽｿｽﾞゑｿｽｿｽﾆにゑｿｽｿｽｿｽﾄゑｿｽﾂ能ｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽﾌ場合ｿｽCｿｽfｿｽBｿｽNｿｽXｿｽｿｽﾅはなゑｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉフｿｽ@ｿｽCｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽ
TMemoryStreamｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾆ便暦ｿｽｿｽﾅゑｿｽｿｽD
ｿｽVｿｽKｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽRichEditｿｽｿｽ2ｿｽﾂ，Buttonｿｽｿｽ1ｿｽﾂ配ｿｽuｿｽｿｽｿｽﾄ，ｿｽﾈ会ｿｽｿｽﾌコｿｽ[ｿｽh
ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄみて会ｿｽｿｽｿｽｿｽｿｽｿｽD
//================================================================
// RichEditｿｽﾌ全ｿｽｿｽｿｽ他ゑｿｽRichEditｿｽﾉコｿｽsｿｽ[
//================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
AStream : TMemoryStream;
begin
RichEdit1.Clear;
RichEdit1.Lines.Add('ｿｽeｿｽXｿｽgｿｽpｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ');
with RichEdit1.SelAttributes do begin
Color := clRed;
Height:= Height+5;
end;
RichEdit1.Lines.Add('ｿｽGｿｽfｿｽBｿｽgｿｽeｿｽLｿｽXｿｽg');
AStream :=TMemoryStream.Create;
try
RichEdit1.Lines.SaveToStream(AStream);
AStream.Position:=0;
RichEdit2.Lines.LoadFromStream(AStream);
finally
AStream.Free;
end;
end;
Fusa 2005/03/13(ｿｽｿｽ) 19:08:39
TMemoryStreamｿｽｿｽgｿｽｿｽｿｽｿｽ
RichTextｿｽﾌ一部ｿｽｿｽｿｽｿｽRｿｽsｿｽ[ｿｽyｿｽ[ｿｽXｿｽgｿｽｿｽｿｽｿｽﾉゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
http://www2.big.or.jp/‾osamu/Delphi/browse.cgi?index=33799
uses RichEdit;ｿｽｿｽﾇ会ｿｽ
type TEditStreamMode=(esmWrite,esmRead);
TForm1 = class(TForm)
public
FStreamRec: TEditStream;
FStream: TMemoryStream;
end;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
FStream := TMemoryStream.Create;
FStreamRec.pfnCallback := @EditStreamCallBack;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FStream.Free;
end;
function EditStreamCallBack(dwCookie: Longint; pbBuff: PByte;
cb: Longint; var pcb: Longint): Longint; stdcall;
begin
try
case TEditStreamMode(dwCookie) of
esmWrite: pcb:= Form1.FStream.Write(pbBuff^,cb);
esmRead : pcb:= Form1.FStream.Read(pbBuff^,cb);
end;
Result:= 0;
except Result:= 1; end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin //ｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽ
FStream.Clear;
FStreamRec.dwCookie := Longint(esmWrite);
RichEdit1.Perform( EM_STREAMOUT,SF_RTF or SFF_SELECTION,Longint(@FStreamRec));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin //ｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽ
FStream.Position:=0;
FStreamRec.dwCookie := Integer(esmRead);
RichEdit2.Perform( EM_STREAMIN,SF_RTF or SFF_SELECTION,Longint(@FStreamRec));
end;
po 2005/03/14(ｿｽｿｽ) 01:04:12
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ謔ｭｿｽlｿｽｿｽｿｽｿｽｿｽﾉ趣ｿｽｿｽ竄ｵｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽlｿｽﾉ暦ｿｽｿｽｿｽｿｽﾄばゑｿｽｿｽｿｽﾅはゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌは趣ｿｽｿｽｿｽｿｽﾅゑｿｽかｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ黷ｩｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽﾅよくｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽ逑奇ｿｽeｿｽｿｽｿｽﾜゑｿｽｿｽB
Mr.XRAY 2005/03/14(ｿｽｿｽ) 17:47:08
>ｿｽｿｽｿｽlｿｽﾉ暦ｿｽｿｽｿｽｿｽﾄばゑｿｽｿｽｿｽﾅはゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽﾇ暦ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽfｿｽｿｽｿｽﾂではなゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽC
ｿｽｿｽｿｽﾂ人ｿｽﾍ，ｿｽﾇゑｿｽﾈゑｿｽFAQｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽｿｽ骼ｿｿｽｿｽﾅゑｿｽCｿｽyｿｽﾉ対話ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽ
ｿｽﾈゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ，ｿｽｿｽeｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽ... ｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌではゑｿｽ...
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽﾄ，ｿｽ{ｿｽｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽeｿｽﾉ包ｿｽｿｽ蛯ｪｿｽｿｽｿｽｿｽﾎ，ｿｽｿｽｿｽXｿｽﾈんかゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
ｿｽｿｽｿｽlｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽｿｽﾋ． (^^ｿｽU
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾝゑｿｽｿｽlｿｽﾅゑｿｽｿｽD
ｿｽﾅ，ｿｽﾇゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽD
po 2005/03/15(ｿｽｿｽ) 01:51:58
ｿｽｿｽｿｽXｿｽxｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
Mr.XRAYｿｽｿｽｿｽｿｽAFusaｿｽｿｽｿｽ感謝ゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Mr.XRAYｿｽｿｽi:integerｿｽﾍ必ｿｽvｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ（^^;ｿｽj
ｿｽｿｽｿｽﾌようｿｽﾈ厄ｿｽｿｽｿｽﾒにゑｿｽ答ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ{ｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
po 2005/03/15(ｿｽｿｽ) 01:56:48
>Mr.XRAYｿｽｿｽi:integerｿｽﾍ必ｿｽvｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ（^^;ｿｽj
Mr.XRAYｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽBｿｽﾄび捨てはゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ；ｿｽGｿｽB
Fusa 2005/03/15(ｿｽｿｽ) 16:54:09
Mrｿｽﾉは敬ｿｽﾌの意厄ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ...
ｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆはゑｿｽｿｽﾄゑｿｽｿｽｿｽ(^-^;
"ｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆは趣ｿｽｿｽ竄ｷｿｽｿｽB"
ｿｽｿｽｿｽｿｽﾍ勉具ｿｽｿｽｿｽｿｽｿｽｿｽﾅ奇ｿｽ{ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽlｿｽﾉ暦ｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽﾍ托ｿｽｿｽlｿｽﾉ暦ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽDｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽSｿｽnｿｽ謔｢ｿｽｿｽﾌでゑｿｽｿｽｿｽB
Mr.XRAYｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ
ｿｽuｿｽﾇゑｿｽﾈゑｿｽFAQｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽｿｽ骼ｿｿｽｿｽﾅゑｿｽCｿｽyｿｽﾉ対話ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌでは」
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆに托ｿｽ^ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ]ｿｽｿｽｿｽｿｽ"ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽ"ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ人ｿｽﾍ抵ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB(;ｿｽLｿｽｿｽｿｽMA``
ｿｽｿｽｿｽ竄ｷｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾌ仕ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽﾏむ趣ｿｽｿｽﾅ擾ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽ
ｿｽ答ゑｿｽｿｽｿｽｿｽｿｽﾌ回答の仕ｿｽｿｽｿｽｿｽAｿｽ答ゑｿｽｿｽｿｽoｿｽｿｽｿｽﾅ擾ｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽB
Mr.XRAYｿｽｿｽｿｽｿｽﾉは釈迦に撰ｿｽ@ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽｿｽｿｽﾆてゑｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾖの難ｿｽｿｽｿｽｿｽｿｽ
http://www.linux.or.jp/column/20020222.html
ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌ心ｿｽｿｽｿｽｿｽ
http://www.hyuki.com/writing/teach.html
ｿｽｿｽｿｽｿｽｿｽeｿｽﾍ厄ｿｽｿｽｿｽﾅはなゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗ具ｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽ
ｿｽﾇゑｿｽﾇん発鯉ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ謔｢ｿｽﾌゑｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾆ、ｿｽGｿｽkｿｽﾎゑｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
