Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

TImage обалдел или я? 


Voldemar   (2002-02-27 02:45) [0]

Доброе время суток!
Объясните мне, плз, почему не работает примерно такая конструкция

[code]
var MyImage: TImage;
begin
MyImage:=TImage.Create(Form1);
with MyImage do begin
enabled;
Visible:=true;
height:=100;
width:=100;
canvas.Brush.Style:=bsSolid;
canvas.Brush.Color:=clBlack;
canvas.Rectangle(0,0,25,25);
end;
end;[/code]
Т.е., все компилируется великолепно, а в процедуре ничего не происходит... Может, в ДНК не все в порядке? :((



Aleks1   (2002-02-27 03:16) [1]

А что собственно должно происходить? Ничего в Imag"e не рисуется!



Voldemar   (2002-02-27 04:13) [2]

Как это - не рисуется?
Вот это у меня работает:

with Image1.Canvas do
begin
Brush.Style:=bsClear;
MoveTo((Image1.Width div 2),(image1.Height div 2));
randomize;
for dd:=0 to 250 do
begin
Pen.Color:=random($ffff);
Ellipse(penpos.X-dd,penpos.Y-dd,penpos.X+dd,penpos.Y+dd);
delay(0.02)
end;

Разница только в том, что здесь Image1 положен на форму изначально, а там создается в рантайме.



MBo   (2002-02-27 06:51) [3]

не хватает в начале
myimage.parent:=form1; //или self



Pete   (2002-02-27 08:21) [4]

может глупость, но попробуй Enabled:=true;



Voldemar   (2002-02-27 18:31) [5]

>MBo
Great TNX! Родителя определил - все пошлО!:))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
6-43126           ken                   2001-12-26 16:24  2002.03.14  
как написать прогу для переадресации сетевых потоков TCP/IP?


14-43172          Григорий Ситнин       2002-01-31 12:04  2002.03.14  
Хм... Жизненное... =)


1-42995           Анонимщик             2002-02-27 19:39  2002.03.14  
Как заставить мышиный курсор перемещаться с определенным шагом?


3-42960           KIR                   2002-02-15 03:56  2002.03.14  
Закладки


3-42948           Hermit                2002-02-14 13:38  2002.03.14  
TBatchMove и поля с строковые поля с русскими значениями