Cambiar Origen de coodenadas en TImage
 

Hola amigos del Foro,,

Tengo un problema, necesito cambiar el origen de coodenadas en un Timage,, generalmente es (0,0) en la parte izquierda superior del TImage... pero tengo un proyecto que requiere cambiar dicho origen ... por ejemplo... que la parte izquierda superior sea (50,40) y asi ir cambiando de acuerdo a los requerimientos....no se trata de la posicion del componente TImage sino del origen de coordenadas para dibujar dentro del TImage.... Si la solucion es en tiempo de ejecucion mucho mejor...


Les agradesco por anticipado,,,saludos Joeell..:)

Hola,

Bienvenido a estos foros. Así, a bote pronto, diría que puedes jugar con las propiedades "Top" y "Left" del "TImage". :)

Hola
 

Agradecido por la respuesta anterior..

como lo dije antes en la pregunta no se trata de posicion del componente TImage en el formulario,, Se trata de las coordenadas del TImage...

otro dato que puede ayudar

cuado me ubico con el cursor en la parte izquierda superior del TImage....bueno cuando lo estoy ejecutando la aplicacion ...que de un numero diferente de (0,0) , por ejemplo (40,60)...

grasias....

Hola joeell prueba esto a ver si te sirve y si te he entendido.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 ruta:String;
 bm : TBitMap;
begin
 Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
 ruta := ExtractFilePath(Application.ExeName)+'Imagen.bmp';
 bm := TBitMap.Create;

 bm.LoadFromFile(ruta);
 Image1.Picture.Bitmap.Canvas.Draw(30,60,bm);
end;

Saluditos

hola caro
 

El codigo que me enviaste estubo bien..me cargo la imagen..en este caso desde el punto (30,60),,todo bien..

pero eso no es lo que estoy buscando...talves por mi falta de explicacion no me entienden...voy ha explicarles mas..

yo he estado desarrollando este proyecto en Visual Basic...Porque quiero superarme me pase al Delphi...en Visual habia un componente "Picture" este tenia una Propiedad "Scale" se utilizaba asi.
Picture1.Scale (30,20) (200,200), ..este me permitia dibujar (Lineas,rectangulos,etc) en ese rango de de puntos...en este caso el origen de coordenadas es (30,20)...esta propiedad me permitia escalar al momento que desee para dibujar en Picture...sin modificar sus dimensiones en el formulario que contenia.. Aunque paresca trivial esto me sirve muchisimo en mi proyecto...

En el Delphi , hay alguna propiedad del TImage que pueda hacer algo parecido,,,o algun procedimiento...les agradeceria mucho atender a mi solicitud..

grasias por las respuestas anteriores...:)