object HistogForm: THistogForm Left = 341 Top = 218 ActiveControl = BOk BorderStyle = bsDialog Caption = 'Histogramme' ClientHeight = 388 ClientWidth = 291 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 LblOutMin: TLabel Left = 16 Top = 266 Width = 48 Height = 13 Caption = 'LblOutMin' end object LblIn: TLabel Left = 16 Top = 212 Width = 23 Height = 13 Caption = 'LblIn' end object LblInMin: TLabel Left = 16 Top = 196 Width = 40 Height = 13 Caption = 'LblInMin' end object LblInMax: TLabel Left = 230 Top = 196 Width = 43 Height = 13 Alignment = taRightJustify Caption = 'LblInMax' end object LblOutMax: TLabel Left = 222 Top = 266 Width = 51 Height = 13 Alignment = taRightJustify Caption = 'LblOutMax' end object Bevel1: TBevel Left = 16 Top = 290 Width = 257 Height = 9 Shape = bsTopLine end object LblMoyenne: TLabel Left = 16 Top = 302 Width = 58 Height = 13 Caption = 'LblMoyenne' end object LblMediane: TLabel Left = 16 Top = 318 Width = 55 Height = 13 Caption = 'LblMediane' end object ImgGrad: TImage Left = 16 Top = 240 Width = 258 Height = 12 end object HistoView: TImage Left = 16 Top = 44 Width = 258 Height = 138 end object LblPixels: TLabel Left = 231 Top = 302 Width = 41 Height = 13 Alignment = taRightJustify Caption = 'LblPixels' end object SB1: TSpeedButton Left = 160 Top = 212 Width = 23 Height = 22 AllowAllUp = True GroupIndex = 1 Down = True Flat = True end object SB2: TSpeedButton Left = 228 Top = 212 Width = 23 Height = 22 AllowAllUp = True GroupIndex = 1 Flat = True end object SliderOut: TMySlider Left = 9 Top = 252 Width = 272 Height = 12 Min = 0 Max = 255 DrawBar = False BarPosition = bpTopLeft Orientation = soHorizontal OnChange = SliderOutChange TabOrder = 2 TabStop = True OnMouseUp = SliderMouseUp OnKeyUp = SliderKeyUp end object SliderIn: TMySlider Left = 9 Top = 182 Width = 272 Height = 12 Min = 0 Max = 255 DrawBar = False BarPosition = bpTopLeft Orientation = soHorizontal OnChange = SliderInChange TabOrder = 1 TabStop = True OnMouseUp = SliderMouseUp OnKeyUp = SliderKeyUp end object BAnnuler: TButton Left = 200 Top = 348 Width = 75 Height = 25 Cancel = True Caption = 'Annuler' TabOrder = 5 OnClick = BAnnulerClick end object BOk: TButton Left = 120 Top = 348 Width = 75 Height = 25 Caption = 'Ok' Default = True TabOrder = 4 OnClick = BOkClick end object CBCouche: TComboBox Left = 16 Top = 16 Width = 258 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 0 Text = 'Luminosit'#233 OnChange = CBCoucheChange Items.Strings = ( 'Luminosit'#233 'Rouge' 'Vert' 'Bleu') end object Pnl1: TPanel Left = 184 Top = 212 Width = 22 Height = 22 BevelOuter = bvLowered Color = clBlack ParentBackground = False TabOrder = 6 end object Pnl2: TPanel Left = 252 Top = 212 Width = 22 Height = 22 BevelOuter = bvLowered Color = clWhite ParentBackground = False TabOrder = 7 end object BReset: TButton Left = 16 Top = 348 Width = 75 Height = 25 Caption = 'R'#233'tablir' TabOrder = 3 OnClick = BResetClick end end