Hello, Pls. anybody can help me in creating Transparent String grid, or at least show the background image inside the cells. I downloaded some code from the net and it work fine, But I need to make it as a component attached with this code, I don't need to rewrite this code each time I need to use this option. The code : 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; Loay Habash, http://groups.yahoo.com/group/WeLoveYouAll/ http://profiles.yahoo.com/leohabash [email protected] Mobile: +966503322315 [Non-text portions of this message have been removed]
