PC World Komputer 1997 May

home *** CD-ROM | disk | FTP | other *** search

/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO20.DFM / FDEMO20.txt next >

Wrap

Text File | 1996-12-09 | 21.6 KB | 929 lines

object Form20: TForm20 Left = 81 Top = 76 Width = 640 Height = 639 ActiveControl = Panel1 Caption = 'Form20' Font.Color = clBlack Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 120 Position = poScreenCenter OnCreate = FormCreate TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 632 Height = 50 Align = alTop TabOrder = 0 object DBNavigator: TDBNavigator Left = 10 Top = 10 Width = 291 Height = 31 DataSource = DataSource1 Ctl3D = False ParentCtl3D = False TabOrder = 0 end object Preview: TBitBtn Left = 332 Top = 10 Width = 71 Height = 33 Hint = 'Preview /Print current page' Caption = '&Preview' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = PreviewClick end object PrintAll: TBitBtn Left = 404 Top = 10 Width = 71 Height = 33 Hint = 'Print all from Query' Caption = 'Print&All' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = PrintAllClick end object Print3: TBitBtn Left = 476 Top = 10 Width = 71 Height = 33 Hint = 'Print next 3 records from Query' Caption = 'Print&3' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = Print3Click end object Exit: TBitBtn Left = 548 Top = 10 Width = 71 Height = 33 Hint = 'Exit' Caption = '&Exit' ModalResult = 2 ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = ExitClick end end object Panel2: TPanel Left = 0 Top = 91 Width = 632 Height = 232 Align = alTop BevelInner = bvLowered BorderWidth = 4 Caption = 'Panel2' TabOrder = 1 object ScrollBox: TScrollBox Left = 6 Top = 6 Width = 620 Height = 220 HorzScrollBar.Margin = 6 HorzScrollBar.Range = 337 VertScrollBar.Margin = 6 VertScrollBar.Range = 348 VertScrollBar.Visible = False Align = alClient AutoScroll = False BorderStyle = bsNone TabOrder = 0 object Label1: TLabel Left = 6 Top = 10 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'CustNo' FocusControl = EditCustNo end object Label2: TLabel Left = 6 Top = 36 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Company' FocusControl = EditCompany end object Label3: TLabel Left = 6 Top = 62 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Addr1' FocusControl = EditAddr end object Label4: TLabel Left = 6 Top = 88 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Addr2' FocusControl = EditAddr2 end object Label5: TLabel Left = 6 Top = 114 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'City' FocusControl = EditCity end object Label6: TLabel Left = 6 Top = 140 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'State' FocusControl = EditState end object Label7: TLabel Left = 6 Top = 166 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Zip' FocusControl = EditZip end object Label8: TLabel Left = 6 Top = 192 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Country' FocusControl = EditCountry end object EditCustNo: TDBEdit Left = 121 Top = 6 Width = 70 Height = 24 DataField = 'CustNo' DataSource = DataSource1 MaxLength = 0 TabOrder = 0 end object EditCompany: TDBEdit Left = 121 Top = 32 Width = 210 Height = 24 DataField = 'Company' DataSource = DataSource1 MaxLength = 30 TabOrder = 1 end object EditAddr: TDBEdit Left = 121 Top = 58 Width = 210 Height = 24 DataField = 'Addr1' DataSource = DataSource1 MaxLength = 30 TabOrder = 2 end object EditAddr2: TDBEdit Left = 121 Top = 84 Width = 210 Height = 24 DataField = 'Addr2' DataSource = DataSource1 MaxLength = 30 TabOrder = 3 end object EditCity: TDBEdit Left = 121 Top = 110 Width = 105 Height = 24 DataField = 'City' DataSource = DataSource1 MaxLength = 15 TabOrder = 4 end object EditState: TDBEdit Left = 121 Top = 136 Width = 140 Height = 24 DataField = 'State' DataSource = DataSource1 MaxLength = 20 TabOrder = 5 end object EditZip: TDBEdit Left = 121 Top = 162 Width = 70 Height = 24 DataField = 'Zip' DataSource = DataSource1 MaxLength = 10 TabOrder = 6 end object EditCountry: TDBEdit Left = 121 Top = 188 Width = 140 Height = 24 DataField = 'Country' DataSource = DataSource1 MaxLength = 20 TabOrder = 7 end end end object Panel3: TPanel Left = 0 Top = 364 Width = 632 Height = 248 Align = alClient BevelInner = bvLowered BorderWidth = 4 Caption = 'Panel2' TabOrder = 2 object ScrollBox1: TScrollBox Left = 6 Top = 6 Width = 620 Height = 236 HorzScrollBar.Margin = 6 VertScrollBar.Margin = 6 VertScrollBar.Position = 750 Align = alClient BorderStyle = bsNone Color = clBtnFace ParentColor = False TabOrder = 0 object Label14: TLabel Left = 24 Top = -710 Width = 298 Height = 16 Caption = '1111 St James'#39' Street, Pretoria, South Africa, 0083' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False end object Shape1: TShape Left = 20 Top = -690 Width = 737 Height = 5 Brush.Color = clBlack end object Label18: TLabel Left = 436 Top = -710 Width = 29 Height = 16 Caption = 'Fax :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False end object Label19: TLabel Left = 428 Top = -630 Width = 3 Height = 16 Caption = '.' end object Label28: TLabel Left = 28 Top = 166 Width = 70 Height = 18 Caption = 'The Chief' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold, fsUnderline] ParentFont = False end object Label29: TLabel Left = 24 Top = -742 Width = 163 Height = 26 Caption = 'Demo Company' Font.Color = clBlack Font.Height = -23 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label20: TLabel Left = 468 Top = -710 Width = 100 Height = 16 Caption = '+27-12-11111111' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False end object Image1: TImage Left = 707 Top = -619 Width = 85 Height = 105 Picture.Data = {<image000.bmp>} end object Label9: TLabel Left = 16 Top = -392 Width = 58 Height = 17 Caption = 'Dear Sir,' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 18 Top = -352 Width = 310 Height = 17 Caption = 'Thank you for registering your company with us.' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label11: TLabel Left = 164 Top = -256 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Company' FocusControl = EditCompany Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label12: TLabel Left = 164 Top = -230 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Address' FocusControl = EditAddr Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label15: TLabel Left = 164 Top = -178 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'City' FocusControl = EditCity Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label16: TLabel Left = 164 Top = -152 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'State' FocusControl = EditState Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label17: TLabel Left = 164 Top = -126 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Zip' FocusControl = EditZip Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label21: TLabel Left = 164 Top = -100 Width = 109 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Country' FocusControl = EditCountry Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label13: TLabel Left = 26 Top = -44 Width = 199 Height = 19 Caption = 'Your customer number is' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label22: TLabel Left = 28 Top = 34 Width = 316 Height = 19 Caption = 'Please quote it in all future correspondence' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Memo5: TMemo Left = 16 Top = -323 Width = 797 Height = 46 BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'To enable us to keep our records up to date, please check the fo' + 'llowing details and make sure they are ' 'correct'#39) ParentCtl3D = False ParentFont = False TabOrder = 0 end object Memo6: TMemo Left = 24 Top = 60 Width = 771 Height = 63 BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'Your support and satisfaction is very important to us. If you ha' + 've a problem, please let us know.' 'Thank you and best regards.' '' '' '') ParentCtl3D = False ParentFont = False TabOrder = 1 end object Memo7: TMemo Left = 28 Top = 189 Width = 721 Height = 28 BorderStyle = bsNone Color = clWhite Ctl3D = False Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] Lines.Strings = ( 'Ps. This is a demo program' '') ParentCtl3D = False ParentFont = False ReadOnly = True TabOrder = 2 end object Edit1: TEdit Left = 22 Top = -674 Width = 119 Height = 24 BorderStyle = bsNone Color = clBtnFace Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 3 Text = '12 January1996' end object DBEdit2: TDBEdit Left = 19 Top = -610 Width = 210 Height = 25 DataField = 'Company' DataSource = DataSource1 Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 4 end object DBEdit3: TDBEdit Left = 19 Top = -584 Width = 210 Height = 25 DataField = 'Addr1' DataSource = DataSource1 Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 5 end object DBEdit4: TDBEdit Left = 19 Top = -558 Width = 210 Height = 25 DataField = 'Addr2' DataSource = DataSource1 Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 6 end object DBEdit5: TDBEdit Left = 19 Top = -532 Width = 105 Height = 25 DataField = 'City' DataSource = DataSource1 Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] MaxLength = 15 ParentFont = False TabOrder = 7 end object DBEdit6: TDBEdit Left = 19 Top = -506 Width = 140 Height = 25 DataField = 'State' DataSource = DataSource1 Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] MaxLength = 20 ParentFont = False TabOrder = 8 end object DBEdit7: TDBEdit Left = 19 Top = -480 Width = 70 Height = 25 DataField = 'Zip' DataSource = DataSource1 Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] MaxLength = 10 ParentFont = False TabOrder = 9 end object DBEdit8: TDBEdit Left = 19 Top = -454 Width = 140 Height = 25 DataField = 'Country' DataSource = DataSource1 Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] MaxLength = 20 ParentFont = False TabOrder = 10 end object DBEdit1: TDBEdit Left = 279 Top = -260 Width = 210 Height = 24 DataField = 'Company' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 11 end object DBEdit9: TDBEdit Left = 279 Top = -234 Width = 210 Height = 24 DataField = 'Addr1' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 12 end object DBEdit10: TDBEdit Left = 279 Top = -208 Width = 210 Height = 24 DataField = 'Addr2' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 13 end object DBEdit11: TDBEdit Left = 279 Top = -182 Width = 105 Height = 24 DataField = 'City' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 15 ParentFont = False TabOrder = 14 end object DBEdit12: TDBEdit Left = 279 Top = -156 Width = 140 Height = 24 DataField = 'State' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 20 ParentFont = False TabOrder = 15 end object DBEdit13: TDBEdit Left = 279 Top = -130 Width = 70 Height = 24 DataField = 'Zip' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 10 ParentFont = False TabOrder = 16 end object DBEdit14: TDBEdit Left = 279 Top = -104 Width = 140 Height = 24 DataField = 'Country' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 20 ParentFont = False TabOrder = 17 end object DBEdit15: TDBEdit Left = 275 Top = -10 Width = 70 Height = 24 DataField = 'CustNo' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 0 ParentFont = False TabOrder = 18 end end end object Panel4: TPanel Left = 0 Top = 50 Width = 632 Height = 41 Align = alTop Caption = 'Demo Chain Letter' Font.Color = clNavy Font.Height = -23 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object Panel5: TPanel Left = 0 Top = 323 Width = 632 Height = 41 Align = alTop Caption = 'A few Panels - Only bottom Panel is printed as the chain letter' Font.Color = clNavy Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 end object Query1: TQuery Active = True DatabaseName = 'DBDEMOS' SQL.Strings = ( 'Select' ' customer."CustNo",' ' customer."Company",' ' customer."Addr1",' ' customer."Addr2",' ' customer."City",' ' customer."State",' ' customer."Zip",' ' customer."Country",' ' customer."Phone",' ' customer."FAX",' ' customer."TaxRate",' ' customer."Contact",' ' customer."LastInvoiceDate"' 'From customer') Left = 260 Top = 5 end object DataSource1: TDataSource DataSet = Query1 Left = 287 Top = 5 end object DBPrintWin1: TDBPrintWin About = 'Version 5.32' AboutRegistered = 'TOM SNIDER' HeaderFont.Color = clWindowText HeaderFont.Height = 16 HeaderFont.Name = 'Arial' HeaderFont.Style = [] Font.Color = clWindowText Font.Height = 16 Font.Name = 'Arial' Font.Style = [] FooterFont.Color = clWindowText FooterFont.Height = 12 FooterFont.Name = 'Arial' FooterFont.Style = [] FrameObjects = True clBtnFaceAsWhite = True OutputTo = poViewer Orientation = Default Units = poInches ViewButtonVisible = False ShowCancelDialog = True LineWidth = 0 Copies = 1 GridBackDrop = False GridBackDropUnits = poInches ZoomPercentage = 25.000000000000000000 HeaderTop = 0.500000000000000000 HeaderLeft = 0.500000000000000000 HeaderStringLeft = ' ' HeaderStringCenter = ' ' HeaderStringRight = ' ' HeaderEnabled = True HeaderOutlined = False HeaderFilled = False TextColor = clBlack ViewBkColor = 11234567 ViewHeading = 'Printit Viewer' HeadingColor = clSilver FrameStyle = frThin FooterTop = 10.170000000000000000 FooterString = ' ' FooterEnabled = True FooterOutlined = False FooterFilled = False FixSansSerif = True FooterStringLeft = 'Printed on @Date at @Time' FooterStringRight = 'Page @Page' BorderLeft = 0.500000000000000000 BorderRight = 0.500000000000000000 LineSpacing = 2.800000000000000000 Left = 432 Top = 58 end end