replaced zoom in/out toolbuttons with hotkeys
This commit is contained in:
parent
d116ed5874
commit
666b0e18d7
@ -54,7 +54,7 @@ object EditForm: TEditForm
|
|||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
object StatusBar: TStatusBar
|
object StatusBar: TStatusBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 524
|
Top = 530
|
||||||
Width = 576
|
Width = 576
|
||||||
Height = 15
|
Height = 15
|
||||||
Panels = <
|
Panels = <
|
||||||
@ -81,7 +81,7 @@ object EditForm: TEditForm
|
|||||||
object EditorToolBar: TToolBar
|
object EditorToolBar: TToolBar
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 568
|
Width = 552
|
||||||
Height = 22
|
Height = 22
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
ButtonWidth = 25
|
ButtonWidth = 25
|
||||||
@ -228,22 +228,8 @@ object EditForm: TEditForm
|
|||||||
Style = tbsCheck
|
Style = tbsCheck
|
||||||
OnClick = tbExtendedEditClick
|
OnClick = tbExtendedEditClick
|
||||||
end
|
end
|
||||||
object tbZoomOut: TToolButton
|
|
||||||
Left = 291
|
|
||||||
Top = 0
|
|
||||||
Caption = 'tbZoomOut'
|
|
||||||
ImageIndex = 26
|
|
||||||
OnClick = tbZoomOutClick
|
|
||||||
end
|
|
||||||
object tbZoomIn: TToolButton
|
|
||||||
Left = 316
|
|
||||||
Top = 0
|
|
||||||
Caption = 'tbZoomIn'
|
|
||||||
ImageIndex = 27
|
|
||||||
OnClick = tbZoomInClick
|
|
||||||
end
|
|
||||||
object ToolButton6: TToolButton
|
object ToolButton6: TToolButton
|
||||||
Left = 341
|
Left = 291
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 8
|
Width = 8
|
||||||
Caption = 'ToolButton6'
|
Caption = 'ToolButton6'
|
||||||
@ -251,10 +237,11 @@ object EditForm: TEditForm
|
|||||||
Style = tbsSeparator
|
Style = tbsSeparator
|
||||||
end
|
end
|
||||||
object tbAxisLock: TToolButton
|
object tbAxisLock: TToolButton
|
||||||
Left = 349
|
Left = 299
|
||||||
Top = 0
|
Top = 0
|
||||||
Hint = 'Lock transform axis'
|
Hint = 'Lock transform axis'
|
||||||
Caption = 'tbAxisLock'
|
Caption = 'tbAxisLock'
|
||||||
|
Down = True
|
||||||
ImageIndex = 16
|
ImageIndex = 16
|
||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
@ -263,7 +250,7 @@ object EditForm: TEditForm
|
|||||||
OnClick = tbAxisLockClick
|
OnClick = tbAxisLockClick
|
||||||
end
|
end
|
||||||
object tbPivotMode: TToolButton
|
object tbPivotMode: TToolButton
|
||||||
Left = 374
|
Left = 324
|
||||||
Top = 0
|
Top = 0
|
||||||
Hint = 'Toggle world pivot mode'
|
Hint = 'Toggle world pivot mode'
|
||||||
Caption = 'tbPivotMode'
|
Caption = 'tbPivotMode'
|
||||||
@ -274,7 +261,7 @@ object EditForm: TEditForm
|
|||||||
OnClick = btnPivotModeClick
|
OnClick = btnPivotModeClick
|
||||||
end
|
end
|
||||||
object ToolButton5: TToolButton
|
object ToolButton5: TToolButton
|
||||||
Left = 399
|
Left = 349
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 8
|
Width = 8
|
||||||
Caption = 'ToolButton5'
|
Caption = 'ToolButton5'
|
||||||
@ -283,7 +270,7 @@ object EditForm: TEditForm
|
|||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object tbRotate90CCW: TToolButton
|
object tbRotate90CCW: TToolButton
|
||||||
Left = 407
|
Left = 357
|
||||||
Top = 0
|
Top = 0
|
||||||
Hint = 'Rotate triangle 90'#176' counter-clockwise'
|
Hint = 'Rotate triangle 90'#176' counter-clockwise'
|
||||||
Caption = 'tbRotate90CCW'
|
Caption = 'tbRotate90CCW'
|
||||||
@ -293,7 +280,7 @@ object EditForm: TEditForm
|
|||||||
OnClick = btTrgRotateLeft90Click
|
OnClick = btTrgRotateLeft90Click
|
||||||
end
|
end
|
||||||
object tbRotate90CW: TToolButton
|
object tbRotate90CW: TToolButton
|
||||||
Left = 432
|
Left = 382
|
||||||
Top = 0
|
Top = 0
|
||||||
Hint = 'Rotate triangle 90'#176' clockwise'
|
Hint = 'Rotate triangle 90'#176' clockwise'
|
||||||
Caption = 'tbRotate90CW'
|
Caption = 'tbRotate90CW'
|
||||||
@ -303,7 +290,7 @@ object EditForm: TEditForm
|
|||||||
OnClick = btTrgRotateRight90Click
|
OnClick = btTrgRotateRight90Click
|
||||||
end
|
end
|
||||||
object tbFlipHorz: TToolButton
|
object tbFlipHorz: TToolButton
|
||||||
Left = 457
|
Left = 407
|
||||||
Top = 0
|
Top = 0
|
||||||
Hint = 'Flip triangle horizontal'
|
Hint = 'Flip triangle horizontal'
|
||||||
Caption = 'Flip Horizontal'
|
Caption = 'Flip Horizontal'
|
||||||
@ -313,7 +300,7 @@ object EditForm: TEditForm
|
|||||||
OnClick = mnuFlipHorizontalClick
|
OnClick = mnuFlipHorizontalClick
|
||||||
end
|
end
|
||||||
object tbFlipVert: TToolButton
|
object tbFlipVert: TToolButton
|
||||||
Left = 482
|
Left = 432
|
||||||
Top = 0
|
Top = 0
|
||||||
Hint = 'Flip triangle vertical'
|
Hint = 'Flip triangle vertical'
|
||||||
Caption = 'Flip Vertical'
|
Caption = 'Flip Vertical'
|
||||||
@ -323,7 +310,7 @@ object EditForm: TEditForm
|
|||||||
OnClick = mnuFlipVerticalClick
|
OnClick = mnuFlipVerticalClick
|
||||||
end
|
end
|
||||||
object ToolButton2: TToolButton
|
object ToolButton2: TToolButton
|
||||||
Left = 507
|
Left = 457
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 8
|
Width = 8
|
||||||
Caption = 'ToolButton2'
|
Caption = 'ToolButton2'
|
||||||
@ -331,7 +318,7 @@ object EditForm: TEditForm
|
|||||||
Style = tbsSeparator
|
Style = tbsSeparator
|
||||||
end
|
end
|
||||||
object tbVarPreview: TToolButton
|
object tbVarPreview: TToolButton
|
||||||
Left = 515
|
Left = 465
|
||||||
Top = 0
|
Top = 0
|
||||||
Hint = 'Show/hide variation preview'
|
Hint = 'Show/hide variation preview'
|
||||||
Caption = 'Variation Preview'
|
Caption = 'Variation Preview'
|
||||||
@ -342,7 +329,7 @@ object EditForm: TEditForm
|
|||||||
OnClick = tbVarPreviewClick
|
OnClick = tbVarPreviewClick
|
||||||
end
|
end
|
||||||
object ToolButton3: TToolButton
|
object ToolButton3: TToolButton
|
||||||
Left = 540
|
Left = 490
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 8
|
Width = 8
|
||||||
Caption = 'ToolButton3'
|
Caption = 'ToolButton3'
|
||||||
@ -350,7 +337,7 @@ object EditForm: TEditForm
|
|||||||
Style = tbsSeparator
|
Style = tbsSeparator
|
||||||
end
|
end
|
||||||
object tbEnableFinalXform: TToolButton
|
object tbEnableFinalXform: TToolButton
|
||||||
Left = 548
|
Left = 498
|
||||||
Top = 0
|
Top = 0
|
||||||
Hint = 'Enable final transform'
|
Hint = 'Enable final transform'
|
||||||
Caption = 'Show Final Xform'
|
Caption = 'Show Final Xform'
|
||||||
@ -366,14 +353,14 @@ object EditForm: TEditForm
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 24
|
Top = 24
|
||||||
Width = 576
|
Width = 576
|
||||||
Height = 500
|
Height = 506
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object Splitter1: TSplitter
|
object Splitter1: TSplitter
|
||||||
Left = 394
|
Left = 394
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 9
|
Width = 9
|
||||||
Height = 498
|
Height = 504
|
||||||
Align = alRight
|
Align = alRight
|
||||||
AutoSnap = False
|
AutoSnap = False
|
||||||
Beveled = True
|
Beveled = True
|
||||||
@ -384,7 +371,7 @@ object EditForm: TEditForm
|
|||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 393
|
Width = 393
|
||||||
Height = 498
|
Height = 504
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
Color = clAppWorkSpace
|
Color = clAppWorkSpace
|
||||||
@ -394,7 +381,7 @@ object EditForm: TEditForm
|
|||||||
Left = 403
|
Left = 403
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 172
|
Width = 172
|
||||||
Height = 498
|
Height = 504
|
||||||
Align = alRight
|
Align = alRight
|
||||||
Alignment = taLeftJustify
|
Alignment = taLeftJustify
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
@ -433,7 +420,7 @@ object EditForm: TEditForm
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 138
|
Top = 138
|
||||||
Width = 172
|
Width = 172
|
||||||
Height = 360
|
Height = 366
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object lblTransform: TLabel
|
object lblTransform: TLabel
|
||||||
@ -464,7 +451,7 @@ object EditForm: TEditForm
|
|||||||
end
|
end
|
||||||
object PageControl: TPageControl
|
object PageControl: TPageControl
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 26
|
Top = 32
|
||||||
Width = 170
|
Width = 170
|
||||||
Height = 333
|
Height = 333
|
||||||
ActivePage = TriangleTab
|
ActivePage = TriangleTab
|
||||||
@ -1739,7 +1726,7 @@ object EditForm: TEditForm
|
|||||||
Left = 313
|
Left = 313
|
||||||
Top = 40
|
Top = 40
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
494C01011C001D00040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
|
494C01011A001D00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||||
0000000000003600000028000000400000008000000001002000000000000080
|
0000000000003600000028000000400000008000000001002000000000000080
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
@ -1874,10 +1861,10 @@ object EditForm: TEditForm
|
|||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000292B2F000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
00002F3236000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000292B2F000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
00002F3236000000000000000000000000000000000000000000FFFFFF000000
|
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
||||||
00000000000000000000000000000000000000000000FFFFFF00000000000000
|
00000000000000000000000000000000000000000000FFFFFF00000000000000
|
||||||
000000000000FFFFFF0000000000000000000000000000000000000000000000
|
000000000000FFFFFF0000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
@ -1890,10 +1877,10 @@ object EditForm: TEditForm
|
|||||||
000000000000FFFFFF0000000000000000000000000000000000000000000000
|
000000000000FFFFFF0000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000000000000000000000000000000000000000000003F43480000000000575C
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
6400000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000000000000000000000000000000000000000000003F43480000000000575C
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
6400000000000000000000000000000000000000000000000000FFFFFF000000
|
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
||||||
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
||||||
0000FFFFFF000000000000000000000000000000000000000000000000000000
|
0000FFFFFF000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000040606000000000004060600000000000000000000000
|
0000000000000000000040606000000000004060600000000000000000000000
|
||||||
@ -1906,89 +1893,89 @@ object EditForm: TEditForm
|
|||||||
FF00000000000000000000000000000000000000000000000000000000000000
|
FF00000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000000000000000000000000000000000000393C410000000000626871000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000000000000000000000000000000000000393C410000000000626871000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
||||||
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
||||||
0000FFFFFF000000000000000000000000000000000000000000000000000000
|
0000FFFFFF000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000006E52440033262100382A22000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000006E52440033262100382A22000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
||||||
00000000000000000000000000000000000000000000FFFFFF00000000000000
|
00000000000000000000000000000000000000000000FFFFFF00000000000000
|
||||||
000000000000FFFFFF0000000000000000000000000000000000000000000000
|
000000000000FFFFFF0000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000008668
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
5A002A080000B57E5D00EFE4DF00E0CFC500AD7150002D0F0200957464000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000008668
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
5A002A080000B57E5D00EFE4DF00E0CFC500AD7150002D0F0200957464000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
|
0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
|
||||||
FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00000000000000
|
FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00000000000000
|
||||||
000000000000FFFFFF0000000000000000000000000000000000406060000000
|
000000000000FFFFFF0000000000000000000000000000000000406060000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000040606000000000000000000000000000000000000000000000000000350B
|
0000406060000000000000000000000000000000000000000000000000000000
|
||||||
0500E9DAC900FDF5E600FCEFE300FBEDE300FCF3EA00E2D1C8003B160B00A288
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
800000000000000000000000000000000000000000000000000000000000350B
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0500E9DAC900FDF5E600FCEFE300FBEDE300FCF3EA00E2D1C8003B160B00A288
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
8000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
00000000000000000000000000000000000000000000000000003C2D2400D0AB
|
|
||||||
9600FCECD800F8DCC700F3D7C500F3D9C900F9E3D100FCF3E400D2B4A1002219
|
|
||||||
14000000000000000000000000000000000000000000000000003C2D2400D0AB
|
|
||||||
9600FCECD800F8DCC7000000000000000000F9E3D100FCF3E400D2B4A1002219
|
|
||||||
1400000000000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000406060000000
|
0000000000000000000000000000000000000000000000000000406060000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000040606000000000000000000000000000000000000000000001010100F6E3
|
0000406060000000000000000000000000000000000000000000000000000000
|
||||||
D300F9D1BB00EEBEA500EDBCA200ECC2A800F0CDB800FAE2CD00FEFCE2000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000000000000000000000000000000000000000000000000000001010100F6E3
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
D300F9D1BB00EEBEA5000000000000000000F0CDB800FAE2CD00FEFCE2000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000008000000080000000000000000000000000
|
0000000000000000000000000000008000000080000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000000000000000000000000000000000000000000000000000000000000FDEA
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
D900000000000000000000000000000000000000000000000000FFEED3000A08
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
050000000000000000000000000000000000000000000000000000000000FDEA
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
D900000000000000000000000000000000000000000000000000FFEED3000A08
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0500000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000008000000080000000000000000000000000
|
0000000000000000000000000000008000000080000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000000000000000000000000000000000000000000000000000000000000FBE2
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
D300F8BCA300EC9D7F00E6978000E79D8400ECAD8D00F7C4A800EBCAB0000C09
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
080000000000000000000000000000000000000000000000000000000000FBE2
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
D300F8BCA300EC9D7F000000000000000000ECAD8D00F7C4A800EBCAB0000C09
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0800000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000080000000800000008000000080000000800000008000000000
|
0000000000000080000000800000008000000080000000800000008000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000000000000000000000000000000000000000000000000000067565100B57C
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
5F00FDD1BA00F5AD9400F19B7E00F09D8200F6B29500FDC7A400925039006655
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
500000000000000000000000000000000000000000000000000067565100B57C
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
5F00FDD1BA00F5AD94000000000000000000F6B29500FDC7A400925039006655
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
5000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000080000000800000008000000080000000800000008000000000
|
0000000000000080000000800000008000000080000000800000008000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000040606000000000004060600000000000000000000000
|
0000000000000000000040606000000000004060600000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000006147
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
3800BD8B7100FEDECC00FED2BF00FCC0A900FEC7A9008E4C36001D1713000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000006147
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
3800BD8B7100FEDECC00FED2BF00FCC0A900FEC7A9008E4C36001D1713000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000008000000080000000000000000000000000
|
0000000000000000000000000000008000000080000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
00005144400005030200583B2700452D1F000000000042383400000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
00005144400005030200583B2700452D1F000000000042383400000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000008000000080000000000000000000000000
|
0000000000000000000000000000008000000080000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
@ -2771,11 +2758,11 @@ object EditForm: TEditForm
|
|||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
000000000000000000000000000000008F11FFFFFFC7FFC78F110EE1FFCFFFCF
|
000000000000000000000000000000008F11FFFF000000008F110EE100000000
|
||||||
8F117C7DFF8FFF8F8383783DFF9FFF9F83C77EFDFF1FFF1F8383FEFFF83FF83F
|
8F117C7D000000008383783D0000000083C77EFD000000008383FEFF00000000
|
||||||
8111DEF7E01FE01F81119EF3E00FE00F81110001C00FC00FFFFF9EF3C00FC00F
|
8111DEF70000000081119EF3000000008111000100000000FFFF9EF300000000
|
||||||
FE7FDEF7C00FC00FFE7FFEFFC00FC00FF81F7EFDC00FC00FF81F783DE01FE01F
|
FE7FDEF700000000FE7FFEFF00000000F81F7EFD00000000F81F783D00000000
|
||||||
FE7F7C7DF03FF03FFE7F0EE1FFFFFFFFFFFFFEFFFFF7FFFFFEFFFEFFFEF7FEFF
|
FE7F7C7D00000000FE7F0EE100000000FFFFFEFFFFF7FFFFFEFFFEFFFEF7FEFF
|
||||||
FFFFFEFFFFF7FFFFFEFFFABFFEF7FEFFFFFFFC7FFFD5FFFFFEFFEEFFFEE3FEFB
|
FFFFFEFFFFF7FFFFFEFFFABFFEF7FEFFFFFFFC7FFFD5FFFFFEFFEEFFFEE3FEFB
|
||||||
FFFFF47FFFF7FFFDAA020002AA02AA00FEE7F467FEE7FEE5FECFEECFFECFFECB
|
FFFFF47FFFF7FFFDAA020002AA02AA00FEE7F467FEE7FEE5FECFEECFFECFFECB
|
||||||
FE9FFE9FF69FFE9FFE3FFE3FFA3FFE3FFE7FFE7F007FFE7FFEFFFEFFFAFFFABF
|
FE9FFE9FF69FFE9FFE3FFE3FFA3FFE3FFE7FFE7F007FFE7FFEFFFEFFFAFFFABF
|
||||||
@ -2799,7 +2786,8 @@ object EditForm: TEditForm
|
|||||||
C003E001E001E001C003F1F9F1F9F1F9C003F8F90009D8D9C003FC7980098C09
|
C003E001E001E001C003F1F9F1F9F1F9C003F8F90009D8D9C003FC7980098C09
|
||||||
C003F239C609C619C003F319E309E219C003F389F189F009C003F3C1F8C1F8C1
|
C003F239C609C619C003F319E309E219C003F389F189F009C003F3C1F8C1F8C1
|
||||||
C0030021FC41F061C0070031FE01E231C00FF3F9FF09C719C01FF3FDFF8D8F8D
|
C0030021FC41F061C0070031FE01E231C00FF3F9FF09C719C01FF3FDFF8D8F8D
|
||||||
C03FF3FFFFCFDFDFFFFFF3FFFFEFFFFF}
|
C03FF3FFFFCFDFDFFFFFF3FFFFEFFFFF00000000000000000000000000000000
|
||||||
|
000000000000}
|
||||||
end
|
end
|
||||||
object TrianglePopup: TPopupMenu
|
object TrianglePopup: TPopupMenu
|
||||||
AutoPopup = False
|
AutoPopup = False
|
||||||
|
@ -192,8 +192,6 @@ type
|
|||||||
tbRotate90CCW: TToolButton;
|
tbRotate90CCW: TToolButton;
|
||||||
tbRotate90CW: TToolButton;
|
tbRotate90CW: TToolButton;
|
||||||
chkAxisLock: TCheckBox;
|
chkAxisLock: TCheckBox;
|
||||||
tbZoomOut: TToolButton;
|
|
||||||
tbZoomIn: TToolButton;
|
|
||||||
procedure ValidateVariable;
|
procedure ValidateVariable;
|
||||||
procedure vleVariablesValidate(Sender: TObject; ACol, ARow: Integer; const KeyName, KeyValue: string);
|
procedure vleVariablesValidate(Sender: TObject; ACol, ARow: Integer; const KeyName, KeyValue: string);
|
||||||
procedure vleVariablesKeyPress(Sender: TObject; var Key: Char);
|
procedure vleVariablesKeyPress(Sender: TObject; var Key: Char);
|
||||||
@ -264,10 +262,6 @@ type
|
|||||||
procedure btTrgMoveRightClick(Sender: TObject);
|
procedure btTrgMoveRightClick(Sender: TObject);
|
||||||
procedure btTrgMoveUpClick(Sender: TObject);
|
procedure btTrgMoveUpClick(Sender: TObject);
|
||||||
procedure btTrgMoveDownClick(Sender: TObject);
|
procedure btTrgMoveDownClick(Sender: TObject);
|
||||||
procedure btTrgMoveLUClick(Sender: TObject);
|
|
||||||
procedure btTrgMoveLDClick(Sender: TObject);
|
|
||||||
procedure btTrgMoveRUClick(Sender: TObject);
|
|
||||||
procedure btTrgMoveRDClick(Sender: TObject);
|
|
||||||
procedure btTrgScaleUpClick(Sender: TObject);
|
procedure btTrgScaleUpClick(Sender: TObject);
|
||||||
procedure btTrgScaleDownClick(Sender: TObject);
|
procedure btTrgScaleDownClick(Sender: TObject);
|
||||||
procedure splitterMoved(Sender: TObject);
|
procedure splitterMoved(Sender: TObject);
|
||||||
@ -336,8 +330,6 @@ type
|
|||||||
procedure ResetAxisScale(n: integer);
|
procedure ResetAxisScale(n: integer);
|
||||||
procedure tbExtendedEditClick(Sender: TObject);
|
procedure tbExtendedEditClick(Sender: TObject);
|
||||||
procedure tbAxisLockClick(Sender: TObject);
|
procedure tbAxisLockClick(Sender: TObject);
|
||||||
procedure tbZoomOutClick(Sender: TObject);
|
|
||||||
procedure tbZoomInClick(Sender: TObject);
|
|
||||||
|
|
||||||
private
|
private
|
||||||
TriangleView: TCustomDrawControl;
|
TriangleView: TCustomDrawControl;
|
||||||
@ -1430,7 +1422,6 @@ end;
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
// if EdgeCaught then
|
|
||||||
if (mouseOverEdge >= 0) then // highlight edge under cursor
|
if (mouseOverEdge >= 0) then // highlight edge under cursor
|
||||||
begin
|
begin
|
||||||
i := (mouseOverEdge + 1) mod 3;
|
i := (mouseOverEdge + 1) mod 3;
|
||||||
@ -1453,7 +1444,7 @@ end;
|
|||||||
Pen.Style := psSolid;
|
Pen.Style := psSolid;
|
||||||
pen.Color := clWhite;
|
pen.Color := clWhite;
|
||||||
brush.Color := clSilver;
|
brush.Color := clSilver;
|
||||||
if pivotMode = pivotLocal then i := 2
|
if (pivotMode = pivotLocal) or EdgeCaught then i := 2
|
||||||
else i := 3;
|
else i := 3;
|
||||||
Ellipse(a.x - i, a.y - i, a.x + i, a.y + i);
|
Ellipse(a.x - i, a.y - i, a.x + i, a.y + i);
|
||||||
|
|
||||||
@ -3174,7 +3165,7 @@ end;
|
|||||||
|
|
||||||
function TEditForm.GetPivot(n: integer): TSPoint;
|
function TEditForm.GetPivot(n: integer): TSPoint;
|
||||||
begin
|
begin
|
||||||
if (PivotMode = pivotLocal) or EdgeCaught then // hmm... should be always local for edges
|
if (PivotMode = pivotLocal) or {EdgeCaught} (mouseOverEdge >= 0) then // should be always local for edges (hmm...?)
|
||||||
with MainTriangles[n] do begin
|
with MainTriangles[n] do begin
|
||||||
Result.x := x[1] + (x[0] - x[1])*LocalPivot.x + (x[2] - x[1])*LocalPivot.y;
|
Result.x := x[1] + (x[0] - x[1])*LocalPivot.x + (x[2] - x[1])*LocalPivot.y;
|
||||||
Result.y := y[1] + (y[0] - y[1])*LocalPivot.x + (y[2] - y[1])*LocalPivot.y;
|
Result.y := y[1] + (y[0] - y[1])*LocalPivot.x + (y[2] - y[1])*LocalPivot.y;
|
||||||
@ -3294,6 +3285,7 @@ begin
|
|||||||
TrgMove(0,-1);
|
TrgMove(0,-1);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{
|
||||||
procedure TEditForm.btTrgMoveLUClick(Sender: TObject);
|
procedure TEditForm.btTrgMoveLUClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
TrgMove(-1,1);
|
TrgMove(-1,1);
|
||||||
@ -3313,6 +3305,7 @@ procedure TEditForm.btTrgMoveRDClick(Sender: TObject);
|
|||||||
begin
|
begin
|
||||||
TrgMove(1,-1);
|
TrgMove(1,-1);
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
|
|
||||||
procedure TEditForm.btTrgScaleUpClick(Sender: TObject);
|
procedure TEditForm.btTrgScaleUpClick(Sender: TObject);
|
||||||
var
|
var
|
||||||
@ -3346,7 +3339,7 @@ begin
|
|||||||
txtTrgScaleValue.ItemIndex := 1;
|
txtTrgScaleValue.ItemIndex := 1;
|
||||||
exit;
|
exit;
|
||||||
end;
|
end;
|
||||||
assert(scale <> 0);
|
if scale = 0 then scale := 1e-6; //assert(scale <> 0);
|
||||||
|
|
||||||
if GetKeyState(VK_CONTROL) < 0 then scale := sqrt(scale)
|
if GetKeyState(VK_CONTROL) < 0 then scale := sqrt(scale)
|
||||||
else if GetKeyState(VK_SHIFT) < 0 then scale := scale*scale;
|
else if GetKeyState(VK_SHIFT) < 0 then scale := scale*scale;
|
||||||
@ -3389,29 +3382,6 @@ begin
|
|||||||
TriangleView.Cursor := crEditMove;
|
TriangleView.Cursor := crEditMove;
|
||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
{
|
|
||||||
case key of
|
|
||||||
VK_MENU:
|
|
||||||
begin
|
|
||||||
editMode := modeRotate;
|
|
||||||
// tbRotate.Down := true;
|
|
||||||
TriangleView.Cursor := crEditRotate;
|
|
||||||
end;
|
|
||||||
VK_CONTROL:
|
|
||||||
begin
|
|
||||||
editMode := modeScale;
|
|
||||||
// tbScale.Down := true;
|
|
||||||
TriangleView.Cursor := crEditScale;
|
|
||||||
end;
|
|
||||||
else //VK_SHIFT:
|
|
||||||
begin
|
|
||||||
editMode := modeMove;
|
|
||||||
// tbMove.Down := true;
|
|
||||||
TriangleView.Cursor := crEditMove;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
// EditorToolBar.Refresh;
|
|
||||||
}
|
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
case key of
|
case key of
|
||||||
@ -3437,6 +3407,19 @@ begin
|
|||||||
// can be changed in the future...
|
// can be changed in the future...
|
||||||
Ord('R'): btnResetPivotClick(Sender);
|
Ord('R'): btnResetPivotClick(Sender);
|
||||||
Ord('P'): btnPickPivotClick(Sender);
|
Ord('P'): btnPickPivotClick(Sender);
|
||||||
|
|
||||||
|
189: // "-"
|
||||||
|
begin
|
||||||
|
GraphZoom := GraphZoom * 0.8;
|
||||||
|
EditForm.StatusBar.Panels[2].Text := Format('Zoom: %f', [GraphZoom]);
|
||||||
|
TriangleView.Invalidate;
|
||||||
|
end;
|
||||||
|
187: // "+"
|
||||||
|
begin
|
||||||
|
GraphZoom := GraphZoom * 1.25;
|
||||||
|
EditForm.StatusBar.Panels[2].Text := Format('Zoom: %f', [GraphZoom]);
|
||||||
|
TriangleView.Invalidate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -3649,12 +3632,6 @@ end;
|
|||||||
|
|
||||||
//-- Variable List -------------------------------------------------------------
|
//-- Variable List -------------------------------------------------------------
|
||||||
|
|
||||||
// --Z-- hmmmm!
|
|
||||||
// this procedure is EXACT copy of ValidateVariation,
|
|
||||||
// the only difference is Set/Get-Variable instead of array access,
|
|
||||||
// which kinda is not good! :-\
|
|
||||||
// I think we should make an array of variables, maybe just for the editor...
|
|
||||||
|
|
||||||
procedure TEditForm.ValidateVariable;
|
procedure TEditForm.ValidateVariable;
|
||||||
var
|
var
|
||||||
i: integer;
|
i: integer;
|
||||||
@ -4415,19 +4392,5 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TEditForm.tbZoomOutClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
GraphZoom := GraphZoom * 0.8;
|
|
||||||
EditForm.StatusBar.Panels[2].Text := Format('Zoom: %f', [GraphZoom]);
|
|
||||||
TriangleView.Invalidate;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TEditForm.tbZoomInClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
GraphZoom := GraphZoom * 1.2;
|
|
||||||
EditForm.StatusBar.Panels[2].Text := Format('Zoom: %f', [GraphZoom]);
|
|
||||||
TriangleView.Invalidate;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user