TextPrinter

TextPrinter

TextPrinter(SourseText , Font= 0, color_BK=0 , color_Text=0)

Выводит на печать любой объем текста, при этом форматируя его так, что текст размещается при необходимости на множестве страниц. Стандартное форматирование текста страдает и корректируется в соответствии со страницей печати. Функция может выводить выбираемым шрифтом, цветом фона текста и цветом самого текста. Планировалась в основном для объемного текста, который не нуждается в особом форматировании.

SourseText - текст для печати

Font  - адрес структуры FontPrint. Структура выглядит так:

Type FontPrint
  Name_ As String  'имя шрифта
  size As Integer  'размер шрифта
  BOLD As integer  'флаг включения полужирного шрифта (вкл 1 ; выкл 0) 
  Italic As Integer 'флаг включения наклонного шрифта (вкл 1 ; выкл 0) 
  Underline As Integer 'флаг включения подчеркнутого шрифта (вкл 1 ; выкл 0) 
  StrikeOut As Integer 'флаг включения зачеркнутого шрифта (вкл 1 ; выкл 0)  
End Type

color_BK - цвет фона текста, может быть установлен с помощью макроса BGR.

color_Text - цвет текста, может быть установлен с помощью макроса BGR.

Пример:

#include "window9.bi"

Dim As Integer event
Dim As window9.FontPrint f
f.Name_="Arial"
f.size =22
f.Italic=1
CenterWindow(OpenWindow("",10,10,500,500))
EditorGadget(1,10,10,370,450)
ButtonGadget(2,390,10,80,25,"Печать")

Do
 event=WaitEvent()
 If Event=EventClose Then End
 If event=EventGadget Then
  If EventNumber=2 Then
        TextPrinter(GetGadgetText(1,8),@f,,&hff0000)
  EndIf
 EndIf
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Free EPub and documentation generator