Скачать: CL | DM;

Tshape и глупенький вопрос:)   Найти похожие ветки 

← →
Свой   (2005-12-08 11:08) [0]

Есть форма на ней находиться im:Timage
при нажатии на кнопку нужно чтобы Tshape создавался и рисовался на im!
im:Timage-уже лежит на форме и картинка на нем есть в виде бмп файла
Пишу так но не ресует!
Да еще надо чтобы при каждом нажатии на кнопку создавалась новая фигура!

procedure Battonclick
Var
Sh:TShape;
begin
Sg:=Tshape.create(im);
sh.top:=x;
sh.left:=y;
sh.width:=20;
sh.heit:=20;
sh.фигура:=элипс;   //под рукой нет делфи так что простите:)
sh.кист:=белая;  
sh.repaint;
end;

Что не так?

---

← →
Reindeer Moss Eater ©   (2005-12-08 11:17) [1]

Зачем тебе TShape?

Image1.Canvas.Ellipse(1,1,10,100);

---

← →
Свой   (2005-12-08 11:26) [2]

> Зачем тебе TShape?
>
> Image1.Canvas.Ellipse(1,1,10,100);


Tshape нужен для решения дальнейших задачь!
поэтому Image1.Canvas.Ellipse(1,1,10,100) не устраивает!

---

← →
Reindeer Moss Eater ©   (2005-12-08 11:27) [3]

Пока мы ничего не знаем о дальнейших задачах.
Так что используй [1]

---

← →
Свой   (2005-12-08 11:35) [4]

> Пока мы ничего не знаем о дальнейших задачах.
> Так что используй [1]


Далнейшие Задачи не имею хначения!
1-не подходит!
Как создать Tshape (много и програмно) и нарисовать его на Timage?

---

← →
Reindeer Moss Eater ©   (2005-12-08 11:38) [5]

>Как создать Tshape (много и програмно)
TShape.Create

>и нарисовать его на Timage?
Он сам себя рисует. Его рисовать не надо.
Иначе см [1]

---

← →
Свой   (2005-12-08 11:42) [6]

т.е. мой код правильный?
Тогда почему я его не вижу?

---

← →
Reindeer Moss Eater ©   (2005-12-08 11:44) [7]

Наверное ты забыл про какое-нибудь свойство. Например парент.

---

← →
Свой   (2005-12-08 11:46) [8]

Да я все свойства указывал попорядку как идут не вижу и все тут!
может что то упустил:(

---

← →
Reindeer Moss Eater ©   (2005-12-08 11:47) [9]

Может и упустил.
Например свойство.
Например парент.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c