Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Вниз
Увеличение размера 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 рисовать и чтобы размер того, что я рисую точный был на любых устройствах.
← →
Ega23 (2003-12-18 14:10) [7]
> Строчка нужна для того, чтобы миллиметры в пиксели переводить.
> Т.е. я хочу на Image рисовать и чтобы размер того, что я
> рисую точный был на любых устройствах.
КАКИЕ МИЛЛИМЕТРЫ? Image1.Width - количество ПИКСЕЛЕЙ! Возьми за единицу измерения пиксел - будет гораздо проще.
← →
Equilebriya (2003-12-18 14:40) [8]А как на этой картинке нарисовать прямоугольник размером 10 Х 10 мм без использования GetDeviceCaps?
← →
serge (2003-12-18 14:43) [9]наверное надо разобраться с PixelsPerInch
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
