Canvas-Trectangle

[mrnovice]

Saludos, cómo estan?, espero que bien, stoy a punto de finalizar el proyecto que les había comentado, de antemano cualquier duda sobre escanear imágenes, sientase libres de preguntar, bueno , la duda que tengo es cómo puedo dibujar un rectangulo, pero sin que se rellene de algún color, usando el PaintBox y el canvas, lo más cercano que he podido es ponerle la propiedad BrushStyle :=bsHorizontal pero puès el centro me lo sigue rellenando, o como dibujar un rectangulo , con fondo transparente , más o menos se como manipularlo pero es la idea moverlo agrandarlo, saludos gracias

[[coso]]

brushstyle := bsClear te deberia funcionar

[mrnovice]

Estoy basandome en el Ejemplo 30 , en el procedimeitno Dibujar le modifico pero me sale negro
mira:

Código Delphi [-]
begin
  Buffer:= TBitmap.Create;
  try
    Buffer.Canvas.Brush.Style:=bsclear;
    Buffer.Canvas.Brush.color:= clnone;

    Buffer.Width:= pbMain.Width;
    Buffer.Height:= pbMain.H

y pos no salio

[[coso]]

Código Delphi [-]
    ...
    Buffer.Canvas.Brush.Color:= pbMain.Canvas.Brush.Color;
    Buffer.Width:= pbMain.Width;
    Buffer.Height:= pbMain.Height;
    if Fondo <> nil then
      Buffer.Canvas.Draw(0,0,Fondo);
      for i:= Low(Figuras) to High(Figuras) do
      begin
      Buffer.Canvas.Pen.Color:= Figuras[i].Color;
      Buffer.Canvas.Brush.Style := bsClear;
      if i = Seleccion then
        Buffer.Canvas.Pen.Style:= psDot
      else
        Buffer.Canvas.Pen.Style:= psSolid;
      case Figuras[i].Tipo of
       ...

Lo que se esta haciendo aqui es redibujar las figuras encima de un bitmap, con esta linea en el momento de dibujar las figuras usa el brush clear.

[mrnovice]

wiiii, ya funcionó mil gracias, no vi esa línea, neta gracias,errorrrrsote de lógica verdad jajaj, lo weno es de que ya funcionò gracias mil gracias.