|
ｿｽ@ｿｽｿｽMemoｿｽｿｽRichEditｿｽﾅ包ｿｽｿｽｿｽｿｽPｿｽﾊで背ｿｽiｿｽFｿｽﾌ設抵ｿｽ
|
ｿｽ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
ｿｽかｿｽｿｽちゑｿｽ 2006/01/03(ｿｽｿｽ) 03:57:34
ｿｽｿｽｿｽｿｽｿｽﾉ費ｿｽｿｽｿｽｿｽﾙどつぶゑｿｽｿｽﾄわかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで趣ｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽB
RichEditｿｽﾅはアｿｽgｿｽｿｽｿｽrｿｽｿｽｿｽ[ｿｽgｿｽﾌ設抵ｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽFｿｽｿｽｿｽｿｽｿｽﾝ抵ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽ髟ｶｿｽｿｽｿｽPｿｽﾊゑｿｽ BG_COLOR ｿｽｿｽｿｽﾝ抵ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽwｿｽiｿｽFｿｽﾌ設抵ｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽHｿｽﾜゑｿｽｿｽAｿｽ}ｿｽC 2006/01/03(ｿｽｿｽ) 11:38:53
Memoｿｽﾍ厄ｿｽｿｽｿｽｿｽｿｽｿｽうｿｽB
var
Format: CHARFORMAT2;
begin
FillChar(Format, SizeOf(Format), 0);
with Format do begin
cbSize := SizeOf(Format);
dwMask := CFM_BACKCOLOR + CFM_COLOR;
crTextColor := clRed;
crBackColor := ciYellow;
RichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
end;
ｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAWin9Xｿｽnｿｽﾅは厄ｿｽｿｽｿｽｿｽB
ｿｽかｿｽｿｽちゑｿｽ 2006/01/03(ｿｽｿｽ) 13:54:49
ｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽEｿｽEｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽﾂ具ｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾅまゑｿｽｿｽｿｽｿｽﾄ、ｿｽﾇゑｿｽｿｽﾉゑｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽB
Delphi 4 + Windows Me ｿｽﾅはでゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽnｿｽｿｽ 2006/01/03(ｿｽｿｽ) 18:07:08
RichEdit ｿｽｿｽusesｿｽﾉ難ｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾅゑｿｽﾈゑｿｽAｿｽﾇれがｿｽｿｽｿｽｿｽﾓ義ｿｽﾉなるかｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽRichEditｿｽﾖ連ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆで、RichEditｿｽｿｽusesｿｽﾌ可能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾊは、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾄゑｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ`ｿｽﾈゑｿｽAｿｽｿｽｿｽｿｽusesｿｽﾉゑｿｽｿｽ驛ｿｽjｿｽbｿｽgｿｽﾈ外ｿｽﾉ抵ｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾈゑｿｽAｿｽﾇのｿｽｿｽjｿｽbｿｽgｿｽﾉ抵ｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽH
ｿｽｿｽProｿｽﾈ擾ｿｽﾈゑｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾈので、ｿｽ¥ｿｽ[ｿｽXｿｽﾌ抵ｿｽｿｽﾅ鯉ｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽﾌ必ｿｽvｿｽﾈゑｿｽ
ｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽAｿｽuｿｽﾇのｿｽｿｽjｿｽbｿｽgｿｽﾉ記ｿｽﾚゑｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽvｿｽﾆ趣ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗゑｿｽRｿｽgｿｽｿｽｿｽﾅゑｿｽｿｽｿｽだゑｿｽｿｽｿｽAｿｽｿｽｿｽ黷ｭｿｽ轤｢ｿｽｿｽｿｽ謔､ｿｽ[ｿｽB
ｿｽｿｽｿｽｿｽちゑｿｽ 2006/01/03(ｿｽｿｽ) 19:25:30
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ思ｿｽｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
//////////////////////////
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls,
richedit;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
public
{ Public ｿｽ骭ｾ }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
Format: CHARFORMAT2;
begin
FillChar(Format, SizeOf(Format), 0);
with Format do begin
cbSize := SizeOf(Format);
dwMask := CFM_BACKCOLOR + CFM_COLOR;
crTextColor := clRed;
crBackColor := ciYellow;
RichEdit1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
end;
end;
end.
/////////////////////
ｿｽｿｽｿｽｿｽ`ｿｽEｿｽEｿｽE
ｿｽ@CHARFORMAT2
ｿｽ@cbSize
ｿｽ@dwMask
ｿｽ@crTextColor
ｿｽ@crBackColor
ｿｽ@ciYellow
ｿｽnｿｽｿｽ 2006/01/03(ｿｽｿｽ) 20:29:46
ｿｽﾈゑｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽ`ｿｽｿｽｿｽﾈゑｿｽｿｽﾋゑｿｽｿｽBｿｽBｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽuｿｽｿｽｿｽｿｽｿｽHｿｽﾜゑｿｽｿｽAｿｽ}ｿｽCｿｽvｿｽｿｽｿｽｿｽﾌ丸写ゑｿｽｿｽﾅゑｿｽｿｽﾋ。
ciYellowｿｽﾍ、clYellowｿｽﾌタｿｽCｿｽvｿｽ‾ｿｽXｿｽﾅゑｿｽｿｽ蛯､ｿｽﾈ。
ｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽﾈ外ｿｽﾌ厄ｿｽｿｽｿｽ`ｿｽﾍ、CHARFORMAT2ｿｽ¥ｿｽｿｽｿｽﾌの宣言ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾟでゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽﾈみに、ｿｽｿｽｿｽｿｽｿｽﾗてみまゑｿｽｿｽｿｽｿｽｿｽｿｽAD4ｿｽｿｽRicheditｿｽｿｽｿｽjｿｽbｿｽgｿｽﾉは、
CHARFORMAT2ｿｽﾍ用ｿｽﾓゑｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
# ｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、RichEditｿｽｿｽｿｽjｿｽbｿｽgｿｽﾉ抵ｿｽ`ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽA
# ｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽﾈゑｿｽｿｽﾄ抵ｿｽ`ｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽかｿｽｿｽか、ｿｽｿｽｿｽﾄゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔｣ｿｽB
# ｿｽOｿｽｿｽｿｽXｿｽﾌ意厄ｿｽｿｽｿｽｿｽﾋゑｿｽｿｽｿｽｿｽｿｽｿｽ(ｿｽm_ｿｽEｿｽA)
ｿｽｿｽｿｽｿｽﾈわけｿｽﾅ、ｿｽcｿｽSｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽCｿｽgｿｽｿｽQｿｽﾆゑｿｽｿｽﾄ、
ｿｽｿｽ`ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｵｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
http://yokohama.cool.ne.jp/chokuto/urawaza/struct/CHARFORMAT2.html
ｿｽｿｽｿｽｿｽｿｽYｿｽｿｽ
> Delphi 4 + Windows Me ｿｽﾅはでゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Delphi 4 ｿｽｿｽｿｽWｿｽｿｽｿｽﾅ用ｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽﾅはでゑｿｽｿｽﾜゑｿｽｿｽが、
ｿｽｿｽｿｽｿｽｿｽﾅ抵ｿｽ`ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆででゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽIｿｽVｿｽｿｽｿｽｿｽｿｽｿｽiｿｽﾎ）
ｿｽnｿｽｿｽ 2006/01/03(ｿｽｿｽ) 20:32:04
ｿｽ竭ｫ
ｿｽｿｽｿｽｿｽｿｽﾟてゑｿｽｿｽｿｽけｿｽﾅはなゑｿｽｿｽﾄ、ｿｽｿｽｿｽ竄ｳｿｽ黷ｽｿｽｿｽｿｽﾌ気ｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽｿｽﾄほゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾟゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽAｿｽﾓゑｿｽﾜゑｿｽｿｽ@m(v_v)m
Mr.XRAY 2006/01/03(ｿｽｿｽ) 21:33:02
CharFormat2ｿｽｿｽTCharFormat2ｿｽﾉゑｿｽｿｽﾄ鯉ｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽD
CharFormat2ｿｽｿｽｿｽCDelphi4ｿｽﾉなゑｿｽｿｽﾆゑｿｽｿｽｿｽﾎ，Delphi5ｿｽﾅ追会ｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽﾌと思ｿｽｿｽｿｽﾜゑｿｽｿｽD
//Delphi5ｿｽｿｽRichEdit.pasｿｽｿｽｿｽ逕ｲｿｽｿｽ
CHARFORMAT2 = CHARFORMAT2A;
{$EXTERNALSYM CHARFORMAT2A}
TCharFormat2A = CHARFORMAT2A;
{$EXTERNALSYM CHARFORMAT2W}
TCharFormat2W = CHARFORMAT2W;
{$EXTERNALSYM TCharFormat2}
TCharFormat2 = TCharFormat2A;
ｿｽかｿｽｿｽちゑｿｽ 2006/01/03(ｿｽｿｽ) 22:00:57
ｿｽ皷橸ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽﾊゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾏ会ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽ‾ｿｽﾟて、ｿｽ}ｿｽEｿｽXｿｽAｿｽbｿｽvｿｽEｿｽCｿｽxｿｽｿｽｿｽgｿｽﾉアｿｽTｿｽCｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽCｿｽ}ｿｽCｿｽ`ｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
const
LF_FACESIZE = 32;
type CHARFORMAT2 = record
(...)
// szFaceName: PCHAR;
szFaceName: array[0..LF_FACESIZE] of CHAR; // ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
(...)
end;
ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽﾚの鯉ｿｽｿｽｿｽｿｽﾅなゑｿｽｿｽﾆゑｿｽｿｽｿｽﾆ、ｿｽﾇゑｿｽｿｽｿｽ逑ｮｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾍ気ｿｽﾅゑｿｽｿｽB
RichEdit 2.0 2006/01/03(ｿｽｿｽ) 22:12:57
> Delphi 4 + Windows Me ｿｽﾅはでゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
WinMeｿｽﾅはダｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽﾋ。
ｿｽかｿｽｿｽちゑｿｽ 2006/01/03(ｿｽｿｽ) 22:15:14
Mr.XRAY ｿｽl
ｿｽﾈゑｿｽﾙゑｿｽ
Format: TCHARFORMAT2;
ｿｽEｿｽEｿｽEｿｽﾆパｿｽXｿｽJｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽOｿｽﾅ抵ｿｽ`ｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽﾊゑｿｽﾜゑｿｽｿｽﾋ。
ｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ良ゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽB
ｿｽEｿｽEｿｽEｿｽﾆゑｿｽｿｽｿｽﾍとゑｿｽｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽﾌ変会ｿｽｿｽｿｽNｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
Delphi ｿｽｿｽｿｽｿｽ闕橸ｿｽｿｽﾅゑｿｽﾌは、ｿｽzｿｽｿｽｿｽﾅは、RichEdit1 ｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
1.0 ｿｽﾈのゑｿｽｿｽﾈゑｿｽｿｽvｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽ@Windows ｿｽﾌシｿｽXｿｽeｿｽｿｽｿｽEｿｽfｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽﾉゑｿｽ
RICHED.DLL
RICHED20.DLL
RICHED32.DLL
ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ難ｿｽﾂは托ｿｽｿｽﾌソｿｽtｿｽgｿｽｿｽｿｽｿｽCｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾌゑｿｽｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽかｿｽｿｽちゑｿｽ 2006/01/04(ｿｽｿｽ) 03:31:23
ｿｽｿｽｿｽﾇ、ｿｽLｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽﾌ位置ｿｽﾉ、StaticText ｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽ
ｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾋ托ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽし・ｿｽEｿｽB
TMemo ｿｽﾅゑｿｽｿｽｿｽpｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽいｿｽあｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
