added alternating rows highlighting for vars,variables,xaos;
added editor support for fav.variations, opacity, symmetry->color_speed; only used variables are displayed now (some weird hacks used)
This commit is contained in:
zueuk
parent
f07fd06bdd
commit
a608daa29b
@ -2,7 +2,7 @@ object EditForm: TEditForm
|
|||||||
Left = 380
|
Left = 380
|
||||||
Top = 304
|
Top = 304
|
||||||
Width = 582
|
Width = 582
|
||||||
Height = 575
|
Height = 589
|
||||||
Caption = 'Transform Editor'
|
Caption = 'Transform Editor'
|
||||||
Color = clBtnFace
|
Color = clBtnFace
|
||||||
Constraints.MinHeight = 400
|
Constraints.MinHeight = 400
|
||||||
@ -54,7 +54,7 @@ object EditForm: TEditForm
|
|||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
object StatusBar: TStatusBar
|
object StatusBar: TStatusBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 527
|
Top = 541
|
||||||
Width = 574
|
Width = 574
|
||||||
Height = 15
|
Height = 15
|
||||||
Panels = <
|
Panels = <
|
||||||
@ -339,14 +339,14 @@ object EditForm: TEditForm
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 24
|
Top = 24
|
||||||
Width = 574
|
Width = 574
|
||||||
Height = 503
|
Height = 517
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object Splitter1: TSplitter
|
object Splitter1: TSplitter
|
||||||
Left = 392
|
Left = 392
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 9
|
Width = 9
|
||||||
Height = 501
|
Height = 515
|
||||||
Align = alRight
|
Align = alRight
|
||||||
AutoSnap = False
|
AutoSnap = False
|
||||||
Beveled = True
|
Beveled = True
|
||||||
@ -357,7 +357,7 @@ object EditForm: TEditForm
|
|||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 391
|
Width = 391
|
||||||
Height = 501
|
Height = 515
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
Color = clAppWorkSpace
|
Color = clAppWorkSpace
|
||||||
@ -367,7 +367,7 @@ object EditForm: TEditForm
|
|||||||
Left = 401
|
Left = 401
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 172
|
Width = 172
|
||||||
Height = 501
|
Height = 515
|
||||||
Align = alRight
|
Align = alRight
|
||||||
Alignment = taLeftJustify
|
Alignment = taLeftJustify
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
@ -388,40 +388,27 @@ object EditForm: TEditForm
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 138
|
Top = 138
|
||||||
Width = 172
|
Width = 172
|
||||||
Height = 363
|
Height = 377
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object lblTransform: TLabel
|
|
||||||
Left = 28
|
|
||||||
Top = 10
|
|
||||||
Width = 59
|
|
||||||
Height = 13
|
|
||||||
Caption = 'Transform'
|
|
||||||
Font.Charset = ANSI_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
end
|
|
||||||
object cbTransforms: TComboBox
|
object cbTransforms: TComboBox
|
||||||
Left = 92
|
Left = 92
|
||||||
Top = 8
|
Top = 4
|
||||||
Width = 57
|
Width = 64
|
||||||
Height = 19
|
Height = 21
|
||||||
Style = csOwnerDrawFixed
|
Style = csOwnerDrawFixed
|
||||||
Color = clBlack
|
Color = clBlack
|
||||||
DropDownCount = 12
|
DropDownCount = 12
|
||||||
ItemHeight = 13
|
ItemHeight = 15
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
OnChange = cbTransformsChange
|
OnChange = cbTransformsChange
|
||||||
OnDrawItem = cbTransformsDrawItem
|
OnDrawItem = cbTransformsDrawItem
|
||||||
end
|
end
|
||||||
object PageControl: TPageControl
|
object PageControl: TPageControl
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 31
|
Top = 48
|
||||||
Width = 170
|
Width = 170
|
||||||
Height = 331
|
Height = 328
|
||||||
ActivePage = tabVariations
|
ActivePage = tabVariations
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
@ -434,7 +421,7 @@ object EditForm: TEditForm
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 162
|
Width = 162
|
||||||
Height = 285
|
Height = 282
|
||||||
HorzScrollBar.Visible = False
|
HorzScrollBar.Visible = False
|
||||||
VertScrollBar.Smooth = True
|
VertScrollBar.Smooth = True
|
||||||
VertScrollBar.Style = ssFlat
|
VertScrollBar.Style = ssFlat
|
||||||
@ -1111,7 +1098,7 @@ object EditForm: TEditForm
|
|||||||
Caption = 'Transform'
|
Caption = 'Transform'
|
||||||
object bvlPostCoefs: TBevel
|
object bvlPostCoefs: TBevel
|
||||||
Left = 4
|
Left = 4
|
||||||
Top = 152
|
Top = 128
|
||||||
Width = 154
|
Width = 154
|
||||||
Height = 103
|
Height = 103
|
||||||
Shape = bsFrame
|
Shape = bsFrame
|
||||||
@ -1200,7 +1187,7 @@ object EditForm: TEditForm
|
|||||||
end
|
end
|
||||||
object btnXpost: TSpeedButton
|
object btnXpost: TSpeedButton
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 180
|
Top = 156
|
||||||
Width = 25
|
Width = 25
|
||||||
Height = 21
|
Height = 21
|
||||||
Hint = 'Reset vector X'
|
Hint = 'Reset vector X'
|
||||||
@ -1211,7 +1198,7 @@ object EditForm: TEditForm
|
|||||||
end
|
end
|
||||||
object btnYpost: TSpeedButton
|
object btnYpost: TSpeedButton
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 204
|
Top = 180
|
||||||
Width = 25
|
Width = 25
|
||||||
Height = 21
|
Height = 21
|
||||||
Hint = 'Reset vector Y'
|
Hint = 'Reset vector Y'
|
||||||
@ -1222,7 +1209,7 @@ object EditForm: TEditForm
|
|||||||
end
|
end
|
||||||
object btnOpost: TSpeedButton
|
object btnOpost: TSpeedButton
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 228
|
Top = 204
|
||||||
Width = 25
|
Width = 25
|
||||||
Height = 21
|
Height = 21
|
||||||
Hint = 'Reset vector O'
|
Hint = 'Reset vector O'
|
||||||
@ -1233,7 +1220,7 @@ object EditForm: TEditForm
|
|||||||
end
|
end
|
||||||
object btnResetPostCoefs: TSpeedButton
|
object btnResetPostCoefs: TSpeedButton
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 156
|
Top = 132
|
||||||
Width = 145
|
Width = 145
|
||||||
Height = 22
|
Height = 22
|
||||||
Hint = 'Reset post-transform vectors to defaults'
|
Hint = 'Reset post-transform vectors to defaults'
|
||||||
@ -1242,24 +1229,6 @@ object EditForm: TEditForm
|
|||||||
ShowHint = True
|
ShowHint = True
|
||||||
OnClick = btnResetPostCoefsClick
|
OnClick = btnResetPostCoefsClick
|
||||||
end
|
end
|
||||||
object pnlWeight: TPanel
|
|
||||||
Left = 8
|
|
||||||
Top = 128
|
|
||||||
Width = 88
|
|
||||||
Height = 21
|
|
||||||
Cursor = crHandPoint
|
|
||||||
Hint = 'Click and drag to change value'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
BevelOuter = bvLowered
|
|
||||||
Caption = ' Weight:'
|
|
||||||
ParentShowHint = False
|
|
||||||
ShowHint = True
|
|
||||||
TabOrder = 13
|
|
||||||
OnDblClick = DragPanelDblClick
|
|
||||||
OnMouseDown = DragPanelMouseDown
|
|
||||||
OnMouseMove = DragPanelMouseMove
|
|
||||||
OnMouseUp = DragPanelMouseUp
|
|
||||||
end
|
|
||||||
object txtA: TEdit
|
object txtA: TEdit
|
||||||
Left = 36
|
Left = 36
|
||||||
Top = 6
|
Top = 6
|
||||||
@ -1320,20 +1289,19 @@ object EditForm: TEditForm
|
|||||||
OnExit = CoefValidate
|
OnExit = CoefValidate
|
||||||
OnKeyPress = CoefKeyPress
|
OnKeyPress = CoefKeyPress
|
||||||
end
|
end
|
||||||
object txtP: TEdit
|
|
||||||
Left = 96
|
|
||||||
Top = 128
|
|
||||||
Width = 57
|
|
||||||
Height = 21
|
|
||||||
Hint = '"Weight" is the probability of this transform to be applied'
|
|
||||||
TabOrder = 6
|
|
||||||
Text = '0'
|
|
||||||
OnExit = txtPExit
|
|
||||||
OnKeyPress = txtPKeyPress
|
|
||||||
end
|
|
||||||
object txtPost00: TEdit
|
object txtPost00: TEdit
|
||||||
Left = 36
|
Left = 36
|
||||||
Top = 180
|
Top = 156
|
||||||
|
Width = 57
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 6
|
||||||
|
Text = '0'
|
||||||
|
OnExit = PostCoefValidate
|
||||||
|
OnKeyPress = PostCoefKeypress
|
||||||
|
end
|
||||||
|
object txtPost01: TEdit
|
||||||
|
Left = 96
|
||||||
|
Top = 156
|
||||||
Width = 57
|
Width = 57
|
||||||
Height = 21
|
Height = 21
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
@ -1341,8 +1309,8 @@ object EditForm: TEditForm
|
|||||||
OnExit = PostCoefValidate
|
OnExit = PostCoefValidate
|
||||||
OnKeyPress = PostCoefKeypress
|
OnKeyPress = PostCoefKeypress
|
||||||
end
|
end
|
||||||
object txtPost01: TEdit
|
object txtPost10: TEdit
|
||||||
Left = 96
|
Left = 36
|
||||||
Top = 180
|
Top = 180
|
||||||
Width = 57
|
Width = 57
|
||||||
Height = 21
|
Height = 21
|
||||||
@ -1351,9 +1319,9 @@ object EditForm: TEditForm
|
|||||||
OnExit = PostCoefValidate
|
OnExit = PostCoefValidate
|
||||||
OnKeyPress = PostCoefKeypress
|
OnKeyPress = PostCoefKeypress
|
||||||
end
|
end
|
||||||
object txtPost10: TEdit
|
object txtPost11: TEdit
|
||||||
Left = 36
|
Left = 96
|
||||||
Top = 204
|
Top = 180
|
||||||
Width = 57
|
Width = 57
|
||||||
Height = 21
|
Height = 21
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
@ -1361,8 +1329,8 @@ object EditForm: TEditForm
|
|||||||
OnExit = PostCoefValidate
|
OnExit = PostCoefValidate
|
||||||
OnKeyPress = PostCoefKeypress
|
OnKeyPress = PostCoefKeypress
|
||||||
end
|
end
|
||||||
object txtPost11: TEdit
|
object txtPost20: TEdit
|
||||||
Left = 96
|
Left = 36
|
||||||
Top = 204
|
Top = 204
|
||||||
Width = 57
|
Width = 57
|
||||||
Height = 21
|
Height = 21
|
||||||
@ -1371,9 +1339,9 @@ object EditForm: TEditForm
|
|||||||
OnExit = PostCoefValidate
|
OnExit = PostCoefValidate
|
||||||
OnKeyPress = PostCoefKeypress
|
OnKeyPress = PostCoefKeypress
|
||||||
end
|
end
|
||||||
object txtPost20: TEdit
|
object txtPost21: TEdit
|
||||||
Left = 36
|
Left = 96
|
||||||
Top = 228
|
Top = 204
|
||||||
Width = 57
|
Width = 57
|
||||||
Height = 21
|
Height = 21
|
||||||
TabOrder = 11
|
TabOrder = 11
|
||||||
@ -1381,16 +1349,6 @@ object EditForm: TEditForm
|
|||||||
OnExit = PostCoefValidate
|
OnExit = PostCoefValidate
|
||||||
OnKeyPress = PostCoefKeypress
|
OnKeyPress = PostCoefKeypress
|
||||||
end
|
end
|
||||||
object txtPost21: TEdit
|
|
||||||
Left = 96
|
|
||||||
Top = 228
|
|
||||||
Width = 57
|
|
||||||
Height = 21
|
|
||||||
TabOrder = 12
|
|
||||||
Text = '0'
|
|
||||||
OnExit = PostCoefValidate
|
|
||||||
OnKeyPress = PostCoefKeypress
|
|
||||||
end
|
|
||||||
object chkPreserve: TCheckBox
|
object chkPreserve: TCheckBox
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 257
|
Top = 257
|
||||||
@ -1405,7 +1363,7 @@ object EditForm: TEditForm
|
|||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
State = cbChecked
|
State = cbChecked
|
||||||
TabOrder = 14
|
TabOrder = 12
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -1419,7 +1377,7 @@ object EditForm: TEditForm
|
|||||||
Height = 95
|
Height = 95
|
||||||
Caption = 'Transform color'
|
Caption = 'Transform color'
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object pnlSymmetry: TPanel
|
object pnlColorSpeed: TPanel
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 62
|
Top = 62
|
||||||
Width = 73
|
Width = 73
|
||||||
@ -1428,7 +1386,7 @@ object EditForm: TEditForm
|
|||||||
Hint = 'Click and drag to change value'
|
Hint = 'Click and drag to change value'
|
||||||
Alignment = taLeftJustify
|
Alignment = taLeftJustify
|
||||||
BevelOuter = bvLowered
|
BevelOuter = bvLowered
|
||||||
Caption = ' Symmetry:'
|
Caption = ' Color speed:'
|
||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
@ -1474,7 +1432,7 @@ object EditForm: TEditForm
|
|||||||
OnExit = txtXFormColorExit
|
OnExit = txtXFormColorExit
|
||||||
OnKeyPress = txtXFormColorKeyPress
|
OnKeyPress = txtXFormColorKeyPress
|
||||||
end
|
end
|
||||||
object txtSymmetry: TEdit
|
object txtColorSpeed: TEdit
|
||||||
Left = 80
|
Left = 80
|
||||||
Top = 62
|
Top = 62
|
||||||
Width = 57
|
Width = 57
|
||||||
@ -1487,7 +1445,7 @@ object EditForm: TEditForm
|
|||||||
end
|
end
|
||||||
object GroupBox2: TGroupBox
|
object GroupBox2: TGroupBox
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 168
|
Top = 176
|
||||||
Width = 145
|
Width = 145
|
||||||
Height = 77
|
Height = 77
|
||||||
Caption = 'Variation preview'
|
Caption = 'Variation preview'
|
||||||
@ -1544,27 +1502,46 @@ object EditForm: TEditForm
|
|||||||
Left = 8
|
Left = 8
|
||||||
Top = 104
|
Top = 104
|
||||||
Width = 145
|
Width = 145
|
||||||
Height = 57
|
Height = 65
|
||||||
Caption = 'Transform visibility'
|
Caption = 'Transform visibility'
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object chkXformInvisible: TCheckBox
|
|
||||||
Left = 8
|
|
||||||
Top = 16
|
|
||||||
Width = 129
|
|
||||||
Height = 17
|
|
||||||
Caption = 'Invisible'
|
|
||||||
TabOrder = 0
|
|
||||||
OnClick = chkPlotModeClick
|
|
||||||
end
|
|
||||||
object chkXformSolo: TCheckBox
|
object chkXformSolo: TCheckBox
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 32
|
Top = 42
|
||||||
Width = 129
|
Width = 129
|
||||||
Height = 17
|
Height = 17
|
||||||
Caption = 'Solo'
|
Caption = 'Solo'
|
||||||
TabOrder = 1
|
TabOrder = 0
|
||||||
OnClick = chkXformSoloClick
|
OnClick = chkXformSoloClick
|
||||||
end
|
end
|
||||||
|
object pnlOpacity: TPanel
|
||||||
|
Left = 8
|
||||||
|
Top = 16
|
||||||
|
Width = 73
|
||||||
|
Height = 21
|
||||||
|
Cursor = crHandPoint
|
||||||
|
Hint = 'Click and drag to change value'
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Caption = ' Opacity:'
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 1
|
||||||
|
OnDblClick = DragPanelDblClick
|
||||||
|
OnMouseDown = DragPanelMouseDown
|
||||||
|
OnMouseMove = DragPanelMouseMove
|
||||||
|
OnMouseUp = DragPanelMouseUp
|
||||||
|
end
|
||||||
|
object txtOpacity: TEdit
|
||||||
|
Left = 80
|
||||||
|
Top = 16
|
||||||
|
Width = 57
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 2
|
||||||
|
Text = '0'
|
||||||
|
OnExit = txtOpacitySet
|
||||||
|
OnKeyPress = txtOpacityKeyPress
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object tabVariations: TTabSheet
|
object tabVariations: TTabSheet
|
||||||
@ -1573,7 +1550,7 @@ object EditForm: TEditForm
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 162
|
Width = 162
|
||||||
Height = 285
|
Height = 282
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ScrollBars = ssVertical
|
ScrollBars = ssVertical
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
@ -1583,14 +1560,15 @@ object EditForm: TEditForm
|
|||||||
OnDblClick = VEVarsDblClick
|
OnDblClick = VEVarsDblClick
|
||||||
OnDrawCell = VEVarsDrawCell
|
OnDrawCell = VEVarsDrawCell
|
||||||
OnExit = VEVarsChange
|
OnExit = VEVarsChange
|
||||||
|
OnGetEditText = VEVarsGetEditText
|
||||||
OnKeyPress = VEVarsKeyPress
|
OnKeyPress = VEVarsKeyPress
|
||||||
OnMouseDown = VEVarsMouseDown
|
OnMouseDown = VEVarsMouseDown
|
||||||
OnMouseMove = VEVarsMouseMove
|
OnMouseMove = VEVarsMouseMove
|
||||||
OnMouseUp = VEVarsMouseUp
|
OnMouseUp = VEVarsMouseUp
|
||||||
OnValidate = VEVarsValidate
|
OnValidate = VEVarsValidate
|
||||||
ColWidths = (
|
ColWidths = (
|
||||||
93
|
91
|
||||||
63)
|
65)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TabSheet4: TTabSheet
|
object TabSheet4: TTabSheet
|
||||||
@ -1600,7 +1578,7 @@ object EditForm: TEditForm
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 162
|
Width = 162
|
||||||
Height = 285
|
Height = 282
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ScrollBars = ssVertical
|
ScrollBars = ssVertical
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
@ -1608,15 +1586,17 @@ object EditForm: TEditForm
|
|||||||
'Variable'
|
'Variable'
|
||||||
'Value')
|
'Value')
|
||||||
OnDblClick = VEVarsDblClick
|
OnDblClick = VEVarsDblClick
|
||||||
|
OnDrawCell = vleVariablesDrawCell
|
||||||
OnExit = vleVariablesExit
|
OnExit = vleVariablesExit
|
||||||
|
OnGetEditText = vleVariablesGetEditText
|
||||||
OnKeyPress = vleVariablesKeyPress
|
OnKeyPress = vleVariablesKeyPress
|
||||||
OnMouseDown = VEVarsMouseDown
|
OnMouseDown = VEVarsMouseDown
|
||||||
OnMouseMove = VEVarsMouseMove
|
OnMouseMove = VEVarsMouseMove
|
||||||
OnMouseUp = VEVarsMouseUp
|
OnMouseUp = VEVarsMouseUp
|
||||||
OnValidate = vleVariablesValidate
|
OnValidate = vleVariablesValidate
|
||||||
ColWidths = (
|
ColWidths = (
|
||||||
93
|
91
|
||||||
63)
|
65)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TabChaos: TTabSheet
|
object TabChaos: TTabSheet
|
||||||
@ -1626,7 +1606,7 @@ object EditForm: TEditForm
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 162
|
Width = 162
|
||||||
Height = 285
|
Height = 282
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = ChaosPopup
|
PopupMenu = ChaosPopup
|
||||||
ScrollBars = ssVertical
|
ScrollBars = ssVertical
|
||||||
@ -1637,17 +1617,64 @@ object EditForm: TEditForm
|
|||||||
OnDblClick = VEVarsDblClick
|
OnDblClick = VEVarsDblClick
|
||||||
OnDrawCell = VleChaosDrawCell
|
OnDrawCell = VleChaosDrawCell
|
||||||
OnExit = vleChaosExit
|
OnExit = vleChaosExit
|
||||||
|
OnGetEditText = vleChaosGetEditText
|
||||||
OnKeyPress = vleChaosKeyPress
|
OnKeyPress = vleChaosKeyPress
|
||||||
OnMouseDown = VEVarsMouseDown
|
OnMouseDown = VEVarsMouseDown
|
||||||
OnMouseMove = VEVarsMouseMove
|
OnMouseMove = VEVarsMouseMove
|
||||||
OnMouseUp = VEVarsMouseUp
|
OnMouseUp = VEVarsMouseUp
|
||||||
OnValidate = vleChaosValidate
|
OnValidate = vleChaosValidate
|
||||||
ColWidths = (
|
ColWidths = (
|
||||||
65
|
58
|
||||||
91)
|
98)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object pnlTransform: TPanel
|
||||||
|
Left = 16
|
||||||
|
Top = 4
|
||||||
|
Width = 76
|
||||||
|
Height = 21
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
BevelOuter = bvNone
|
||||||
|
BorderWidth = 1
|
||||||
|
Caption = ' Transform:'
|
||||||
|
Font.Charset = ANSI_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object pnlWeight: TPanel
|
||||||
|
Left = 16
|
||||||
|
Top = 25
|
||||||
|
Width = 76
|
||||||
|
Height = 21
|
||||||
|
Cursor = crHandPoint
|
||||||
|
Hint = 'Click and drag to change value'
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Caption = ' Weight:'
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 3
|
||||||
|
OnDblClick = DragPanelDblClick
|
||||||
|
OnMouseDown = DragPanelMouseDown
|
||||||
|
OnMouseMove = DragPanelMouseMove
|
||||||
|
OnMouseUp = DragPanelMouseUp
|
||||||
|
end
|
||||||
|
object txtP: TEdit
|
||||||
|
Left = 92
|
||||||
|
Top = 25
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Hint = '"Weight" is the probability of this transform to be applied'
|
||||||
|
TabOrder = 4
|
||||||
|
Text = '0'
|
||||||
|
OnExit = txtPExit
|
||||||
|
OnKeyPress = txtPKeyPress
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object PrevPnl: TPanel
|
object PrevPnl: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -3088,6 +3115,7 @@ object EditForm: TEditForm
|
|||||||
Caption = 'Rebuild xaos links'
|
Caption = 'Rebuild xaos links'
|
||||||
Checked = True
|
Checked = True
|
||||||
Hint = 'Rebuild xaos links when deleting transforms'
|
Hint = 'Rebuild xaos links when deleting transforms'
|
||||||
|
Visible = False
|
||||||
OnClick = mnuChaosRebuildClick
|
OnClick = mnuChaosRebuildClick
|
||||||
end
|
end
|
||||||
object N9: TMenuItem
|
object N9: TMenuItem
|
||||||
@ -3105,8 +3133,12 @@ object EditForm: TEditForm
|
|||||||
Caption = '-'
|
Caption = '-'
|
||||||
end
|
end
|
||||||
object mnuLinkPostxform: TMenuItem
|
object mnuLinkPostxform: TMenuItem
|
||||||
Caption = 'Add linked xform'
|
Caption = 'Add linked xform after'
|
||||||
OnClick = mnuLinkPostxformClick
|
OnClick = mnuLinkPostxformClick
|
||||||
end
|
end
|
||||||
|
object mnuLinkPreXform: TMenuItem
|
||||||
|
Caption = 'Add linked xform before'
|
||||||
|
OnClick = mnuLinkPreXformClick
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user