Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Нет прорисовки Canvas при изменении (увеличении) размеров Image1!   Найти похожие ветки 

 
Dr. Andrew ©   (2003-06-10 13:18) [0]

Мастера подскажите, как можно синхронизировать и увеличение размеров компонента TImage и прорисовку всей изменившейся части холста, а не только ее исходной части.
Желательно без Bitmap, чтобы не увеличивать затраты памяти при больших увеличениях.
Ниже пример, показывающий данную проблематику (к сожалению, он не работает):

procedure TForm1.Button1Click(Sender: TObject); { ZoomOut, например увеличение с шагом = 2 }
begin
Image1.SetBounds(Image1.Left,Image1.Top,Image1.Width*2, Image1.Height*2);
Image1.Canvas.Brush.Color:= clblue;
Rct:= Rect(0,0, Image1.Width*2, Image1.Height*2);
Image1.Canvas.FillRect(Rect(0,0, Image1.Width*2, Image1.Height*2);
Image1.Invalidate;
Label1.Caption:= Format("Width %d : Height %d", [Image1.Width, Image1.Height]);
end;


 
OlegM ©   (2003-06-10 14:03) [1]

Если я правильно понял то это

Image1.Picture.Bitmap.Height:=Image1.Height;
Image1.Picture.Bitmap.Width:=Image1.Width;


 
Dr. Andrew ©   (2003-06-10 15:05) [2]

Это увеличит расход памяти при больших значениях масштабирования.
В принципе верно, НО необходимо другое решение!
Есть еще мнения?


 
Dr. Andrew ©   (2003-06-10 17:03) [3]

Мастера!
Кто-то может предложить вариант Zoom Image or Bitmap?!


 
Zergling ©   (2003-06-11 09:16) [4]

Наверное ни как. TPaintBox и все. Кстати по какой причине TPaintBox не подходит.


 
Спрашивающий   (2003-06-11 09:33) [5]

Я согласен с Zergling © надо использовать TPaintBoxтолько не забудь обработать его прорисовку в onPaint,
а Image лучше оставить или для простеньких рисунков или для его прямого назначения.



Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
3-83906
Stas
2003-06-03 12:09
2003.06.26
Составной ключ


3-83913
abc
2003-06-02 19:12
2003.06.26
как скрыть TQuickRep?? т.к когда кидаешь его на форму...


14-84723
Mike B.
2003-06-05 14:22
2003.06.26
Реклама на сайте


1-84224
Тих
2003-06-12 23:15
2003.06.26
ФОрматирование даты


14-84575
Кен
2003-06-06 02:08
2003.06.26
В Windows найдены секретные API