IMHO.WS

IMHO.WS (https://www.imho.ws/index.php)
-   Программирование (https://www.imho.ws/forumdisplay.php?f=40)
-   -   Image капризничает при растяжении... (https://www.imho.ws/showthread.php?t=59851)

Dragon31337 26.05.2004 12:30

Image капризничает при растяжении...
 
Delphi 5
У меня на форме TImage. По всем сторонам якоря, при растяжении в режиме проектирования, видно как Image растягивается вместе с формой не весю площадь.
Но если я запустил прогу, потом растянул, на Image рисовать то нельзя в тех метах, где изначально не было формы, но при этом ClientWidth и ClientHight увеличиваются, потому как в понели статуса все отслеживается...
StatusBar1.Panels[0].Text:= 'Visible x: [0 .. ' + IntToStr(Image1.ClientWidth) + ']';
StatusBar1.Panels[1].Text:= 'Visible y: [0 .. ' + IntToStr(Image1.ClientHeight) + ']';
тут цифры растут.

someone312002 26.05.2004 13:44

Это ты видишь размеры самого компонента (объекта тимаге)...
А что делать с битмапом, который у тебя в данном компоненте находится ? Более подробно как и Драго сказать не могу, поскольку не программер я к сожалению. Но копать надо в сторону битмапа (не БМП файл, а битмап компонента (объекта) в ТИмаге)...
УДАЧИ!!!

Dragon31337 26.05.2004 14:48

Ничего, кроме как
Image1.Picture := nil; //Чистим картинку
И рисуем все по-новой. Не аомогает.
Ладно, спасибо всем.

someone312002 26.05.2004 15:05

Ну, что я могу сказать про магадан...?
1. Посмотри сюда про ТИмаге - http://infoprogram.narod.ru/Delphi/4/48.htm
2. Обрати внимание на свойства стретч, Ауторесайз у тимаге...

УДАЧИ!
Звиняй, что не смог помочь. А вообще, попробуй ка по-другому: на ресайз формы - заморозь репейнт, после того, как ресайз сдела (кнопку отпустил) - перересуй форму по-новой... Может, это хоть как-то поможет...

Dragon31337 26.05.2004 15:37

Не парьтесь.
AutoResize - полгоняет размер Имага под размер картинки в нем (не то)
Strech - растягивает картинку. Всмысле если форма растягивается в четрыре раза, все пиксели распухают в такой же пропорции.
Не парьтесь, друзья. Меня так устраивает. У меня и так по алгоритму перерисовка нужна пр растягивании.
Просто раньше я чистил по-другому, и вские LineTo не рисовали в тех областях.
Всем спасибо.
Сейчас бы всем собраться на перерывчик... И :beer:
Знаю, что по народной примете, потом трудностей при разработке возникает меньше :yees:

someone312002 26.05.2004 16:16

Оффтоп...
Драго, к сожалению, мы в разных столицах живёт... а так бы запросто на пару литров пива пригласил бы... :beer:
УДАЧИ!!!

Added: имелось в виду: оффтоп - эт моё сообщение :о)


Часовой пояс GMT +4, время: 07:52.

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.