Ver Mensaje Individual
  #5  
Antiguo 04-12-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 16
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
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
Responder Con Cita