object OpCalqueForm: TOpCalqueForm Left = 305 Top = 176 BorderStyle = bsDialog Caption = 'Options' ClientHeight = 366 ClientWidth = 312 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnHide = FormHide OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object LblOpacite: TLabel Left = 16 Top = 20 Width = 43 Height = 13 Caption = 'Opacit'#233' :' end object BOk: TButton Left = 136 Top = 328 Width = 75 Height = 25 Caption = 'Ok' Default = True TabOrder = 2 OnClick = BOkClick end object BAnnuler: TButton Left = 222 Top = 328 Width = 75 Height = 25 Cancel = True Caption = 'Annuler' ModalResult = 2 TabOrder = 3 end object PageControl: TPageControl Left = 16 Top = 64 Width = 281 Height = 249 ActivePage = TshStd TabOrder = 1 object TshColor: TTabSheet Caption = 'TshColor' TabVisible = False object LblCouleur: TLabel Left = 16 Top = 16 Width = 42 Height = 13 Caption = 'Couleur :' end object ColorEdit: TColorEdit Left = 16 Top = 32 Width = 75 Height = 21 BorderStyle = bsSingle Color = clWhite CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False TabOrder = 1 TabStop = True OnChange = OptionChange end object CBInverser: TCheckBox Left = 16 Top = 66 Width = 129 Height = 17 Caption = 'Inverser' TabOrder = 0 OnClick = OptionChange end end object TshAdjust: TTabSheet Caption = 'TshAdjust' ImageIndex = 1 TabVisible = False object LblLuminosite: TLabel Left = 8 Top = 8 Width = 50 Height = 13 Caption = 'Luminosit'#233 end object LblContraste: TLabel Left = 8 Top = 56 Width = 45 Height = 13 Caption = 'Contraste' end object LblSaturation: TLabel Left = 8 Top = 104 Width = 48 Height = 13 Caption = 'Saturation' end object LblGamma: TLabel Left = 8 Top = 152 Width = 34 Height = 13 Caption = 'Niveau' end object TBLuminosite: TTrackBar Left = 2 Top = 24 Width = 265 Height = 25 Max = 100 Min = -100 PageSize = 10 Frequency = 10 TabOrder = 0 ThumbLength = 15 OnChange = TBLuminositeChange end object TBContraste: TTrackBar Left = 2 Top = 70 Width = 265 Height = 25 Max = 100 Min = -100 PageSize = 10 Frequency = 10 TabOrder = 1 ThumbLength = 15 OnChange = TBContrasteChange end object TBSaturation: TTrackBar Left = 2 Top = 120 Width = 265 Height = 25 Max = 100 Min = -100 PageSize = 10 Frequency = 10 TabOrder = 2 ThumbLength = 15 OnChange = TBSaturationChange end object TBGamma: TTrackBar Left = 2 Top = 168 Width = 265 Height = 33 Max = 30 Min = 1 PageSize = 1 Position = 10 TabOrder = 3 ThumbLength = 15 OnChange = TBGammaChange end end object TshStd: TTabSheet Caption = 'TshStd' ImageIndex = 2 TabVisible = False object LblDX: TLabel Left = 16 Top = 44 Width = 41 Height = 13 Caption = 'Delta X :' Transparent = True end object LblDY: TLabel Left = 100 Top = 44 Width = 41 Height = 13 Caption = 'Delta Y :' Transparent = True end object LblCouleurOmbre: TLabel Left = 180 Top = 44 Width = 42 Height = 13 Caption = 'Couleur :' Transparent = True end object LblOpaciteShadow: TLabel Left = 16 Top = 96 Width = 43 Height = 13 Caption = 'Opacit'#233' :' end object EdiDX: TSpinEdit2 Left = 16 Top = 60 Width = 73 Height = 21 MaxLength = 3 MaxValue = 50 MinValue = -50 ShowUpDown = True TabOrder = 1 Value = 7 OnChange = OptionChange end object EdiDY: TSpinEdit2 Left = 100 Top = 60 Width = 69 Height = 21 MaxLength = 3 MaxValue = 50 MinValue = -50 ShowUpDown = True TabOrder = 2 Value = 7 OnChange = OptionChange end object CBOmbre: TCheckBox Left = 16 Top = 16 Width = 161 Height = 17 Caption = 'Ombre port'#233'e' TabOrder = 0 OnClick = CBOmbreClick end object ColorEditOmbre: TColorEdit Left = 180 Top = 60 Width = 75 Height = 22 BorderStyle = bsSingle Color = clBlack CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False TabOrder = 3 TabStop = True OnChange = OptionChange end object TBOpaciteShadow: TTrackBar Left = 10 Top = 110 Width = 252 Height = 25 Max = 100 Min = 10 Frequency = 5 Position = 80 TabOrder = 4 ThumbLength = 15 OnChange = TBOpaciteShadowChange end object RGStyle: TRadioGroup Left = 14 Top = 142 Width = 243 Height = 83 Caption = ' Style ' ItemIndex = 1 Items.Strings = ( 'Plat' 'Contour progressif' 'Diffusion') TabOrder = 5 OnClick = OptionChange end end end object TBOpacite: TTrackBar Left = 10 Top = 32 Width = 292 Height = 25 Max = 100 Min = 10 Frequency = 2 Position = 50 TabOrder = 0 ThumbLength = 15 OnChange = TBOpaciteChange end end