Centrar imagen que esta en las celdas de un StringGrid

[gulder]

Hola foro como andan espero que bien bueno me sucede lo siguiente yo muestro en los ítems de un StringGrid unas imágenes que tengo en una BD con el siguiente codigo:

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
begin 
  if (Row = 3) and (Col = 2) then 
    with StringGrid1.Canvas do 
      Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
end;

bueno hasta hay todo bien ahora lo que quiero hacer es centrar dichas imagenes en la celda ósea centrarla horizontalmente saludos espero que me entiendan gracias de antemano gulder-gan

[[egostar]]

Hola

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Ancho,Posicion: Integer;
begin
  Ancho := StringGrid1.ColWidths[2] div 2;
  Posicion := Ancho - (Image1.Picture.Width div 2);
  if (ARow = 3) and (ACol = 2) then
    with StringGrid1.Canvas do
      Draw(Rect.Left+Posicion, Rect.Top, Image1.Picture.Graphic);
end;

Salud OS

[gulder]

egostar gracias hermano funciono al pelo jajaja saludos desde colombia

[[egostar]]

Empezado por gulder

egostar gracias hermano funciono al pelo jajaja saludos desde colombia

Ah que bueno que funciono como querias , saludos con un jugo de mandarina en la mano

Salud OS

[jairzhino86]

hola amigos , bueno tengo un problema, soy nuevo en esto de la programacion,
me gustaria saber como hacer q una imagen se mueva, o sea como darle tal orden... ya q me es un poco complicado,
ya hice el dibujo, en la pantalla. pero ahora no se me idea el como mover las imagenes, intente mucho pero nada