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

Вниз

Увеличение размера 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.041 c
6-12012
Vladimir Bolotin
2003-11-04 00:11
2004.01.05
СРОЧНО ищется КОМПОНЕНТ для работы с почтой по HTTP


7-12184
DeepRain
2003-10-23 23:17
2004.01.05
Резидент-перехватчик нажатий клавиш


14-12150
men
2003-12-12 15:30
2004.01.05
Gde knigy po linux vziat?


1-11904
User_OKA
2003-12-18 09:09
2004.01.05
Excel


3-11772
peypivo
2003-12-09 18:12
2004.01.05
TDbgrid