Ver Mensaje Individual
  #6  
Antiguo 06-12-2016
andrecuellar andrecuellar is offline
Miembro
NULL
 
Registrado: sep 2015
Posts: 13
Reputación: 0
andrecuellar Va por buen camino
Cita:
Empezado por AgustinOrtu Ver Mensaje
Un ejemplo muy tonto:

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;

Ejemplos documentacion:

http://docwiki.embarcadero.com/CodeE...ctions_(Delphi)
http://docwiki.embarcadero.com/Libra...anvas.DrawRect
http://docwiki.embarcadero.com/CodeE...ctions_(Delphi)


Considera usar la clase TRectangle
Gracias, más tarde voy a probar
Responder Con Cita