546 lines
12 KiB
Plaintext
546 lines
12 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 234
|
|
Top = 144
|
|
Width = 1021
|
|
Height = 658
|
|
ActiveControl = ImageEnView1
|
|
Caption = 'Manual animations-flow example'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnResize = FormResize
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 257
|
|
Height = 624
|
|
Align = alLeft
|
|
TabOrder = 0
|
|
object SpeedButtonAdvanced: TSpeedButton
|
|
Left = 8
|
|
Top = 216
|
|
Width = 65
|
|
Height = 26
|
|
AllowAllUp = True
|
|
GroupIndex = 1
|
|
Caption = 'Advanced'
|
|
OnClick = SpeedButtonAdvancedClick
|
|
end
|
|
object Label7: TLabel
|
|
Left = 8
|
|
Top = 600
|
|
Width = 25
|
|
Height = 13
|
|
Caption = '- - - -'
|
|
end
|
|
object Label9: TLabel
|
|
Left = 111
|
|
Top = 221
|
|
Width = 47
|
|
Height = 13
|
|
Caption = 'Animation'
|
|
end
|
|
object DriveComboBox1: TDriveComboBox
|
|
Left = 8
|
|
Top = 11
|
|
Width = 238
|
|
Height = 19
|
|
DirList = DirectoryListBox1
|
|
TabOrder = 0
|
|
end
|
|
object DirectoryListBox1: TDirectoryListBox
|
|
Left = 8
|
|
Top = 32
|
|
Width = 238
|
|
Height = 177
|
|
ItemHeight = 16
|
|
TabOrder = 1
|
|
OnChange = DirectoryListBox1Change
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 161
|
|
Top = 219
|
|
Width = 81
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 2
|
|
OnChange = ComboBox1Change
|
|
Items.Strings = (
|
|
'Horizontal'
|
|
'Circular')
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 8
|
|
Top = 256
|
|
Width = 233
|
|
Height = 209
|
|
ActivePage = TabSheet3
|
|
TabOrder = 3
|
|
Visible = False
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'Common'
|
|
object Label6: TLabel
|
|
Left = 8
|
|
Top = 10
|
|
Width = 71
|
|
Height = 13
|
|
Caption = 'Anim. Duration'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 128
|
|
Top = 11
|
|
Width = 29
|
|
Height = 13
|
|
Caption = 'Depth'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 8
|
|
Top = 59
|
|
Width = 211
|
|
Height = 13
|
|
Caption = 'Shadow alpha min and max (-1=no shadow)'
|
|
end
|
|
object lblColor: TLabel
|
|
Left = 137
|
|
Top = 131
|
|
Width = 29
|
|
Height = 13
|
|
Caption = 'Color:'
|
|
end
|
|
object EditAnimDuration: TEdit
|
|
Left = 8
|
|
Top = 26
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '800'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDownAnimDuration: TUpDown
|
|
Left = 57
|
|
Top = 26
|
|
Width = 16
|
|
Height = 21
|
|
Associate = EditAnimDuration
|
|
Max = 32767
|
|
Position = 800
|
|
TabOrder = 1
|
|
Thousands = False
|
|
end
|
|
object EditDepth: TEdit
|
|
Left = 128
|
|
Top = 27
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 2
|
|
Text = '500'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDownDepth: TUpDown
|
|
Left = 177
|
|
Top = 27
|
|
Width = 16
|
|
Height = 21
|
|
Associate = EditDepth
|
|
Max = 5000
|
|
Position = 500
|
|
TabOrder = 3
|
|
Thousands = False
|
|
end
|
|
object EditShadowAlphaMin: TEdit
|
|
Left = 8
|
|
Top = 75
|
|
Width = 34
|
|
Height = 21
|
|
TabOrder = 4
|
|
Text = '0'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDownShadowAlphaMin: TUpDown
|
|
Left = 42
|
|
Top = 75
|
|
Width = 16
|
|
Height = 21
|
|
Associate = EditShadowAlphaMin
|
|
Min = -1
|
|
Max = 255
|
|
TabOrder = 5
|
|
Thousands = False
|
|
end
|
|
object EditShadowAlphaMax: TEdit
|
|
Left = 96
|
|
Top = 75
|
|
Width = 34
|
|
Height = 21
|
|
TabOrder = 6
|
|
Text = '40'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDownShadowAlphaMax: TUpDown
|
|
Left = 130
|
|
Top = 75
|
|
Width = 16
|
|
Height = 21
|
|
Associate = EditShadowAlphaMax
|
|
Min = -1
|
|
Max = 255
|
|
Position = 40
|
|
TabOrder = 7
|
|
Thousands = False
|
|
end
|
|
object CheckBoxShowBorder: TCheckBox
|
|
Left = 8
|
|
Top = 105
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Show border'
|
|
TabOrder = 8
|
|
OnClick = CtrlsChanged
|
|
end
|
|
object CheckBoxShowFilename: TCheckBox
|
|
Left = 8
|
|
Top = 129
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Show filename'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 9
|
|
OnClick = CtrlsChanged
|
|
end
|
|
object CheckBoxShowScrollbar: TCheckBox
|
|
Left = 8
|
|
Top = 153
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Show scrollbar'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 10
|
|
OnClick = CtrlsChanged
|
|
end
|
|
object pnlColor: TPanel
|
|
Left = 172
|
|
Top = 126
|
|
Width = 28
|
|
Height = 23
|
|
Color = clWhite
|
|
ParentBackground = False
|
|
TabOrder = 11
|
|
OnClick = pnlColorClick
|
|
end
|
|
end
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Horizontal'
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 8
|
|
Width = 91
|
|
Height = 13
|
|
Caption = 'Horizontal distance'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 128
|
|
Top = 9
|
|
Width = 62
|
|
Height = 13
|
|
Caption = 'Rotate angle'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 8
|
|
Top = 53
|
|
Width = 171
|
|
Height = 13
|
|
Caption = 'Images horiz. and vert. percentage'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 8
|
|
Top = 99
|
|
Width = 153
|
|
Height = 13
|
|
Caption = 'Images and current image zoom'
|
|
end
|
|
object EditHorizDistance: TEdit
|
|
Left = 8
|
|
Top = 24
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '80'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDownHorizDistance: TUpDown
|
|
Left = 57
|
|
Top = 24
|
|
Width = 16
|
|
Height = 21
|
|
Associate = EditHorizDistance
|
|
Max = 500
|
|
Position = 80
|
|
TabOrder = 1
|
|
Thousands = False
|
|
end
|
|
object EditRotateAngle: TEdit
|
|
Left = 128
|
|
Top = 25
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 2
|
|
Text = '40'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDownRotateAngle: TUpDown
|
|
Left = 177
|
|
Top = 25
|
|
Width = 16
|
|
Height = 21
|
|
Associate = EditRotateAngle
|
|
Max = 359
|
|
Position = 40
|
|
TabOrder = 3
|
|
Thousands = False
|
|
end
|
|
object EditImagesHorizPer: TEdit
|
|
Left = 8
|
|
Top = 69
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 4
|
|
Text = '40'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDownImagesHorizPer: TUpDown
|
|
Left = 57
|
|
Top = 69
|
|
Width = 16
|
|
Height = 21
|
|
Associate = EditImagesHorizPer
|
|
Position = 40
|
|
TabOrder = 5
|
|
Thousands = False
|
|
end
|
|
object EditImagesVertPer: TEdit
|
|
Left = 128
|
|
Top = 70
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 6
|
|
Text = '80'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDownImagesVertPer: TUpDown
|
|
Left = 177
|
|
Top = 70
|
|
Width = 16
|
|
Height = 21
|
|
Associate = EditImagesVertPer
|
|
Position = 80
|
|
TabOrder = 7
|
|
Thousands = False
|
|
end
|
|
object EditImagesZoom: TEdit
|
|
Left = 8
|
|
Top = 115
|
|
Width = 34
|
|
Height = 21
|
|
TabOrder = 8
|
|
Text = '70'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDownImagesZoom: TUpDown
|
|
Left = 42
|
|
Top = 115
|
|
Width = 16
|
|
Height = 21
|
|
Associate = EditImagesZoom
|
|
Position = 70
|
|
TabOrder = 9
|
|
Thousands = False
|
|
end
|
|
object EditCurrentImageZoom: TEdit
|
|
Left = 128
|
|
Top = 115
|
|
Width = 34
|
|
Height = 21
|
|
TabOrder = 10
|
|
Text = '100'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDownCurrentImageZoom: TUpDown
|
|
Left = 162
|
|
Top = 115
|
|
Width = 16
|
|
Height = 21
|
|
Associate = EditCurrentImageZoom
|
|
Position = 100
|
|
TabOrder = 11
|
|
Thousands = False
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Circular'
|
|
ImageIndex = 1
|
|
object Label10: TLabel
|
|
Left = 8
|
|
Top = 5
|
|
Width = 114
|
|
Height = 13
|
|
Caption = 'Images size percentage'
|
|
end
|
|
object Label11: TLabel
|
|
Left = 8
|
|
Top = 51
|
|
Width = 153
|
|
Height = 13
|
|
Caption = 'Images and current image zoom'
|
|
end
|
|
object Label12: TLabel
|
|
Left = 8
|
|
Top = 95
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'Visible images'
|
|
end
|
|
object Label13: TLabel
|
|
Left = 8
|
|
Top = 138
|
|
Width = 58
|
|
Height = 13
|
|
Caption = 'Ellipse angle'
|
|
end
|
|
object Edit1: TEdit
|
|
Left = 8
|
|
Top = 21
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '40'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDown1: TUpDown
|
|
Left = 57
|
|
Top = 21
|
|
Width = 16
|
|
Height = 21
|
|
Associate = Edit1
|
|
Position = 40
|
|
TabOrder = 1
|
|
Thousands = False
|
|
end
|
|
object Edit2: TEdit
|
|
Left = 8
|
|
Top = 67
|
|
Width = 34
|
|
Height = 21
|
|
TabOrder = 2
|
|
Text = '20'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDown2: TUpDown
|
|
Left = 42
|
|
Top = 67
|
|
Width = 16
|
|
Height = 21
|
|
Associate = Edit2
|
|
Position = 20
|
|
TabOrder = 3
|
|
Thousands = False
|
|
end
|
|
object Edit3: TEdit
|
|
Left = 128
|
|
Top = 67
|
|
Width = 34
|
|
Height = 21
|
|
TabOrder = 4
|
|
Text = '100'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDown3: TUpDown
|
|
Left = 162
|
|
Top = 67
|
|
Width = 16
|
|
Height = 21
|
|
Associate = Edit3
|
|
Position = 100
|
|
TabOrder = 5
|
|
Thousands = False
|
|
end
|
|
object Edit4: TEdit
|
|
Left = 8
|
|
Top = 111
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 6
|
|
Text = '15'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDown4: TUpDown
|
|
Left = 57
|
|
Top = 111
|
|
Width = 16
|
|
Height = 21
|
|
Associate = Edit4
|
|
Min = 1
|
|
Position = 15
|
|
TabOrder = 7
|
|
Thousands = False
|
|
end
|
|
object Edit5: TEdit
|
|
Left = 8
|
|
Top = 154
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 8
|
|
Text = '0'
|
|
OnChange = CtrlsChanged
|
|
end
|
|
object UpDown5: TUpDown
|
|
Left = 57
|
|
Top = 154
|
|
Width = 16
|
|
Height = 21
|
|
Associate = Edit5
|
|
Max = 359
|
|
TabOrder = 9
|
|
Thousands = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 257
|
|
Top = 0
|
|
Width = 756
|
|
Height = 624
|
|
Background = clBlack
|
|
ParentCtl3D = False
|
|
OnVirtualKey = ImageEnView1VirtualKey
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 1
|
|
OnMouseDown = ImageEnView1MouseDown
|
|
OnMouseMove = ImageEnView1MouseMove
|
|
OnMouseUp = ImageEnView1MouseUp
|
|
end
|
|
object Timer1: TTimer
|
|
Interval = 10
|
|
OnTimer = Timer1Timer
|
|
Left = 265
|
|
Top = 24
|
|
end
|
|
object dlgColor: TColorDialog
|
|
Left = 320
|
|
Top = 24
|
|
end
|
|
end
|