Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
ВнизClipboard: ограничения по размеру Найти похожие ветки
← →
Mishel (2004-09-13 13:56) [0]Может кто-нибудь подскажет, почему в Clipboard не удаётся поместить картинку размером больше, чем экран. И можно ли как-то преодолеть это ограничение?
← →
TUser © (2004-09-13 13:59) [1]Почему не получается? Он может содержать очень большие картинки. Как ты туда помещаеешь?
← →
Mishel (2004-09-13 14:06) [2]
Metafile := nil;
try
Metafile := TMetafile.Create;
with Metafile do
begin
Inch := Screen.PixelsPerInch;
Width := 2000;
Height := 1500;
end;
MetafileCanvas := nil;
try
MetafileCanvas := TMetafileCanvas.Create(Metafile, 0);
Paint(MetafileCanvas);
finally
MetafileCanvas.Free;
end;
Clipboard.Assign(Metafile);
finally
Metafile.Free;
end;
← →
MBo © (2004-09-13 14:39) [3]посмотри справку по
TMetafileCanvas.Create
← →
Mishel (2004-09-13 14:52) [4]Если ReferenceDevice := 0, то выбирается экран. А какое ещё устройство я могу выбрать?
← →
MBo © (2004-09-13 15:01) [5]ты можешь явно задать mmwidth и mmheight, либо создать битмап нужного размера, и взять его Canvas как референс (этот метод сам не пробовал)
← →
Mishel (2004-09-13 17:33) [6]Спасибо, помогло!
Добавил
MMWidth := Round(iWidth * HundredthMMPerInch / iPixelsPerInch);
MMHeight := Round(iHeight * HundredthMMPerInch / iPixelsPerInch);
и размер больше экрана.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c