Cita:
Empezado por Neftali
Por estas cosas, es por lo que sale a cuenta explicar los problemas completos desde un principio. Porque segun los pasos que se vayanb a realizar luego las soluciones son unas u otras.
El problema de dibujar en el canvas directamente tal y como lo has hecho, es que el resultado es similar a lo que obtienes cuando dibujas en el Paint (mspaint de Microsoft). Si dibujas un recuadro en el Paint, verás que después ya no puedes seleccionarlo. ¿Porqué?
Porque en ningun sitio almaceneas los objetos que dibujas, sólo los pintas directamente y una vez pintados te "olvidas" de ellos. No se si me explico.
Si lo que quieres hacer es dibujar objetos (cuadrados, círculos,...) y después poder seleccionarlos, modificarlos,... debes almacenar en algun sitio los objetos que has "dibujado". Una lista, por ejemplo.
El problema es que el enfoque es totalmente diferente.
|
gracias por las observaciones.
miré los ejemplos.
ejemplo 31
uno de los ejemplos presenta la declaración de la sigueinte clase:
Código Delphi
[-]
TFigura = class(TObject)
private
FAjustable: Boolean;
FColor: TColor;
FBoundsRect: TRect;
FPicture: TPicture;
FTipo: TTipoFigura;
public
para modificar el color del relleno a un objeto instancia de esta clase.
habría que modificar el metodo dibujar. tambien he pensdo en crear
otra propiedad a la clase: propiedad FcolorRelleno, para tener un color para el borde y un color para el relleno.
Ya logre, rellenar las figuras despues de dibujada. alguna idea para optimizar la funcioanalidad.
gracias.
la clase quedaría así:
Código Delphi
[-]
TFigura = class(TObject)
private
FAjustable: Boolean;
FColor: TColor;
FcolorRellenor: TColor;
FBoundsRect: TRect;
FPicture: TPicture;
FTipo: TTipoFigura;
public