|
ｿｽ@ｿｽｿｽRichEdit ｿｽﾌ表ｿｽｿｽｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽ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
ｿｽHｿｽｿｽｿｽ[ｿｽｿｽ 2005/08/25(ｿｽｿｽ) 18:01:36
ｿｽﾈ単ｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾂ具ｿｽｿｽFｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽVｿｽDｿｽO
ｿｽ@ｿｽ@ｿｽ@ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽwｿｽo
ｿｽﾚ的ｿｽFRichEdit ｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾅ、
ｿｽ@ｿｽ@ｿｽ@ｿｽsｿｽｿｽｿｽ数値ｿｽwｿｽ閧ｵｿｽAｿｽｿｽｿｽﾌ行ｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ@RichEdit ｿｽﾌ抵ｿｽｿｽｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽHｿｽｿｽｿｽ[ｿｽｿｽ 2005/08/25(ｿｽｿｽ) 18:48:10
ｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽﾍ指ｿｽｿｽsｿｽﾌ先頭ｿｽﾉゑｿｽｿｽｿｽﾄ行ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
Fusa 2005/08/27(ｿｽy) 01:36:54
ｿｽｿｽﾊ擾ｿｽｿｽRichEditｿｽﾅ鯉ｿｽｿｽﾝ会ｿｽｿｽsｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾟゑｿｽｿｽｿｽ@ｿｽｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽ
//ｿｽｿｽﾊ表ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾔ擾ｿｽｿｽIndexｿｽｿｽｿｽｿｽﾟゑｿｽ
function GetTopIndex: Integer;
begin
Result := RichEdit.Perform(EM_GETFIRSTVISIBLELINE, 0, 0);
end;
//ｿｽｿｽﾊ最擾ｿｽﾊ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽwｿｽ閧ｵｿｽﾄスｿｽNｿｽｿｽｿｽ[ｿｽｿｽ
procedure SetTopIndex(const Value: Integer);
var
LineCount: Integer;
begin
LineCount := Value - GetTopIndex; //ｿｽｿｽｿｽｿｽｿｽｿｽﾟてスｿｽNｿｽｿｽｿｽ[ｿｽｿｽ
RichEdit.Perform(EM_LINESCROLL,0,LineCount);
end;
ｿｽｿｽｿｽｿｽﾅ、ｿｽsｿｽｿｽｿｽ数値ｿｽwｿｽ閧ｵｿｽｿｽ
ｿｽｿｽｿｽﾌ行ｿｽｿｽRichEditｿｽﾌ茨ｿｽﾔ擾ｿｽ(ｿｽｿｽｿｽｿｽｿｽｿｽﾍ撰ｿｽｿｽsｿｽｿｽ)ｿｽﾉ表ｿｽｿｽ
ｿｽﾍでゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽQｿｽlｿｽﾉどゑｿｽｿｽｿｽ
anone 2005/08/27(ｿｽy) 18:55:40
ｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾍ回答ゑｿｽｿｽしｿｽｿｽｿｽﾅゑｿｽｿｽB
> ｿｽｿｽﾊ擾ｿｽｿｽRichEditｿｽﾅ鯉ｿｽｿｽﾝ会ｿｽｿｽsｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽB
ｿｽｿｽｿｽbｿｽ`ｿｽGｿｽfｿｽBｿｽbｿｽgｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽPｿｽﾊでフｿｽHｿｽｿｽｿｽgｿｽﾌ大きｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽAｿｽｿｽﾊにゑｿｽ
ｿｽsｿｽﾌ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽAｿｽuｿｽｿｽｿｽｿｽｿｽvｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾌは費ｿｽｿｽﾉ難しｿｽｿｽｿｽB
