A ver mira. He estado viendo un poco y me aventuraría a traajar con
regiones. De acuerdo al SDK de
Windows una región es:
Cita:
|
Empezado por SDK de Windows
A region is a rectangle, polygon, or ellipse (or a combination of two or more of these shapes) that can be filled, painted, inverted, framed, and used to perform hit testing (testing for the cursor location).
|
Es decir, son figuras que puedes pintar, rellenar, etc. y determinar si el cursor está o no sobre una de ellas (
perform hit testing).
Hay varias funciones para crear regiones. A ti te servirían:
CreateEllipticRgn
CreateRectRgn
CreatePolygonRgn (para el rombo)
Para pintar una región:
FillRgn o PaintRgn
Para mover una región:
OffsetRgn
Esta última mueve la posición lógica de la región más no directamente en el canvas.
Para saber si el cursor (o desde donde arrastres la figura) está en una región:
PtInRegion
Para dibujar las regiones usando FillRgn o PaintRgn especificas como parámetro HDC el Handle del Canvas que uses. Para las funciones que requieren un Brush me parece que te sirve el Canvas.Brush.
Cada una de las funciones Create...Rgn devuelven un handle a la región. Este handle es el que almacenarías en una lista. Cada vez que hagas cambios deberás recorrer dicha lista y usar FillRgn o PaintRgn para dibujar cada región en el Canvas.
Bueno, son sólo ideas. Si te interesa puedes consultar estos tópicos en la ayuda del SDK de Windows que viene con Delphi.
// Saludos