object Form1: TForm1 Left = 198 Top = 138 HelpContext = 8 BorderStyle = bsNone Caption = 'Form1' ClientHeight = 377 ClientWidth = 547 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] HelpFile = 'ColorBaby.hlp' OldCreateOrder = True WindowState = wsMaximized OnCreate = creation OnKeyDown = FormKeyDown OnResize = FormResize PixelsPerInch = 96 TextHeight = 16 object fond: TImage Left = 6 Top = 8 Width = 535 Height = 269 Picture.Data = {} end object menu2: TImage Left = 105 Top = 36 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'VOIR EN PLEIN ECRAN' Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = menu2MouseDown OnMouseUp = menu2MouseUp end object menu3: TImage Left = 141 Top = 36 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'ANNULER LA DERNIERE OPERATION' Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = menu3MouseDown OnMouseUp = menu3MouseUp end object menu8: TImage Left = 320 Top = 38 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'IMPRIMER L'#39'IMAGE' Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = menu8MouseDown OnMouseUp = menu8MouseUp end object menu9: TImage Left = 355 Top = 38 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'AIDE SUR COLOR BABY' Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = menu9MouseDown OnMouseUp = menu9MouseUp end object menu10: TImage Left = 393 Top = 38 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'QUITTER COLOR BABY' Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = menu10MouseDown OnMouseUp = menu10MouseUp end object Menu1: TImage Left = 67 Top = 34 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'DESSIN PRECEDENT' Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = Menu1MouseDown OnMouseUp = Menu1MouseUp end object Menu11: TImage Left = 428 Top = 38 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'IMAGE SUIVANTE' Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = Menu11MouseDown OnMouseUp = Menu11MouseUp end object menu5: TImage Left = 216 Top = 40 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'RESTAURER L'#39'IMAGE' ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = menu5MouseDown OnMouseUp = menu5MouseUp end object menu7: TImage Left = 284 Top = 38 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'ENREGISTRER L'#39'IMAGE' ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = menu7MouseDown OnMouseUp = menu7MouseUp end object menu6: TImage Left = 250 Top = 38 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'OUVRIR UNE IMAGE' ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = menu6MouseDown OnMouseUp = menu6MouseUp end object menu4: TImage Left = 178 Top = 38 Width = 29 Height = 34 Cursor = crHandPoint Hint = 'CHANGER LES COULEURS' Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = menu4MouseDown OnMouseUp = menu4MouseUp end object Aperdyne: TImage Left = 14 Top = 292 Width = 259 Height = 53 Cursor = crHandPoint Hint = 'A PROPOS DE COLOR BABY' ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = AperdyneMouseDown OnMouseUp = AperdyneMouseUp end object Label2: TLabel Left = 280 Top = 18 Width = 101 Height = 16 Caption = '- COLOR BABY -' Color = clNone Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label1: TLabel Left = 276 Top = 2 Width = 101 Height = 16 Caption = '- COLOR BABY -' Color = clNone Font.Charset = ANSI_CHARSET Font.Color = clGray Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object ScrollBox1: TScrollBox Left = 56 Top = 92 Width = 295 Height = 149 Cursor = crNoDrop BorderStyle = bsNone Color = clWhite ParentColor = False TabOrder = 0 object copie: TImage Left = 0 Top = 0 Width = 103 Height = 101 Visible = False end object feuille: TImage Left = 0 Top = 0 Width = 95 Height = 93 Cursor = crCross AutoSize = True OnMouseDown = debut end object FileListBox1: TFileListBox Left = 128 Top = 6 Width = 107 Height = 111 FileType = [ftReadOnly, ftHidden, ftArchive, ftNormal] ItemHeight = 16 Mask = '*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf;*.apr' TabOrder = 0 Visible = False end end object PrintDialog1: TPrintDialog HelpContext = 16 Left = 8 Top = 96 end object OpenPictureDialog1: TOpenDialog HelpContext = 14 Filter = 'Tout (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf;*.apr)|*.jpg;*.jpeg;*' + '.bmp;*.ico;*.emf;*.wmf;*.apr|Fichier bitmap JPEG (*.jpg)|*.jpg|F' + 'ichier bitmap JPEG (*.jpeg)|*.jpeg|Bitmaps Windows ou OS/2 (*.bm' + 'p)|*.bmp|Ressource ic�ne Windows 3.x/NT (*.ico)|*.ico|M�taFichie' + 'rs am�lior� de Windows (*.emf)|*.emf|M�taFichiers de Windows (*.' + 'wmf)|*.wmf|Fichier bitmap Aperdyne (*.apr)|*.apr' Options = [ofHideReadOnly, ofShowHelp, ofEnableSizing] Left = 8 Top = 64 end object SavePictureDialog1: TSaveDialog HelpContext = 15 Filter = 'Bitmaps Windows ou OS/2 (*.bmp)|*.bmp|Fichier bitmap Aperdyne (*' + '.apr)|*.apr' Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp, ofEnableSizing] Left = 8 Top = 128 end end