object GammaForm: TGammaForm Left = 238 Top = 214 ActiveControl = BOk BorderStyle = bsDialog Caption = 'Correction gamma' ClientHeight = 185 ClientWidth = 306 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 OnHide = FormHide OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object LblN: TLabel Left = 16 Top = 24 Width = 34 Height = 13 Caption = 'Niveau' end object Label1: TLabel Left = 16 Top = 80 Width = 43 Height = 13 Caption = 'Couche :' end object BAnnuler: TButton Left = 216 Top = 144 Width = 75 Height = 25 Cancel = True Caption = 'Annuler' TabOrder = 0 OnClick = BAnnulerClick end object BOk: TButton Left = 136 Top = 144 Width = 75 Height = 25 Caption = 'Ok' Default = True TabOrder = 1 OnClick = BOkClick end object BApercu: TButton Left = 16 Top = 144 Width = 75 Height = 25 Caption = 'Aper'#231'u' TabOrder = 3 OnClick = BApercuClick end object TBN: TTrackBar Left = 10 Top = 40 Width = 285 Height = 33 Max = 30 Min = 1 Orientation = trHorizontal PageSize = 1 Frequency = 1 Position = 10 SelEnd = 0 SelStart = 0 TabOrder = 2 ThumbLength = 15 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TBNChange end object CBCouche: TComboBox Left = 16 Top = 96 Width = 113 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 4 Text = '' OnChange = CBCoucheChange Items.Strings = ( '' 'Rouge' 'Vert' 'Bleu' 'Cyan' 'Magenta' 'Jaune') end end