![]() |
#3 |
Участник
|
Попробуй вот это:
<div class='CALtop'>C/AL</div><div class='CAL'>//Устанавливаем разрешения на изменения BMPfile.OPEN('c:\Temp\1.bmp'); BMPfile.TEXTMODE := TRUE; BMPfile.WRITEMODE := TRUE; Resolution := 6105; // устанавливаем разрешение картинки // 5905 - 150dpi;11811 - 300dpi .Где-то между ними.Если что,то: // 23622 - 600dpi //11811 - 300dpi //5905 - 150dpi //2952 - 75dpi //1476 - 38dpi //Изменяем по горизонтали BMPfile.SEEK(48); BMPfile.WRITE(Resolution); BMPfile.CLOSE; //Изменяем по вертикали BMPfile.SEEK(42); BMPfile.WRITE(Resolution); BMPfile.CLOSE; Picture.IMPORT('c:\Temp\1.bmp');//грузим в пикчер бокс</div> Нарыл на мибусофт,чуть поменял.Надо только заранее определяться,какой размер картинки нужен ![]() |
|