Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 31-07-2015
P-programador P-programador is offline
Registrado
NULL
 
Registrado: abr 2014
Posts: 2
Poder: 0
P-programador Va por buen camino
Cool mover imagen de celda a celda en un stringgrid

Responder Con Cita
  #2  
Antiguo 31-07-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola P-programador.

En primer término te sugiero que leas como se debe formular una consulta aquí. Por favor, leelo.

Contesto al título con un ejemplo:
Código Delphi [-]
...
implementation

var
  ORect: TRect;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Image1.Width := 33;
  Image1.Height:= 33;
  Image1.Visible := False;
  for i := StringGrid1.FixedCols to StringGrid1.ColCount-1 do
    StringGrid1.ColWidths[i] := 33;
  for i := StringGrid1.FixedRows to StringGrid1.RowCount-1 do
    StringGrid1.RowHeights[i] := 33;
  ORect := StringGrid1.CellRect(StringGrid1.FixedCols, StringGrid1.FixedRows);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  sg: TStringGrid;
begin
  sg := TStringGrid(Sender);
  sg.Canvas.FillRect(Rect);
  if (Rect.Left = ORect.Left)and(Rect.Top = ORect.Top) then
    sg.Canvas.Draw(ORect.Left, ORect.Top, Image1.Picture.Bitmap);
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  ORect := StringGrid1.CellRect(ACol, Arow);
end;

Salida:


Saludos y gracias por tu colaboración
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
acceder a una celda de StringGrid gironella C++ Builder 0 02-01-2008 16:09:45
Pintar celda de un StringGrid huevozen C++ Builder 1 31-08-2006 18:00:19
Validar celda de StringGrid nowheremanza Varios 1 03-10-2005 00:13:33
Como Pintar Solo la Celda y No Toda la Columna de la Celda de un dbGrid?? AGAG4 Varios 11 15-11-2004 21:53:28
Foco en una celda de stringgrid ingel Varios 2 01-07-2004 19:19:43


La franja horaria es GMT +2. Ahora son las 01:09:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi