API tools faq
paste
Advertisement
lawrencek

Untitled

lawrencek
Mar 27th, 2024
27
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.73 KB | None | 0 0
raw download clone embed print report
  1. object TppReport
  2. AutoStop = False
  3. DataPipeline = prt
  4. PrinterSetup.BinName = 'Default'
  5. PrinterSetup.DocumentName = 'Report'
  6. PrinterSetup.PaperName = 'A4'
  7. PrinterSetup.PrinterName = 'Default'
  8. PrinterSetup.SaveDeviceSettings = False
  9. PrinterSetup.mmMarginBottom = 6350
  10. PrinterSetup.mmMarginLeft = 6350
  11. PrinterSetup.mmMarginRight = 6350
  12. PrinterSetup.mmMarginTop = 6350
  13. PrinterSetup.mmPaperHeight = 297000
  14. PrinterSetup.mmPaperWidth = 210000
  15. PrinterSetup.PaperSize = 9
  16. SaveAsTemplate = True
  17. Template.FileName = 'Z:\bkm2\report\test.rtm'
  18. ArchiveFileName = '($MyDocuments)\ReportArchive.raf'
  19. DeviceType = 'Screen'
  20. DefaultFileDeviceType = 'PDF'
  21. EmailSettings.ReportFormat = 'PDF'
  22. EmailSettings.ConnectionSettings.MailService = 'SMTP'
  23. EmailSettings.ConnectionSettings.WebMail.GmailSettings.OAuth2.AuthStorage = [oasAccessToken, oasRefreshToken]
  24. EmailSettings.ConnectionSettings.WebMail.GmailSettings.OAuth2.RedirectURI = 'http://localhost'
  25. EmailSettings.ConnectionSettings.WebMail.GmailSettings.OAuth2.RedirectPort = 0
  26. EmailSettings.ConnectionSettings.WebMail.Outlook365Settings.OAuth2.AuthStorage = [oasAccessToken, oasRefreshToken]
  27. EmailSettings.ConnectionSettings.WebMail.Outlook365Settings.OAuth2.RedirectURI = 'http://localhost'
  28. EmailSettings.ConnectionSettings.WebMail.Outlook365Settings.OAuth2.RedirectPort = 0
  29. EmailSettings.ConnectionSettings.EnableMultiPlugin = False
  30. LanguageID = 'Default'
  31. OpenFile = False
  32. OutlineSettings.CreateNode = True
  33. OutlineSettings.CreatePageNodes = True
  34. OutlineSettings.Enabled = True
  35. OutlineSettings.Visible = True
  36. ThumbnailSettings.Enabled = False
  37. ThumbnailSettings.Visible = False
  38. ThumbnailSettings.DeadSpace = 30
  39. ThumbnailSettings.PageHighlight.Width = 3
  40. ThumbnailSettings.ThumbnailSize = tsSmall
  41. PDFSettings.EmbedFontOptions = [efUseSubset]
  42. PDFSettings.EncryptSettings.AllowCopy = True
  43. PDFSettings.EncryptSettings.AllowInteract = True
  44. PDFSettings.EncryptSettings.AllowModify = True
  45. PDFSettings.EncryptSettings.AllowPrint = True
  46. PDFSettings.EncryptSettings.AllowExtract = True
  47. PDFSettings.EncryptSettings.AllowAssemble = True
  48. PDFSettings.EncryptSettings.AllowQualityPrint = True
  49. PDFSettings.EncryptSettings.Enabled = False
  50. PDFSettings.EncryptSettings.KeyLength = kl40Bit
  51. PDFSettings.EncryptSettings.EncryptionType = etRC4
  52. PDFSettings.DigitalSignatureSettings.SignPDF = False
  53. PDFSettings.FontEncoding = feAnsi
  54. PDFSettings.ImageCompressionLevel = 25
  55. PDFSettings.PDFAFormat = pafNone
  56. PreviewFormSettings.PageBorder.mmPadding = 0
  57. PreviewFormSettings.SinglePageOnly = True
  58. RTFSettings.AppName = 'ReportBuilder'
  59. RTFSettings.Author = 'ReportBuilder'
  60. RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET
  61. RTFSettings.DefaultFont.Color = clWindowText
  62. RTFSettings.DefaultFont.Height = -13
  63. RTFSettings.DefaultFont.Name = 'Arial'
  64. RTFSettings.DefaultFont.Style = []
  65. RTFSettings.Title = 'Report'
  66. TextFileName = '($MyDocuments)\Report.pdf'
  67. TextSearchSettings.DefaultString = '<FindText>'
  68. TextSearchSettings.Enabled = True
  69. XLSSettings.AppName = 'ReportBuilder'
  70. XLSSettings.Author = 'ReportBuilder'
  71. XLSSettings.Subject = 'Report'
  72. XLSSettings.Title = 'Report'
  73. XLSSettings.WorksheetName = 'Report'
  74. Version = '22.03'
  75. mmColumnWidth = 0
  76. DataPipelineName = 'prt'
  77. object ppHeaderBand1: TppHeaderBand
  78. Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom]
  79. Border.Visible = True
  80. Border.mmPadding = 0
  81. mmBottomOffset = 0
  82. mmHeight = 0
  83. mmPrintPosition = 0
  84. end
  85. object ppDetailBand1: TppDetailBand
  86. Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom]
  87. Border.Visible = True
  88. Border.mmPadding = 0
  89. PrintHeight = phDynamic
  90. mmBottomOffset = 0
  91. mmHeight = 20108
  92. mmPrintPosition = 0
  93. object ppDBText1: TppDBText
  94. DesignLayer = ppDesignLayer1
  95. UserName = 'DBText1'
  96. Border.mmPadding = 0
  97. DataField = 'prt'
  98. DataPipeline = prt
  99. Font.Charset = DEFAULT_CHARSET
  100. Font.Color = clBlack
  101. Font.Name = 'Arial'
  102. Font.Size = 10
  103. Font.Style = []
  104. ParentDataPipeline = False
  105. Transparent = True
  106. DataPipelineName = 'prt'
  107. mmHeight = 4498
  108. mmLeft = 2381
  109. mmTop = 3440
  110. mmWidth = 17198
  111. BandType = 4
  112. LayerName = Foreground
  113. end
  114. object ppLine1: TppLine
  115. DesignLayer = ppDesignLayer1
  116. UserName = 'Line1'
  117. Border.mmPadding = 0
  118. Weight = 0.750000000000000000
  119. mmHeight = 218
  120. mmLeft = 2381
  121. mmTop = 8846
  122. mmWidth = 40640
  123. BandType = 4
  124. LayerName = Foreground
  125. end
  126. object ppSubReport1: TppSubReport
  127. DesignLayer = ppDesignLayer1
  128. UserName = 'SubReport1'
  129. ExpandAll = False
  130. NewPrintJob = False
  131. OutlineSettings.CreateNode = True
  132. TraverseAllData = False
  133. DataPipelineName = 'itm'
  134. mmHeight = 5821
  135. mmLeft = 0
  136. mmTop = 12435
  137. mmWidth = 197300
  138. BandType = 4
  139. LayerName = Foreground
  140. mmBottomOffset = 0
  141. mmOverFlowOffset = 0
  142. mmStopPosition = 0
  143. mmMinHeight = 0
  144. object ppChildReport1: TppChildReport
  145. AutoStop = False
  146. DataPipeline = itm
  147. PrinterSetup.BinName = 'Default'
  148. PrinterSetup.DocumentName = 'Report'
  149. PrinterSetup.PaperName = 'A4'
  150. PrinterSetup.PrinterName = 'Default'
  151. PrinterSetup.SaveDeviceSettings = False
  152. PrinterSetup.mmMarginBottom = 6350
  153. PrinterSetup.mmMarginLeft = 6350
  154. PrinterSetup.mmMarginRight = 6350
  155. PrinterSetup.mmMarginTop = 6350
  156. PrinterSetup.mmPaperHeight = 297000
  157. PrinterSetup.mmPaperWidth = 210000
  158. PrinterSetup.PaperSize = 9
  159. Version = '22.03'
  160. mmColumnWidth = 197300
  161. DataPipelineName = 'itm'
  162. object ppDetailBand2: TppDetailBand
  163. BandsPerRecord = 2
  164. Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom]
  165. Border.Visible = True
  166. Border.mmPadding = 0
  167. PrintHeight = phDynamic
  168. mmBottomOffset = 0
  169. mmHeight = 8996
  170. mmPrintPosition = 0
  171. object ppDBText4: TppDBText
  172. DesignLayer = ppDesignLayer2
  173. UserName = 'DBText4'
  174. Border.mmPadding = 0
  175. DataField = 'prt'
  176. DataPipeline = prt
  177. Font.Charset = DEFAULT_CHARSET
  178. Font.Color = clBlack
  179. Font.Name = 'Arial'
  180. Font.Size = 10
  181. Font.Style = []
  182. ParentDataPipeline = False
  183. Transparent = True
  184. DataPipelineName = 'prt'
  185. mmHeight = 4233
  186. mmLeft = 10583
  187. mmTop = 2646
  188. mmWidth = 17198
  189. BandType = 4
  190. LayerName = Foreground1
  191. end
  192. end
  193. object raCodeModule2: TraCodeModule
  194. object raProgramInfo1: TraProgramInfo
  195. raClassName = 'TraEventHandler'
  196. raProgram.ProgramName = 'DetailBeforePrint'
  197. raProgram.ProgramType = ttProcedure
  198. raProgram.Source =
  199. 'procedure DetailBeforePrint;'#13#10'var'#13#10' i : integer;'#13#10'begin'#13#10' i ' +
  200. ':= prt['#39'rows'#39'];'#13#10' //showmessage('#39'i: '#39' + IntToStr(i));'#13#10' ///s' +
  201. 'howmessage('#39'Before Print:'#39')'#13#10' Detail.BandsPerRecord := i;'#13#10'end' +
  202. ';'#13#10
  203. raProgram.ComponentName = 'Detail'
  204. raProgram.EventName = 'BeforePrint'
  205. raProgram.EventID = 24
  206. raProgram.CaretPos = (
  207. 12
  208. 5)
  209. end
  210. end
  211. object ppDesignLayers2: TppDesignLayers
  212. object ppDesignLayer2: TppDesignLayer
  213. UserName = 'Foreground1'
  214. LayerType = ltBanded
  215. Index = 0
  216. end
  217. end
  218. end
  219. end
  220. end
  221. object ppFooterBand1: TppFooterBand
  222. Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom]
  223. Border.Visible = True
  224. Border.mmPadding = 0
  225. mmBottomOffset = 0
  226. mmHeight = 0
  227. mmPrintPosition = 0
  228. end
  229. object raCodeModule1: TraCodeModule
  230. object raProgramInfo3: TraProgramInfo
  231. raClassName = 'TraProgram'
  232. raProgram.ChildType = 19
  233. raProgram.ProgramName = 'GlobalOnCreate'
  234. raProgram.ProgramType = ttProcedure
  235. raProgram.Source = 'procedure GlobalOnCreate;'#13#10'begin'#13#10#13#10'end;'#13#10
  236. raProgram.CaretPos = (
  237. 6
  238. 3)
  239. end
  240. end
  241. object ppDesignLayers1: TppDesignLayers
  242. object ppDesignLayer1: TppDesignLayer
  243. UserName = 'Foreground'
  244. LayerType = ltBanded
  245. Index = 0
  246. end
  247. end
  248. object ppParameterList1: TppParameterList
  249. end
  250. end
  251.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!