|
ｿｽ@ｿｽｿｽStringGrid ｿｽsｿｽﾚ難ｿｽｿｽﾌ把ｿｽｿｽ
|
ｿｽ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
suzuo 2011/02/23(ｿｽｿｽ) 21:32:16
XPｿｽ@D2007
StringGridｿｽﾉてカｿｽｿｽｿｽｿｽｿｽgｿｽsｿｽｿｽｿｽﾗてに、ｿｽFｿｽｿｽﾂゑｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽFｿｽｿｽｿｽﾌは DrawCellｿｽﾉて托ｿｽｿｽｿｽﾂ能ｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽ
ｿｽsｿｽﾌ移難ｿｽｿｽﾌ把ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ}ｿｽEｿｽXｿｽzｿｽCｿｽ[ｿｽｿｽｿｽEｿｽｿｽｿｽLｿｽ[ｿｽEｿｽNｿｽｿｽｿｽbｿｽNｿｽSｿｽﾄで ｿｽsｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽcｿｽｿｽｿｽｿｽｿｽﾄ、StringgridｿｽｿｽｿｽｿｽtｿｽｿｽｿｽbｿｽVｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
OnSelectCellｿｽﾍ、ｿｽｿｽｿｽOｿｽﾉ費ｿｽｿｽｿｽｿｽﾌようｿｽﾅ、Refreshｿｽｿｽｿｽﾄゑｿｽ
ｿｽｿｽｿｽｿｽsｿｽﾌ、ｿｽJｿｽｿｽｿｽｿｽｿｽgｿｽZｿｽｿｽｿｽﾆ托ｿｽｿｽﾌセｿｽｿｽｿｽﾆの色ｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽsｿｽｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽcｿｽｿｽｿｽｿｽｿｽｿｽﾉは ｿｽﾇのイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽYｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
Kenny 2011/02/24(ｿｽｿｽ) 00:07:13
ｿｽｿｽｿｽoｿｽﾌ変形ｿｽﾅゑｿｽｿｽｿｽ
private
{ Private ｿｽ骭ｾ }
TargetRow: integer; //ｿｽsｿｽﾊ置ｿｽｿｽLｿｽｿｽｿｽｿｽｿｽｿｽﾏ撰ｿｽ
//ｿｽrｿｽｿｽｿｽﾈ暦ｿｽ/////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
begin
TargetRow:=1 //ｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽﾌ設抵ｿｽ
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol<>0) and (ARow=TargetRow) then begin //ACol=0ｿｽﾍ固抵ｿｽｿｽﾌ位置
Stringgrid1.Canvas.Brush.Color:=clRed; //ｿｽFｿｽﾍゑｿｽｿｽDｿｽﾝゑｿｽ
StringGrid1.Canvas.FillRect(Rect);
end;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
TargetRow:=ARow; //ｿｽZｿｽｿｽｿｽｿｽIｿｽだとゑｿｽｿｽﾉ行ｿｽﾊ置ｿｽｿｽLｿｽｿｽ
StringGrid1.Repaint //ｿｽﾄ描ｿｽｿｽ
end;
ｿｽｿｽｿｽｿｽﾅカｿｽｿｽｿｽｿｽｿｽgｿｽsｿｽSｿｽﾄに色ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
suzuo 2011/02/24(ｿｽｿｽ) 07:59:12
KennyｿｽｿｽｿｽｿｽAｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
SelectCellｿｽﾍ、ｿｽｿｽｿｽOｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで ｿｽｿｽｿｽOｿｽﾈら元ｿｽｿｽColｿｽ@Rowｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
OnSelectCellｿｽﾅは ｿｽｿｽｿｽﾉ選ｿｽｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾋ。
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
