Увеличение размера Image

← →
Equilebriya (2003-12-18 10:18) [0]

Как увеличить размер картинки?
На форме есть картинка размером 100 Х 100, делаю следующее:

Image1.Width := 400;
Rectangle(Image1.Canvas.Handle, 5, 5, Width - 5, Height - 5);

выводится только часть прямоугольника. Помогите плз.

← →
Ega23 © (2003-12-18 10:20) [1]

> Width - 5, Height - 5

Чего Width и чего Height? Image1? Тогда и указывай явно.

← →
Equilebriya (2003-12-18 10:55) [2]

Полностью процедура выглядит так:

procedure TForm1.Button1Click(Sender: TObject);
var
KX: integer;
begin
KX := GetDeviceCaps(Image1.Canvas.Handle,LOGPIXELSX);
Image1.Width := 400;
Rectangle(Image1.Canvas.Handle, 5, 5, Image1.Width - 5, Image1.Height - 5);
end;

так вот, если закомментировать первую строку KX := Get... тогда все работает. А эта строчка мне нужна в дальнейшем. Как быть?

← →
Ega23 © (2003-12-18 11:03) [3]

А зачем тебе КХ, если не секрет?

← →
white___bear © (2003-12-18 11:18) [4]

Чтобы подогнать размер картинки под размеры TImage нужно сделать просто Image1.Strech:=true, а если наоборот, т.е. размеры TImage под картинку, то Image1.Autosize:=true

← →
Ega23 © (2003-12-18 11:22) [5]

> KX := GetDeviceCaps(Image1.Canvas.Handle,LOGPIXELSX);

Не, я вот этой строчки не понимаю. Зачем это может понадобиться в дальнейшем.

← →
Equilebriya (2003-12-18 13:44) [6]

Строчка нужна для того, чтобы миллиметры в пиксели переводить. Т.е. я хочу на Image рисовать и чтобы размер того, что я рисую точный был на любых устройствах.

> Строчка нужна для того, чтобы миллиметры в пиксели переводить.
> Т.е. я хочу на Image рисовать и чтобы размер того, что я
> рисую точный был на любых устройствах.

КАКИЕ МИЛЛИМЕТРЫ? Image1.Width - количество ПИКСЕЛЕЙ! Возьми за единицу измерения пиксел - будет гораздо проще.

← →
Equilebriya (2003-12-18 14:40) [8]

А как на этой картинке нарисовать прямоугольник размером 10 Х 10 мм без использования GetDeviceCaps?

← →
serge (2003-12-18 14:43) [9]

наверное надо разобраться с PixelsPerInch

Увеличение размера Image Найти похожие ветки