object WinAbout: TWinAbout Left = 123 Top = 48 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'About Graph Paper Printer' ClientHeight = 441 ClientWidth = 492 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 70 Top = 0 Width = 353 Height = 106 BevelOuter = bvNone Color = clWhite TabOrder = 1 object ProductName: TLabel Left = 80 Top = 16 Width = 203 Height = 13 Caption = 'Name of the software : Graph Paper Printer' IsControl = True end object Version: TLabel Left = 292 Top = 16 Width = 59 Height = 13 Caption = 'Version 4.00' IsControl = True end object Copyright: TLabel Left = 79 Top = 33 Width = 53 Height = 13 Caption = 'Copyright : ' IsControl = True end object ProgramIcon: TImage Left = 19 Top = 8 Width = 35 Height = 35 Picture.Data = {} Stretch = True IsControl = True end object Label1: TLabel Left = 135 Top = 50 Width = 108 Height = 13 Caption = 'Biologiste des h�pitaux' end object Label3: TLabel Left = 135 Top = 69 Width = 82 Height = 13 Caption = 'METZ - FRANCE' end object Label5: TLabel Left = 135 Top = 87 Width = 129 Height = 13 Caption = 'E mail : philimar@easynet.fr' end object Label7: TLabel Left = 135 Top = 33 Width = 32 Height = 13 Caption = 'Label7' end object Label8: TLabel Left = 239 Top = 32 Width = 90 Height = 13 Caption = '1998 - 1999 - 2000' end end object Memo1: TMemo Left = 66 Top = 316 Width = 361 Height = 83 TabStop = False BorderStyle = bsNone Color = clWhite Lines.Strings = ( 'The author makes no warranty or representation either expressed ' + 'or implied ' 'with respect to this GRAPH PAPER PRINTER software, its quality,' + ' ' 'performance, or fitness for any purpose.' '' 'Critics or suggestions will be wellcome for next versions. You ' + 'can download ' 'the latest version at : http://perso.easynet.fr/~philimar/' '' ' ') ReadOnly = True TabOrder = 2 end object CheckBoxAvertir: TCheckBox Left = 40 Top = 409 Width = 177 Height = 17 Caption = '&Do not show this window again' TabOrder = 3 end object BtOK: TBitBtn Left = 232 Top = 405 Width = 169 Height = 25 Caption = 'Press any key to close' TabOrder = 0 Kind = bkClose end object Memo2: TMemo Left = 11 Top = 112 Width = 473 Height = 195 BorderStyle = bsNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Lines.Strings = ( 'This software is free and unlimited. If you use it at home, at s' + 'chool or for ' 'your job, I only ask, as a reward of my work, a simple postcard,' + ' typical of ' 'your environment. Would you write down the field in which you ar' + 'e using ' 'Graph Paper Printer, stick a pretty stamp for my son and mail th' + 'e card to ' 'the postal address :' '' ' Dr Philippe Marquis' ' BP 81065' ' 57038 METZ CEDEX' ' FRANCE' '' 'Thanks in advance.' ' ' ' ') ParentFont = False TabOrder = 4 end end