StringGrid 배경에 이미지 넣는 방법

백그라운드에 배경 이미지가 들어갑니다.
활용도 높음.


출처:http://www.mail-archive.com/delphi-en@yahoogroups.com/msg05896.html




procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Text: string;
  Rct: TRect;
begin
  Text := TStringGrid( sender).Cells[ ACol,ARow] ;

  Rct:= Rect;

  BitBlt(TStringGrid( sender).Canvas. handle,

  Rct.left,Rct.top,

  Rct.right - Rct.left,

  Rct.bottom - Rct.top,

  Image1.Canvas. Handle,

  Rct.left + TStringGrid( sender).Left ,

  Rct.Top + TStringGrid( sender).Top ,SRCCOPY);

  SetBkModE(TStringGrid(sender).Canvas.Handle, TRANSPARENT) ;

  TStringGrid( sender).Canvas.Font.Style := [fsBold];

  DrawtextEx(TStringGrid(sender).Canvas.Handle, PChar(Text), Length(Text),Rct,DT_WORDBREAK,nil);

 

end;