ｿｽ@ ｿｽ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/05/19(ｿｽｿｽ) 13:16:52

DelphiｿｽTｿｽﾅは、ｿｽｿｽｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌに、
ｿｽｿｽｿｽlｿｽﾌソｿｽ[ｿｽXｿｽｿｽDelphi2010ｿｽﾅ行ｿｽｿｽｿｽﾆ、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽQｿｽdｿｽ¥ｿｽｿｽｿｽﾉなゑｿｽﾌゑｿｽ
ｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  (Sender as TStringGrid).Canvas.FillRect(Rect);
  DrawText((Sender as TStringGrid).Canvas.Handle, PChar((Sender as TStringGrid).Cells[ACol,ARow]),
           Length((Sender as TStringGrid).Cells[ACol,ARow]),
           Rect, DT_SingleLine or DT_VCenter or DT_Center);
end;

au 2011/05/19(ｿｽｿｽ) 13:38:10

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽｿｽ
(Sender as TStringGrid).Canvas.Brush.Style := bsSolid;
(Sender as TStringGrid).Canvas.FillRect(Rect);

ｿｽﾈゑｿｽ 2011/05/19(ｿｽｿｽ) 14:28:06

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾂ鯉ｿｽｿｽｿｽｿｽﾌゑｿｽYｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽZｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ(FIXEDｿｽｿｽ)ｿｽﾈので、
ｿｽOｿｽｿｽｿｽ[ｿｽｿｽｿｽﾛゑｿｽｿｽFｿｽﾍ残ｿｽｿｽｿｽﾄほゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
(Sender as TStringGrid).Canvas.Brush.Style := bsSolid;
ｿｽｿｽｿｽﾆ、ｿｽ^ｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽﾌで・ｿｽEｿｽEｿｽEｿｽB

au 2011/05/19(ｿｽｿｽ) 14:47:54

StateｿｽｿｽgdFixedｿｽｿｽｿｽﾜまゑｿｽﾄゑｿｽｿｽｿｽBrush.colorｿｽｿｽFixedColorｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽFillCharｿｽｿｽｿｽｿｽ

au 2011/05/19(ｿｽｿｽ) 14:49:08

FillCharｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽFillRectｿｽﾅゑｿｽｿｽｿｽ

ｿｽﾈゑｿｽ 2011/05/19(ｿｽｿｽ) 18:09:27

Brush.colorｿｽｿｽFixedColorｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽEｿｽEｿｽEｿｽﾉゑｿｽｿｽｿｽｿｽｿｽA
ｿｽSｿｽｿｽｿｽAｿｽOｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽﾅ抵ｿｽsｿｽﾌグｿｽｿｽｿｽ[ｿｽｿｽｿｽ逕抵ｿｽﾌグｿｽｿｽｿｽfｿｽｿｽｿｽGｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽしｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。

ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ 2011/05/19(ｿｽｿｽ) 18:20:36

D2010ｿｽﾈゑｿｽﾎ、ｿｽｿｽｿｽOｿｽﾅグｿｽｿｽｿｽfｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾅ塗ｿｽｿｽﾂぶゑｿｽｿｽﾌは難しｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇ、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽABrush.Style ｿｽｿｽ bsClear ｿｽﾌままで背ｿｽiｿｽｿｽhｿｽ轤ｸｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ`ｿｽｿｽﾊ置ｿｽｿｽ OffsetRect ｿｽﾅ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽｿｽｿｽｿｽSｿｽﾉ茨ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ繽托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽﾈゑｿｽ 2011/05/19(ｿｽｿｽ) 19:07:40

OffsetRectｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾇ、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ}ｿｽYｿｽｿｽｿｽHｿｽHｿｽH
if (gdFixed In State) then begin
  OffsetRect(Rect, 10, 10);
  //(Sender as TStringGrid).Canvas.Brush.Style := bsSolid;
  //(Sender as TStringGrid).Canvas.Brush.Color := (Sender as TStringGrid).FixedColor;
  //(Sender as TStringGrid).Canvas.Brush.Style := bsClear;
  (Sender as TStringGrid).Canvas.FillRect(Rect);
  DrawText((Sender as TStringGrid).Canvas.Handle, PChar((Sender as TStringGrid).Cells[ACol,ARow]),
                         Length((Sender as TStringGrid).Cells[ACol,ARow]),
                         Rect, DT_SingleLine or DT_VCenter or DT_RIGHT);
end else begin
  (Sender as TStringGrid).Canvas.Brush.Style := bsSolid;
  (Sender as TStringGrid).Canvas.FillRect(Rect);
  DrawText((Sender as TStringGrid).Canvas.Handle, PChar((Sender as TStringGrid).Cells[ACol,ARow]),
                         Length((Sender as TStringGrid).Cells[ACol,ARow]),
                         Rect, DT_SingleLine or DT_VCenter or DT_CENTER);
end;

HOta 2011/05/20(ｿｽｿｽ) 19:55:48

FillRect(Rect);ｿｽﾅ茨ｿｽxｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆ、DelphiｿｽTｿｽﾅゑｿｽｿｽdｿｽﾉなゑｿｽﾜゑｿｽｿｽB

TS 2011/05/20(ｿｽｿｽ) 21:36:39

HOtaｿｽｿｽｿｽが鯉ｿｽｿｽｿｽｿｽｿｽlｿｽﾉ鯉ｿｽｿｽﾇ趣ｿｽｿｽOｿｽﾅ全ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾞ様ｿｽﾉなゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200908/09080042.txt

KHE00221 2011/05/21(ｿｽy) 07:35:39

>DEPHI5 ｿｽﾅゑｿｽDelphiｿｽTｿｽﾅは、ｿｽｿｽｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌに、
>ｿｽｿｽｿｽlｿｽﾌソｿｽ[ｿｽXｿｽｿｽDelphi2010ｿｽﾅ行ｿｽｿｽｿｽﾆ、
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽQｿｽdｿｽ¥ｿｽｿｽｿｽﾉなゑｿｽﾌゑｿｽ
>ｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

DELPHI 5 ｿｽﾅゑｿｽ
Canvas.Brush.Style := bsSolid;
ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽ

DELHI 2010 ｿｽﾅゑｿｽ
Canvas.Brush.Style := bsClear;
ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽ

ｿｽwｿｽiｿｽﾆ包ｿｽｿｽｿｽｿｽiｿｽｿｽｿｽせ）ｿｽｿｽ`ｿｽｿｽｿｽｿｽ

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ

>(Sender as TStringGrid).Canvas.FillRect(Rect);

bsClear ｿｽﾈので塗ｿｽｿｽﾂぶゑｿｽｿｽｿｽﾈゑｿｽ

>  DrawText((Sender as TStringGrid).Canvas.Handle, PChar((Sender as >TStringGrid).Cells[ACol,ARow]),
>           Length((Sender as TStringGrid).Cells[ACol,ARow]),
>           Rect, DT_SingleLine or DT_VCenter or DT_Center);

ｿｽｿｽｿｽｿｽｿｽﾉ包ｿｽｿｽｿｽｿｽ`ｿｽｿｽ

>OffsetRectｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾇ、
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ}ｿｽYｿｽｿｽｿｽHｿｽHｿｽH

ｿｽWｿｽｿｽｿｽﾅ搾ｿｽｿｽせになゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ
OffsetRectｿｽｿｽｿｽｿｽｿｽﾄ包ｿｽｿｽｿｽｿｽﾊ置ｿｽ調撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ

orzｿｽI 2011/05/21(ｿｽy) 19:09:49

>OffsetRectｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾇ、
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ}ｿｽYｿｽｿｽｿｽHｿｽHｿｽH

ｿｽﾅ擾ｿｽｿｽﾌ趣ｿｽｿｽｿｽﾅセｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ alignment ｿｽｿｽﾏ更ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾅ抵ｿｽZｿｽｿｽｿｽｿｽ alignment ｿｽ中会ｿｽｿｽせ、ｿｽﾜゑｿｽｿｽﾍ右ｿｽせに変更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌなゑｿｽwｿｽiｿｽｿｽOｿｽｿｽｿｽfｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾅ塗ｿｽｿｽﾈゑｿｽｿｽﾆまゑｿｽｿｽｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽﾅはグｿｽｿｽｿｽfｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾌ色ｿｽﾆゑｿｽｿｽｿｽ clBtnFace ｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽｿｽｿｽB

procedure GradientFillRect(Canvas: TCanvas; Rect: TRect; aColor: TColor);
var
  H, L, S: WORD;
begin
  ColorRGBToHLS(ColorToRGB(aColor), H, L, S);
  GradientFillCanvas(Canvas, ColorHLSToRGB(H, L+80, S), ColorHLSToRGB(H, L-40, S), Rect, gdVertical);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 with (Sender as TStringGrid) do begin
  if (gdFixed in State) then begin
   Canvas.Brush.Style := bsClear;
   // clBtnFaceｿｽFｿｽﾌグｿｽｿｽｿｽfｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾅ塗ｿｽｿｽ(ｿｽｿｽ明るくｿｽAｿｽｿｽｿｽｿｽﾃゑｿｽ)
   GradientFillRect(Canvas, Rect, clBtnFace{ $E0E0E0 });
   DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, Rect, DT_SINGLELINE or DT_VCENTER or DT_RIGHT);
  end else begin

  end;
 end;
end;

ｿｽﾈゑｿｽ 2011/05/23(ｿｽｿｽ) 17:58:36

ｿｽｿｽｿｽいｿｽｿｽﾆゑｿｽｿｽﾓ鯉ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽﾅは、ｿｽｿｽPｿｽ^ｿｽRｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽQｿｽ^ｿｽRｿｽｿｽｿｽOｿｽｿｽｿｽ[ｿｽｿｽ
ｿｽOｿｽｿｽｿｽfｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅゑｿｽｿｽﾌで、ｿｽPｿｽｿｽﾊにデｿｽtｿｽHｿｽｿｽｿｽgｿｽﾌままの表ｿｽｿｽ
DrawCellｿｽﾅ描ｿｽ謔ｵｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽﾍゑｿｽAｿｽしｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽﾋ。

HOta 2011/05/23(ｿｽｿｽ) 20:35:34

DefaultDrawingｿｽｿｽfalseｿｽﾉ設定しｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH

ｿｽﾈゑｿｽ 2011/05/25(ｿｽｿｽ) 10:28:41

DefaultDrawingｿｽﾅゑｿｽｿｽｿｽｿｽA
TrueｿｽﾌままにゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌほゑｿｽｿｽﾌ設抵ｿｽAｿｽｿｽｿｽﾆゑｿｽｿｽﾎフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽﾌ設抵ｿｽｿｽ
ｿｽｿｽｿｽﾗてゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆてゑｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
TrueｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽﾍゑｿｽAFalseｿｽﾉゑｿｽｿｽﾄ、ｿｽｿｽｿｽﾗゑｿｽDrawCellｿｽｿｽ
ｿｽRｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽ謔｢ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

HOta 2011/05/25(ｿｽｿｽ) 15:16:02

ｿｽhｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ2ｿｽdｿｽ¥ｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽﾋ。

au 2011/05/26(ｿｽｿｽ) 08:00:11

ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽAorzｿｽIｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽｿｽFixedCellｿｽﾉつゑｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽﾆ塗ｿｽ闥ｼｿｽｿｽｿｽｿｽﾄ難ｿｽdｿｽ¥ｿｽｿｽｿｽﾆゑｿｽｿｽﾉはなゑｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾊに表ｿｽｿｽｿｽQｿｽﾂ搾ｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽﾄのはグｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ2ｿｽﾂ描ｿｽ謔ｳｿｽｿｽﾄゑｿｽｿｽｿｽﾄ趣ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽﾅゑｿｽｿｽｿｽﾎ、with (Sender as TStringGrid) do beginｿｽｿｽｿｽﾌ行ｿｽｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽﾆゑｿｽｿｽHｿｽﾅ関撰ｿｽｿｽﾉ渡ｿｽｿｽCanvasｿｽｿｽFormｿｽｿｽCanvasｿｽｿｽnｿｽｿｽｿｽﾄる事ｿｽﾉなゑｿｽｿｽﾄなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽｿｽｿｽｿｽﾆは人ｿｽﾌ心ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2011/05/27(ｿｽｿｽ) 21:55:12

>ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽﾅは、ｿｽｿｽPｿｽ^ｿｽRｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽQｿｽ^ｿｽRｿｽｿｽｿｽOｿｽｿｽｿｽ[ｿｽｿｽ
>ｿｽOｿｽｿｽｿｽfｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
>ｿｽﾅゑｿｽｿｽﾌで、ｿｽPｿｽｿｽﾊにデｿｽtｿｽHｿｽｿｽｿｽgｿｽﾌままの表ｿｽｿｽ
>DrawCellｿｽﾅ描ｿｽ謔ｵｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
>ｿｽｿｽﾍゑｿｽAｿｽしｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽﾋ。

ｿｽｿｽｿｽｿｽﾒゑｿｽ StringGridｿｽｿｽDrawingStyleｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽgdsThemed(ｿｽfｿｽtｿｽHｿｽｿｽｿｽg)ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、
DrawCellｿｽﾅ趣ｿｽｿｽOｿｽﾌグｿｽｿｽｿｽfｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽStringGridｿｽｿｽ ｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽ`ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
StringGridｿｽｿｽ ｿｽｿｽﾂの会ｿｽｿｽ(Form)ｿｽﾉ包ｿｽｿｽﾗて配ｿｽuｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽ ｿｽｿｽｿｽﾒの鯉ｿｽｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆなのゑｿｽｿｽﾈ？
D2010ｿｽｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽﾌで、ｿｽlｿｽbｿｽgｿｽｿｽ D2010ｿｽｿｽStringGridｿｽｿｽ ｿｽｿｽｿｽﾛどのようｿｽﾉ描ｿｽ謔ｳｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽﾌゑｿｽｿｽ調べゑｿｽｿｽｿｽADrawingStyleｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽgdsGradinetｿｽﾉ変更ｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉゑｿｽ ｿｽﾅ抵ｿｽZｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾊのグｿｽｿｽｿｽfｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾅ描ｿｽ謔ｳｿｽｿｽ驍ｯｿｽﾇ、DrawingStyleｿｽｿｽgdsThemedｿｽﾌままにゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆ、
ｿｽmｿｽｿｽｿｽﾉ１ｿｽ^ｿｽRｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ上部ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍグｿｽｿｽｿｽ[ｿｽﾌグｿｽｿｽｿｽfｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾅ描ｿｽ謔ｳｿｽｿｽ
ｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾉ鯉ｿｽｿｽｿｽｿｽｿｽB
ｿｽﾈので、ｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽｿｽgdsThemedｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾚと難ｿｽｿｽｿｽｿｽ謔､ｿｽｿｽDrawCellｿｽﾅ固抵ｿｽZｿｽｿｽｿｽｿｽ`ｿｽ謔ｷｿｽｿｽﾉゑｿｽ
ｿｽﾐと趣ｿｽﾔ余ｿｽvｿｽﾉゑｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽ驍ｯｿｽﾇ、ｿｽしｿｽｿｽｿｽﾍなゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄ抵ｿｽｿｽﾟてゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH ｿｽｿｽｿｽｿｽﾆゑｿｽAｿｽｿｽｿｽﾅに趣ｿｽｿｽﾍで会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽH

procedure ThemedFillRect(Canvas: TCanvas; Rect: TRect);
var
  R: TRect;
  Border: Integer;
begin
  Border := (Rect.Bottom - Rect.Top) div 3;
  R := Rect;
  inc(R.Top, Border);
  GradientFillCanvas(Canvas, $FDF7F6, $DCD1D0, R, gdVertical);
  R := Rect;
  R.Bottom := R.Top + Border;
  Canvas.Brush.Color := $FFFFFE;
  Canvas.Brush.Style := bsSolid;
  Canvas.FillRect(R);
  Canvas.Brush.Style := bsClear;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 with (Sender as TStringGrid) do begin
  if (gdFixed in State) then begin
   // DrawingStyleｿｽﾉ会ｿｽｿｽｿｽｿｽﾄ固抵ｿｽZｿｽｿｽｿｽﾌ塗ｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽ
   case DrawingStyle of
    gdsThemed  : ThemedFillRect(Canvas, Rect);
    gdsGradient: GradientFillCanvas(Canvas, GradientStartColor, GradientEndColor, Rect, gdVertical);
   end;
   DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, Rect, DT_SINGLELINE or DT_VCENTER or DT_RIGHT);
  end else begin

  end;
 end;
end;

ｿｽﾈゑｿｽ 2011/06/10(ｿｽｿｽ) 09:45:48

>>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄ抵ｿｽｿｽﾟてゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH ｿｽｿｽｿｽｿｽﾆゑｿｽAｿｽｿｽｿｽﾅに趣ｿｽｿｽﾍで会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽAｿｽﾆりあｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌままにゑｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝのゑｿｽｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽﾌグｿｽｿｽｿｽ[ｿｽﾌグｿｽｿｽｿｽfｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽﾌままゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾅゑｿｽｿｽﾌで、ｿｽWｿｽｿｽｿｽﾆ若干ｿｽ痰｢ｿｽﾜゑｿｽｿｽB
ｿｽuｿｽｿｽｿｽｿｽｿｽﾆは人ｿｽﾌ心ｿｽｿｽｿｽｿｽｿｽｿｽﾌ」ｿｽlｿｽﾌソｿｽ[ｿｽXｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽmｿｽFｿｽｿｽｿｽﾄみようｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾊゑｿｽｿｽｿｽ告ゑｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.