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

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2011/06/07(ｿｽｿｽ) 20:41:09

ｿｽｿｽｿｽｿｽstringgridｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽ
ｿｽﾟ具ｿｽｿｽﾌ趣ｿｽｿｽｿｽﾈどゑｿｽﾇゑｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌカｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽcｿｽﾌカｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾔゑｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ
ｿｽJｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈる現ｿｽﾛゑｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾈゑｿｽﾏ托ｿｽｿｽIｿｽﾈセｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌカｿｽｿｽｿｽｿｽｿｽｿｽｿｽcｿｽﾉゑｿｽｿｽﾔゑｿｽﾈゑｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾉゑｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾈ会ｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌ一部ｿｽﾅゑｿｽ

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
  val: integer;
begin
     StringGrid1.ColCount := 52;
     StringGrid1.Cells[0,0]:='ID';
     StringGrid1.Cells[0,1]:='ID';
     StringGrid1.Cells[0,2]:='ID';
     StringGrid1.Cells[1,0]:='ｿｽｿｽｿｽO';
     StringGrid1.Cells[1,1]:='ｿｽｿｽｿｽO';
     StringGrid1.Cells[1,2]:='ｿｽｿｽｿｽO';
     StringGrid1.Cells[2,0]:='ｿｽNｿｽｿｽ';
     StringGrid1.Cells[2,1]:='ｿｽNｿｽｿｽ';
     StringGrid1.Cells[2,2]:='ｿｽNｿｽｿｽ';
     StringGrid1.Cells[3,0]:='ｿｽｿｽｿｽｿｽ';
     StringGrid1.Cells[3,1]:='ｿｽｿｽｿｽｿｽ';
     StringGrid1.Cells[3,2]:='ｿｽｿｽｿｽｿｽ';
     for I := 4 to 51 do begin
        StringGrid1.Cells[I,0]:='2011/04/19';
        StringGrid1.Cells[I,1]:='OK';
        if I mod 2 = 1 then begin
          StringGrid1.Cells[I,2]:= 'OK';
        end else begin
          StringGrid1.Cells[I,2]:= 'NG';
        end;
     end;
     StringGrid1.DefaultDrawing := False;
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  col1,col2 :Integer;
begin
  with StringGrid1 do begin
    DefaultDrawing:=False;

    if (ARow  <= 2)and(ACol >= 4)and(gdFixed in State) then  begin
      case ACol mod 2 of
        0 : Rect.Right := Rect.Right + ColWidths[ACol+1];
        1 : Rect.Left  := Rect.Left  - ColWidths[ACol-1] - 1;
      end;
    end else if (ACol <= 3)and(gdFixed in State)then begin
      case ARow of
        0  : Rect.Bottom := Rect.Bottom + RowHeights[1];
        2  : Rect.Top  := Rect.Top  - RowHeights[1]- RowHeights[0] - 1;
      end;
    end;
    if ((gdSelected in State) )then begin
        Canvas.Brush.Color := clHotLight;
        Canvas.Font.Color := clWhite;
    end else begin
      if (gdFixed in State) then begin
        Canvas.Brush.Color := clBtnFace;
      end else begin
        Canvas.Brush.Color := clWindow;
        Canvas.Font.Color := clBlack;
      end;
    end;
    Canvas.FillRect(Rect);
    DrawEdge(Canvas.Handle, Rect, BDR_RAISEDINNER, BF_RECT);
    DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, Rect,
            DT_SINGLELINE or DT_VCENTER or DT_CENTER);
  end;
end;

tor 2011/06/08(ｿｽｿｽ) 00:04:35

ｿｽｿｽﾊ論ｿｽﾆゑｿｽｿｽﾄセｿｽｿｽｿｽﾌ描ｿｽｿｽｿｽｿｽｿｽｿｽ鼾
ｿｽuｿｽZｿｽｿｽAｿｽﾌ描ｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽﾌ趣ｿｽｿｽﾉセｿｽｿｽBｿｽｿｽ齒擾ｿｽﾉ描ｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾆ不ｿｽ合ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾆ「ｿｽZｿｽｿｽAｿｽﾌ隣は必ｿｽｿｽｿｽZｿｽｿｽBｿｽvｿｽﾆ鯉ｿｽｿｽﾟ打ゑｿｽｿｽｿｽｿｽﾄ描ｿｽ謔ｵｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾆ必ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽ阯ｧｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽけｿｽﾅゑｿｽｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ「ｿｽZｿｽｿｽAｿｽﾌ描ｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅはセｿｽｿｽAｿｽﾌ範囲ゑｿｽｿｽｿｽｿｽv
ｿｽuｿｽZｿｽｿｽBｿｽﾌ描ｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅはセｿｽｿｽBｿｽﾌ範囲ゑｿｽｿｽｿｽｿｽvｿｽ`ｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽyｿｽﾈとゑｿｽｿｽｿｽﾅ、ClipRectｿｽｿｽﾝ定しｿｽﾄセｿｽｿｽｿｽﾌ範囲外ｿｽﾉはみ出ｿｽﾈゑｿｽｿｽ謔､ｿｽNｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽﾄみゑｿｽﾆゑｿｽｿｽｿｽｿｽﾌはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2011/06/08(ｿｽｿｽ) 13:00:57

torｿｽｿｽｿｽｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ClipRectｿｽﾍ使ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽ
>ｿｽｿｽｿｽｿｽｿｽｿｽﾆ「ｿｽZｿｽｿｽAｿｽﾌ描ｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅはセｿｽｿｽAｿｽﾌ範囲ゑｿｽｿｽｿｽｿｽv
>ｿｽuｿｽZｿｽｿｽBｿｽﾌ描ｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅはセｿｽｿｽBｿｽﾌ範囲ゑｿｽｿｽｿｽｿｽvｿｽ`ｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽﾆ鯉ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽ
1 : Rect.Left  := Rect.Left  - ColWidths[ACol-1] - 1;
ｿｽｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽAｿｽEｿｽgｿｽｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽﾄみゑｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽIｿｽﾉ擾ｿｽｿｽｿｽｿｽﾛ托ｿｽﾍ残ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ
ｿｽJｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔる現ｿｽﾛはなゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾇのとゑｿｽｿｽｿｽ
ｿｽZｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽZｿｽｿｽｿｽﾌ描ｿｽｿｽｿｽLｿｽﾎゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｾｿｽｿｽｿｽｿｽｿｽﾆ気ｿｽtｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2011/06/08(ｿｽｿｽ) 13:17:38

ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
1 : Rect.Left  := Rect.Left  - ColWidths[ACol-1] - 1;
ｿｽｿｽ
1:Rect.Left := Rect.Right;
ｿｽﾉ変更ｿｽｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽｿｽ
ｿｽﾌ間違いｿｽﾅゑｿｽｿｽB
0ｿｽﾌセｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、
1ｿｽﾌセｿｽｿｽｿｽﾍ包ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

Mr.XRAY 2011/06/11(ｿｽy) 19:32:43

ｿｽﾝなゑｿｽｿｽこゑｿｽﾉゑｿｽｿｽﾍ．Mr.XRAYｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏとゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽD

StringGridｿｽﾌデｿｽ[ｿｽ^ｿｽZｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾍ鯉ｿｽｿｽ¥ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾉ面倒ｿｽﾅゑｿｽｿｽD
ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ，ｿｽsｿｽﾌのゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽCｿｽtｿｽｿｽｿｽ[ｿｽEｿｽFｿｽA
ｿｽﾌコｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽD
ｿｽﾐ会ｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽﾌで，ｿｽQｿｽlｿｽﾉなゑｿｽﾎ幸ｿｽｿｽｿｽﾅゑｿｽ

[051_ｿｽZｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽZColorStringGridｿｽRｿｽｿｽｿｽ|]
http://mrxray.on.coocan.jp/Delphi/plSamples/051_ZColorStringGridCompo.htm

Created by board of various Programming Library.