[MotoArhangel]

Случилась беда. Решил использовать связку PaintBox + ScrollBox но при передвижении скрола PaintBox перерисовывается в серый цвет.

Прикрепляю пример программки
https://dl.dropboxusercontent.com/u/...Musor/Help.zip

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

[Alegun]

Почему-то все вместо паинтбокса имидж используют, вот пример

[lmikle]

Надо перерисовывать PainBox.
В моем проекте используется имеено PaintBox и никаких проблем. В памяти сидит переразмеренный и подготовленный битмап и при необходимости он просто копируется на PaintBox...

[MotoArhangel]

Как то интуитивно выбрал PaintBox. Как реализовать через него примерно теперь понял. Но пока кинул Image. Да и разницы мне же просто рисовать надо =)
Думал что с лазарусом проблемы, выходит нет=) Канву и полигоны за 2 года впервые использую =)

[MotoArhangel]

Тогда оптом задам вопрос. Черчу ромб с помощью полигонов

Код:

  A[0].X := x;
  A[0].Y := y;
  A[1].X := x-d2;
  A[1].Y := y+d1;
  A[2].X := x;
  A[2].Y := y+d1*2;
  A[3].X := x+d2;
  A[3].Y := y+d1;
  Canv.Polygon(A);

Вообщем здесь понятно. И хотел текст разместить по центру, нарыл где то код:

Код:

  Canv.Rectangle(x1, y1,x2, y2);
  Canv.TextRect(Rect(X1, Y1, X2, Y2),X1+(X2-X1-Canv.TextWidth(s)) div 2,
    Y1+(Y2-Y1-Canv.TextHeight(s)) div 2, s);

Если элипсы, прямоугольники рисую код срабатывает. А с ромбом нет, пришлось текст вставлять так:

Код:

 Canv.TextOut(A[1].X +30, (A[0].Y+A[2].Y) div 2-10 , S);

Может я чего то не знаю? Для ромба подставлял значения массива.

[lmikle]

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