PrintImage

PrintImage

window9.PrintImage( Hbitmap, X , Y )

Печатает битмап (рисунок). Функция находится в пространстве имен window9.

Hbitmap - Хендл изображения, может быть получен например с помощью Load_Image  

X , Y - координаты вернего левого угла

Пример:

#Include "window9.bi"
Using window9
Dim Po As SinglePoint
Dim As Integer X,Y,L
Dim As Hbitmap hbmp=Create_Image(300,200)
ImageStartDraw(hbmp) 'начинаем рисование
  CircleDraw(100,100,100,,255)
  CircleDraw(200,100,100,,&hff0000,,,100)
  BoxDraw(100,15,100,170,&hffffff,&hffffff,,,100)
  FillRectDraw(260,30,&hff0000)
  FillRectDraw(5,5,&h00ff00)
StopDraw ' заканчиваем рисование

StartPrinter(@Po)
window9.PageStart()
FontPrinter()
GetRealSize(X,Y)
L=X/Po.x
PrintText("Рисование с прозрачностью и печать",,30,,,DT_CENTER)
PrintImage(Hbmp,(L-300)/2,100)
window9.PageEnd()
StopPrinter()

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Full-featured multi-format Help generator