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]

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

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

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

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

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

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