Автор Џна Франк задал вопрос в разделе Другие языки и технологии
Масштабирование TCanvas (Delphi 7) и получил лучший ответ
Ответ от Mi Kam[активный]
Есть один метод, простого масштабирования, у канваса есть метод CopyRect, там задаешь параметры откуда копировать и какую область. Делаешь следующее, в источнике указываешь этот канвас, а область копирования на десять процентов меньше, область вставки указываешь обычную и вот у тебя увеличивается твоя картина на 10 процентов. Ну если доработать то можно сделать также и уменьшение !
Вот пример программы, посади это на какое нибудь событие например на нажатие на картинку.
Image1.Canvas.CopyRect(Rect(1,1,Image1.Width,Image1.Height),Image1.Canvas,Rect(10,10,Image1.Width - 10,Image1.Height - 10));
ВСе РАбоТАет !!!
Я думаю только в каком-нибудь событии. Типа OnPaint. И вывзать методы типа Invalidate.
То, что нарисовано - это растр, и масштабировать ты это все можешь только сам, методом полной перерисовки.
Занесите все координаты точек ваших объектов куда нибудь (в массив) . Вставьте прорисовку в OnPaint ваших объектов. И по нажатию какой либо из кнопки делайте преобразование координат каждого из нарисованных объектов. x*коэффициент масштабирования y*коэффициент масштабирования
Как в Delphi распечатать Image1 и всё что находиться на нём (image, label)?
procedure PrintImage(Image: TImage; ZoomPercent: Integer);
// if ZoomPercent=100, Image will
подробнее...
Delphi Как залить канву (image1.canvas) фоновым цветом?
procedure FillAll(Canvas: TCanvas; Color: TColor);
var
OldBrush : TBrush;
begin
Где найти в делфи класс TBitmap? И как он вообще работает?
В модуле Graphics.
Работает он хорошо:
A bitmap is a powerful graphics object
подробнее...
фон image в delphi
Доброго времени суток.
procedure TForm1.Button1Click(Sender: TObject);
begin
Подскажите как рисовать в Delphi методом Canvas
Доброго времени суток.
Начнем с того, что Canvas не метод, а свойство некоторых
подробнее...
Рисунок жука Как нарисовать жука в Delphi? Может у кого есть что-то похожее из программ? Может кто помочь?
Держи жука =)
Срисовал отсюда: Вроде похож получился:
procedure DrawBug(Canvas:
подробнее...