object Shareware: TShareware Left = 142 Top = 94 BorderIcons = [] BorderStyle = bsSingle Caption = 'Logiciel en shareware' ClientHeight = 362 ClientWidth = 527 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -17 Font.Name = 'System' Font.Style = [] Position = poScreenCenter Scaled = False PixelsPerInch = 120 TextHeight = 20 object Panel1: TPanel Left = 0 Top = 0 Width = 527 Height = 297 Align = alTop BevelInner = bvLowered BevelOuter = bvLowered Color = clTeal TabOrder = 0 object Image1: TImage Left = 3 Top = 4 Width = 198 Height = 69 Picture.Data = {} end object Label1: TLabel Left = 7 Top = 80 Width = 187 Height = 25 Alignment = taCenter Caption = 'Logiciel shareware' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -23 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 216 Top = 32 Width = 281 Height = 25 Alignment = taCenter AutoSize = False Caption = 'Alternative Micro Syst�me' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -23 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 16 Top = 120 Width = 497 Height = 73 AutoSize = False Caption = 'Ce logiciel dans sa version 1.0 est diffus� selon le principe du' + ' libre-essai (shareware). Il est complet et fonctionnel. Vous po' + 'uvez l'#39'�valuer librement pendant une dur�e de 30 jours, et s'#39'il ' + 'convient � vos besoins, vous enregistrer.' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -17 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label4: TLabel Left = 15 Top = 208 Width = 498 Height = 73 AutoSize = False Caption = 'Vous recevrez alors, par retour, la derni�re version comportant ' + 'de nombreuses fonctionnalit�s suppl�mentaires, une aide en ligne' + ', un manuel, un catalogue de nos produits. Une licence et une fa' + 'cture vous seront d�livr�s.' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -17 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False WordWrap = True end end object Button1: TButton Left = 219 Top = 310 Width = 89 Height = 33 Caption = 'OK' TabOrder = 1 OnClick = Button1Click end end