Форум: "Media";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Вниз

странное дело с рисованием...   Найти похожие ветки 

← →
tchn ©   (2003-12-28 18:44) [0]

извиняюсь, но не получается рисовать на канве...
беру пример из хелпа

procedure TForm1.FormActivate(Sender: TObject);
begin
 Canvas.Brush.Color := clTeal;
 Canvas.Polygon([Point(10, 10), Point(30, 10),
   Point(130, 30), Point(240, 120)]);
end;

при активизации формы заметно, что что-то прорисовалось, моргнуло, и изчезло.
куда исчезает?
с остальными методами канвы то же самое

---

← →
BOA_KAA ©   (2003-12-28 18:58) [1]

Попробуй не в OnActinate, а в OnPaint

---

← →
tchn ©   (2003-12-28 19:34) [2]

в OnPaint работает..
но почему ж сами Borland такой пример дали? выходит, что должно работать в любом месте, не только в OnPaint?
где что не так?

---

← →
Липа   (2003-12-28 19:47) [3]

FormActivate - это активация.
перерисовка (OnPaint) идёт после, поэтому твое творение и стирается.

---

← →
tchn ©   (2003-12-28 20:15) [4]

да пример из хелпа смутил...

---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c