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

ｿｽｿｽｿｽｿｽｿｽ 2004/05/15(ｿｽy) 18:00:07

ｿｽｿｽｿｽﾝまゑｿｽｿｽが具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
StringGridｿｽﾌゑｿｽｿｽｿｽ齦費ｿｽﾌセｿｽｿｽｿｽﾌ色ｿｽｿｽhｿｽｿｽﾂぶゑｿｽｿｽﾉゑｿｽ
ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽmｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ttt 2004/05/15(ｿｽy) 19:15:24

ｿｽｿｽｿｽｿｽｿｽQｿｽlｿｽｿｽ

http://www2.big.or.jp/‾osamu/Delphi/delphi-browse.cgi?index=068882

ttt 2004/05/15(ｿｽy) 19:17:27

ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽFｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ背ｿｽiｿｽFｿｽﾈゑｿｽABrush.Color ｿｽｿｽﾝ定しｿｽｿｽ FillRect() ｿｽB

jok 2004/05/16(ｿｽｿｽ) 05:41:10

ｿｽﾈ会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾅは、StringGrid1 ｿｽﾌ固定じｿｽｿｽﾈゑｿｽｿｽZｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌセｿｽｿｽｿｽｿｽ
ｿｽwｿｽiｿｽFｿｽｿｽｿｽｿｽｿｽFｿｽﾉなゑｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽxｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾆゑｿｽﾆに戻ゑｿｽﾜゑｿｽｿｽB

procedure TForm1.StringGrid1Click(Sender: TObject);
var
  CurPos:TPoint;
  ic,ir:integer;
  r:TRect;
begin
  with StringGrid1 do begin
    CurPos := ScreenToClient(Mouse.CursorPos);
    MouseToCell(CurPos.x,CurPos.y,ic,ir);
    if Assigned(Objects[ic,ir]) then
      Objects[ic,ir] := nil
    else
      Objects[ic,ir] := TObject(clAqua);
    r := CellRect(ir,ic);
    InvalidateRect(Handle,@r,true);
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1 do begin
    if Assigned(Objects[ACol,ARow]) then begin
      Canvas.Brush.Color := TColor(Objects[ACol,ARow]);
      Canvas.FillRect(Rect);
    end;
    Canvas.TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
  end;
end;

jok 2004/05/18(ｿｽｿｽ) 10:57:21

ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽB

ｿｽ‾ｿｽ@r := CellRect(ir,ic);
ｿｽｿｽｿｽ@r := CellRect(ic,ir);

ｿｽ‾ｿｽ@InvalidateRect(Handle,@r,true);
ｿｽｿｽｿｽ@InvalidateRect(Handle,@r,false);

Created by board of various Programming Library.