掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
グリッドの背景に画像描画 (ID:23665)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下記のようにして、グリッドの背景に画像を描画しようとしました。 画像は表示されたのですが、テキストが表示されません。 セルをクリックすると表示されますが、再描画が掛かると消えます。 どなたかわかる方、おられませんでしょうか？ procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var saText: AnsiString; begin saText := TStringGrid(Sender).Cells[ACol, ARow]; with TStringGrid(Sender).Canvas do begin Bitblt(TStringGrid(Sender).Canvas.Handle, 0, 0, Image1.Width, Image1.Height, Image1.Canvas.Handle, 0, 0, SRCCOPY); TextRect(Rect, Rect.Left+12, Rect.Top+4, saText); //DrawText(StringGrid1.Canvas.Handle, PChar(saText), Length(saText), Rect, DT_SINGLELINE or DT_VCENTER or DT_LEFT); //TextOut(Rect.Left+12, Rect.Top+4, saText); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.