1:
2:
3:
4:

      c := clLime;
      hb := CreateHatchBrush(HS_BDIAGONAL, c);
      rectangle(Form3.Canvas.Handle,1500,YPOS + YOffset, Breite-30, YPOS+YOffset+Zeilenabstand);
      SelectObject(Form3.Canvas.Handle, hb);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

// Stil der "Umrandung"
img.canvas.Pen.Color := clBlack;
img.canvas.Pen.Width := 1;
img.canvas.Pen.Style := psSolid;

// Mauerwerk aussen zeichnen (schraffiert)
img.Canvas.Brush.Style := bsBDiagonal;
img.Canvas.Brush.Color := clRed;
img.Canvas.Rectangle( pos_x , pos_y, w, h);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var c: TColor;
    hb: HBRUSH;
    oldo: HGDIOBJ;
begin
   c := clLime;
   hb := CreateHatchBrush(HS_BDIAGONAL, c);
   oldo:= SelectObject(Canvas.Handle, hb);      // alten Brush merken
   try
     rectangle(Canvas.Handle,1500,YPOS + YOffset, Breite-30, YPOS+YOffset+Zeilenabstand);
   finally
     SelectObject(Canvas.Handle, oldo);         // zurücksetzen
     DeleteObject(hb);                          // aufräumen
   end;
end;