Witam
Mam taki kod:
Form3->Canvas->Pen->Color = clBlue; //podpora
Form3->Canvas->Pen->Width = 3;
Form3->Canvas->MoveTo(200,400);
Form3->Canvas->LineTo(200+B/s, 400);
Form3->Canvas->LineTo(200+B/s, 400-h5/s);
Form3->Canvas->LineTo(200+(b1+b2+b3)/s, 400-(h5+h6)/s);
Form3->Canvas->LineTo(200+(b1+b2+b3)/s, 400-H/s);
Form3->Canvas->LineTo(200+(b1+b2+b3-a)/s, 400-H/s);
Form3->Canvas->LineTo(200+(b1+b2+b3-a)/s, 400-H/s+(H-(h1+h2+h3+h4))/s);
Form3->Canvas->LineTo(200+(b1+b2)/s, 400-H/s+(H-(h1+h2+h3+h4))/s);
Form3->Canvas->LineTo(200+(b1+b2)/s, 400-(h1+h2+h3)/s);
Form3->Canvas->LineTo(200+b1/s, 400-(h1+h2)/s);
Form3->Canvas->LineTo(200,400-h1/s);
Form3->Canvas->LineTo(200,400 );
Form3->Canvas->Brush->Color = RGB(255, 226, 0);
Form3->Canvas->Brush->Style = bsSolid; // bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross.
Form3->Canvas->FloodFill(205, 395, clBlue, fsBorder );
Form3->Canvas->Pen->Color = RGB( 0, 0, 0);
Form3->Canvas->Font->Name = "Arial";
Form2-> Canvas->Pen->Style = psSolid;
Form3->Canvas->Pen->Width = 3;
Form3->Canvas->Font->Size = 9;
Form3->Canvas->TextOut(40,100, "Fundament");
Form3->Canvas->TextOut(40,200, "Ściana czołowa");
Ładnie koloruje wskazany obszar, ale jest nadgorliwy i koloruje dalej (tekst, pobliskie obszary zamknięte ograniczone innym kolorem niż wskazany itp)
Dlaczego?
Pozdr