Форум: "Основная";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];
ВнизИ все-таки проблема, однако!!! Найти похожие ветки
← →
Destroyer (2002-05-21 09:59) [0]Господа!! Все-таки объясните мне одну весчь: 2 кусочка кода:
1.
var ScaleX, ScaleY: Integer;
R: TRect;
begin
if PrintDialog.Execute then
begin
Printer.BeginDoc;
try
ScaleX:=Trunc((GetDeviceCaps(Printer.Handle,logPixelsX)*MainBitmap.Width)/PixelsPerInch);
ScaleY:=Trunc((GetDeviceCaps(Printer.Handle,logPixelsY)*MainBitmap.Height)/PixelsPerInch);
R:=Rect(0,0,ScaleX,ScaleY);
MainBitmap.SaveToFile("1.bmp");
I.Picture.LoadFromFile("1.bmp");
Printer.Canvas.StretchDraw(R,I.Picture.Graphic);
DeleteFile("1.bmp");
finally
Printer.EndDoc;
end;
end;
end;
2.
var ScaleX, ScaleY: Integer;
R: TRect;
begin
if PrintDialog.Execute then
begin
Printer.BeginDoc;
try
ScaleX:=Trunc((GetDeviceCaps(Printer.Handle,logPixelsX)*MainBitmap.Width)/PixelsPerInch);
ScaleY:=Trunc((GetDeviceCaps(Printer.Handle,logPixelsY)*MainBitmap.Height)/PixelsPerInch);
R:=Rect(0,0,ScaleX,ScaleY);
I.Picture.Assign(MainBitmap);
Printer.Canvas.StretchDraw(R,I.Picture.Graphic);
finally
Printer.EndDoc;
end;
end;
end;
Отличие небольшое, тем не менее 1 кусок кода работает, второй же в итоге выдает пустой лист.
← →
McSimm (2002-05-21 10:12) [1]
> I.Picture.Assign(MainBitmap);
Попробуй
I.Picture.Bitmap.Assign(MainBitmap);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c