Código Delphi [-]var LRect: TRectF; begin Canvas.Fill.Kind := TBrushKind.Solid; Canvas.Stroke.Kind := TBrushKind.Solid; Canvas.Stroke.Thickness := 1; // inicializar el registr TRectF. // Notar que el sistema de coordenadas no es con integer, es con Single LRect := TRectF.Create( { valores apropiados aca } ); Canvas.DrawRect(LRect, 1, 1, AllCorners, 100); end;
var LRect: TRectF; begin Canvas.Fill.Kind := TBrushKind.Solid; Canvas.Stroke.Kind := TBrushKind.Solid; Canvas.Stroke.Thickness := 1; // inicializar el registr TRectF. // Notar que el sistema de coordenadas no es con integer, es con Single LRect := TRectF.Create( { valores apropiados aca } ); Canvas.DrawRect(LRect, 1, 1, AllCorners, 100); end;