Report preview "hanging" design time.

rbuser

Hi,

I am using ReportBuilder 14.05 Standard for Delphi 7.

I have a ppReport component on a form that gives a permanent hourglass,
when previewed design time (in the Delphi 7 IDE), and the preview cannot be
closed.
I generated a simpliefied version to demo this.
In the Delph 7 IDE, in a new applcation, on a TForm descendant, please copy
and paste the below to create the ppReport component.
Next try to edit ppReport2, select preview, and see what happens!

Any ideas?

Regards
Kedul

Copy and paste the following onto a TForm:

object ppReport2: TppReport
AutoStop = False
PassSetting = psTwoPass
PrinterSetup.BinName = 'Default'
PrinterSetup.DocumentName = 'Report'
PrinterSetup.PaperName = 'Letter (8 1/2" x 11")'
PrinterSetup.PrinterName = 'Default'
PrinterSetup.SaveDeviceSettings = False
PrinterSetup.mmMarginBottom = 12700
PrinterSetup.mmMarginLeft = 12700
PrinterSetup.mmMarginRight = 10000
PrinterSetup.mmMarginTop = 10000
PrinterSetup.mmPaperHeight = 279401
PrinterSetup.mmPaperWidth = 215900
PrinterSetup.PaperSize = 1
Template.FileName =
'C:\GIT_Root\hive\delphie\TpConnect\ReportBuilder.rtm\CustReport.' +
'rtm'
Units = utMillimeters
ArchiveFileName = '($MyDocuments)\ReportArchive.raf'
CachePages = True
DeviceType = 'Metafile'
DefaultFileDeviceType = 'Metafile'
EmailSettings.ReportFormat = 'PDF'
EmailSettings.PreviewInEmailClient = False
LanguageID = 'Default'
OutlineSettings.CreateNode = True
OutlineSettings.CreatePageNodes = True
OutlineSettings.Enabled = True
OutlineSettings.Visible = True
PDFSettings.EmbedFontOptions = [efUseSubset]
PDFSettings.EncryptSettings.AllowCopy = True
PDFSettings.EncryptSettings.AllowInteract = True
PDFSettings.EncryptSettings.AllowModify = True
PDFSettings.EncryptSettings.AllowPrint = True
PDFSettings.EncryptSettings.Enabled = False
PDFSettings.FontEncoding = feAnsi
PDFSettings.ImageCompressionLevel = 25
RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET
RTFSettings.DefaultFont.Color = clWindowText
RTFSettings.DefaultFont.Height = -13
RTFSettings.DefaultFont.Name = 'Arial'
RTFSettings.DefaultFont.Style = []
ShowPrintDialog = False
TextFileName = '($MyDocuments)\Report.emf'
TextSearchSettings.DefaultString = ''
TextSearchSettings.Enabled = True
XLSSettings.AppName = 'ReportBuilder'
XLSSettings.Author = 'ReportBuilder'
XLSSettings.Subject = 'Report'
XLSSettings.Title = 'Report'
Left = 304
Top = 264
Version = '14.05'
mmColumnWidth = 0
object ppTitleBand: TppTitleBand
Background.Brush.Style = bsClear
PrintHeight = phDynamic
mmBottomOffset = 0
mmHeight = 73554
mmPrintPosition = 0
object ppRegionTitleCentre: TppRegion
UserName = 'RegionTitleCentre'
Brush.Style = bsClear
Pen.Style = psClear
Pen.Width = 0
Stretch = True
Transparent = True
mmHeight = 55563
mmLeft = 89959
mmTop = 17991
mmWidth = 38365
BandType = 1
LayerName = Foreground1
mmBottomOffset = 0
mmOverFlowOffset = 0
mmStopPosition = 0
mmMinHeight = 0
object ppLabelCompanyName: TppLabel
UserName = 'LabelCompanyName'
Caption = ''
Font.Charset = ANSI_CHARSET
Font.Color = 15641856
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Transparent = True
mmHeight = 3260
mmLeft = 89959
mmTop = 36512
mmWidth = 22987
BandType = 1
LayerName = Foreground1
end
object ppMemoCompanyAddress: TppMemo
UserName = 'MemoCompanyAddress'
Anchors = [atLeft, atTop, atRight]
Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom]
Border.Visible = True
Caption = ''#13#10
CharWrap = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Lines.Strings = (
'')
Stretch = True
Transparent = True
mmHeight = 6350
mmLeft = 90488
mmTop = 39422
mmWidth = 32808
BandType = 1
LayerName = Foreground1
mmBottomOffset = 0
mmOverFlowOffset = 0
mmStopPosition = 0
mmMinHeight = 0
mmLeading = 0
end
object ppLabelCompanyRegNo: TppLabel
UserName = 'LabelCompanyRegNo'
Caption = 'Reg No. '
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Transparent = True
mmHeight = 3260
mmLeft = 89959
mmTop = 46037
mmWidth = 36153
BandType = 1
LayerName = Foreground1
end
object ppLabelCompanyVatRegNo: TppLabel
UserName = 'LabelCompanyVatRegNo'
Caption = 'VAT No. '
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Transparent = True
mmHeight = 3260
mmLeft = 89959
mmTop = 48947
mmWidth = 34840
BandType = 1
LayerName = Foreground1
end
object ppLineHeadingHorizontalAlignHelper: TppLine
UserName = 'LineHeadingHorizontalAlignHelper1'
Pen.Color = clRed
Pen.Width = 2
Visible = False
Weight = 1.500000000000000000
mmHeight = 1058
mmLeft = 93134
mmTop = 20901
mmWidth = 31221
BandType = 1
LayerName = Foreground1
end
end
object ppRegionTitleLeft: TppRegion
UserName = 'RegionTitleLeft'
Brush.Style = bsClear
Pen.Style = psClear
Pen.Width = 0
Stretch = True
Transparent = True
mmHeight = 55563
mmLeft = 1588
mmTop = 17991
mmWidth = 89165
BandType = 1
LayerName = Foreground1
mmBottomOffset = 0
mmOverFlowOffset = 0
mmStopPosition = 0
mmMinHeight = 0
object lblAccountNo: TppLabel
UserName = 'lblAccountNo'
Caption = 'Account No: '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Helvetica LT Std'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 4191
mmLeft = 5027
mmTop = 18785
mmWidth = 38015
BandType = 1
LayerName = Foreground1
end
object lblDate: TppLabel
UserName = 'lblDate'
Caption = ': '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Helvetica LT Std'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 4191
mmLeft = 5027
mmTop = 23018
mmWidth = 42333
BandType = 1
LayerName = Foreground1
end
object ppLabelContactPerson: TppLabel
UserName = 'LabelContactPerson'
Caption = ': ()'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Helvetica LT Std'
Font.Size = 10
Font.Style = []
Transparent = True
mmHeight = 4064
mmLeft = 5027
mmTop = 29368
mmWidth = 82021
BandType = 1
LayerName = Foreground1
end
object lblAccountName: TppLabel
UserName = 'lblAccountName'
AutoSize = False
Caption = ''
Font.Charset = ANSI_CHARSET
Font.Color = 15641856
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Transparent = True
mmHeight = 3260
mmLeft = 5027
mmTop = 36512
mmWidth = 61913
BandType = 1
LayerName = Foreground1
end
object rbmCustAddr: TppMemo
UserName = 'rbmCustAddr'
Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom]
Border.Visible = True
Caption = ''#13#10
CharWrap = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Lines.Strings = (
'')
Stretch = True
Transparent = True
mmHeight = 6085
mmLeft = 5027
mmTop = 42862
mmWidth = 80698
BandType = 1
LayerName = Foreground1
mmBottomOffset = 0
mmOverFlowOffset = 0
mmStopPosition = 0
mmMinHeight = 0
mmLeading = 0
end
object ppLabelAcctVatNo: TppLabel
UserName = 'LabelAcctVatNo'
Caption = 'VAT No: '
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Transparent = True
mmHeight = 3260
mmLeft = 5027
mmTop = 39422
mmWidth = 28321
BandType = 1
LayerName = Foreground1
end
object ppLabelNumberCaption: TppLabel
UserName = 'LabelNumberCaption'
Caption = ': Number'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Helvetica LT Std'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 4191
mmLeft = 51594
mmTop = 23018
mmWidth = 45805
BandType = 1
LayerName = Foreground1
end
object ppLabelDateDateCaption: TppLabel
UserName = 'LabelDateDateCaption'
Caption = ': '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Helvetica LT Std'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 4191
mmLeft = 51594
mmTop = 18784
mmWidth = 42333
BandType = 1
LayerName = Foreground1
end
object ppLineHeadingVerticalAlignHelper: TppLine
UserName = 'LineHeadingHorizontalAlignHelper'
Pen.Color = clRed
Pen.Width = 2
Position = lpLeft
Visible = False
Weight = 1.500000000000000000
mmHeight = 20638
mmLeft = 51858
mmTop = 28309
mmWidth = 3704
BandType = 1
LayerName = Foreground1
end
end
object ppRegionReportTitle: TppRegion
UserName = 'RegionReportTitle'
Brush.Color = 15641856
Pen.Style = psClear
Pen.Width = 0
mmHeight = 13000
mmLeft = 794
mmTop = 0
mmWidth = 115132
BandType = 1
LayerName = Foreground1
mmBottomOffset = 0
mmOverFlowOffset = 0
mmStopPosition = 0
mmMinHeight = 0
object rblReportType: TppLabel
UserName = 'rblReportType'
Caption = ''
Color = clScrollBar
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Name = 'Helvetica LT Std'
Font.Size = 24
Font.Style = []
Transparent = True
mmHeight = 9779
mmLeft = 2646
mmTop = 1588
mmWidth = 51266
BandType = 1
LayerName = Foreground1
end
end
object ppRegionTitleRight: TppRegion
UserName = 'RegionTitleRight'
Brush.Style = bsClear
Pen.Style = psClear
Pen.Width = 0
Stretch = True
Transparent = True
mmHeight = 55563
mmLeft = 140229
mmTop = 17991
mmWidth = 53181
BandType = 1
LayerName = Foreground1
mmBottomOffset = 0
mmOverFlowOffset = 0
mmStopPosition = 0
mmMinHeight = 0
object ppLabelComputerGeneratedCopy: TppLabel
UserName = 'LabelComputerGeneratedCopy'
Anchors = [atTop, atRight]
Caption = 'Computer Generated Copy '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Helvetica LT Std'
Font.Size = 8
Font.Style = []
Transparent = True
mmHeight = 3260
mmLeft = 157692
mmTop = 30162
mmWidth = 34459
BandType = 1
LayerName = Foreground1
end
object ppLabelBankHeading: TppLabel
UserName = 'LabelBankHeading'
Anchors = [atTop, atRight]
Caption = 'Banking Details:'
Font.Charset = ANSI_CHARSET
Font.Color = 15641856
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
TextAlignment = taRightJustified
Transparent = True
mmHeight = 3260
mmLeft = 171451
mmTop = 36512
mmWidth = 20532
BandType = 1
LayerName = Foreground1
end
object ppLabelBankName: TppLabel
UserName = 'LabelBankName'
Anchors = [atTop, atRight]
Caption = ''
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
TextAlignment = taRightJustified
Transparent = True
mmHeight = 3260
mmLeft = 174784
mmTop = 39422
mmWidth = 17357
BandType = 1
LayerName = Foreground1
end
object ppLabelBankBranch: TppLabel
UserName = 'LabelBankBranch'
Anchors = [atTop, atRight]
Caption = ''
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
TextAlignment = taRightJustified
Transparent = True
mmHeight = 3260
mmLeft = 173461
mmTop = 42332
mmWidth = 18754
BandType = 1
LayerName = Foreground1
end
object ppLabelBankAcctNo: TppLabel
UserName = 'LabelBankAcctNo'
Anchors = [atTop, atRight]
Caption = ''
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
TextAlignment = taRightJustified
Transparent = True
mmHeight = 3260
mmLeft = 173197
mmTop = 45507
mmWidth = 18965
BandType = 1
LayerName = Foreground1
end
object ppLabelBankRef: TppLabel
UserName = 'LabelBankRef'
Anchors = [atTop, atRight]
AutoSize = False
Caption = 'Please use your account number as a reference'
Font.Charset = ANSI_CHARSET
Font.Color = 15641856
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
TextAlignment = taRightJustified
Transparent = True
WordWrap = True
mmHeight = 7144
mmLeft = 160073
mmTop = 51328
mmWidth = 32015
BandType = 1
LayerName = Foreground1
end
end
end
object ppHeaderBand: TppHeaderBand
Background.Brush.Style = bsClear
PrintHeight = phDynamic
mmBottomOffset = 0
mmHeight = 0
mmPrintPosition = 0
end
object ppDetailBand: TppDetailBand
Background1.Brush.Style = bsClear
Background2.Brush.Style = bsClear
PrintHeight = phDynamic
mmBottomOffset = 0
mmHeight = 0
mmPrintPosition = 0
end
object ppFooterBand: TppFooterBand
Background.Brush.Style = bsClear
mmBottomOffset = 0
mmHeight = 2910
mmPrintPosition = 0
end
object ppSummaryBand: TppSummaryBand
Background.Brush.Style = bsClear
mmBottomOffset = 0
mmHeight = 0
mmPrintPosition = 0
end
object ppDesignLayers: TppDesignLayers
object ppDesignLayer: TppDesignLayer
UserName = 'Foreground1'
LayerType = ltBanded
Index = 0
end
end
object ppParameterList2: TppParameterList
end
end

nicocizik

Hi Kedul,

Please send a runnable example of this to support@digital-metaphors.com
in .zip format and I'll take a look at it for you.