systemgvp (Normal User)
Expert
Messaggi: 296
Iscritto: 14/04/2008
|
salve,
stò provando a utilizzare questo codice per disegnare un rettangolo in una Timage (dal nome LucidoSelezione_A):
Codice sorgente - presumibilmente Plain Text |
LucidoSelezione_A.Canvas.BeginScene;
LucidoSelezione_A.Canvas.fill.Color := TAlphaColorRec.Greenyellow;
LucidoSelezione_A.Canvas.Stroke.Color:= TAlphaColorRec.Yellow; //Colore esterno
LucidoSelezione_A.Canvas.fill.Kind := TBrushKind.bkSolid; //Poligono riempito
LucidoSelezione_A.Canvas.Stroke.Kind := TBrushKind.bkSolid;
LucidoSelezione_A.Canvas.DrawRect(RectF(0,0,500,250),0,0,AllCorners,1);
LucidoSelezione_A.Canvas.EndScene;
|
ma il problema è che NON mi fa il riempimento e NON disegna il rettangolo nella Timage, come risolvo?
|