Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
ВнизTImage обалдел или я? Найти похожие ветки
← →
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 положен на форму изначально, а там создается в рантайме.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c