object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 441
  ClientWidth = 664
  Color = clBtnFace
  Constraints.MinHeight = 480
  Constraints.MinWidth = 680
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    664
    441)
  PixelsPerInch = 96
  TextHeight = 13
  object AdvStringGrid1: TAdvStringGrid
    Left = 8
    Top = 8
    Width = 648
    Height = 187
    Anchors = [akLeft, akTop, akRight, akBottom]
    DrawingStyle = gdsClassic
    FixedColor = clWhite
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goThumbTracking]
    TabOrder = 0
    GridLineColor = 13948116
    GridFixedLineColor = 11250603
    OnGetCellColor = AdvStringGrid1GetCellColor
    OnGetCellCursor = AdvStringGrid1GetCellCursor
    OnGetCellPrintColor = AdvStringGrid1GetCellColor
    OnClickCell = AdvStringGrid1ClickCell
    OnCanClickCell = AdvStringGrid1CanClickCell
    ActiveCellFont.Charset = DEFAULT_CHARSET
    ActiveCellFont.Color = 4474440
    ActiveCellFont.Height = -11
    ActiveCellFont.Name = 'Tahoma'
    ActiveCellFont.Style = [fsBold]
    ActiveCellColor = 11565130
    ActiveCellColorTo = 11565130
    BorderColor = 11250603
    ControlLook.FixedGradientFrom = clWhite
    ControlLook.FixedGradientTo = clWhite
    ControlLook.FixedGradientHoverFrom = clGray
    ControlLook.FixedGradientHoverTo = clWhite
    ControlLook.FixedGradientHoverMirrorFrom = clWhite
    ControlLook.FixedGradientHoverMirrorTo = clWhite
    ControlLook.FixedGradientHoverBorder = 11645361
    ControlLook.FixedGradientDownFrom = clWhite
    ControlLook.FixedGradientDownTo = clWhite
    ControlLook.FixedGradientDownMirrorFrom = clWhite
    ControlLook.FixedGradientDownMirrorTo = clWhite
    ControlLook.FixedGradientDownBorder = 11250603
    ControlLook.DropDownHeader.Font.Charset = DEFAULT_CHARSET
    ControlLook.DropDownHeader.Font.Color = clWindowText
    ControlLook.DropDownHeader.Font.Height = -11
    ControlLook.DropDownHeader.Font.Name = 'Tahoma'
    ControlLook.DropDownHeader.Font.Style = []
    ControlLook.DropDownHeader.Visible = True
    ControlLook.DropDownHeader.Buttons = <>
    ControlLook.DropDownFooter.Font.Charset = DEFAULT_CHARSET
    ControlLook.DropDownFooter.Font.Color = clWindowText
    ControlLook.DropDownFooter.Font.Height = -11
    ControlLook.DropDownFooter.Font.Name = 'Tahoma'
    ControlLook.DropDownFooter.Font.Style = []
    ControlLook.DropDownFooter.Visible = True
    ControlLook.DropDownFooter.Buttons = <>
    ControlLook.ToggleSwitch.BackgroundBorderWidth = 1.000000000000000000
    ControlLook.ToggleSwitch.ButtonBorderWidth = 1.000000000000000000
    ControlLook.ToggleSwitch.CaptionFont.Charset = DEFAULT_CHARSET
    ControlLook.ToggleSwitch.CaptionFont.Color = clWindowText
    ControlLook.ToggleSwitch.CaptionFont.Height = -11
    ControlLook.ToggleSwitch.CaptionFont.Name = 'Tahoma'
    ControlLook.ToggleSwitch.CaptionFont.Style = []
    ControlLook.ToggleSwitch.Shadow = False
    Filter = <>
    FilterDropDown.Font.Charset = DEFAULT_CHARSET
    FilterDropDown.Font.Color = clWindowText
    FilterDropDown.Font.Height = -11
    FilterDropDown.Font.Name = 'Tahoma'
    FilterDropDown.Font.Style = []
    FilterDropDown.TextChecked = 'Checked'
    FilterDropDown.TextUnChecked = 'Unchecked'
    FilterDropDownClear = '(All)'
    FilterEdit.TypeNames.Strings = (
      'Starts with'
      'Ends with'
      'Contains'
      'Not contains'
      'Equal'
      'Not equal'
      'Larger than'
      'Smaller than'
      'Clear')
    FixedRowHeight = 22
    FixedFont.Charset = DEFAULT_CHARSET
    FixedFont.Color = 3881787
    FixedFont.Height = -11
    FixedFont.Name = 'Tahoma'
    FixedFont.Style = [fsBold]
    FloatFormat = '%.2f'
    HoverButtons.Buttons = <>
    HTMLSettings.ImageFolder = 'images'
    HTMLSettings.ImageBaseName = 'img'
    Look = glCustom
    PrintSettings.DateFormat = 'dd/mm/yyyy'
    PrintSettings.Font.Charset = DEFAULT_CHARSET
    PrintSettings.Font.Color = clWindowText
    PrintSettings.Font.Height = -11
    PrintSettings.Font.Name = 'Tahoma'
    PrintSettings.Font.Style = []
    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
    PrintSettings.FixedFont.Color = clWindowText
    PrintSettings.FixedFont.Height = -11
    PrintSettings.FixedFont.Name = 'Tahoma'
    PrintSettings.FixedFont.Style = []
    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
    PrintSettings.HeaderFont.Color = clWindowText
    PrintSettings.HeaderFont.Height = -11
    PrintSettings.HeaderFont.Name = 'Tahoma'
    PrintSettings.HeaderFont.Style = []
    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
    PrintSettings.FooterFont.Color = clWindowText
    PrintSettings.FooterFont.Height = -11
    PrintSettings.FooterFont.Name = 'Tahoma'
    PrintSettings.FooterFont.Style = []
    PrintSettings.PageNumSep = '/'
    SearchFooter.ColorTo = clNone
    SearchFooter.FindNextCaption = 'Find &next'
    SearchFooter.FindPrevCaption = 'Find &previous'
    SearchFooter.Font.Charset = DEFAULT_CHARSET
    SearchFooter.Font.Color = clWindowText
    SearchFooter.Font.Height = -11
    SearchFooter.Font.Name = 'Tahoma'
    SearchFooter.Font.Style = []
    SearchFooter.HighLightCaption = 'Highlight'
    SearchFooter.HintClose = 'Close'
    SearchFooter.HintFindNext = 'Find next occurrence'
    SearchFooter.HintFindPrev = 'Find previous occurrence'
    SearchFooter.HintHighlight = 'Highlight occurrences'
    SearchFooter.MatchCaseCaption = 'Match case'
    SearchFooter.ResultFormat = '(%d of %d)'
    SelectionColor = 13744549
    ShowDesignHelper = False
    SortSettings.HeaderColor = clWhite
    SortSettings.HeaderColorTo = clWhite
    SortSettings.HeaderMirrorColor = clWhite
    SortSettings.HeaderMirrorColorTo = clWhite
    Version = '9.0.0.2'
    ColWidths = (
      64
      141
      141
      141
      140)
    RowHeights = (
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22)
    object AdvGridPDFIO1: TAdvGridPDFIO
      Left = 15
      Top = 16
      Width = 26
      Height = 26
      Visible = True
      Grid = AdvStringGrid1
      Options.DefaultFont.Name = 'Arial'
      Options.Header = 'TMS PDF Header'
      Options.Footer = 'TMS PDF Footer'
      Options.Margins.Left = 20.000000000000000000
      Options.Margins.Top = 50.000000000000000000
      Options.Margins.Right = 20.000000000000000000
      Options.Margins.Bottom = 50.000000000000000000
      Options.HeaderFont.Name = 'Arial'
      Options.FooterFont.Name = 'Arial'
      Options.HeaderMargins.Left = 5.000000000000000000
      Options.HeaderMargins.Top = 5.000000000000000000
      Options.HeaderMargins.Right = 5.000000000000000000
      Options.HeaderMargins.Bottom = 5.000000000000000000
      Options.FooterMargins.Left = 5.000000000000000000
      Options.FooterMargins.Top = 5.000000000000000000
      Options.FooterMargins.Right = 5.000000000000000000
      Options.FooterMargins.Bottom = 5.000000000000000000
      Options.PageOrientation = poLandscape
      Options.PageNumberMargins.Left = 10.000000000000000000
      Options.PageNumberMargins.Top = 5.000000000000000000
      Options.PageNumberMargins.Right = 10.000000000000000000
      Options.PageNumberMargins.Bottom = 5.000000000000000000
      Options.PageNumberFormat = '%d'
      Options.PageNumberFont.Name = 'Arial'
    end
  end
  object pdfBtn: TButton
    Left = 448
    Top = 410
    Width = 97
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'PDF'
    TabOrder = 1
    OnClick = onPdfClick
    ExplicitLeft = 598
    ExplicitTop = 498
  end
  object cbIndex: TCheckBox
    Left = 10
    Top = 414
    Width = 65
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'cbIndex'
    Checked = True
    State = cbChecked
    TabOrder = 2
    OnClick = onClickToggleCol
  end
  object cbColor: TCheckBox
    Left = 80
    Top = 414
    Width = 57
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'cbColor'
    Checked = True
    State = cbChecked
    TabOrder = 3
    OnClick = onClickToggleCol
  end
  object cbName: TCheckBox
    Left = 150
    Top = 414
    Width = 61
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'cbName'
    Checked = True
    State = cbChecked
    TabOrder = 4
    OnClick = onClickToggleCol
  end
  object cbOrig: TCheckBox
    Left = 220
    Top = 414
    Width = 54
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'cbOrig'
    Checked = True
    State = cbChecked
    TabOrder = 5
    OnClick = onClickToggleCol
  end
  object cbCurrent: TCheckBox
    Left = 280
    Top = 414
    Width = 74
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'cbCurrent'
    Checked = True
    State = cbChecked
    TabOrder = 6
    OnClick = onClickToggleCol
  end
  object cbDiff: TCheckBox
    Left = 360
    Top = 414
    Width = 50
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'cbDiff'
    Checked = True
    State = cbChecked
    TabOrder = 7
    OnClick = onClickToggleCol
  end
  object htmlBtn: TButton
    Left = 560
    Top = 410
    Width = 96
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'HTML'
    TabOrder = 8
    OnClick = onHtmlClick
    ExplicitLeft = 710
    ExplicitTop = 498
  end
  object HTMLStaticText1: THTMLStaticText
    Left = 314
    Top = 196
    Width = 342
    Height = 208
    Anchors = [akRight, akBottom]
    HTMLText.Strings = (
      
        '<FONT size="10">This is a modified version of a previous test pr' +
        'ogram I sent TMSSoftware about <FONT bgcolor="#FFFF80">C</FONT><' +
        'FONT '
      'bgcolor="#00FF80">O</FONT><FONT '
      
        'bgcolor="#80FFFF">L</FONT><FONT bgcolor="#FF8080">O</FONT><FONT ' +
        'bgcolor="#80FFFF">R</FONT> cells being applied to the wrong colu' +
        'mn whenever other '
      'grid columns are hidden.  '
      
        '<B>You fixed that bug.  But I see another related issue.</B>...<' +
        'br><br>'
      ''
      
        'In this new version of the test program, I duplicated the same d' +
        'ummy data 30 times over to create a long grid list.  When all co' +
        'lumns are showing, exporting to PDF works '
      'fine.  But now remove random '
      
        'columns by unchecking any combination of checkboxes below.  Now ' +
        'try to export to a PDF.  <FONT color="#FF0000">You'#39'll see only t' +
        'he first page is output.</FONT>  '
      
        'Moreover, I'#39'm seeing some of the columns in that first page miss' +
        'ing.  '
      
        'It'#39's as if something is crashing during the PDF generation befor' +
        'e the entire grid is rendered in the PDF canvas, although no exc' +
        'eption is triggered.')
    MiniScroll = True
    TabOrder = 9
    Version = '1.6.0.0'
    ExplicitLeft = 464
    ExplicitTop = 277
  end
  object ListBox1: TListBox
    Left = 8
    Top = 224
    Width = 291
    Height = 184
    AutoComplete = False
    Anchors = [akLeft, akRight, akBottom]
    ItemHeight = 13
    TabOrder = 10
  end
  object clearListBtn: TButton
    Left = 10
    Top = 201
    Width = 97
    Height = 22
    Anchors = [akRight, akBottom]
    Caption = 'Clear list below'
    TabOrder = 11
    OnClick = clearListBtnClick
  end
end