Как сделать объект растягиваемым?

[min@y™]

Ну и почему бы тут и не TImage?

Ты сам-то попробуй, что с этой спиралью, однажды нарисованной,
stretchdraw() сотворит. И потом скажи, что лучше - рисовать или масштабировать статич. изображение.

[ResourceSpace]

А с картинкой из файла/ресурсов не сотворит то же самое?))
Вопрос темы "масштабировать содержимое TImage". Я сказал ещё во втором посте "Смотря что именно нужно" - всё зависит от целей. И описал варианты. В том числе векторное рисование.

[min@y™]

А с картинкой из файла/ресурсов не сотворит то же самое?))

Конечно. Поэтому нефиг масштабировать статический контент (или масштабировать, но, хотя б, пропорционально). А рисовать можно в любом случае.
Я ж понимаю, почему чайники юзают TImage - потому что нарисованное на нём не затирается при апдейте. Лет 20 назад я сам такой шляпой в школе заразился. Пришлось лечить (алкоголем, травой и девками). Теперь юзаю TImage исключительно для хранения одиночной картинки в DFM и показе её в рантайме.

А ты и автор - пишите, як хотите.
Я кончил и закурил.

[ResourceSpace]

В каждом отдельном случае необходимо исходить из того что рисуется, как долго рисуется и как часто меняется. Сделайте такое же без TImage?:

Procedure TForm1.FormCreate(Sender: TObject);
Var x, y, k: Integer; P: PRGBTriple;
Begin
Image1.BoundsRect:=Screen.DesktopRect;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
Image1.Picture.Bitmap.PixelFormat:=pf24bit;
k:=GetTickCount Mod 900;
For y:=0 To Image1.Picture.Bitmap.Height-1 Do
      Begin
      P:=Image1.Picture.Bitmap.ScanLine[y];
      For x:=0 To Image1.Picture.Bitmap.Width-1 Do
            Begin
            P.rgbtRed:=Round(x+y+k);
            P.rgbtGreen:=Round(x+y);
            P.rgbtBlue:=Round(x*k-y);
            Inc(P);
            End;
      End;
End;

А даже если только про векторные объекты - вот есть десять миллионов линий/окружностей/прочее. Но меняются они только OnResize окна. Вы правда будете всё заново рисовать каждый OnPaint?

[min@y™]

Сделайте такое же без TImage?

А какова цель этого куска кода?

А даже если только про векторные объекты - вот есть десять миллионов линий/окружностей/прочее. Но меняются они только OnResize окна. Вы правда будете всё заново рисовать каждый OnPaint?

Попробую пару раз, а потом пойду и плюну в рожу тому, кто придумал мне такое задание. Откуда могут взяться 10М объектов на практике-то?

[Kiten]

Сообщение от Аватар

Kiten, а давайте вы сами все свои ссылки почистите, а то очень на спам похоже. Кнопочка правка. За спам у нас бан бегом можно получить

Я все убрал. Это было для интересующихся. Точнее задающих каверзные вопросы. Мне это не нужно

[min@y™]

Сделайте такое же без TImage?

Не знаю, чо за код, скопипасти просто вслепую в отрисовку. Получилось что-то типа этого:

[min@y™]

Исходник.
Дополненный.