|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
TListViewｿｽｿｽvsReportｿｽ`ｿｽｿｽｿｽﾅチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽﾈゑｿｽｿｽAｿｽｿｽｿｽｿｽAｿｽsｿｽﾂ（ｿｽOｿｽｿｽｿｽ[ｿｽjｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽﾏゑｿｽｿｽｿｽ 2010/03/25(ｿｽｿｽ) 18:50:01
ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ。
DelphiｿｽｿｽWindowsｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ‾ｿｽｿｽｿｽOｿｽｿｽ10ｿｽｿｽｿｽﾚで右ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
TListViewｿｽｿｽvsReportｿｽ`ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽACheckBoxesｿｽｿｽTrueｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽuｿｽ`ｿｽFｿｽbｿｽNｿｽﾈゑｿｽｿｽvｿｽAｿｽuｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽvｿｽAｿｽuｿｽ`ｿｽFｿｽbｿｽNｿｽsｿｽﾂ（ｿｽOｿｽｿｽｿｽ[ｿｽFｿｽjｿｽvｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽTｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽしｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾟゑｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽｿｽｿｽA
ImageListｿｽｿｽStateImagesｿｽﾉ設定しｿｽAStateIndexｿｽ操作すｿｽｿｽﾎ可能ｿｽﾈゑｿｽｿｽﾆゑｿｽmｿｽｿｽAｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽ鞫懶ｿｽﾌチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾆ、ｿｽ`ｿｽFｿｽbｿｽNｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ変会ｿｽｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽcｿｽｿｽｿｽ閧ｪｿｽBｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄゑｿｽAｿｽ`ｿｽFｿｽbｿｽNｿｽﾌ擾ｿｽﾔ変会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈゑｿｽ Item.Checked=FalseｿｽATrueｿｽAFalseｿｽATrueｿｽAｿｽcｿｽﾆ変会ｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽﾈゑｿｽｿｽｿｽ FalseｿｽATrueｿｽATrueｿｽATrueｿｽAFalseｿｽATrueｿｽATrueｿｽATrueｿｽAFalseｿｽATrueｿｽAｿｽcｿｽﾆなゑｿｽﾜゑｿｽｿｽB
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ厄ｿｽ閧ｩｿｽAｿｽ`ｿｽFｿｽbｿｽNｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽ髟費ｿｽｿｽｿｽﾌ厄ｿｽ閧ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽﾅゑｿｽ皷橸ｿｽNｿｽｿｽｿｽbｿｽNｿｽﾉ費ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ…ｿｽB
ｿｽﾈ会ｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾌ費ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽﾛには托ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽB
Const
ResultSII=3; // ｿｽXｿｽeｿｽ[ｿｽ^ｿｽXｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽSubItemｿｽｿｽIndex
M_kanou='ｿｽﾂ能'; // ｿｽXｿｽeｿｽ[ｿｽ^ｿｽXｿｽﾌ各ｿｽ¥ｿｽｿｽｿｽｿｽe
M_huka= 'ｿｽsｿｽｿｽ'; //
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
// SubItemｿｽﾌ撰ｿｽｿｽｿｽResultSIIｿｽﾜで達ｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽItemｿｽﾍグｿｽｿｽｿｽ[ｿｽｿｽ
if Item.SubItems.Count<ResultSII+1 then
begin
Item.StateIndex:=2;
exit;
end;
// SubItems[ResultSII]ｿｽｿｽｿｽuｿｽﾂ能ｿｽvｿｽｿｽItemｿｽｿｽStateIndexｿｽｿｽCheckedｿｽﾉ搾ｿｽｿｽせｿｽAｿｽｿｽｿｽｿｽﾈ外ｿｽﾍグｿｽｿｽｿｽ[ｿｽｿｽ
if Item.SubItems[ResultSII]=M_kanou then
if Item.Checked then Item.StateIndex:=1
else Item.StateIndex:=0
else
Item.StateIndex:=2;
end;
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
// SubItemｿｽﾌ撰ｿｽｿｽｿｽResultSIIｿｽﾜで達ｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽItemｿｽﾍ厄ｿｽｿｽｿｽｿｽｿｽｿｽChecked:=False
if Item.SubItems.Count<ResultSII+1 then Item.Checked:=False
else
//SubItems[ResultSII]ｿｽｿｽｿｽuｿｽﾂ能ｿｽvｿｽﾈ外ｿｽｿｽItemｿｽﾍ、Checked=Trueｿｽﾉゑｿｽｿｽｿｽｿｽﾈゑｿｽ
if Item.SubItems[ResultSII]<>M_kanou then Item.Checked:=False;
end;
TListViewｿｽｿｽvsReportｿｽ`ｿｽｿｽｿｽﾅチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽﾌ擾ｿｽﾔゑｿｽ
ｿｽE ｿｽuｿｽ`ｿｽFｿｽbｿｽNｿｽﾈゑｿｽｿｽvｿｽAｿｽuｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽvｿｽAｿｽuｿｽ`ｿｽFｿｽbｿｽNｿｽsｿｽﾂ（ｿｽOｿｽｿｽｿｽ[ｿｽFｿｽjｿｽv ｿｽﾜゑｿｽｿｽﾍ、
ｿｽE ｿｽuｿｽ`ｿｽFｿｽbｿｽNｿｽﾈゑｿｽｿｽvｿｽAｿｽuｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽvｿｽAｿｽuｿｽ`ｿｽFｿｽbｿｽNｿｽsｿｽﾂ（ｿｽOｿｽｿｽｿｽ[ｿｽFｿｽjｿｽvｿｽAｿｽuｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽiｿｽOｿｽｿｽｿｽ[ｿｽFｿｽjｿｽv
ｿｽﾌようｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾍ鯉ｿｽｿｽ¥ｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは鯉ｿｽｿｽﾂゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ幸ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2010/03/26(ｿｽｿｽ) 10:08:36
ｿｽ示ゑｿｽｿｽ黷ｽｿｽ¥ｿｽ[ｿｽXｿｽﾅゑｿｽListViewｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾄ使ｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾈゑｿｽｿｽｿｽｿｽﾇ。
SubItems[ResultSII]ｿｽﾌ「ｿｽﾂ能ｿｽvｿｽﾆ「ｿｽsｿｽﾂ」ｿｽﾌ切ゑｿｽﾖゑｿｽｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾌ？
ｿｽﾏゑｿｽｿｽｿｽ 2010/03/26(ｿｽｿｽ) 18:40:25
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽAｿｽﾐどゑｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆは厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBCPUｿｽｿｽ1.2GHzｿｽﾌ鯉ｿｽPCｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽAｿｽﾜゑｿｽｿｽｿｽｿｽﾚ（ｿｽｿｽItemｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ？ｿｽjｿｽｿｽｿｽｿｽｿｽ8ｿｽﾂ抵ｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽｿｽ轤ｩｿｽﾈ？
ｿｽﾈゑｿｽｿｽAｿｽｿｽｿｽﾌ搾ｿｽｿｽﾚゑｿｽIDEｿｽﾅ趣ｿｽｿｽｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾚ撰ｿｽｿｽﾍ最托ｿｽｿｽ50ｿｽﾂにゑｿｽｿｽｿｽﾂゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽXｿｽeｿｽbｿｽvｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽﾆ会ｿｽｿｽか描ｿｽ謔ｵｿｽﾄゑｿｽ謔､ｿｽﾅ、ｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽ2ｿｽ`3ｿｽｿｽ`ｿｽｿｽｿｽ
ｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽB
ｿｽﾚゑｿｽﾃらすｿｽﾆ確ｿｽｿｽｿｽﾉ、ｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾌ瞬ｿｽﾔゑｿｽｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾉ奇ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾗゑｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽuｿｽﾂ能ｿｽvｿｽﾆ「ｿｽsｿｽﾂ」ｿｽﾌ切ゑｿｽﾖゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍまゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽuｿｽﾂ能ｿｽvｿｽﾍ、ｿｽｿｽｿｽ驛ｿｽCｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽuｿｽｿｽｿｽｿｽｿｽvｿｽﾉ切ゑｿｽﾖゑｿｽｿｽｿｽﾂゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽuｿｽsｿｽﾂ」ｿｽｿｽuｿｽｿｽｿｽｿｽｿｽvｿｽﾍ変会ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
tor 2010/03/26(ｿｽｿｽ) 20:33:14
ListViewｿｽﾌチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽﾌ擾ｿｽﾔは、StateIndexｿｽｿｽgｿｽｿｽｿｽﾄ管暦ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽiMSDNｿｽﾉゑｿｽｿｽｿｽ1ｿｽｿｽUncheckedｿｽｿｽ2ｿｽｿｽCheckedｿｽｿｽｿｽﾆゑｿｽｿｽj
ｿｽｿｽｿｽｿｽﾉ、VCLｿｽｿｽCheckedｿｽｿｽStateIndexｿｽlｿｽﾌ値ｿｽｿｽﾊ々ｿｽﾉキｿｽｿｽｿｽbｿｽVｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、ｿｽbｿｽｿｽｿｽｿｽ竄ｱｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽ黷ｼｿｽ黷ｪｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽﾄ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽXｿｽVｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽｿｽCheckBoxesｿｽﾍ外ｿｽｿｽｿｽﾄ、StateIndexｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄ趣ｿｽｿｽOｿｽﾅ管暦ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾇゑｿｽｿｽﾌではなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾂゑｿｽｿｽﾅに搾ｿｽｿｽｿｽｿｽｿｽﾉなりそｿｽｿｽｿｽﾈとゑｿｽｿｽｿｽ:
ｿｽEOnCustomDrawItemｿｽﾍ、ｿｽｿｽﾔゑｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽuｿｽｿｽｿｽﾊ」ｿｽﾆゑｿｽｿｽﾄ再描ｿｽｿｽﾌゑｿｽｿｽﾟ呼び出ｿｽｿｽｿｽｿｽｿｽｿｽﾌなので、ｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽﾔゑｿｽﾏゑｿｽｿｽｿｽﾗゑｿｽｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽEChangedｿｽﾍｿｽｿｽXｿｽgｿｽｿｽｿｽﾚの擾ｿｽﾔゑｿｽｿｽﾏゑｿｽｿｽﾆゑｿｽｿｽﾌ都ｿｽxｿｽﾄび出ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽiｿｽ痰ｦｿｽﾎ、ｿｽｿｽｿｽXｿｽgｿｽﾌ選ｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ続ゑｿｽｿｽﾄ呼ばゑｿｽﾜゑｿｽｿｽjｿｽB
ｿｽﾈので、SubItemｿｽﾆゑｿｽCheckedｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽﾆ会ｿｽｿｽ閧ｷｿｽｿｽﾌは危険ｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽｿｽCheckedｿｽﾈどの擾ｿｽﾔゑｿｽﾏ更ｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽﾄび出ｿｽｿｽｿｽﾉ陥ゑｿｽﾂ能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
monaa 2010/03/26(ｿｽｿｽ) 22:03:32
ｿｽｿｽｿｽﾟて使ｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽmｿｽｿｽｿｽﾉ具ｿｽｿｽｿｽｿｽsｿｽRｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽH
procedure TForm1.FormCreate(Sender: TObject);
var
i,p: Integer;
str:string;
item:TListItem;
begin
ListView1.Checkboxes:=True;
for i := 0 to 10 - 1 do
begin
item := ListView1.Items.Add;
p := i mod 4;
case p of
0:str:='ｿｽｿｽｿｽ`ｿｽFｿｽbｿｽN';
1:str:='ｿｽ`ｿｽFｿｽbｿｽN';
2:str:='ｿｽｿｽﾎ厄ｿｽｿｽ`ｿｽFｿｽbｿｽN';
3:str:='ｿｽｿｽﾎチｿｽFｿｽbｿｽN';
end;
item.Caption := str + IntToStr(i);
Item.StateIndex := p;
end;
end;
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
begin
if item.StateIndex >= 2 then
ListView1.Canvas.Font.Color := clRed;
end;
procedure TForm1.ListView1ItemChecked(Sender: TObject; Item: TListItem);
begin
if item=nil then
Exit;
if item.StateIndex >= 2 then
begin
item.Checked := not Item.Checked;
item.Checked := (item.StateIndex mod 2 = 1);
end;
end;
ｿｽﾏゑｿｽｿｽｿｽ 2010/03/27(ｿｽy) 11:06:00
>torｿｽｿｽｿｽｿｽAｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI
StateIndexｿｽﾅ管暦ｿｽｿｽｿｽｿｽﾄゑｿｽﾆは思ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽListViewｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅは、
ｿｽﾆゑｿｽｿｽｿｽｿｽbｿｽﾅゑｿｽｿｽｿｽﾋ。
ｿｽﾅゑｿｽｿｽｿｽｿｽﾅ不ｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽVCLｿｽﾉバｿｽOｿｽｿｽｿｽｿｽｿｽｿｽじゑｿｽcｿｽB
ｿｽｿｽｿｽOｿｽﾅ管暦ｿｽｿｽﾆなゑｿｽﾆ、OnClickｿｽAOnMouseDownｿｽﾆゑｿｽｿｽgｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾋ。ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽﾌ趣ｿｽ@ｿｽﾈどゑｿｽｿｽｿｽｿｽpｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
http://madia.world.coocan.jp/delphi/delphi_bbs/200805/200805_08050035.html
ｿｽｿｽｿｽｿｽｿｽｿｽﾉなりそｿｽｿｽｿｽﾈとゑｿｽｿｽｿｽDｿｽDｿｽDｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽlｿｽXｿｽﾈ場合ｿｽﾉ呼び出ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽうｿｽｿｽｿｽﾆは想ｿｽ閧ｵｿｽﾄまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽACheckedｿｽﾌ変会ｿｽｿｽﾉゑｿｽｿｽｿｽﾄ呼び出ｿｽｿｽｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽﾌ難ｿｽｿｽｿｽｿｽCheckedｿｽﾌ擾ｿｽﾔゑｿｽﾏゑｿｽｿｽｿｽﾌは危険ｿｽﾈのでゑｿｽｿｽﾋ。
ｿｽ痰ｦｿｽﾎでゑｿｽｿｽｿｽｿｽAｿｽuｿｽｿｽｿｽｿｽﾌチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽﾌ擾ｿｽﾔは変会ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽLｿｽﾌコｿｽ[ｿｽhｿｽｿｽ
OnChangeｿｽｿｽｿｽｿｽｿｽｿｽOnChangingｿｽﾉ移ゑｿｽｿｽAAllowChangeｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽFalseｿｽﾉゑｿｽｿｽｿｽﾌはセｿｽ[ｿｽtｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾈゑｿｽｿｽAｿｽ]ｿｽvｿｽﾈ難ｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽﾌコｿｽ[ｿｽhｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽJｿｽｿｽﾔゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ListViewｿｽAMemoｿｽATimerｿｽAｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽ鞫懶ｿｽｿｽｿｽｿｽ黷ｽImageListｿｽｿｽzｿｽuｿｽｿｽｿｽﾄまゑｿｽｿｽB
ｿｽｿｽｿｽﾌ撰ｿｽｿｽﾊは…ｿｽﾔ違いｿｽｿｽｿｽｿｽCheckedｿｽﾌ擾ｿｽﾔ変会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽiｿｽﾜ）
var
ItemChkd: Boolean;
StateIdx:Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=False; //ｿｽ^ｿｽCｿｽ}ｿｽ[ｿｽｿｽ‾ｿｽﾟてゑｿｽｿｽｿｽ
Memo1.ScrollBars:=ssBoth;
ListView1.ViewStyle:=vsReport; //ListViewｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽ
ListView1.Columns.Add;
ListView1.Checkboxes:=True;
ListView1.ReadOnly:=True;
ListView1.StateImages:=ImageList1;
ListView1.Items.Add.Caption:='ｿｽeｿｽXｿｽg'; //ｿｽeｿｽXｿｽgｿｽpｿｽｿｽ1ｿｽﾂゑｿｽｿｽｿｽItemｿｽｿｽuｿｽｿｽ
ListView1.Items[0].StateIndex:=0; //0=ｿｽ`ｿｽFｿｽbｿｽNONｿｽ鞫懶ｿｽA1=ｿｽ`ｿｽFｿｽbｿｽNOFFｿｽ鞫
ItemChkd:=not ListView1.Items[0].Checked; //Checkedｿｽﾌ変会ｿｽｿｽｿｽｿｽoｿｽp
StateIdx:=19; //StateIndexｿｽﾌ変会ｿｽｿｽｿｽｿｽoｿｽp
Timer1.Interval:=1; //ｿｽ^ｿｽCｿｽ}ｿｽ[ｿｽnｿｽｿｽ
Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
LIC:Boolean;
LIS:Integer;
begin
LIC:=ListView1.Items[0].Checked;
LIS:=ListView1.Items[0].StateIndex;
if (ItemChkd<>LIC) or (StateIdx<>LIS) then
begin
Memo1.Lines.Add(IfThen(LIC,'True ','False ')+IntToStr(LIS));
ItemChkd:=LIC;
StateIdx:=LIS;
end;
end;
procedure TForm1.ListView1Changing(Sender: TObject; Item: TListItem;
Change: TItemChange; var AllowChange: Boolean);
var
StrC:String;
begin
case Change of
ctText: StrC:='ctText';
ctImage: StrC:='ctImage';
ctState: StrC:='ctState';
end;
Memo1.Lines.Add('Changing!! '+StrC);
end;
end.
ｿｽｿｽｿｽｿｽﾈゑｿｽ 2010/03/27(ｿｽy) 11:09:07
>ImageListｿｽｿｽStateImagesｿｽﾉ設定しｿｽAStateIndexｿｽ操作すｿｽｿｽﾎ可能ｿｽﾈゑｿｽｿｽﾆゑｿｽmｿｽｿｽAｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
>ｿｽ¥ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽ鞫懶ｿｽﾌチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾆ、ｿｽ`ｿｽFｿｽbｿｽNｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ変会ｿｽ...
StateImagesｿｽﾉ指ｿｽ閧ｵｿｽｿｽImageListｿｽﾌ抵ｿｽｿｽﾌ趣ｿｽｿｽｿｽ鞫懶ｿｽｿｽｿｽﾈ会ｿｽｿｽﾌようｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、
0ｿｽﾔ目：ｿｽ`ｿｽFｿｽbｿｽNｿｽﾈゑｿｽ
1ｿｽﾔ目：ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽ
2ｿｽﾔ目：ｿｽOｿｽｿｽｿｽ[(ｿｽ`ｿｽFｿｽbｿｽNｿｽﾈゑｿｽ)
3ｿｽﾔ目：ｿｽOｿｽｿｽｿｽ[(ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽ)
ｿｽｿｽｿｽOｿｽﾌ画像ｿｽﾅチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽACheckboxesｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ Falseｿｽﾉゑｿｽｿｽﾄ、ｿｽﾈ会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾅチｿｽFｿｽbｿｽNｿｽｿｽﾘり換ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽB
ｿｽﾈゑｿｽｿｽACheckedｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾍチｿｽFｿｽbｿｽNｿｽﾌ有ｿｽｿｽｿｽﾌ費ｿｽｿｽｿｽﾉは使ｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、StateIndexｿｽﾌ値ｿｽﾅ費ｿｽｿｽ閧ｷｿｽｿｽB
type
TListView = class(ComCtrls.TListView)
private
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
end;
type
TForm1 = class(TForm)
ListView1: TListView;
......
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const
ResultSII = 3;
M_Kanou = 'ｿｽﾂ能'; // ｿｽ`ｿｽFｿｽbｿｽN ON/OFFｿｽﾏ更ｿｽｿｽ
M_Fuka = 'ｿｽsｿｽｿｽ'; // ｿｽOｿｽｿｽｿｽ[ (ON/OFFｿｽﾍゑｿｽｿｽﾌまゑｿｽ)
// ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽON/OFF
procedure TListView.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Item: TListItem;
begin
inherited;
Item := GetItemAt(X, Y);
if Item = nil then exit;
if Item.SubItems[ResultSII] = M_Kanou then begin
if htOnStateIcon in GetHitTestInfoAt(X, Y) then begin
if Item.StateIndex = -1 then Item.StateIndex := 0;
Item.StateIndex := 1 - Item.StateIndex;
end;
end;
end;
ｿｽｿｽ ｿｽeItemｿｽｿｽStateIndexｿｽﾍ、ｿｽｿｽｿｽﾚ設定時ｿｽﾉゑｿｽｿｽ轤ｩｿｽｿｽｿｽﾟセｿｽbｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ。
ｿｽｿｽｿｽuｿｽﾂ能ｿｽvｿｽｿｽｿｽｿｽuｿｽsｿｽﾂ」ｿｽﾉゑｿｽｿｽｿｽﾉは、Item.StateIndex := Item.StateIndex or 2;
ｿｽｿｽｿｽuｿｽsｿｽﾂ」ｿｽｿｽｿｽｿｽuｿｽﾂ能ｿｽvｿｽﾉゑｿｽｿｽｿｽﾉは、Item.StateIndex := Item.StateIndex and 1;
ｿｽﾏゑｿｽｿｽｿｽ 2010/03/27(ｿｽy) 11:12:34
ｿｽｿｽLｿｽﾌｿｽｿｽXｿｽgｿｽｿｽｿｽAｿｽｿｽｿｽﾉとゑｿｽｿｽﾄ肝心ｿｽﾈ擾ｿｽｿｽﾌコｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾔ違えｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ、
ListView1.Items[0].StateIndex:=0; //0=ｿｽ`ｿｽFｿｽbｿｽNOFFｿｽ鞫懶ｿｽA1=ｿｽ`ｿｽFｿｽbｿｽNONｿｽ鞫
ｿｽﾅゑｿｽｿｽB
ｿｽﾏゑｿｽｿｽｿｽ 2010/03/27(ｿｽy) 11:28:09
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽI ｿｽｿｽｿｽｿｽｿｽｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ！ｿｽI
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽIｿｽIｿｽI
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅの趣ｿｽｿｽﾌ暦ｿｽｿｽｿｽ超ゑｿｽｿｽｿｽｿｽeｿｽﾌようｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽﾎらくｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾏゑｿｽｿｽｿｽ 2010/03/27(ｿｽy) 11:31:45
>monaaｿｽｿｽｿｽｿｽAｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾜで擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI
ｿｽｿｽｿｽｿｽｿｽsｿｽRｿｽﾈゑｿｽｿｽﾆを理会ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ黷ｵｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽlｿｽﾅ悩ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽB
ObjectPascalｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽfｿｽｿｽｿｽﾜゑｿｽﾅ暦ｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽｿｽsｿｽｿｽsｿｽｿｽｿｽQｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽcｿｽｿｽｿｽｿｽｿｽStateIndexｿｽﾌ難ｿｽeｿｽﾉゑｿｽｿｽCheckedｿｽﾌ擾ｿｽﾔ変会ｿｽｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾉ搾ｿｽｿｽﾚの色ｿｽｿｽﾏゑｿｽｿｽｿｽA
ｿｽﾆゑｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ？ｿｽH
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽAｿｽmｿｽｿｽｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌどゑｿｽｿｽｿｽCheckedｿｽﾌ擾ｿｽﾔ変会ｿｽｿｽ制鯉ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽRｿｽｿｽﾔのチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾄチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽN
ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽoｿｽｿｽｿｽｿｽﾌゑｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾊの課托ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽcｿｽB
ｿｽｿｽｿｽﾌ、ｿｽｿｽｿｽﾌ、ｿｽAｿｽAｿｽｿｽoｿｽｿｽｿｽﾂ具ｿｽｿｽﾅ托ｿｽﾏ申ｿｽｿｽｿｽ無ゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽADelphi 6 Personalｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽﾄ、
OnItemCheckedｿｽﾆゑｿｽｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽcｿｽB
ｿｽｿｽｿｽﾗゑｿｽｿｽｿｽｿｽｿｽﾅは、Delphi 2009ｿｽｿｽｿｽｿｽﾌ新ｿｽ@ｿｽ¥ｿｽﾅはなゑｿｽｿｽｿｽｿｽﾆ（ｿｽOｿｽOｿｽｿｽｿｽﾄゑｿｽｿｽが擾ｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽjｿｽB
ｿｽｿｽDelphi 2009 ｿｽｿｽｿｽｿｽｿｽ C++Builder 2009 ｿｽﾌ新ｿｽ@ｿｽ¥ - RAD Studioｿｽiｿｽｿｽｿｽﾊ）
http://pdf.openvista.jp/view/medium/p76-77/http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate1/JA/pdf/devcommon.pdf
ｿｽｿｽ2ｿｽyｿｽ[ｿｽWｿｽﾚゑｿｽOnItemCheckedｿｽﾉつゑｿｽｿｽﾄ載ゑｿｽｿｽﾄまゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌに奇ｿｽｿｽpｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽﾅゑｿｽOnItemCheckedｿｽCｿｽxｿｽｿｽｿｽgｿｽAｿｽCｿｽﾉなゑｿｽﾜゑｿｽｿｽBｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽﾌクｿｽｿｽｿｽbｿｽNｿｽﾅ呼び出ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ抵ｿｽｿｽﾅゑｿｽ
Checkedｿｽﾌ変更ｿｽｿｽｿｽｿｽｿｽOkｿｽﾅゑｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾆ、Checkedｿｽﾌ擾ｿｽﾔ変会ｿｽｿｽｿｽStateIndexｿｽｿｽ0,1ｿｽﾈら制ｿｽｿｽｿｽｿｽｿｽｿｽｿｽA2ｿｽﾈゑｿｽ時OFFｿｽA3ｿｽﾈゑｿｽ時ONｿｽﾆゑｿｽｿｽｿｽﾈゑｿｽﾎ、
item.Checked := not Item.Checked; ｿｽｿｽｿｽｿｽｿｽﾌ行ｿｽﾅ鯉ｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽ謔､ｿｽﾈ？ｿｽH
item.Checked := (item.StateIndex mod 2 = 1); ｿｽｿｽ(item.StateIndex = 3); ｿｽﾅはダｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽﾍ、
item.Checked := not Item.Checked;
if item.StateIndex >= 2 then
item.Checked := (item.StateIndex mod 2 = 1);
ｿｽﾈゑｿｽAｿｽﾂゑｿｽｿｽﾂまゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽcｿｽB
monaaｿｽｿｽｿｽｿｽﾌ意図ｿｽｿｽｿｽﾄゑｿｽｿｽ體ｮｿｽｿｽﾆ、ｿｽｿｽｿｽﾌ具ｿｽｿｽﾟてゑｿｽｿｽ體ｮｿｽがｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ轤ｷｿｽﾝまゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾆ疑ｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽAOnCustomDrawｿｽﾅなゑｿｽOnAdvancedCustomDrawｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
OnCustomDrawｿｽﾌヘｿｽｿｽｿｽvｿｽﾉゑｿｽｿｽﾆ、ｿｽuｿｽcｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽﾌ描ｿｽ謠茨ｿｽｿｽｿｽ他のスｿｽeｿｽ[ｿｽWｿｽiｿｽwｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾆゑｿｽｿｽC
ｿｽﾜゑｿｽｿｽﾍｿｽｿｽXｿｽgｿｽrｿｽｿｽｿｽ[ｿｽﾌ描ｿｽ謔ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾈど）ｿｽﾅゑｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾉは，OnAdvancedCustomDraw ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾉ使ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽvｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾕんかゑｿｽﾕゑｿｽﾅゑｿｽｿｽcｿｽB
monaa 2010/03/27(ｿｽy) 14:24:26
ｿｽ闌ｳｿｽｿｽD7ｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽD7ｿｽﾅ難ｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅ難ｿｽｿｽしｿｽﾜゑｿｽｿｽｿｽｿｽﾋ？
ListViewｿｽｿｽOSｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽけまゑｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅチｿｽFｿｽbｿｽNｿｽCｿｽｿｽｿｽ[ｿｽWｿｽｿｽ成ｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでコｿｽｿｽｿｽｿｽｿｽgｿｽﾍ読ゑｿｽﾅまゑｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽｿｽﾅ暦ｿｽｿｽﾜゑｿｽｿｽB
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, CommCtrl;
type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
procedure ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
private
{ Private ｿｽ骭ｾ }
procedure ListViewWindowProcEx(var Message: TMessage) ;
procedure ListView1ItemChecked(Item: TListItem);
public
{ Public ｿｽ骭ｾ }
end;
var
Form1: TForm1;
OriginalListViewWindowProc:TWndMethod;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i,p: Integer;
str:string;
item:TListItem;
begin
OriginalListViewWindowProc := ListView1.WindowProc;
ListView1.WindowProc := ListViewWindowProcEx;
ListView1.Checkboxes:=True;
for i := 0 to 10 - 1 do
begin
item := ListView1.Items.Add;
p := i mod 4;
case p of
0:str:='ｿｽｿｽｿｽ`ｿｽFｿｽbｿｽN';
1:str:='ｿｽ`ｿｽFｿｽbｿｽN';
2:str:='ｿｽｿｽﾎ厄ｿｽｿｽ`ｿｽFｿｽbｿｽN';
3:str:='ｿｽｿｽﾎチｿｽFｿｽbｿｽN';
end;
item.Caption := str + IntToStr(i);
Item.StateIndex := p;
item.Checked := not Item.Checked; //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ‾ｿｽ¥
item.Checked := not Item.Checked; //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ‾ｿｽ¥
end;
end;
procedure TForm1.ListView1ItemChecked(Item: TListItem);
begin
if item=nil then
Exit;
if item.StateIndex >= 2 then
item.Checked := (item.StateIndex mod 2 = 1);
end;
//This code was copyed from...
//http://delphi.about.com/od/delphitips2007/qt/listviewchecked.htm
procedure TForm1.ListViewWindowProcEx(var Message: TMessage) ;
var
listItem : TListItem;
begin
if Message.Msg = CN_NOTIFY then
begin
if PNMHdr(Message.LParam)^.Code = LVN_ITEMCHANGED then
begin
with PNMListView(Message.LParam)^ do
begin
if (uChanged and LVIF_STATE) <> 0 then
begin
if ((uNewState and LVIS_STATEIMAGEMASK) shr 12) <> ((uOldState and LVIS_STATEIMAGEMASK) shr 12) then
begin
listItem := listView1.Items[iItem];
if listItem.StateIndex >= 2 then
ListView1ItemChecked(listItem);
end;
end;
end;
end;
end;
//original ListView message handling
OriginalListViewWindowProc(Message) ;
end;
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
begin
if item.StateIndex >= 2 then
ListView1.Canvas.Font.Color := clRed;
end;
end.
ｿｽﾏゑｿｽｿｽｿｽ 2010/03/28(ｿｽｿｽ) 08:41:09
>monaaｿｽｿｽｿｽｿｽAｿｽfｿｽｿｽｿｽｿｽｿｽﾘゑｿｽﾔゑｿｽｿｽﾉ具ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ恐ｿｽkｿｽﾅゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽ告でゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽしｿｽﾜゑｿｽｿｽI
ｿｽｿｽStateImagesｿｽｿｽｿｽﾝ抵ｿｽ http://sakuratan.ddo.jp/imgboard/img-box/img20100327224430.png
ｿｽｿｽﾔ擾ｿｽﾍクｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄチｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽBｿｽuｿｽｿｽﾎ」ｿｽﾈ外ｿｽﾌチｿｽFｿｽbｿｽNONｿｽ^OFFｿｽｿｽｿｽRｿｽﾅゑｿｽｿｽB
ｿｽｿｽ item.Checked := not Item.Checked; //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ‾ｿｽ¥
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ1ｿｽﾂコｿｽｿｽｿｽｿｽｿｽgｿｽAｿｽEｿｽgｿｽｿｽｿｽﾄみゑｿｽﾆ、ｿｽuｿｽｿｽﾎ」ｿｽﾈ外ｿｽﾌチｿｽFｿｽbｿｽNｿｽｿｽﾔゑｿｽｿｽｿｽｿｽ]ｿｽｿｽｿｽﾜゑｿｽｿｽB
2ｿｽﾂとゑｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽAｿｽEｿｽgｿｽｿｽｿｽﾄみゑｿｽﾆ、ｿｽｿｽﾎチｿｽFｿｽbｿｽNｿｽﾌチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽiｿｽHｿｽj
1ｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾎ出ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽStateImagesｿｽﾝ抵ｿｽｿｽ http://sakuratan.ddo.jp/imgboard/img-box/img20100327224545.png
ｿｽcｿｽOｿｽﾈゑｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽ鞫懶ｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽﾔのまま変会ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽcｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅチｿｽFｿｽbｿｽNｿｽCｿｽｿｽｿｽ[ｿｽWｿｽｿｽ成ｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾟゑｿｽｿｽ邇ｩｿｽｿｽ鞫懶ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽcｿｽCｿｽｿｽｿｽ[ｿｽWｿｽﾆは画像ｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽｿｽﾋ？
ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽﾍ趣ｿｽｿｽﾌ暦ｿｽｿｽｿｽｿｽﾍるかｿｽﾉ抵ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ListViewWindowProcExｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽOnItemCheckedｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｽｿｽﾟとゑｿｽｿｽｿｽｿｽﾌは想ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽE listView1.Items[iItem]; ｿｽｿｽｿｽｿｽｿｽｿｽiItemｿｽｿｽｿｽﾄどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ暦ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽHｿｽH
ｿｽE Item.Checkedｿｽﾍ擾ｿｽｿｽｿｽｿｽﾝ抵ｿｽﾅ必ｿｽｿｽFalseｿｽﾉなゑｿｽﾍゑｿｽｿｽﾈのに、ｿｽﾈゑｿｽFalseｿｽｿｽTrueｿｽｿｽｿｽｿｽﾝに包ｿｽｿｽﾔのゑｿｽｿｽHｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ轤ｯｿｽﾅゑｿｽｿｽB
ｿｽRｿｽ[ｿｽhｿｽﾌ一部ｿｽｿｽﾏ更ｿｽｿｽｿｽﾄ擾ｿｽｿｽ]ｿｽｿｽｿｽ體ｮｿｽｿｽ得ようｿｽﾆ趣ｿｽｿｽsｿｽｿｽｿｽしｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽOｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽA
ｿｽｿｽｿｽﾜゑｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽcｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽﾏゑｿｽｿｽｿｽ 2010/03/28(ｿｽｿｽ) 08:42:42
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI ｿｽｿｽｿｽﾒゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆバｿｽbｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽIｿｽI
ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
http://sakuratan.ddo.jp/imgboard/img-box/img20100328083657.png
ｿｽｿｽｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽﾍゑｿｽCheckboxesｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽTrue/Falseｿｽﾉは影ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾍ通擾ｿｽﾌ包ｿｽｿｽﾑのようｿｽｿｽTForm1.FormCreateｿｽ頭に、TListView.MouseDownｿｽｿｽｿｽｿｽﾌ会ｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽAｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽoｿｽｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾔでゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾈゑｿｽYｿｽﾝまゑｿｽｿｽｿｽｿｽB
functionｿｽﾆゑｿｽｿｽﾍ撰ｿｽﾉ置ｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽLｿｽqｿｽｿｽvｿｽｿｽｿｽoｿｽｿｽｿｽAｿｽｿｽｿｽﾑ替ゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ動ｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
ｿｽｿｽｿｽﾌ変てゑｿｽｿｽｿｽｿｽﾈ「ResultSIIｿｽvｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽ{ｿｽｿｽｿｽﾉ奇ｿｽｿｽﾓ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ^ｿｽ竄ｪｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾅゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽE TListView.MouseDownｿｽﾌ位置ｿｽｿｽTForm1.FormCreateｿｽｿｽｿｽOｿｽﾈゑｿｽﾎ良ゑｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽE overrideｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ@ｿｽiｿｽﾅゑｿｽｿｽｿｽﾋ？ｿｽjｿｽﾅなゑｿｽｿｽAｿｽﾊ擾ｿｽｿｽOnMouseDownｿｽﾉ難ｿｽｿｽｿｽ驍ｱｿｽﾆは出ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾈゑｿｽｿｽAListViewｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽﾌようｿｽﾈ擾ｿｽｿｽSｿｽﾒほど欲ｿｽｿｽｿｽﾄゑｿｽﾆ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅゑｿｽｿｽﾌで、ｿｽFｿｽｿｽｿｽからいｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽbｿｽｿｽLｿｽｿｽｿｽﾈ趣ｿｽｿｽYｿｽﾆゑｿｽｿｽﾄ残ｿｽｿｽｿｽｿｽｿｽﾟ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽﾄ用ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽAｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBmonaaｿｽｿｽｿｽから教ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽbｿｽｿｽｿｽｿｽﾅに撰ｿｽｿｽ闕橸ｿｽｿｽﾅまゑｿｽｿｽB
ｿｽﾈんかゑｿｽｿｽﾌトｿｽsｿｽbｿｽNｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽ轤ｯｿｽﾉなゑｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ？
ｿｽdｿｽvｿｽﾈのゑｿｽ 2010/03/28(ｿｽｿｽ) 23:50:03
TForm1 ｿｽﾌクｿｽｿｽｿｽXｿｽ骭ｾｿｽｿｽｿｽｿｽO(ｿｽｿｽ)ｿｽｿｽ TListview ｿｽﾌクｿｽｿｽｿｽXｿｽ骭ｾｿｽｿｽuｿｽｿｽｿｽｿｽｿｽﾆ。
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ TListView.MouseDown ｿｽｿｽ TForm1.FormCreate ｿｽﾌ位置ｿｽﾖ係ｿｽﾍどゑｿｽｿｽﾅゑｿｽｿｽｿｽﾜゑｿｽﾈゑｿｽｿｽB
OnMouseDownｿｽnｿｽｿｽｿｽhｿｽｿｽ ｿｽｿｽ MouseDownｿｽｿｽoverrideｿｽﾍ、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽﾇゑｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾍ場合ｿｽﾉゑｿｽ閧ｯｿｽｿｽAｿｽDｿｽﾝの厄ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾈ？
KHE00221 2010/03/30(ｿｽｿｽ) 01:07:12
>ｿｽｿｽｿｽﾌ変てゑｿｽｿｽｿｽｿｽﾈ「ResultSIIｿｽvｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽ{ｿｽｿｽｿｽﾉ奇ｿｽｿｽﾓ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾂ人ｿｽIｿｽﾉゑｿｽ [ResultSII] ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽﾇゑｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ...ｿｽｿｽｿｽｿｽﾈのはどゑｿｽｿｽｿｽｿｽﾈゑｿｽ
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ComCtrls, CommCtrl, StdCtrls;
type
TListItem = class(ComCtrls.TListItem)
private
protected
function GetChecked: Boolean;
procedure SetChecked(Value: Boolean);
function GetEnabled: Boolean;
procedure SetEnabled(Value: Boolean);
function GetStateIndex: Integer;
procedure SetStateIndex(Value: Integer);
public
published
property Checked: Boolean read GetChecked write SetChecked;
property Enabled: Boolean read GetEnabled write SetEnabled;
property StateIndex: Integer read GetStateIndex write SetStateIndex;
end;
TListView = class(ComCtrls.TListView);
TForm2 = class(TForm)
ListView1: TListView;
ImageList1: TImageList;
Button1: TButton;
Button2: TButton;
procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ListView1DrawItem(Sender: TCustomListView; Item: TListItem;
Rect: TRect; State: TOwnerDrawState);
procedure FormCreate(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
public
{ Public ｿｽ骭ｾ }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
function TListItem.GetStateIndex;
begin
Result := inherited StateIndex;
end;
procedure TListItem.SetStateIndex(Value: Integer);
begin
inherited StateIndex := Value;
if Value and 1 = 0 then
begin
inherited Checked := False;
end
else
begin
inherited Checked := True;
end;
end;
function TListItem.GetEnabled: Boolean;
begin
if StateIndex and 2 = 0 then Result := False else Result := True;
end;
procedure TListItem.SetEnabled(Value: Boolean);
begin
if Value = True then
begin
if StateIndex = -1 then
begin
StateIndex := 2;
end
else
begin
StateIndex := StateIndex or 2;
end;
end
else
begin
if StateIndex = -1 then
begin
StateIndex := 0;
end
else
begin
StateIndex := StateIndex and (255-2);
end;
end;
end;
function TListItem.GetChecked: Boolean;
begin
Result := inherited Checked;
end;
procedure TListItem.SetChecked(Value: Boolean);
begin
inherited Checked := Value;
if Checked = True then
begin
if StateIndex = -1 then
begin
StateIndex := 1
end
else
begin
StateIndex := StateIndex or 1;
end;
end
else
begin
if StateIndex = -1 then
begin
StateIndex := 0;
end
else
begin
StateIndex := StateIndex and (255-1);
end;
end;
end;
procedure TForm2.FormCreate(Sender: TObject);
var
ListItem: TListItem;
begin
ListItem := TListItem(ListView1.Items.Add);
ListItem.Caption := 'NO 1';
ListItem.Checked := False;
ListItem.Enabled := False;
ListItem := TListItem(ListView1.Items.Add);
ListItem.Caption := 'NO 2';
ListItem.Checked := True;
ListItem.Enabled := False;
ListItem := TListItem(ListView1.Items.Add);
ListItem.Caption := 'NO 4';
ListItem.Enabled := True;
ListItem.Checked := True;
ListItem := TListItem(ListView1.Items.Add);
ListItem.Caption := 'NO 3';
ListItem.Checked := False;
ListItem.Enabled := True;
ListView1.OwnerDraw := True;
ListView1.ViewStyle := vsReport;
end;
procedure TForm2.ListView1DrawItem(Sender: TCustomListView; Item: TListItem;
Rect: TRect; State: TOwnerDrawState);
var
Bitmap: TBitmap;
begin
if Item.Enabled = False then
begin
ListView1.Canvas.Font.Color := clGray;
end;
Bitmap := TBitmap.Create;
Bitmap.PixelFormat := pf32bit;
Bitmap.SetSize(16,16);
ImageList1.GetBitmap(Item.StateIndex,Bitmap);
Sender.Canvas.TextRect(Rect,Rect.Left+20,Rect.Top,Item.Caption);
Sender.Canvas.Draw(Rect.Left,Rect.Top,Bitmap);
Bitmap.Free;
end;
procedure TForm2.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
ListItem: TListItem;
begin
ListItem := TListItem(ListView1.GetItemAt(X,Y));
if Assigned(ListItem) = True then
begin
if htOnStateIcon in ListView1.GetHitTestInfoAt(X, Y) then
begin
if ListItem.Enabled = True then
begin
ListItem.Checked := not ListItem.Checked;
end;
end;
end;
Exit;
end;
end.
