home *** CD-ROM | disk | FTP | other *** search
- object RotForm: TRotForm
- Left = 436
- Top = 221
- ActiveControl = BOk
- BorderStyle = bsDialog
- Caption = 'Rotation'
- ClientHeight = 185
- ClientWidth = 394
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- KeyPreview = True
- OldCreateOrder = False
- Position = poMainFormCenter
- OnCreate = FormCreate
- OnHide = FormHide
- OnKeyPress = FormKeyPress
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 16
- Top = 16
- Width = 33
- Height = 13
- Caption = 'Angle :'
- end
- object LblCouleur: TLabel
- Left = 104
- Top = 16
- Width = 30
- Height = 13
- Caption = 'Fond :'
- end
- object ImgApercu: TImage
- Left = 224
- Top = 16
- Width = 153
- Height = 153
- end
- object BAnnuler: TButton
- Left = 96
- Top = 144
- Width = 75
- Height = 25
- Caption = 'Annuler'
- TabOrder = 6
- OnClick = BAnnulerClick
- end
- object BOk: TButton
- Left = 16
- Top = 144
- Width = 75
- Height = 25
- Caption = 'Ok'
- TabOrder = 5
- OnClick = BOkClick
- end
- object CBAjuster: TCheckBox
- Left = 16
- Top = 72
- Width = 185
- Height = 17
- Caption = 'Ajuster la taille'
- Checked = True
- State = cbChecked
- TabOrder = 2
- OnClick = SEAngleChange
- end
- object CBLisser: TCheckBox
- Left = 16
- Top = 92
- Width = 177
- Height = 17
- Caption = 'Lisser'
- Checked = True
- State = cbChecked
- TabOrder = 3
- OnClick = SEAngleChange
- end
- object ColorEdit: TColorEdit
- Left = 104
- Top = 32
- Width = 81
- Height = 21
- BorderStyle = bsSingle
- Color = clWhite
- CustomText = 'Autres couleurs...'
- ColorDialog = MainForm.GlobalColorDialog
- ReadOnly = False
- TabOrder = 1
- TabStop = True
- OnChange = SEAngleChange
- end
- object SEAngle: TFloatSpinEdit
- Left = 16
- Top = 32
- Width = 73
- Height = 21
- Format = '0.0'
- Increment = 1.000000000000000000
- MaxLength = 5
- MaxValue = 359.000000000000000000
- MinValue = -359.000000000000000000
- ShowUpDown = True
- TabOrder = 0
- OnChange = SEAngleChange
- end
- object CBTous: TCheckBox
- Left = 16
- Top = 112
- Width = 185
- Height = 17
- Caption = 'Tous les calques'
- Checked = True
- State = cbChecked
- TabOrder = 4
- OnClick = CBTousClick
- end
- end
-