|
ｿｽ@ｿｽｿｽStringGridｿｽｿｽﾅの色ｿｽﾌ指ｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽ
|
ｿｽ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
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2001/10/18(ｿｽｿｽ) 17:20:26
ｿｽOｿｽｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽﾊな壁にぶゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽBｿｽB
StringGridｿｽﾖ連ｿｽﾅゑｿｽｿｽB
ｿｽPｿｽDｿｽOｿｽｿｽｿｽbｿｽhｿｽｿｽﾍ囲指ｿｽ閧ｵｿｽｿｽｿｽﾆゑｿｽｿｽﾌ色ｿｽiｿｽﾂゑｿｽｿｽﾛゑｿｽｿｽｿｽﾂ）ｿｽｿｽﾏ更ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽ@ｿｽ@ｿｽﾏ更ｿｽﾅゑｿｽｿｽｿｽﾆゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽQｿｽDｿｽﾍ囲指ｿｽ閧ｵｿｽｿｽｿｽ鼾ｿｽﾌ外ｿｽgｿｽﾍつゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽEｿｽｿｽｿｽﾌ難ｿｽﾂで選ｿｽｿｽﾌ背ｿｽiｿｽFｿｽｿｽｿｽｿｽFｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾌ枠ｿｽｿｽﾔ色ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
ｿｽRｿｽDｿｽZｿｽｿｽｿｽﾌ難ｿｽｿｽﾍ趣ｿｽｿｽﾉ背ｿｽiｿｽFｿｽｿｽｿｽｿｽｿｽｿｽﾍ包ｿｽｿｽｿｽｿｽﾌ色ｿｽｿｽﾏ更ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽHｿｽv
ｿｽ@ｿｽ@
ｿｽEｿｽｿｽｿｽﾝ背ｿｽiｿｽFｿｽｿｽｿｽｿｽｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽﾉ背ｿｽiｿｽFｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ
ｿｽ@ｿｽｿｽｿｽﾍ抵ｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽﾎ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽ艪､ｿｽﾌは別々ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽ謔｢ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾉゑｿｽｿｽｿｽ 2001/10/21(ｿｽｿｽ) 03:48:51
> ｿｽｿｽｿｽｿｽｿｽ艪､ｿｽﾌは別々ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽ謔｢ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾊ々ｿｽｿｽｿｽﾇゑｿｽｿｽ鼾ｿｽﾆ、ｿｽ齒擾ｿｽﾅゑｿｽﾇゑｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽ謔､ｿｽﾈ擾ｿｽｿｽｿｽｿｽﾈゑｿｽ齒擾ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽPｿｽﾂでゑｿｽｿｽﾝまゑｿｽｿｽｿｽｿｽB
ｿｽPｿｽCｿｽQｿｽﾉ関ゑｿｽｿｽﾄは、OnDrawCellｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅでゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽRｿｽﾉ関ゑｿｽｿｽﾄは、TStringGridｿｽﾅの編集ｿｽ{ｿｽbｿｽNｿｽX TInplaceEdit ｿｽｿｽColor, Fontｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽﾎでゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽEｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾇゑｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽｿｽｿｽﾚは鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
TStringGridｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽVｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾎ、TInplaceEdit ｿｽｿｽColor, Fontｿｽﾌ変更ｿｽｿｽﾂ能ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2001/10/21(ｿｽｿｽ) 04:49:55
ｿｽPｿｽCｿｽQｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽZｿｽｿｽｿｽﾌ難ｿｽeｿｽﾌ描ｿｽｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅはゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽKｿｽXｿｽCｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
# ｿｽ謫ｪｿｽﾌ空白に、ｿｽSｿｽpｿｽ白ゑｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
ｿｽ@Rect: TRect; State: TGridDrawState);
begin
ｿｽ@if gdFixed in State then
ｿｽ@begin
ｿｽ@ｿｽ@// ｿｽﾅ抵ｿｽZｿｽｿｽ
ｿｽ@ｿｽ@Exit;
ｿｽ@end
ｿｽ@else if gdSelected in State then
ｿｽ@begin
ｿｽ@ｿｽ@// ｿｽIｿｽｿｽ
ｿｽ@ｿｽ@StringGrid1.Canvas.Brush.Color := clYellow;
ｿｽ@ｿｽ@StringGrid1.Canvas.FillRect(Rect);
ｿｽ@ｿｽ@StringGrid1.Canvas.Pen.Color := clRed;
ｿｽ@ｿｽ@StringGrid1.Canvas.Rectangle(Rect);
ｿｽ@ｿｽ@INC(Rect.Left);
ｿｽ@ｿｽ@INC(Rect.Top);
ｿｽ@ｿｽ@DEC(Rect.Right);
ｿｽ@ｿｽ@DEC(Rect.Bottom);
ｿｽ@StringGrid1.Canvas.Rectangle(Rect);
ｿｽ@end
ｿｽ@else
ｿｽ@begin
ｿｽ@ｿｽ@// ｿｽｿｽIｿｽｿｽ
ｿｽ@ｿｽ@StringGrid1.Canvas.Brush.Color := clWindow;
ｿｽ@ｿｽ@StringGrid1.Canvas.FillRect(Rect);
ｿｽ@end;
end;
