ｿｽ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

Saki 2010/11/07(ｿｽｿｽ) 01:17:12

StringGridｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾛに、ｿｽ¥ｿｽｿｽｿｽがゑｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ
ｿｽｿｽｿｽﾝ難ｿｽｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽsｿｽﾚなのゑｿｽｿｽかｿｽｿｽﾃらくｿｽﾈゑｿｽﾌで、
ｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽﾌゑｿｽｿｽｿｽsｿｽｿｽFixedｿｽｿｽﾌ色ｿｽ他の行ｿｽﾆ別な色ｿｽﾉゑｿｽｿｽｿｽ
ｿｽかｿｽｿｽ竄ｷｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇのようｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
OnDrawCellｿｽﾅ色ｿｽXｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽかｿｽｿｽﾉなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB

Kenny 2010/11/07(ｿｽｿｽ) 09:43:18

ｿｽVｿｽｿｽｿｽvｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBD7+WinXPｿｽﾅ確ｿｽFｿｽB

  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);
var i: integer;
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;

Saki 2010/11/07(ｿｽｿｽ) 20:26:39

Kennyｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽ

ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

StringGrid1SelectCellｿｽｿｽRowｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ‾ｿｽ¥ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽE(^^;

ｿｽSｿｽｿｽDrawCellｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽE(^^;
AROWｿｽｿｽROWｿｽｿｽｿｽrｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾄ・ｿｽEｿｽE

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBm(_ _)m

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ