object AutoForm: TAutoForm Left = 236 Top = 176 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsDialog Caption = 'Automatisation' ClientHeight = 386 ClientWidth = 537 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poMainFormCenter OnCreate = FormCreate OnDestroy = FormDestroy OnHide = FormHide OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object TLabel Left = 48 Top = 152 Width = 73 Height = 13 Caption = 'Luminosit'#233' : 0%' end object PageControl: TPageControl Left = 8 Top = 8 Width = 521 Height = 369 ActivePage = TshFichiers MultiLine = True TabOrder = 0 OnChange = PageControlChange OnChanging = PageControlChanging object TshFichiers: TTabSheet Caption = 'Fichier' object LblFormatExport: TLabel Left = 264 Top = 200 Width = 78 Height = 13 Caption = 'Format d'#39'export :' Transparent = True end object LblDirExport: TLabel Left = 16 Top = 200 Width = 81 Height = 13 Caption = 'Dossier d'#39'export :' Transparent = True end object SBFiltre: TSpeedButton Left = 474 Top = 88 Width = 23 Height = 21 Flat = True OnClick = SBFiltreClick end object Bevel3: TBevel Left = 16 Top = 188 Width = 481 Height = 9 Shape = bsTopLine end object SBExport: TSpeedButton Left = 226 Top = 216 Width = 23 Height = 21 Flat = True OnClick = SBExportClick end object LblExemple: TLabel Left = 16 Top = 296 Width = 54 Height = 13 Caption = 'LblExemple' Transparent = True end object LblQual1: TLabel Left = 264 Top = 276 Width = 97 Height = 13 AutoSize = False Caption = 'Qualit'#233' inf'#233'rieure' Transparent = True end object LblQual2: TLabel Left = 400 Top = 276 Width = 95 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Qualit'#233' sup'#233'rieure' Transparent = True end object LblNbCouleurs: TLabel Left = 152 Top = 304 Width = 101 Height = 13 Caption = 'Nombre de couleurs :' Transparent = True end object LblDirSrc: TLabel Left = 264 Top = 16 Width = 76 Height = 13 Caption = 'Dossier source :' Transparent = True end object Label6: TLabel Left = 16 Top = 16 Width = 40 Height = 13 Caption = 'Images :' Transparent = True end object SBSrc: TSpeedButton Left = 474 Top = 32 Width = 23 Height = 21 Flat = True OnClick = SBSrcClick end object LblFormatSrc: TLabel Left = 264 Top = 72 Width = 73 Height = 13 Caption = 'Format source :' Transparent = True end object LblCompress: TLabel Left = 368 Top = 276 Width = 24 Height = 13 Alignment = taCenter AutoSize = False Caption = '90' Transparent = True end object FileListBox: TFileListBox Left = 16 Top = 32 Width = 233 Height = 137 ItemHeight = 13 TabOrder = 0 OnMouseDown = FileListBoxMouseDown end object CmbFilter: TFilterComboBox Left = 264 Top = 88 Width = 209 Height = 21 FileList = FileListBox TabOrder = 1 end object CmbFormatExport: TComboBox Left = 264 Top = 216 Width = 233 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 2 OnChange = CmbFormatExportChange Items.Strings = ( 'JPEG (*.jpg)' 'Bitmap (*.bmp)' 'GIF (*.gif)' 'Targa (*.tga)' 'PNG (*.png)' 'TIFF (*.tif)') end object EdiSequence: TEdit Left = 16 Top = 268 Width = 207 Height = 21 TabOrder = 3 Text = 'Image' OnChange = EdiSequenceChange end object ChkSequence: TCheckBox Left = 16 Top = 248 Width = 161 Height = 17 Caption = 'S'#233'quence' TabOrder = 4 OnClick = ChkSequenceClick end object TrbCompress: TTrackBar Left = 258 Top = 248 Width = 245 Height = 25 Max = 100 Min = 10 PageSize = 10 Frequency = 5 Position = 90 TabOrder = 5 ThumbLength = 15 OnChange = TrbCompressChange end object CmbNbCouleurs: TComboBox Left = 264 Top = 300 Width = 233 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 6 Items.Strings = ( 'Nombre maximum de couleurs' '256 couleurs' '16 couleurs' 'Noir et Blanc (2 couleurs, bichromie)' 'Noir et Blanc (2 couleurs, tramage)') end object EdiDossierExport: TSpecialEdit Left = 16 Top = 216 Width = 209 Height = 21 BorderStyle = bsSingle ButtonStyle = stDown DisabledColor = clNone ItemIndex = -1 MinimizeText = True NumGlyphs = 1 ParentColor = False ReadOnly = False ShowButton = False TabOrder = 7 TabStop = True OnClick = SBExportClick end object CBSel: TCheckBox Left = 264 Top = 132 Width = 225 Height = 17 Caption = 'S'#233'lection personnalis'#233'e' TabOrder = 8 OnClick = CBSelClick end object EdiDirSrc: TSpecialEdit Left = 264 Top = 32 Width = 209 Height = 21 BorderStyle = bsSingle ButtonStyle = stDown DisabledColor = clNone ItemIndex = -1 MinimizeText = True NumGlyphs = 1 ParentColor = False ReadOnly = False ShowButton = False TabOrder = 9 TabStop = True OnClick = SBSrcClick end end object TshImage: TTabSheet Caption = 'Image' ImageIndex = 1 object LblLargeurImage: TLabel Left = 24 Top = 48 Width = 42 Height = 13 Caption = 'Largeur :' Transparent = True end object LblHauteurImage: TLabel Left = 104 Top = 48 Width = 44 Height = 13 Caption = 'Hauteur :' Transparent = True end object LblLargeurCadre: TLabel Left = 376 Top = 48 Width = 42 Height = 13 Caption = 'Largeur :' Transparent = True end object LblCouleurCadre: TLabel Left = 296 Top = 48 Width = 42 Height = 13 Caption = 'Couleur :' Transparent = True end object LblLargeurZone: TLabel Left = 24 Top = 192 Width = 42 Height = 13 Caption = 'Largeur :' Transparent = True end object LblHauteurZone: TLabel Left = 104 Top = 192 Width = 44 Height = 13 Caption = 'Hauteur :' Transparent = True end object LblCouleurFond: TLabel Left = 184 Top = 192 Width = 30 Height = 13 Caption = 'Fond :' Transparent = True end object LblMotif: TLabel Left = 24 Top = 244 Width = 68 Height = 13 Caption = 'Motif de fond :' Transparent = True end object Bevel1: TBevel Left = 24 Top = 148 Width = 465 Height = 9 Shape = bsTopLine end object SBMotif: TSpeedButton Left = 210 Top = 260 Width = 23 Height = 21 Flat = True OnClick = SBMotifClick end object LblPosition: TLabel Left = 296 Top = 192 Width = 43 Height = 13 Caption = 'Position :' Transparent = True end object LblUniteImage: TLabel Left = 184 Top = 48 Width = 31 Height = 13 Caption = 'Unit'#233' :' Transparent = True end object SBMotif2: TSpeedButton Left = 233 Top = 260 Width = 23 Height = 21 Flat = True OnClick = SBMotif2Click end object ChkRedim: TCheckBox Left = 24 Top = 24 Width = 169 Height = 17 Caption = 'Taille de l'#39'image' TabOrder = 0 OnClick = ChkRedimClick end object ChkCadre: TCheckBox Left = 296 Top = 24 Width = 145 Height = 17 Caption = 'Encadrement' TabOrder = 1 OnClick = ChkCadreClick end object ChkZoneTravail: TCheckBox Left = 24 Top = 168 Width = 225 Height = 17 Caption = 'Taille de la zone de travail' TabOrder = 2 OnClick = ChkZoneTravailClick end object ChkOmbre: TCheckBox Left = 400 Top = 192 Width = 105 Height = 17 Caption = 'Ombre port'#233'e' TabOrder = 3 OnClick = ChkOmbreClick end object CBExterieur: TCheckBox Left = 296 Top = 92 Width = 113 Height = 17 Caption = 'Ext'#233'rieur' TabOrder = 4 end object SELargeurCadre: TSpinEdit2 Left = 376 Top = 64 Width = 73 Height = 21 MaxLength = 3 MaxValue = 500 MinValue = 1 ShowUpDown = True TabOrder = 5 Value = 15 end object SELargeurZone: TSpinEdit2 Left = 24 Top = 208 Width = 73 Height = 21 MaxValue = 10000 MinValue = 0 ShowUpDown = True TabOrder = 6 Value = 0 end object SEHauteurZone: TSpinEdit2 Left = 104 Top = 208 Width = 73 Height = 21 MaxValue = 10000 MinValue = 0 ShowUpDown = True TabOrder = 7 Value = 0 end object ChkRedimOptimiser: TCheckBox Left = 24 Top = 110 Width = 169 Height = 17 Caption = 'Optimiser' Checked = True State = cbChecked TabOrder = 8 end object CmbUnite: TComboBox Left = 184 Top = 64 Width = 73 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 9 Text = 'pixels' OnChange = CmbUniteChange Items.Strings = ( 'pixels' '%') end object ToolBar: TToolBar Left = 292 Top = 210 Width = 89 Height = 90 Align = alNone ButtonHeight = 26 ButtonWidth = 27 Caption = 'ToolBar' EdgeBorders = [] Flat = True Images = MainForm.ImageList TabOrder = 10 Transparent = True Wrapable = False object TB0: TToolButton Left = 0 Top = 0 Caption = 'TB0' ImageIndex = 40 OnClick = TBClick end object TB1: TToolButton Tag = 1 Left = 27 Top = 0 Caption = 'TB1' ImageIndex = 40 OnClick = TBClick end object TB2: TToolButton Tag = 2 Left = 54 Top = 0 Caption = 'TB2' ImageIndex = 40 Wrap = True OnClick = TBClick end object TB3: TToolButton Tag = 3 Left = 0 Top = 26 Caption = 'TB3' ImageIndex = 40 OnClick = TBClick end object TB4: TToolButton Tag = 4 Left = 27 Top = 26 Caption = 'TB4' ImageIndex = 40 OnClick = TBClick end object TB5: TToolButton Tag = 5 Left = 54 Top = 26 Caption = 'TB5' ImageIndex = 40 Wrap = True OnClick = TBClick end object TB6: TToolButton Tag = 6 Left = 0 Top = 52 Caption = 'TB6' ImageIndex = 40 OnClick = TBClick end object TB7: TToolButton Tag = 7 Left = 27 Top = 52 Caption = 'TB7' ImageIndex = 40 OnClick = TBClick end object TB8: TToolButton Tag = 8 Left = 54 Top = 52 Caption = 'TB8' ImageIndex = 40 OnClick = TBClick end end object ColorEditCadre: TColorEdit Left = 296 Top = 64 Width = 73 Height = 21 BorderStyle = bsSingle Color = clWhite CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False TabOrder = 11 TabStop = True end object ColorEditFond: TColorEdit Left = 184 Top = 208 Width = 73 Height = 21 BorderStyle = bsSingle Color = clWhite CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False TabOrder = 12 TabStop = True end object SELargeurOmbre: TSpinEdit2 Left = 400 Top = 212 Width = 65 Height = 21 MaxValue = 15 MinValue = 5 ShowUpDown = True TabOrder = 13 Value = 7 end object EdiMotif: TSpecialEdit Left = 24 Top = 260 Width = 185 Height = 21 BorderStyle = bsSingle ButtonStyle = stDown DisabledColor = clBtnFace ItemIndex = -1 MinimizeText = True NumGlyphs = 1 ParentColor = False ReadOnly = False ShowButton = False TabOrder = 14 TabStop = True OnClick = SBMotifClick end object SELargeurImage: TFloatSpinEdit Left = 24 Top = 64 Width = 73 Height = 21 Format = '0' Increment = 1.000000000000000000 MaxValue = 10000.000000000000000000 MinValue = 10.000000000000000000 ShowUpDown = True TabOrder = 15 Value = 640.000000000000000000 OnChange = SELargeurImageChange end object SEHauteurImage: TFloatSpinEdit Left = 104 Top = 64 Width = 73 Height = 21 Format = '0' Increment = 1.000000000000000000 MaxValue = 10000.000000000000000000 MinValue = 10.000000000000000000 ShowUpDown = True TabOrder = 16 Value = 480.000000000000000000 OnChange = SEHauteurImageChange end object ChkRedimProportions: TCheckBox Left = 24 Top = 92 Width = 201 Height = 17 Caption = 'Conserver les proportions' Checked = True State = cbChecked TabOrder = 17 end end object TshReglages: TTabSheet Caption = 'R'#233'glage' ImageIndex = 2 object LblLuminosite: TLabel Left = 30 Top = 32 Width = 73 Height = 13 Caption = 'Luminosit'#233' : 0%' Transparent = True end object LblContraste: TLabel Left = 30 Top = 96 Width = 68 Height = 13 Caption = 'Contraste : 0%' Transparent = True end object LblSaturation: TLabel Left = 30 Top = 160 Width = 71 Height = 13 Caption = 'Saturation : 0%' Transparent = True end object LblGamma: TLabel Left = 30 Top = 224 Width = 115 Height = 13 Caption = 'Correction gamma : 1,00' Transparent = True end object Label1: TLabel Left = 304 Top = 160 Width = 43 Height = 13 Caption = 'Couche :' Transparent = True end object Label2: TLabel Left = 304 Top = 32 Width = 43 Height = 13 Caption = 'Couche :' Transparent = True end object Label3: TLabel Left = 304 Top = 96 Width = 43 Height = 13 Caption = 'Couche :' Transparent = True end object Label4: TLabel Left = 304 Top = 224 Width = 43 Height = 13 Caption = 'Couche :' Transparent = True end object TrbContraste: TTrackBar Left = 24 Top = 112 Width = 257 Height = 25 Max = 100 Min = -100 PageSize = 10 Frequency = 10 TabOrder = 1 ThumbLength = 15 OnChange = TrbContrasteChange end object TrbLuminosite: TTrackBar Left = 24 Top = 48 Width = 257 Height = 25 Max = 100 Min = -100 PageSize = 10 Frequency = 10 TabOrder = 0 ThumbLength = 15 OnChange = TrbLuminositeChange end object TrbSaturation: TTrackBar Left = 24 Top = 176 Width = 257 Height = 25 Max = 100 Min = -100 PageSize = 10 Frequency = 10 TabOrder = 2 ThumbLength = 15 OnChange = TrbSaturationChange end object TrbGamma: TTrackBar Left = 24 Top = 240 Width = 257 Height = 25 Max = 30 Min = 1 PageSize = 1 Position = 10 TabOrder = 3 ThumbLength = 15 OnChange = TrbGammaChange end object CBCoucheSat: TComboBox Left = 304 Top = 176 Width = 81 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 4 Text = '' Items.Strings = ( '' 'Rouge' 'Vert' 'Bleu' 'Cyan' 'Magenta' 'Jaune') end object CBCoucheLum: TComboBox Left = 304 Top = 48 Width = 81 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 5 Text = '' Items.Strings = ( '' 'Rouge' 'Vert' 'Bleu' 'Cyan' 'Magenta' 'Jaune') end object CBCoucheCtr: TComboBox Left = 304 Top = 112 Width = 81 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 6 Text = '' Items.Strings = ( '' 'Rouge' 'Vert' 'Bleu' 'Cyan' 'Magenta' 'Jaune') end object CBCoucheGam: TComboBox Left = 304 Top = 240 Width = 81 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 7 Text = '' Items.Strings = ( '' 'Rouge' 'Vert' 'Bleu' 'Cyan' 'Magenta' 'Jaune') end end object TshFiltres: TTabSheet Caption = 'Filtre' ImageIndex = 4 object LblOpaciteFiltre: TLabel Left = 32 Top = 192 Width = 37 Height = 13 Caption = 'Opacit'#233 Transparent = True end object Bevel2: TBevel Left = 32 Top = 114 Width = 449 Height = 9 Shape = bsTopLine end object ChkDurcir: TCheckBox Left = 32 Top = 32 Width = 113 Height = 17 Caption = 'Plus net' TabOrder = 0 end object ChkAdoucir: TCheckBox Left = 32 Top = 56 Width = 113 Height = 17 Caption = 'Adoucir' TabOrder = 1 end object ChkFlou: TCheckBox Left = 32 Top = 80 Width = 113 Height = 17 Caption = 'Flou' TabOrder = 2 end object ChkBruit: TCheckBox Left = 176 Top = 56 Width = 161 Height = 17 Caption = 'Ajouter du bruit' TabOrder = 3 end object ChkScanlines: TCheckBox Left = 176 Top = 80 Width = 161 Height = 17 Caption = 'Lignes de balayage' TabOrder = 4 end object ChkFiltre: TCheckBox Left = 32 Top = 136 Width = 201 Height = 17 Caption = 'Filtre color'#233 TabOrder = 5 OnClick = ChkFiltreClick end object ChkInverserFiltre: TCheckBox Left = 32 Top = 242 Width = 177 Height = 17 Caption = 'Inverser' TabOrder = 6 end object ColorEditFiltre: TColorEdit Left = 32 Top = 160 Width = 81 Height = 21 BorderStyle = bsSingle Color = clMaroon CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False TabOrder = 7 TabStop = True end object TrbOpaciteFiltre: TTrackBar Left = 26 Top = 208 Width = 255 Height = 25 Max = 100 PageSize = 5 Frequency = 5 Position = 30 TabOrder = 8 ThumbLength = 15 OnChange = TrbOpaciteFiltreChange end object ChkRelief: TCheckBox Left = 176 Top = 32 Width = 161 Height = 17 Caption = 'Relief' TabOrder = 9 end end object TabSheet1: TTabSheet Caption = 'Transformation' ImageIndex = 5 object Bevel4: TBevel Left = 32 Top = 146 Width = 449 Height = 9 Shape = bsTopLine end object ChkRotation: TCheckBox Left = 32 Top = 32 Width = 153 Height = 17 Caption = 'Rotation' TabOrder = 0 OnClick = ChkRotationClick end object PnlRotation: TPanel Left = 24 Top = 56 Width = 289 Height = 81 BevelOuter = bvNone TabOrder = 1 object RdbRotation1: TRadioButton Left = 8 Top = 8 Width = 169 Height = 17 Caption = 'Rotation 90'#176' horaire' Checked = True TabOrder = 0 TabStop = True end object RdbRotation2: TRadioButton Left = 8 Top = 32 Width = 169 Height = 17 Caption = 'Rotation 90'#176' antihoraire' TabOrder = 1 end object RdbRotation3: TRadioButton Left = 8 Top = 56 Width = 169 Height = 17 Caption = 'Rotation 180'#176 TabOrder = 2 end end object ChkSymetrie: TCheckBox Left = 32 Top = 168 Width = 145 Height = 17 Caption = 'Sym'#233'trie' TabOrder = 2 OnClick = ChkSymetrieClick end object PnlSymetrie: TPanel Left = 24 Top = 192 Width = 289 Height = 57 BevelOuter = bvNone TabOrder = 3 object RdbSymetrie1: TRadioButton Left = 8 Top = 8 Width = 169 Height = 17 Caption = 'Sym'#233'trie verticale' Checked = True TabOrder = 0 TabStop = True end object RdbSymetrie2: TRadioButton Left = 8 Top = 32 Width = 169 Height = 17 Caption = 'Sym'#233'trie horizontale' TabOrder = 1 end end end object TshActions: TTabSheet Caption = 'Action' ImageIndex = 3 OnShow = TshActionsShow object BtnAction: TButton Left = 304 Top = 300 Width = 91 Height = 25 Caption = 'Ok' TabOrder = 0 OnClick = BtnActionClick end object MemRapport: TMemo Left = 16 Top = 16 Width = 480 Height = 273 ReadOnly = True ScrollBars = ssBoth TabOrder = 1 end object BtnFermer: TButton Left = 406 Top = 300 Width = 91 Height = 25 Caption = 'Fermer' ModalResult = 2 TabOrder = 2 OnClick = BtnFermerClick end object BtnParams: TButton Left = 16 Top = 300 Width = 161 Height = 25 Caption = 'Enregistrer les param'#232'tres' TabOrder = 3 OnClick = BtnParamsClick end end end end