object GridHintIniDemo: TGridHintIniDemo
  Left = 191
  Top = 106
  BorderStyle = bsDialog
  Caption = 'Save Grid Settings in Windows Registry & Auto Hints'
  ClientHeight = 398
  ClientWidth = 495
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 0
    Width = 495
    Height = 137
    ControlType.Strings = (
      'Buyer;CheckBox;Yes;No'
      'CityZip;CustomEdit;wwDBLookupCombo1;F'
      'First Contact Date;CustomEdit;wwDBDateTimePicker1;F')
    Selected.Strings = (
      'Customer No'#9'7'#9'Customer~No'
      'Buyer'#9'4'#9'Buyer'
      'Company Name'#9'8'#9'Company~Name'
      'Street'#9'9'#9'Street'
      'CityZip'#9'12'#9'City'
      'State'#9'5'#9'State'
      'Zip'#9'6'#9'Zip'
      'Information'#9'18'#9'Information'
      'First Contact Date'#9'14'#9'First Contact Date'
      'First Name'#9'8'#9'First Name'
      'Last Name'#9'8'#9'Last Name'
      'Phone Number'#9'20'#9'Phone Number')
    MemoAttributes = [mSizeable, mWordWrap, mGridShow]
    IniAttributes.Enabled = True
    IniAttributes.SaveToRegistry = True
    IniAttributes.FileName = 'Software\Woll2WollDemo\Grid2000'
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alTop
    DataSource = wwDataSource1
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgTrailingEllipsis, dgShowCellHint]
    TabOrder = 0
    TitleAlignment = taCenter
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 2
    TitleButtons = False
    OnCreateHintWindow = wwDBGrid1CreateHintWindow
  end
  object wwDBRichEdit1: TwwDBRichEdit
    Left = 0
    Top = 168
    Width = 495
    Height = 230
    Align = alBottom
    AutoURLDetect = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    GutterWidth = 3
    HideSelection = False
    ParentFont = False
    PrintJobName = 'Delphi 5'
    TabOrder = 1
    EditorOptions = [reoShowSaveExit, reoShowPrint, reoShowPrintPreview, reoShowPageSetup, reoShowFormatBar, reoShowToolBar, reoShowStatusBar, reoShowHints, reoShowRuler, reoShowInsertObject, reoCloseOnEscape, reoFlatButtons, reoShowSpellCheck, reoShowMainMenuIcons, reoShowZoomCombo]
    EditorCaption = 'Edit Rich Text'
    EditorPosition.Left = 0
    EditorPosition.Top = 0
    EditorPosition.Width = 0
    EditorPosition.Height = 0
    MeasurementUnits = muInches
    PrintMargins.Top = 1.000000000000000000
    PrintMargins.Bottom = 1.000000000000000000
    PrintMargins.Left = 1.000000000000000000
    PrintMargins.Right = 1.000000000000000000
    PrintHeader.VertMargin = 0.500000000000000000
    PrintHeader.Font.Charset = DEFAULT_CHARSET
    PrintHeader.Font.Color = clWindowText
    PrintHeader.Font.Height = -11
    PrintHeader.Font.Name = 'Tahoma'
    PrintHeader.Font.Style = []
    PrintFooter.VertMargin = 0.500000000000000000
    PrintFooter.Font.Charset = DEFAULT_CHARSET
    PrintFooter.Font.Color = clWindowText
    PrintFooter.Font.Height = -11
    PrintFooter.Font.Name = 'Tahoma'
    PrintFooter.Font.Style = []
    RichEditVersion = 2
    Data = {
      [encoded data, 5504 characters]
      506F77657220677269642E5C6366335C66335C7061720D0A7D0D0A00}
  end
  object wwDBLookupCombo1: TwwDBLookupCombo
    Left = 440
    Top = 88
    Width = 25
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'CITY'#9'25'#9'CITY'#9'F'
      'STATE'#9'2'#9'STATE'#9'F'
      'ZIP'#9'10'#9'ZIP'#9'F')
    LookupTable = ClientDataSet2
    LookupField = 'ZIP'
    ButtonStyle = cbsCustom
    ButtonWidth = 18
    ButtonGlyph.Data = {
      E6000000424DE60000000000000076000000280000000E0000000E0000000100
      04000000000070000000130B0000130B00001000000000000000000000000000
      7F007F7F7F000000FF00BFBFBF00DFDFDF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000444444404444
      4481444444010444440044444401204444014444440112044400444440211130
      4401444440441333040244440445533330014440445555000400440445550044
      4400404455504444440104455503444444000455503444444401405504444444
      44814400444444444481}
    TabOrder = 2
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
  end
  object wwDBDateTimePicker1: TwwDBDateTimePicker
    Left = 440
    Top = 64
    Width = 25
    Height = 21
    CalendarAttributes.Font.Charset = DEFAULT_CHARSET
    CalendarAttributes.Font.Color = clWindowText
    CalendarAttributes.Font.Height = -11
    CalendarAttributes.Font.Name = 'MS Sans Serif'
    CalendarAttributes.Font.Style = []
    ButtonStyle = cbsCustom
    Epoch = 1950
    ButtonWidth = 18
    ButtonGlyph.Data = {
      E6000000424DE60000000000000076000000280000000E0000000E0000000100
      04000000000070000000130B0000130B00001000000000000000000000000000
      FF00FFFF0000BFBFBF00DFDFDF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000330000000000
      0081000000000000000004444444444400010444441444440000044444144444
      0001044444144444000204444114444400010444441444440002044444444444
      0000000000000000008102022222220200010000000000000300303330330333
      03023300033330003302}
    ShowButton = True
    TabOrder = 3
  end
  object Panel1: TPanel
    Left = 0
    Top = 137
    Width = 495
    Height = 31
    Align = alClient
    TabOrder = 4
    object Button1: TButton
      Left = 4
      Top = 4
      Width = 240
      Height = 24
      Caption = 'Restore Grid Settings From Registry'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 251
      Top = 4
      Width = 240
      Height = 24
      Caption = 'Update Grid Settings in Registry Values'
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object wwDataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 56
    Top = 24
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Filter = '[State]='#39'TX'#39
    Filtered = True
    Params = <>
    Left = 88
    Top = 24
    Data = {
      2C0600009619E0BD01000000180000000C000A00000003000000CF010B437573
      746F6D6572204E6F040001000000000005427579657201004900000001000557
      494454480200020003000C436F6D70616E79204E616D65010049000000010005
      5749445448020002002800065374726565740100490000000100055749445448
      020002003C0007436974795A6970010049000200020005574944544802000200
      14000B5345525645525F43414C4302000380FFFF055374617465010049000000
      0100055749445448020002001900035A69700100490000000100055749445448
      020002000A000B496E666F726D6174696F6E04004B0000000200075355425459
      5045020049000500546578740005574944544802000200500012466972737420
      436F6E74616374204461746504000600000000000A4669727374204E616D6501
      00490000000100055749445448020002001900094C617374204E616D65010049
      00000001000557494454480200020019000C50686F6E65204E756D6265720100
      49000000010005574944544802000200140003000D44454641554C545F4F5244
      45520400820001000000010000000B5052494D4152595F4B4559040082000100
      000001000000044C434944040001000904000000000000FA0100000359657309
      54656C652D506174681B3134363020496E666F726D6174696F6E20546563682E
      20496E632E034172740254580537363832309B0000004D6F7665204D6F757365
      204F7665722043656C6C730D0A0D0A4175746F6D6174696320546F6F6C205469
      70732048696E747320646973706C617920666F72207465787420746861742077
      696C6C206E6F742066697420696E207468652063757272656E742063656C6C2E
      0D0A48696E747320737570706F727420776F72647772617020616E6420637573
      746F6D697A6564207769647468732E0D0A2E1C0B0006526162626974054F6C64
      656E0C3138372D3531372D30353630000040005E030000035965730B53746172
      205265636F72730C502E4F2E20426F78203732370842656576696C6C65025458
      053738313032AF1B0B00054A6F616E6E05526F7965720C3539352D3130322D30
      313738000040006604000003596573094153415020436F727022546865204772
      65656E7761792C20363320576172646C6520526F61642C2053616C65074D6320
      4C65616E025458053739303537A11B0B000D456D706C6F796565203235363006
      4865737365720C3634322D3133352D313438340000400047050000024E6F0B41
      264420526573656172630D48434F3120426F78203432414106497276696E6702
      5458053735303135D41C0B0003526F640A4D63436C696E746F636B0C3036302D
      3531322D393836360000400005080000024E6F0F546F79732045766572797768
      6572651F323437392050656163687472656520526F61642C2053756974652031
      3731300B506F727420417274687572025458053737363433C21B0B0007526963
      686172640259750C3437342D3637392D36343232000040009A0B0000024E6F04
      536F6E790C31343020486F6C742052642E0B42726F6F6B65736D697468025458
      053736383237A11C0B0009476572616C6420502E04536175720C3435322D3937
      342D3737343400004000D30B000003596573065A656E69746822555620436F6C
      6C6567652053616C666F72642C2046726564657269636B20526F61640B50616E
      6E61204D61726961025458053738313434B01B0B00064861726F6C6408536368
      61656665720C3731352D3430322D3136353300004000F71A0000035965730E4B
      696E6B6F277320436F706965730F3536303520476F6C64636F2044722E064661
      6E6E696E025458053737393630661C0B0006546F70616E6907537665746C696B
      0C3536382D3230342D3832363300004000C41C0000035965730D436172656572
      2043656E7465720F32333037204F7265676F6E2053742E07486F7573746F6E02
      5458053737303039C41C0B0006446F6E616C64075061636865636F0C3237332D
      3834342D333531360000400086200000035965731C54616D7061204261792049
      6E666F726D6174696F6E2043656E7465720E313239352053746174652053742E
      07486F7573746F6E025458053737303237741B0B0006546F70616E690644654D
      6F6F790C3435372D3638352D39373434}
    object ClientDataSet1CustomerNo: TIntegerField
      DisplayLabel = 'Customer~No'
      DisplayWidth = 7
      FieldName = 'Customer No'
    end
    object ClientDataSet1Buyer: TStringField
      DisplayWidth = 4
      FieldName = 'Buyer'
      Size = 3
    end
    object ClientDataSet1CompanyName: TStringField
      DisplayLabel = 'Company~Name'
      DisplayWidth = 8
      FieldName = 'Company Name'
      Size = 40
    end
    object ClientDataSet1Street: TStringField
      DisplayWidth = 9
      FieldName = 'Street'
      Size = 60
    end
    object ClientDataSet1CityZip: TStringField
      DisplayLabel = 'City'
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'CityZip'
      LookupDataSet = ClientDataSet2
      LookupKeyFields = 'Zip'
      LookupResultField = 'City'
      KeyFields = 'Zip'
      ReadOnly = True
      Lookup = True
    end
    object ClientDataSet1State: TStringField
      DisplayWidth = 5
      FieldName = 'State'
      Size = 25
    end
    object ClientDataSet1Zip: TStringField
      DisplayWidth = 6
      FieldName = 'Zip'
      Size = 10
    end
    object ClientDataSet1Information: TMemoField
      DisplayWidth = 18
      FieldName = 'Information'
      BlobType = ftMemo
      Size = 80
    end
    object ClientDataSet1FirstContactDate: TDateField
      DisplayWidth = 14
      FieldName = 'First Contact Date'
    end
    object ClientDataSet1FirstName: TStringField
      DisplayWidth = 8
      FieldName = 'First Name'
      Size = 25
    end
    object ClientDataSet1LastName: TStringField
      DisplayWidth = 8
      FieldName = 'Last Name'
      Size = 25
    end
    object ClientDataSet1PhoneNumber: TStringField
      DisplayWidth = 20
      FieldName = 'Phone Number'
    end
  end
  object ClientDataSet2: TClientDataSet
    Active = True
    Aggregates = <>
    Filter = '[State]='#39'TX'#39
    Filtered = True
    Params = <>
    Left = 88
    Top = 56
    Data = {
      [encoded data, 11904 characters]
      6F025458}
  end
end
