PrintImage

Синтаксис

Sub PrintImage(ByVal bitmap As HBITMAP,ByVal x As Integer, ByVal y As Integer)

Описание

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

Параметры

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

x , y - координаты верхнего левого угла

Платформы

Windows

Пример

#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()

Created with the Personal Edition of HelpNDoc: Easily create Help documents