mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ZoomIn and ZoomOut buttons in Editor.

Browse Source
This commit is contained in:
utak3r 2006-04-17 18:35:21 +00:00
parent 78f090e855
commit a885e4252b
2 changed files with 110 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

172
2.10/Source/Editor.dfm
View File

@ -54,7 +54,7 @@ object EditForm: TEditForm
TextHeight = 13
object StatusBar: TStatusBar
Left = 0
Top = 530
Top = 524
Width = 576
Height = 15
Panels = <
@ -81,7 +81,7 @@ object EditForm: TEditForm
object EditorToolBar: TToolBar
Left = 1
Top = 1
Width = 552
Width = 568
Height = 22
Align = alLeft
ButtonWidth = 25
@ -228,20 +228,33 @@ object EditForm: TEditForm
Style = tbsCheck
OnClick = tbExtendedEditClick
end
object ToolButton6: TToolButton
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
Left = 341
Top = 0
Width = 8
Caption = 'ToolButton6'
ImageIndex = 16
Style = tbsSeparator
end
object tbAxisLock: TToolButton
Left = 299
Left = 349
Top = 0
Hint = 'Lock transform axis'
Caption = 'tbAxisLock'
Down = True
ImageIndex = 16
ParentShowHint = False
ShowHint = True
@ -250,7 +263,7 @@ object EditForm: TEditForm
OnClick = tbAxisLockClick
end
object tbPivotMode: TToolButton
Left = 324
Left = 374
Top = 0
Hint = 'Toggle world pivot mode'
Caption = 'tbPivotMode'
@ -261,7 +274,7 @@ object EditForm: TEditForm
OnClick = btnPivotModeClick
end
object ToolButton5: TToolButton
Left = 349
Left = 399
Top = 0
Width = 8
Caption = 'ToolButton5'
@ -270,7 +283,7 @@ object EditForm: TEditForm
Visible = False
end
object tbRotate90CCW: TToolButton
Left = 357
Left = 407
Top = 0
Hint = 'Rotate triangle 90'#176' counter-clockwise'
Caption = 'tbRotate90CCW'
@ -280,7 +293,7 @@ object EditForm: TEditForm
OnClick = btTrgRotateLeft90Click
end
object tbRotate90CW: TToolButton
Left = 382
Left = 432
Top = 0
Hint = 'Rotate triangle 90'#176' clockwise'
Caption = 'tbRotate90CW'
@ -290,7 +303,7 @@ object EditForm: TEditForm
OnClick = btTrgRotateRight90Click
end
object tbFlipHorz: TToolButton
Left = 407
Left = 457
Top = 0
Hint = 'Flip triangle horizontal'
Caption = 'Flip Horizontal'
@ -300,7 +313,7 @@ object EditForm: TEditForm
OnClick = mnuFlipHorizontalClick
end
object tbFlipVert: TToolButton
Left = 432
Left = 482
Top = 0
Hint = 'Flip triangle vertical'
Caption = 'Flip Vertical'
@ -310,7 +323,7 @@ object EditForm: TEditForm
OnClick = mnuFlipVerticalClick
end
object ToolButton2: TToolButton
Left = 457
Left = 507
Top = 0
Width = 8
Caption = 'ToolButton2'
@ -318,7 +331,7 @@ object EditForm: TEditForm
Style = tbsSeparator
end
object tbVarPreview: TToolButton
Left = 465
Left = 515
Top = 0
Hint = 'Show/hide variation preview'
Caption = 'Variation Preview'
@ -329,7 +342,7 @@ object EditForm: TEditForm
OnClick = tbVarPreviewClick
end
object ToolButton3: TToolButton
Left = 490
Left = 540
Top = 0
Width = 8
Caption = 'ToolButton3'
@ -337,7 +350,7 @@ object EditForm: TEditForm
Style = tbsSeparator
end
object tbEnableFinalXform: TToolButton
Left = 498
Left = 548
Top = 0
Hint = 'Enable final transform'
Caption = 'Show Final Xform'
@ -353,14 +366,14 @@ object EditForm: TEditForm
Left = 0
Top = 24
Width = 576
Height = 506
Height = 500
Align = alClient
TabOrder = 1
object Splitter1: TSplitter
Left = 394
Top = 1
Width = 9
Height = 504
Height = 498
Align = alRight
AutoSnap = False
Beveled = True
@ -371,7 +384,7 @@ object EditForm: TEditForm
Left = 1
Top = 1
Width = 393
Height = 504
Height = 498
Align = alClient
BevelOuter = bvNone
Color = clAppWorkSpace
@ -381,7 +394,7 @@ object EditForm: TEditForm
Left = 403
Top = 1
Width = 172
Height = 504
Height = 498
Align = alRight
Alignment = taLeftJustify
BevelOuter = bvNone
@ -420,7 +433,7 @@ object EditForm: TEditForm
Left = 0
Top = 138
Width = 172
Height = 366
Height = 360
Align = alClient
TabOrder = 0
object lblTransform: TLabel
@ -451,7 +464,7 @@ object EditForm: TEditForm
end
object PageControl: TPageControl
Left = 1
Top = 32
Top = 26
Width = 170
Height = 333
ActivePage = TriangleTab
@ -1726,7 +1739,7 @@ object EditForm: TEditForm
Left = 313
Top = 40
Bitmap = {
494C01011A001D00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
494C01011C001D00040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000008000000001002000000000000080
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@ -1861,10 +1874,10 @@ object EditForm: TEditForm
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FFFFFF000000
0000000000000000000000000000000000000000000000000000292B2F000000
00002F3236000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000292B2F000000
00002F3236000000000000000000000000000000000000000000FFFFFF000000
00000000000000000000000000000000000000000000FFFFFF00000000000000
000000000000FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@ -1877,10 +1890,10 @@ object EditForm: TEditForm
000000000000FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FFFFFF000000
000000000000000000000000000000000000000000003F43480000000000575C
6400000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000003F43480000000000575C
6400000000000000000000000000000000000000000000000000FFFFFF000000
0000000000000000000000000000000000000000000000000000FFFFFF000000
0000FFFFFF000000000000000000000000000000000000000000000000000000
0000000000000000000040606000000000004060600000000000000000000000
@ -1893,89 +1906,89 @@ object EditForm: TEditForm
FF00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000393C410000000000626871000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000393C410000000000626871000000
0000000000000000000000000000000000000000000000000000FFFFFF000000
0000000000000000000000000000000000000000000000000000FFFFFF000000
0000FFFFFF000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000006E52440033262100382A22000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000006E52440033262100382A22000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FFFFFF000000
00000000000000000000000000000000000000000000FFFFFF00000000000000
000000000000FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000008668
5A002A080000B57E5D00EFE4DF00E0CFC500AD7150002D0F0200957464000000
0000000000000000000000000000000000000000000000000000000000008668
5A002A080000B57E5D00EFE4DF00E0CFC500AD7150002D0F0200957464000000
0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00000000000000
000000000000FFFFFF0000000000000000000000000000000000406060000000
0000000000000000000000000000000000000000000000000000000000000000
0000406060000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000040606000000000000000000000000000000000000000000000000000350B
0500E9DAC900FDF5E600FCEFE300FBEDE300FCF3EA00E2D1C8003B160B00A288
800000000000000000000000000000000000000000000000000000000000350B
0500E9DAC900FDF5E600FCEFE300FBEDE300FCF3EA00E2D1C8003B160B00A288
8000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000003C2D2400D0AB
9600FCECD800F8DCC700F3D7C500F3D9C900F9E3D100FCF3E400D2B4A1002219
14000000000000000000000000000000000000000000000000003C2D2400D0AB
9600FCECD800F8DCC7000000000000000000F9E3D100FCF3E400D2B4A1002219
1400000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000406060000000
0000000000000000000000000000000000000000000000000000000000000000
0000406060000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000040606000000000000000000000000000000000000000000001010100F6E3
D300F9D1BB00EEBEA500EDBCA200ECC2A800F0CDB800FAE2CD00FEFCE2000000
000000000000000000000000000000000000000000000000000001010100F6E3
D300F9D1BB00EEBEA5000000000000000000F0CDB800FAE2CD00FEFCE2000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000008000000080000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FDEA
D900000000000000000000000000000000000000000000000000FFEED3000A08
050000000000000000000000000000000000000000000000000000000000FDEA
D900000000000000000000000000000000000000000000000000FFEED3000A08
0500000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000008000000080000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FBE2
D300F8BCA300EC9D7F00E6978000E79D8400ECAD8D00F7C4A800EBCAB0000C09
080000000000000000000000000000000000000000000000000000000000FBE2
D300F8BCA300EC9D7F000000000000000000ECAD8D00F7C4A800EBCAB0000C09
0800000000000000000000000000000000000000000000000000000000000000
0000000000000080000000800000008000000080000000800000008000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000067565100B57C
5F00FDD1BA00F5AD9400F19B7E00F09D8200F6B29500FDC7A400925039006655
500000000000000000000000000000000000000000000000000067565100B57C
5F00FDD1BA00F5AD94000000000000000000F6B29500FDC7A400925039006655
5000000000000000000000000000000000000000000000000000000000000000
0000000000000080000000800000008000000080000000800000008000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000040606000000000004060600000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000006147
3800BD8B7100FEDECC00FED2BF00FCC0A900FEC7A9008E4C36001D1713000000
0000000000000000000000000000000000000000000000000000000000006147
3800BD8B7100FEDECC00FED2BF00FCC0A900FEC7A9008E4C36001D1713000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000008000000080000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00005144400005030200583B2700452D1F000000000042383400000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00005144400005030200583B2700452D1F000000000042383400000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000008000000080000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@ -2758,11 +2771,11 @@ object EditForm: TEditForm
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000008F11FFFF000000008F110EE100000000
8F117C7D000000008383783D0000000083C77EFD000000008383FEFF00000000
8111DEF70000000081119EF3000000008111000100000000FFFF9EF300000000
FE7FDEF700000000FE7FFEFF00000000F81F7EFD00000000F81F783D00000000
FE7F7C7D00000000FE7F0EE100000000FFFFFEFFFFF7FFFFFEFFFEFFFEF7FEFF
000000000000000000000000000000008F11FFFFFFC7FFC78F110EE1FFCFFFCF
8F117C7DFF8FFF8F8383783DFF9FFF9F83C77EFDFF1FFF1F8383FEFFF83FF83F
8111DEF7E01FE01F81119EF3E00FE00F81110001C00FC00FFFFF9EF3C00FC00F
FE7FDEF7C00FC00FFE7FFEFFC00FC00FF81F7EFDC00FC00FF81F783DE01FE01F
FE7F7C7DF03FF03FFE7F0EE1FFFFFFFFFFFFFEFFFFF7FFFFFEFFFEFFFEF7FEFF
FFFFFEFFFFF7FFFFFEFFFABFFEF7FEFFFFFFFC7FFFD5FFFFFEFFEEFFFEE3FEFB
FFFFF47FFFF7FFFDAA020002AA02AA00FEE7F467FEE7FEE5FECFEECFFECFFECB
FE9FFE9FF69FFE9FFE3FFE3FFA3FFE3FFE7FFE7F007FFE7FFEFFFEFFFAFFFABF
@ -2786,8 +2799,7 @@ object EditForm: TEditForm
C003E001E001E001C003F1F9F1F9F1F9C003F8F90009D8D9C003FC7980098C09
C003F239C609C619C003F319E309E219C003F389F189F009C003F3C1F8C1F8C1
C0030021FC41F061C0070031FE01E231C00FF3F9FF09C719C01FF3FDFF8D8F8D
C03FF3FFFFCFDFDFFFFFF3FFFFEFFFFF00000000000000000000000000000000
000000000000}
C03FF3FFFFCFDFDFFFFFF3FFFFEFFFFF}
end
object TrianglePopup: TPopupMenu
AutoPopup = False

18
2.10/Source/Editor.pas
View File

@ -192,6 +192,8 @@ type
tbRotate90CCW: TToolButton;
tbRotate90CW: TToolButton;
chkAxisLock: TCheckBox;
tbZoomOut: TToolButton;
tbZoomIn: TToolButton;
procedure ValidateVariable;
procedure vleVariablesValidate(Sender: TObject; ACol, ARow: Integer; const KeyName, KeyValue: string);
procedure vleVariablesKeyPress(Sender: TObject; var Key: Char);
@ -334,6 +336,8 @@ type
procedure ResetAxisScale(n: integer);
procedure tbExtendedEditClick(Sender: TObject);
procedure tbAxisLockClick(Sender: TObject);
procedure tbZoomOutClick(Sender: TObject);
procedure tbZoomInClick(Sender: TObject);
private
TriangleView: TCustomDrawControl;
@ -4411,5 +4415,19 @@ begin
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.