StringGrid1单元格内绘图

 

var Rect: Trect;
begin
   Rect:=  bg.CellRect(4,3);
   bg.Canvas.Brush.Color:= clwhite;
   bg.Canvas.FillRect(rect);

   bg.Canvas.Draw(  rect.Left  +trunc(( rect.Right- rect.Left -tx2.Width  )/2 )     //单元格 水平居中
                  , rect.Top   +trunc( (20- tx2.Height) /2   )
                  ,tx2.Picture.Graphic
                   );



end;

object Form5: TForm5
  Left = 0
  Top = 0
  Caption = 'Form5'
  ClientHeight = 598
  ClientWidth = 854
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object tx2: TImage
    Left = 688
    Top = 248
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {
      0954506E67496D61676589504E470D0A1A0A0000000D49484452000000100000
      001008060000001FF3FF610000001974455874536F6674776172650041646F62
      6520496D616765526561647971C9653C0000000D744558745469746C65005065
      72736F6E3B5F31C58F000002FA4944415478DA7D927B48935118C69F993953C3
      2E922C456DD9B0D42E964144994974A55116169982ED8FB00B11664550414449
      4517A230E91F6B418AB78595C9124D4B73BA9AB3E9746B316F9B3AB7E9F6EDFB
      BE6D5F476A19117BE1E17DCF39EFF33B07CECBE3380E7FC7D9783E5C5E4ECCBA
      7196F57229AC871B72BA71A57ACCF392FBB79904EFDFBD134BF8097323162853
      77A50787858762DC64466D99DCE308F05CA7DC9E3B753F18BB5FC0F1B8A00729
      DBD34E45462F8241D3871EB5010BA3059C46DBCB232F2A92E9E90B7E019298A0
      CA8DE28C7DAAB61EACCAD889D4F495307FEF43C9BD2763368A6EAB35307BFC02
      B2A3665FE5F3F997EFB6F6F2420286E01C51A05BA142557185FDCB80A5FA9DD1
      9DEB17200A9D15B32751D077ED6D475080B50113833AE835FDA82CAEB1D7F45B
      B7EA6CDE0EBF001E8F37BF282BB55E9C7F696D44E810CC462DD4AD5D9055B575
      3ED74EED25FD83FF059CB9598AFB17730349B9F8E4FEF4A28C94A5872263A360
      312808A0070D7AE6759DC65848CEFB0FE415D0E54F6FCD00C8ADD3353F2A4E24
      DA223E5A9C9490B0013A39E60CB68372B8F08D152036ED20148A76D52779CD69
      DBC4A882F43BA7E7C207088C4F5C97BC3B4B529F2DCE58B86A451C1E3E9562C3
      E27118546A54E8E6E1EA8553F8611C424969D964E39BF27D13A3C31F8897F101
      C23325E71FE61CCECCDEB1690D2CD64974A8BAD1D4F21963162B925688205A26
      84D345A3FB9B161565E5B5EACFF263C46BF201A2F30A6F375FCC3F12CB710118
      B5D81116C2C3806912143105077B3138E20445D398B29B50512E332B9BAA3713
      6FAF0F109F7FE5B1FA66410EBFEEA31E363B85E4656168EA34C349B991289C85
      D6AE29D0B407B18229489F55BA958D95EB89573903B8FC487DE35C0EFFD57B2D
      AC0E1AC9F173D0DC398E49278B2421D0DEED82C3E5855060C30B6915AB6E91AD
      25DE2E1F20625BA6E48670F96A899B65E16618302C0D8676915B69B8288A6452
      BB7EADCDC67EE9B0FE6B01F18EFCF905F22DF389161105FB66E4B7F0579E0E86
      6884689C78D99FB52CADF0B77B044A0000000049454E44AE426082}
  end
  object bg: TStringGrid
    Left = 168
    Top = 104
    Width = 449
    Height = 200
    ColCount = 6
    Ctl3D = False
    FixedCols = 0
    RowCount = 4
    ParentCtl3D = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button1: TButton
    Left = 640
    Top = 440
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
end