Главная страница
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.033 c
9-11766
X-RayMan
2003-06-12 15:02
2004.01.05
DoubleBuffer...


1-11925
Ярослав
2003-12-20 23:17
2004.01.05
отображение блоков данных в Hex виде


11-11843
SerB
2003-04-14 07:30
2004.01.05
SizeGrip???


1-11896
TUser
2003-12-18 12:54
2004.01.05
extract


3-11811
Query
2003-12-07 17:52
2004.01.05
Как в DBGride или Table сделать только одно редактируемое поле