|
ｿｽ@ｿｽｿｽTListViewｿｽｿｽVirtualｿｽ`ｿｽｿｽｿｽﾅ暦ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽ
|
ｿｽ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
Macroｿｽｿｽ 2009/05/18(ｿｽｿｽ) 09:10:33
Delphi2007ｿｽｿｽTListViewｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
TListViewｿｽｿｽVirtualｿｽ`ｿｽｿｽｿｽﾅ暦ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
OwnerDataｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽTrueｿｽﾉゑｿｽｿｽｿｽﾆ、
ｿｽ}ｿｽEｿｽXｿｽﾅ範囲選ｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌようｿｽﾉアｿｽCｿｽRｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ鼾ｿｽﾉ、
ｿｽAｿｽCｿｽRｿｽｿｽｿｽ繪ｺｿｽﾔゑｿｽnｿｽ_ｿｽﾉゑｿｽｿｽｿｽﾍ囲選ｿｽｿｽﾍ可能ｿｽﾈのでゑｿｽｿｽｿｽ
ｿｽAｿｽCｿｽRｿｽｿｽｿｽｿｽｿｽEｿｽﾔゑｿｽnｿｽ_ｿｽﾉゑｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽﾆ範囲選ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽ | ｿｽｿｽ | ｿｽｿｽ | ｿｽｿｽ
-----------------
ｿｽｿｽ | ｿｽｿｽ | ｿｽｿｽ | ｿｽｿｽ
-----------------
ｿｽｿｽ | ｿｽｿｽ | ｿｽｿｽ | ｿｽｿｽ
OwnerDataｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽFalseｿｽﾌ場合ｿｽﾍどゑｿｽｿｽｿｽﾌ場合ｿｽｿｽﾍ囲選ｿｽｿｽﾂ能ｿｽﾅゑｿｽｿｽB
MultiselectｿｽｿｽTrueｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽ`ｿｽｿｽｿｽCustomDrawItemｿｽﾅ行ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾛにつゑｿｽｿｽﾄの対擾ｿｽｿｽ@ｿｽｿｽAVirtualｿｽ`ｿｽｿｽｿｽﾅ暦ｿｽｿｽpｿｽｿｽｿｽｿｽ鼾ｿｽｿｽ
ｿｽｿｽｿｽﾓゑｿｽｿｽｿｽﾗゑｿｽｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
monaa 2009/05/24(ｿｽｿｽ) 16:31:51
D2009,VistaｿｽﾅチｿｽFｿｽbｿｽNｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾛは再鯉ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
Macroｿｽｿｽ 2009/05/25(ｿｽｿｽ) 08:19:02
ｿｽｿｽｿｽﾘゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Delphi2007ｿｽﾌ場合ｿｽｿｽVista,XPｿｽﾅゑｿｽｿｽｿｽﾛゑｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾈゑｿｽﾃゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽ闌ｳｿｽﾉゑｿｽｿｽｿｽDelphi5ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛゑｿｽｿｽoｿｽﾜゑｿｽｿｽｿｽｿｽB
Delphi2009ｿｽﾍ手元ｿｽﾉなゑｿｽｿｽﾌでトｿｽｿｽｿｽCｿｽAｿｽｿｽｿｽﾅゑｿｽCｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾘゑｿｽｿｽﾄみようｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
monaa 2009/05/25(ｿｽｿｽ) 12:26:15
ｿｽｿｽｿｽｿｽｿｽｿｽﾂの趣ｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽｿｽﾉ最擾ｿｽｿｽRｿｽ[ｿｽhｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾄみるこｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾟゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾔん他の箇擾ｿｽｿｽﾉ鯉ｿｽ閧ｪｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾌ確ｿｽFｿｽpｿｽ¥ｿｽ[ｿｽX
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
procedure ListView1Data(Sender: TObject; Item: TListItem);
public
{ Public ｿｽ骭ｾ }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ListView1.DoubleBuffered:=TRUE; //for vista
ListView1.MultiSelect := TRUE;
ListView1.OwnerData :=TRUE;
ListView1.Items.Count := 200;
ListView1.OnData := ListView1Data;
end;
procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
Item.Caption := IntToStr(Item.Index);
end;
end.
