Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

PrintWidth, PrintHeight: Longint;

begin

...

caseImageType of

itMetafile:

begin

ifPicture.Metafile<> nil thenPrinter.Canvas.StretchDraw(Rect(aLeft, aTop, aLeft+fWidth, aTop+fHeight), Picture.Metafile);

end;

itBitmap:

begin

ifPicture.Bitmap<> nil then begin

withPrinter, Canvas do begin

Bits := Picture.Bitmap.Handle;

GetDIBSizes(Bits, InfoSize, ImageSize);

Info := AllocMem(InfoSize);

try

Image := AllocMem(ImageSize);

try

GetDIB(Bits, 0, Info^, Image^);

withInfo^.bmiHeader dobegin

DIBWidth := biWidth;

DIBHeight := biHeight;

end;

PrintWidth := DIBWidth;

PrintHeight := DIBHeight;

StretchDIBits(Canvas.Handle, aLeft, aTop, PrintWidth, PrintHeight, 0, 0, DIBWidth, DIBHeight, Image, Info^, DIB_RGB_COLORS, SRCCOPY);

finally

FreeMem(Image, ImageSize);

end;

finally

FreeMem(Info, InfoSize);

end;

end;

end;

end;

end;

В чем заключается идея PreView? Остается имея на руках Metafila, Bmp – отрисовать с пересчетом внешний вид изобpажения (надо высчитать левый верхний угол и размеpы «предварительно просматриваемого» изображения. Для показа изобpажения достаточно использовать StretchDraw.

После того, как удалось вывести объекты на печать, проблему создания PreView решили как «домашнее задание».

Кстати, когда мы работаем с Bmp, то для просмотра используем следующий хинт – записываем битовый образ через такую процедуру:

w:=MulDiv(Bmp.Width, GetDeviceCaps(Printer.Handle,LOGPIXELSX), Screen.PixelsPerInch);

h:=MulDiv(Bmp.Height, GetDeviceCaps(Printer.Handle,LOGPIXELSY), Screen.PixelsPerInch);

PrevBmp.Width:=w;

PrevBmp.Height:=h;

PrevBmp.Canvas.StretchDraw(Rect(0, 0, w, h),Bmp);

aPicture.Assign(PrevBmp);

Пpи этом масштабируется битовый образ с минимальными искажениями, а вот при печати – приходится bmp печатать именно так, как описано выше. Итог – наша bmp при печати чуть меньше, чем печатать ее через WinWord, но при этом – внешне – без каких-либо искажений и пр.

Imho, я для себя пpоблему печати pешил. Hа основе вышесказанного, сделал PreView для myStringGrid, где вывожу сложные многостpочные заголовки и пр. на несколько листов, осталось кое-что допилить, но с принтером у меня проблем не будет уже точно :)

PS. Кстати, Андрей Аристов на основе своей наработки сделал сложные геокарты, которые по качеству не хуже, а может, и лучше, чем выдает Surfer (специалисты поймут). Hа ватмат.

PPS. Прошу прощения за возможные стилистические неточности – время вышло, охрана уже ругается. Но код – выдран из работающих исходников.

Serj Kolesnikovрекомендует:

=== Cut ===

mov ax,5301h

sub bx,bx

int 15h

jc @@finish

mov ax,530Eh

sub bx,bx

mov cx,102h

int 15h

jc @@finish

mov ax,5307h

mov bx,1

mov cx,3

int 15h

@@finish:

int 20h

=== Cut ===

Из советов Nomadic'a:

Используя потоки —

unitClipStrm;

{

This unit is Copyright (c) Alexey Mahotkin 1997-1998

and may be used freely for any purpose. Please mail

your comments to

E-Mail: alexm@hsys.msk.ru

FidoNet: Alexey Mahotkin, 2:5020/433

This unit was developed during incorporating of TP Lex/Yacc

into my project. Please visit ftp://ftp.nf.ru/pub/alexm

or FREQ FILES from 2:5020/433 or mail me to get hacked

version of TP Lex/Yacc which works under Delphi 2.0+.

}

interface usesClasses, Windows;

typeTClipboardStream = class(TStream)

private

FMemory : pointer;

FSize : longint;

FPosition : longint;

FFormat : word;

public

constructorCreate(fmt : word);

destructorDestroy; override;

function Read( varBuffer; Count : Longint) : Longint; override;

function Write( constBuffer; Count : Longint) : Longint; override;

functionSeek(Offset : Longint; Origin : Word) : Longint; override;

end;

implementation usesSysUtils;

constructorTClipboardStream.Create(fmt : word);

var

tmp : pointer;

FHandle : THandle;

begin

FFormat := fmt;

OpenClipboard(0);

FHandle := GetClipboardData(FFormat);

FSize := GlobalSize(FHandle);

FMemory := AllocMem(FSize);

tmp := GlobalLock(FHandle);