Заливка прямоугольника

[Montysson]

Всем доброго времени суток! Ребята, подскажите, я уже голову сломал, не знаю как сделать, чтобы было как на этом рисунке:



Сейчас у меня все это выглядит вот так, задний фон не видно, он перекрывается белой заливкой



И вот тут тоже видно, что в том месте, где штриховка, там наоборот видно задний фон(сетку), а я хочу сделать так, чтобы было как на первом скрине.



Код за меня писать не надо, просто подкиньте идейку, буду очень благодарен

[Stilet]

Легкий примерчик для раздумий моска:

procedure TForm1.FormPaint(Sender: TObject);
begin
 with Canvas do begin
   Brush.Style:=bsCross;FillRect(ClipRect);
   Brush.Style:=bsFDiagonal;FillRect(Rect(100,100,200,200));
   Brush.Style:=bsSolid;FillRect(Rect(110,110,190,190));
 end;
end;

Идея выделена жиром

[Montysson]

Stilet, я щас стою на асфальте в лыжи обутый

with Canvas do
  begin
//    Brush.Style := bsCross;
    FillRect(ClipRect);
    Brush.Style := bsFDiagonal;
    FillRect(Rect(100, 100, 200, 200));
    Brush.Style := bsSolid;
    FillRect(Rect(110, 110, 190, 190));
  end;

закоментил одну строчку, получилось не совсем то, что я ожидал.. ладно, завтра посмотрю еще раз ваш пример на свежую голову, спасибо за помощь

[Stilet]

я щас стою на асфальте в лыжи обутый

Неплохой сон... А мне один парашут вечно снится.
Че приснилось то и написал
Так что удачи с идеей.