デルファイの文字列グリッドのセルの背景色(フォントではない)を変更したい。
行や列ではなく、1つのセルだけです。
できますか?
RRUZ:あなたの手順は正しくて機能しますが、私の手順では機能しません。
私の手順:
xは整数のグローバル配列です
procedure TF_avalie_salon.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var S: string;
begin
S := StringGrid1.Cells[ACol, ARow];
StringGrid1.Canvas.FillRect(Rect);
SetTextAlign(StringGrid1.Canvas.Handle, TA_CENTER);
StringGrid1.Canvas.TextRect(Rect,Rect.Left + (Rect.Right - Rect.Left) div 2, Rect.Top + 2, S);
if (ARow<>0 )AND(acol<>0)AND(gridclick=true) then
begin
try
gridclick:=false;
x[acol+((strtoint(Edit_hafte.Text)-1)*7),arow]:=strtoint(StringGrid1.Cells[ACol, ARow]);
except
x[acol+((strtoint(Edit_hafte.Text)-1)*7),arow]:=0;
StringGrid1.Cells[acol,arow]:='0';
with TStringGrid(Sender) do
begin
Canvas.Brush.Color := clGreen;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol, ARow]);
end;
end;
end;
end;
以下のコードでCanvas.Brush.Colorを使用すると、Canvas.Brush.Colorが機能しません。コードの下で非アクティブにすると、セルの色を変更できます。しかし、私は両方が必要です。
S := StringGrid1.Cells[ACol, ARow];
StringGrid1.Canvas.FillRect(Rect);
SetTextAlign(StringGrid1.Canvas.Handle, TA_CENTER);
StringGrid1.Canvas.TextRect(Rect,Rect.Left + (Rect.Right - Rect.Left) div 2, Rect.Top + 2, S);
Rafaelリンクには、必要なものがすべて含まれています。 OnDrawCell
イベントを使用すると、StrignGridのセルをペイントできます。特定のセルの背景のみをペイントするこのサンプルを確認してください。
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
if (ACol = 3) and (ARow = 2) then
with TStringGrid(Sender) do
begin
//Paint the background Green
Canvas.Brush.Color := clGreen;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol, ARow]);
end;
end;
私はこれらのコードを使用し、C++に変換しました。 2つの特定のメモがあるので、コードを投稿します。
「StringGrid1」では、これが機能するために、プロパティ「DefaultDrawing」がFALSEである必要があります。
「Canvas」オブジェクトは完全に修飾されている必要があります。 StringGrid1-> Canvas-> Font-> Color = clBlack。
コード:
void __fastcall TForm3::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
TGridDrawState State)
{
UnicodeString uStr = "Hello";
int k, l;
char cc[100];
if(TRUE)
{
if((ACol <= 1) || (ARow <= 1))
{
StringGrid1->Canvas->Font->Color = clBlack;
StringGrid1->Canvas->Brush->Color = clBtnFace;
if(ACol == 0)
{
if(ARow > 1)
{
sprintf( cc, " %5.1f", rowLabels[ARow - 2]);
uStr = cc;
StringGrid1->Canvas->TextRect( Rect, Rect.left+2, Rect.top+2, uStr);
StringGrid1->Canvas->FrameRect(Rect);
}
}
if(ARow == 0)
{
if(ACol > 1)
{
sprintf( cc, " %5.1f", colLabels[ACol - 2]);
uStr = cc;
StringGrid1->Canvas->TextRect( Rect, Rect.left+2, Rect.top+2, uStr);
StringGrid1->Canvas->FrameRect(Rect);
}
}
}
else
{
switch (ACol%2)
{
case 0:
{
StringGrid1->Canvas->Font->Color = clRed;
StringGrid1->Canvas->Brush->Color = 0x00E1FFF9;
break;
}
case 1:
{
StringGrid1->Canvas->Font->Color = clBlue;
StringGrid1->Canvas->Brush->Color = 0x00FFEBDF;
break;
}
}
StringGrid1->Canvas->TextRect( Rect, Rect.left+2, Rect.top+2, uStr);
StringGrid1->Canvas->FrameRect(Rect);
}
}
}