home *** CD-ROM | disk | FTP | other *** search
- object TSForm: TTSForm
- Left = 238
- Top = 214
- ActiveControl = BOk
- BorderStyle = bsDialog
- Caption = 'Teinte / Saturation'
- ClientHeight = 266
- ClientWidth = 314
- 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 LblTeinte: TLabel
- Left = 16
- Top = 16
- Width = 30
- Height = 13
- Caption = 'Teinte'
- end
- object LblSaturation: TLabel
- Left = 16
- Top = 96
- Width = 48
- Height = 13
- Caption = 'Saturation'
- end
- object Label1: TLabel
- Left = 16
- Top = 152
- Width = 43
- Height = 13
- Caption = 'Couche :'
- end
- object Bevel1: TBevel
- Left = 16
- Top = 80
- Width = 281
- Height = 9
- Shape = bsTopLine
- end
- object TBTeinte: TTrackBar
- Left = 8
- Top = 32
- Width = 297
- Height = 25
- Max = 180
- Min = -180
- Orientation = trHorizontal
- PageSize = 10
- Frequency = 20
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- ThumbLength = 15
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TBTeinteChange
- end
- object BAnnuler: TButton
- Left = 224
- Top = 224
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Annuler'
- TabOrder = 1
- OnClick = BAnnulerClick
- end
- object BOk: TButton
- Left = 144
- Top = 224
- Width = 75
- Height = 25
- Caption = 'Ok'
- Default = True
- TabOrder = 2
- OnClick = BOkClick
- end
- object BApercu: TButton
- Left = 16
- Top = 224
- Width = 75
- Height = 25
- Caption = 'Aper'#231'u'
- TabOrder = 3
- OnClick = BApercuClick
- end
- object TBSaturation: TTrackBar
- Left = 8
- Top = 112
- Width = 297
- Height = 25
- Max = 100
- Min = -100
- Orientation = trHorizontal
- PageSize = 10
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 4
- ThumbLength = 15
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TBSaturationChange
- end
- object CBCouche: TComboBox
- Left = 16
- Top = 168
- Width = 113
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 5
- Text = '<Toutes>'
- OnChange = CBCoucheChange
- Items.Strings = (
- '<Toutes>'
- 'Rouge'
- 'Vert'
- 'Bleu'
- 'Cyan'
- 'Magenta'
- 'Jaune')
- end
- end
-