Commit d33b132

Nick Faro committed on
instrument copy paste
commit d33b132f8b06429cd86b4a7c263bf6d826a7d908 parent bf34a1a
2 changed files +130−82
Modifiedsrc/tracker.lfm +98−82
@@ -1,12 +1,12 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 478 2 Left = 1876
3 Height = 712 3 Height = 798
4 Top = 129 4 Top = 210
5 Width = 1134 5 Width = 1416
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
8 ClientHeight = 712 8 ClientHeight = 798
9 ClientWidth = 1134 9 ClientWidth = 1416
10 KeyPreview = True 10 KeyPreview = True
11 Menu = MainMenu1 11 Menu = MainMenu1
12 OnCloseQuery = FormCloseQuery 12 OnCloseQuery = FormCloseQuery
@@ -20,7 +20,7 @@ object frmTracker: TfrmTracker
20 LCLVersion = '3.0.0.3' 20 LCLVersion = '3.0.0.3'
21 object TreeView1: TTreeView 21 object TreeView1: TTreeView
22 Left = 0 22 Left = 0
23 Height = 598 23 Height = 684
24 Top = 93 24 Top = 93
25 Width = 193 25 Width = 193
26 Align = alLeft 26 Align = alLeft
@@ -42,35 +42,35 @@ object frmTracker: TfrmTracker
42 end 42 end
43 object Splitter1: TSplitter 43 object Splitter1: TSplitter
44 Left = 193 44 Left = 193
45 Height = 598 45 Height = 684
46 Top = 93 46 Top = 93
47 Width = 5 47 Width = 5
48 end 48 end
49 object Panel1: TPanel 49 object Panel1: TPanel
50 Left = 198 50 Left = 198
51 Height = 598 51 Height = 684
52 Top = 93 52 Top = 93
53 Width = 936 53 Width = 1218
54 Align = alClient 54 Align = alClient
55 BevelOuter = bvNone 55 BevelOuter = bvNone
56 ClientHeight = 598 56 ClientHeight = 684
57 ClientWidth = 936 57 ClientWidth = 1218
58 ParentFont = False 58 ParentFont = False
59 TabOrder = 2 59 TabOrder = 2
60 object PageControl1: TPageControl 60 object PageControl1: TPageControl
61 Left = 0 61 Left = 0
62 Height = 598 62 Height = 684
63 Top = 0 63 Top = 0
64 Width = 936 64 Width = 1218
65 ActivePage = InstrumentTabSheet 65 ActivePage = InstrumentTabSheet
66 Align = alClient 66 Align = alClient
67 ParentFont = False 67 ParentFont = False
68 TabIndex = 0 68 TabIndex = 2
69 TabOrder = 0 69 TabOrder = 0
70 object GeneralTabSheet: TTabSheet 70 object GeneralTabSheet: TTabSheet
71 Caption = 'General' 71 Caption = 'General'
72 ClientHeight = 563 72 ClientHeight = 649
73 ClientWidth = 930 73 ClientWidth = 1212
74 ParentFont = False 74 ParentFont = False
75 object SongInformationGroupbox: TGroupBox 75 object SongInformationGroupbox: TGroupBox
76 Left = 8 76 Left = 8
@@ -225,17 +225,17 @@ object frmTracker: TfrmTracker
225 end 225 end
226 object PatternTabSheet: TTabSheet 226 object PatternTabSheet: TTabSheet
227 Caption = 'Patterns' 227 Caption = 'Patterns'
228 ClientHeight = 563 228 ClientHeight = 649
229 ClientWidth = 930 229 ClientWidth = 1212
230 ParentFont = False 230 ParentFont = False
231 object Panel3: TPanel 231 object Panel3: TPanel
232 Left = 229 232 Left = 229
233 Height = 563 233 Height = 649
234 Top = 0 234 Top = 0
235 Width = 701 235 Width = 983
236 Align = alClient 236 Align = alClient
237 ClientHeight = 563 237 ClientHeight = 649
238 ClientWidth = 701 238 ClientWidth = 983
239 ParentFont = False 239 ParentFont = False
240 TabOrder = 0 240 TabOrder = 0
241 object HeaderControl1: THeaderControl 241 object HeaderControl1: THeaderControl
@@ -243,7 +243,7 @@ object frmTracker: TfrmTracker
243 Height = 30 243 Height = 30
244 Hint = 'Left click to mute, right click to solo' 244 Hint = 'Left click to mute, right click to solo'
245 Top = 1 245 Top = 1
246 Width = 699 246 Width = 981
247 DragReorder = False 247 DragReorder = False
248 Images = ImageList2 248 Images = ImageList2
249 Sections = < 249 Sections = <
@@ -288,9 +288,9 @@ object frmTracker: TfrmTracker
288 end 288 end
289 object ScrollBox1: TScrollBox 289 object ScrollBox1: TScrollBox
290 Left = 1 290 Left = 1
291 Height = 531 291 Height = 617
292 Top = 31 292 Top = 31
293 Width = 699 293 Width = 981
294 HorzScrollBar.Increment = 3 294 HorzScrollBar.Increment = 3
295 HorzScrollBar.Page = 32 295 HorzScrollBar.Page = 32
296 HorzScrollBar.Smooth = True 296 HorzScrollBar.Smooth = True
@@ -301,15 +301,15 @@ object frmTracker: TfrmTracker
301 VertScrollBar.Tracking = True 301 VertScrollBar.Tracking = True
302 Align = alClient 302 Align = alClient
303 BorderStyle = bsNone 303 BorderStyle = bsNone
304 ClientHeight = 531 304 ClientHeight = 617
305 ClientWidth = 699 305 ClientWidth = 981
306 ParentFont = False 306 ParentFont = False
307 TabOrder = 1 307 TabOrder = 1
308 OnMouseWheelDown = ScrollBox1MouseWheelDown 308 OnMouseWheelDown = ScrollBox1MouseWheelDown
309 OnMouseWheelUp = ScrollBox1MouseWheelUp 309 OnMouseWheelUp = ScrollBox1MouseWheelUp
310 object RowNumberStringGrid: TStringGrid 310 object RowNumberStringGrid: TStringGrid
311 Left = 0 311 Left = 0
312 Height = 531 312 Height = 617
313 Top = 0 313 Top = 0
314 Width = 32 314 Width = 32
315 Align = alLeft 315 Align = alLeft
@@ -326,7 +326,7 @@ object frmTracker: TfrmTracker
326 end 326 end
327 object OrderEditStringGrid: TStringGrid 327 object OrderEditStringGrid: TStringGrid
328 Left = 0 328 Left = 0
329 Height = 563 329 Height = 649
330 Top = 0 330 Top = 0
331 Width = 224 331 Width = 224
332 Align = alLeft 332 Align = alLeft
@@ -391,21 +391,21 @@ object frmTracker: TfrmTracker
391 end 391 end
392 object Splitter2: TSplitter 392 object Splitter2: TSplitter
393 Left = 224 393 Left = 224
394 Height = 563 394 Height = 649
395 Top = 0 395 Top = 0
396 Width = 5 396 Width = 5
397 end 397 end
398 end 398 end
399 object InstrumentTabSheet: TTabSheet 399 object InstrumentTabSheet: TTabSheet
400 Caption = 'Instruments' 400 Caption = 'Instruments'
401 ClientHeight = 563 401 ClientHeight = 649
402 ClientWidth = 930 402 ClientWidth = 1212
403 ParentFont = False 403 ParentFont = False
404 object FlowPanel1: TFlowPanel 404 object FlowPanel1: TFlowPanel
405 Left = 0 405 Left = 0
406 Height = 563 406 Height = 649
407 Top = 0 407 Top = 0
408 Width = 770 408 Width = 1052
409 Align = alClient 409 Align = alClient
410 AutoSize = True 410 AutoSize = True
411 BevelOuter = bvNone 411 BevelOuter = bvNone
@@ -438,6 +438,7 @@ object frmTracker: TfrmTracker
438 FlowLayout = tlTop 438 FlowLayout = tlTop
439 FlowStyle = fsLeftRightTopBottom 439 FlowStyle = fsLeftRightTopBottom
440 ParentFont = False 440 ParentFont = False
441 PopupMenu = InstrumentPopupMenu
441 TabOrder = 0 442 TabOrder = 0
442 object InstrumentGroupBox: TGroupBox 443 object InstrumentGroupBox: TGroupBox
443 Left = 7 444 Left = 7
@@ -450,7 +451,7 @@ object frmTracker: TfrmTracker
450 BorderSpacing.Right = 7 451 BorderSpacing.Right = 7
451 BorderSpacing.Bottom = 7 452 BorderSpacing.Bottom = 7
452 Caption = 'Instrument' 453 Caption = 'Instrument'
453 ClientHeight = 269 454 ClientHeight = 254
454 ClientWidth = 276 455 ClientWidth = 276
455 ParentFont = False 456 ParentFont = False
456 TabOrder = 0 457 TabOrder = 0
@@ -662,9 +663,9 @@ object frmTracker: TfrmTracker
662 end 663 end
663 end 664 end
664 object EnvelopeGroupBox: TGroupBox 665 object EnvelopeGroupBox: TGroupBox
665 Left = 7 666 Left = 301
666 Height = 136 667 Height = 136
667 Top = 294 668 Top = 7
668 Width = 582 669 Width = 582
669 Anchors = [] 670 Anchors = []
670 BorderSpacing.Left = 7 671 BorderSpacing.Left = 7
@@ -672,7 +673,7 @@ object frmTracker: TfrmTracker
672 BorderSpacing.Right = 7 673 BorderSpacing.Right = 7
673 BorderSpacing.Bottom = 7 674 BorderSpacing.Bottom = 7
674 Caption = 'Envelope' 675 Caption = 'Envelope'
675 ClientHeight = 132 676 ClientHeight = 117
676 ClientWidth = 578 677 ClientWidth = 578
677 ParentFont = False 678 ParentFont = False
678 TabOrder = 1 679 TabOrder = 1
@@ -727,16 +728,16 @@ object frmTracker: TfrmTracker
727 Top = 0 728 Top = 0
728 Width = 270 729 Width = 270
729 BevelOuter = bvLowered 730 BevelOuter = bvLowered
730 ClientHeight = 100 731 ClientHeight = 104
731 ClientWidth = 266 732 ClientWidth = 270
732 ParentFont = False 733 ParentFont = False
733 TabOrder = 1 734 TabOrder = 1
734 object EnvelopePaintbox: TPaintBox 735 object EnvelopePaintbox: TPaintBox
735 Left = 1 736 Left = 1
736 Height = 98 737 Height = 102
737 Hint = 'Preview of the volume envelope' 738 Hint = 'Preview of the volume envelope'
738 Top = 1 739 Top = 1
739 Width = 264 740 Width = 268
740 Align = alClient 741 Align = alClient
741 ParentFont = False 742 ParentFont = False
742 OnPaint = EnvelopePaintboxPaint 743 OnPaint = EnvelopePaintboxPaint
@@ -768,7 +769,7 @@ object frmTracker: TfrmTracker
768 object SquareGroupBox: TGroupBox 769 object SquareGroupBox: TGroupBox
769 Left = 7 770 Left = 7
770 Height = 169 771 Height = 169
771 Top = 444 772 Top = 294
772 Width = 319 773 Width = 319
773 Anchors = [] 774 Anchors = []
774 BorderSpacing.Left = 7 775 BorderSpacing.Left = 7
@@ -776,7 +777,7 @@ object frmTracker: TfrmTracker
776 BorderSpacing.Right = 7 777 BorderSpacing.Right = 7
777 BorderSpacing.Bottom = 7 778 BorderSpacing.Bottom = 7
778 Caption = 'Square' 779 Caption = 'Square'
779 ClientHeight = 165 780 ClientHeight = 150
780 ClientWidth = 315 781 ClientWidth = 315
781 ParentFont = False 782 ParentFont = False
782 TabOrder = 2 783 TabOrder = 2
@@ -899,7 +900,7 @@ object frmTracker: TfrmTracker
899 object WaveGroupBox: TGroupBox 900 object WaveGroupBox: TGroupBox
900 Left = 340 901 Left = 340
901 Height = 169 902 Height = 169
902 Top = 444 903 Top = 294
903 Width = 297 904 Width = 297
904 Anchors = [] 905 Anchors = []
905 BorderSpacing.Left = 7 906 BorderSpacing.Left = 7
@@ -907,7 +908,7 @@ object frmTracker: TfrmTracker
907 BorderSpacing.Right = 7 908 BorderSpacing.Right = 7
908 BorderSpacing.Bottom = 7 909 BorderSpacing.Bottom = 7
909 Caption = 'Wave' 910 Caption = 'Wave'
910 ClientHeight = 165 911 ClientHeight = 150
911 ClientWidth = 293 912 ClientWidth = 293
912 ParentFont = False 913 ParentFont = False
913 TabOrder = 3 914 TabOrder = 3
@@ -967,16 +968,16 @@ object frmTracker: TfrmTracker
967 Top = 80 968 Top = 80
968 Width = 272 969 Width = 272
969 BevelOuter = bvLowered 970 BevelOuter = bvLowered
970 ClientHeight = 55 971 ClientHeight = 59
971 ClientWidth = 268 972 ClientWidth = 272
972 ParentFont = False 973 ParentFont = False
973 TabOrder = 1 974 TabOrder = 1
974 object WavePaintbox: TPaintBox 975 object WavePaintbox: TPaintBox
975 Left = 1 976 Left = 1
976 Height = 53 977 Height = 57
977 Hint = 'Preview of the waveform associated with this instrument' 978 Hint = 'Preview of the waveform associated with this instrument'
978 Top = 1 979 Top = 1
979 Width = 266 980 Width = 270
980 Align = alClient 981 Align = alClient
981 Color = clBlack 982 Color = clBlack
982 ParentColor = False 983 ParentColor = False
@@ -1006,9 +1007,9 @@ object frmTracker: TfrmTracker
1006 end 1007 end
1007 end 1008 end
1008 object NoiseGroupBox: TGroupBox 1009 object NoiseGroupBox: TGroupBox
1009 Left = 7 1010 Left = 651
1010 Height = 59 1011 Height = 59
1011 Top = 627 1012 Top = 294
1012 Width = 237 1013 Width = 237
1013 Anchors = [] 1014 Anchors = []
1014 BorderSpacing.Left = 7 1015 BorderSpacing.Left = 7
@@ -1035,20 +1036,20 @@ object frmTracker: TfrmTracker
1035 end 1036 end
1036 end 1037 end
1037 object SubpatternGroupBox: TGroupBox 1038 object SubpatternGroupBox: TGroupBox
1038 Left = 770 1039 Left = 1052
1039 Height = 556 1040 Height = 642
1040 Top = 7 1041 Top = 7
1041 Width = 160 1042 Width = 160
1042 Align = alRight 1043 Align = alRight
1043 Anchors = [] 1044 Anchors = []
1044 BorderSpacing.Top = 7 1045 BorderSpacing.Top = 7
1045 Caption = 'Subpattern' 1046 Caption = 'Subpattern'
1046 ClientHeight = 537 1047 ClientHeight = 623
1047 ClientWidth = 156 1048 ClientWidth = 156
1048 TabOrder = 1 1049 TabOrder = 1
1049 object ScrollBox2: TScrollBox 1050 object ScrollBox2: TScrollBox
1050 Left = 0 1051 Left = 0
1051 Height = 537 1052 Height = 623
1052 Top = 0 1053 Top = 0
1053 Width = 156 1054 Width = 156
1054 HorzScrollBar.Increment = 3 1055 HorzScrollBar.Increment = 3
@@ -1061,14 +1062,14 @@ object frmTracker: TfrmTracker
1061 VertScrollBar.Tracking = True 1062 VertScrollBar.Tracking = True
1062 Align = alClient 1063 Align = alClient
1063 BorderStyle = bsNone 1064 BorderStyle = bsNone
1064 ClientHeight = 537 1065 ClientHeight = 623
1065 ClientWidth = 156 1066 ClientWidth = 156
1066 TabOrder = 0 1067 TabOrder = 0
1067 OnMouseWheelDown = ScrollBox1MouseWheelDown 1068 OnMouseWheelDown = ScrollBox1MouseWheelDown
1068 OnMouseWheelUp = ScrollBox1MouseWheelUp 1069 OnMouseWheelUp = ScrollBox1MouseWheelUp
1069 object RowNumberStringGrid1: TStringGrid 1070 object RowNumberStringGrid1: TStringGrid
1070 Left = 124 1071 Left = 124
1071 Height = 537 1072 Height = 623
1072 Top = 0 1073 Top = 0
1073 Width = 32 1074 Width = 32
1074 Align = alRight 1075 Align = alRight
@@ -1086,16 +1087,16 @@ object frmTracker: TfrmTracker
1086 end 1087 end
1087 object WavesTabSheet: TTabSheet 1088 object WavesTabSheet: TTabSheet
1088 Caption = 'Waves' 1089 Caption = 'Waves'
1089 ClientHeight = 563 1090 ClientHeight = 649
1090 ClientWidth = 930 1091 ClientWidth = 1212
1091 ParentFont = False 1092 ParentFont = False
1092 object WaveEditPaintBox: TPaintBox 1093 object WaveEditPaintBox: TPaintBox
1093 AnchorSideTop.Control = WaveEditGroupBox 1094 AnchorSideTop.Control = WaveEditGroupBox
1094 AnchorSideTop.Side = asrBottom 1095 AnchorSideTop.Side = asrBottom
1095 Left = 0 1096 Left = 0
1096 Height = 403 1097 Height = 489
1097 Top = 160 1098 Top = 160
1098 Width = 930 1099 Width = 1212
1099 Align = alBottom 1100 Align = alBottom
1100 Anchors = [akTop, akLeft, akRight, akBottom] 1101 Anchors = [akTop, akLeft, akRight, akBottom]
1101 BorderSpacing.Top = 13 1102 BorderSpacing.Top = 13
@@ -1190,17 +1191,17 @@ object frmTracker: TfrmTracker
1190 end 1191 end
1191 object CommentsTabSheet: TTabSheet 1192 object CommentsTabSheet: TTabSheet
1192 Caption = 'Comments' 1193 Caption = 'Comments'
1193 ClientHeight = 563 1194 ClientHeight = 649
1194 ClientWidth = 930 1195 ClientWidth = 1212
1195 ParentFont = False 1196 ParentFont = False
1196 object CommentMemo: TMemo 1197 object CommentMemo: TMemo
1197 AnchorSideTop.Control = Label17 1198 AnchorSideTop.Control = Label17
1198 AnchorSideTop.Side = asrBottom 1199 AnchorSideTop.Side = asrBottom
1199 Left = 0 1200 Left = 0
1200 Height = 525 1201 Height = 611
1201 Hint = 'The comments section for your song. Greetings/links/etc' 1202 Hint = 'The comments section for your song. Greetings/links/etc'
1202 Top = 38 1203 Top = 38
1203 Width = 930 1204 Width = 1212
1204 Align = alBottom 1205 Align = alBottom
1205 Anchors = [akTop, akLeft, akRight, akBottom] 1206 Anchors = [akTop, akLeft, akRight, akBottom]
1206 BorderSpacing.Top = 13 1207 BorderSpacing.Top = 13
@@ -1221,16 +1222,16 @@ object frmTracker: TfrmTracker
1221 end 1222 end
1222 object RoutinesTabSheet: TTabSheet 1223 object RoutinesTabSheet: TTabSheet
1223 Caption = 'Routines' 1224 Caption = 'Routines'
1224 ClientHeight = 563 1225 ClientHeight = 649
1225 ClientWidth = 930 1226 ClientWidth = 1212
1226 ParentFont = False 1227 ParentFont = False
1227 inline RoutineSynedit: TSynEdit 1228 inline RoutineSynedit: TSynEdit
1228 AnchorSideTop.Control = Label19 1229 AnchorSideTop.Control = Label19
1229 AnchorSideTop.Side = asrBottom 1230 AnchorSideTop.Side = asrBottom
1230 Left = 0 1231 Left = 0
1231 Height = 442 1232 Height = 528
1232 Top = 121 1233 Top = 121
1233 Width = 930 1234 Width = 1212
1234 Align = alBottom 1235 Align = alBottom
1235 BorderSpacing.Top = 13 1236 BorderSpacing.Top = 13
1236 Anchors = [akTop, akLeft, akRight, akBottom] 1237 Anchors = [akTop, akLeft, akRight, akBottom]
@@ -1765,11 +1766,11 @@ object frmTracker: TfrmTracker
1765 Left = 0 1766 Left = 0
1766 Height = 64 1767 Height = 64
1767 Top = 29 1768 Top = 29
1768 Width = 1134 1769 Width = 1416
1769 Align = alTop 1770 Align = alTop
1770 BevelOuter = bvNone 1771 BevelOuter = bvNone
1771 ClientHeight = 64 1772 ClientHeight = 64
1772 ClientWidth = 1134 1773 ClientWidth = 1416
1773 ParentFont = False 1774 ParentFont = False
1774 TabOrder = 3 1775 TabOrder = 3
1775 object LEDMeter1: TLEDMeter 1776 object LEDMeter1: TLEDMeter
@@ -1777,7 +1778,7 @@ object frmTracker: TfrmTracker
1777 Left = 0 1778 Left = 0
1778 Height = 32 1779 Height = 32
1779 Top = 32 1780 Top = 32
1780 Width = 346 1781 Width = 628
1781 Anchors = [akTop, akLeft, akRight] 1782 Anchors = [akTop, akLeft, akRight]
1782 BevelStyle = bvLowered 1783 BevelStyle = bvLowered
1783 Colors.Border = 2168839 1784 Colors.Border = 2168839
@@ -1800,7 +1801,7 @@ object frmTracker: TfrmTracker
1800 Left = 0 1801 Left = 0
1801 Height = 32 1802 Height = 32
1802 Top = 0 1803 Top = 0
1803 Width = 346 1804 Width = 628
1804 Anchors = [akTop, akLeft, akRight] 1805 Anchors = [akTop, akLeft, akRight]
1805 BevelStyle = bvLowered 1806 BevelStyle = bvLowered
1806 Colors.Border = 2168839 1807 Colors.Border = 2168839
@@ -1819,7 +1820,7 @@ object frmTracker: TfrmTracker
1819 Section3Value = 48 1820 Section3Value = 48
1820 end 1821 end
1821 object Duty1Visualizer: TPaintBox 1822 object Duty1Visualizer: TPaintBox
1822 Left = 346 1823 Left = 628
1823 Height = 64 1824 Height = 64
1824 Top = 0 1825 Top = 0
1825 Width = 197 1826 Width = 197
@@ -1829,7 +1830,7 @@ object frmTracker: TfrmTracker
1829 OnPaint = Duty1VisualizerPaint 1830 OnPaint = Duty1VisualizerPaint
1830 end 1831 end
1831 object Duty2Visualizer: TPaintBox 1832 object Duty2Visualizer: TPaintBox
1832 Left = 543 1833 Left = 825
1833 Height = 64 1834 Height = 64
1834 Top = 0 1835 Top = 0
1835 Width = 197 1836 Width = 197
@@ -1839,7 +1840,7 @@ object frmTracker: TfrmTracker
1839 OnPaint = Duty2VisualizerPaint 1840 OnPaint = Duty2VisualizerPaint
1840 end 1841 end
1841 object WaveVisualizer: TPaintBox 1842 object WaveVisualizer: TPaintBox
1842 Left = 740 1843 Left = 1022
1843 Height = 64 1844 Height = 64
1844 Top = 0 1845 Top = 0
1845 Width = 197 1846 Width = 197
@@ -1849,7 +1850,7 @@ object frmTracker: TfrmTracker
1849 OnPaint = WaveVisualizerPaint 1850 OnPaint = WaveVisualizerPaint
1850 end 1851 end
1851 object NoiseVisualizer: TPaintBox 1852 object NoiseVisualizer: TPaintBox
1852 Left = 937 1853 Left = 1219
1853 Height = 64 1854 Height = 64
1854 Top = 0 1855 Top = 0
1855 Width = 197 1856 Width = 197
@@ -1862,8 +1863,8 @@ object frmTracker: TfrmTracker
1862 object StatusBar1: TStatusBar 1863 object StatusBar1: TStatusBar
1863 Left = 0 1864 Left = 0
1864 Height = 21 1865 Height = 21
1865 Top = 691 1866 Top = 777
1866 Width = 1134 1867 Width = 1416
1867 AutoHint = True 1868 AutoHint = True
1868 Panels = < 1869 Panels = <
1869 item 1870 item
@@ -1884,7 +1885,7 @@ object frmTracker: TfrmTracker
1884 Left = 0 1885 Left = 0
1885 Height = 29 1886 Height = 29
1886 Top = 0 1887 Top = 0
1887 Width = 1134 1888 Width = 1416
1888 AutoSize = True 1889 AutoSize = True
1889 Caption = 'ToolBar1' 1890 Caption = 'ToolBar1'
1890 EdgeBorders = [ebBottom] 1891 EdgeBorders = [ebBottom]
@@ -3284,4 +3285,19 @@ object frmTracker: TfrmTracker
3284 Left = 472 3285 Left = 472
3285 Top = 104 3286 Top = 104
3286 end 3287 end
3288 object InstrumentPopupMenu: TPopupMenu
3289 Images = ImageList1
3290 Left = 568
3291 Top = 296
3292 object MenuItem57: TMenuItem
3293 Caption = 'Copy'
3294 ImageIndex = 9
3295 OnClick = MenuItem57Click
3296 end
3297 object MenuItem58: TMenuItem
3298 Caption = 'Paste'
3299 ImageIndex = 47
3300 OnClick = MenuItem58Click
3301 end
3302 end
3287 end 3303 end
Modifiedsrc/tracker.pas +32−0
@@ -43,6 +43,9 @@ type
43 { TfrmTracker } 43 { TfrmTracker }
44 44
45 TfrmTracker = class(TForm) 45 TfrmTracker = class(TForm)
46 InstrumentPopupMenu: TPopupMenu;
47 MenuItem57: TMenuItem;
48 MenuItem58: TMenuItem;
46 SingleStepAction: TAction; 49 SingleStepAction: TAction;
47 FileSave1: TAction; 50 FileSave1: TAction;
48 MenuItem26: TMenuItem; 51 MenuItem26: TMenuItem;
@@ -312,6 +315,8 @@ type
312 procedure MenuItem55Click(Sender: TObject); 315 procedure MenuItem55Click(Sender: TObject);
313 procedure MenuItem60Click(Sender: TObject); 316 procedure MenuItem60Click(Sender: TObject);
314 procedure MenuItem56Click(Sender: TObject); 317 procedure MenuItem56Click(Sender: TObject);
318 procedure MenuItem57Click(Sender: TObject);
319 procedure MenuItem58Click(Sender: TObject);
315 procedure OrderEditStringGridMouseDown(Sender: TObject; 320 procedure OrderEditStringGridMouseDown(Sender: TObject;
316 Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 321 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
317 procedure RevertMenuItemClick(Sender: TObject); 322 procedure RevertMenuItemClick(Sender: TObject);
@@ -2242,6 +2247,33 @@ begin
2242 end; 2247 end;
2243 end; 2248 end;
2244 2249
2250 procedure TfrmTracker.MenuItem57Click(Sender: TObject);
2251 begin
2252 Clipboard.AddFormat(PredefinedClipboardFormat(pcfCustomData), CurrentInstrument^, SizeOf(TInstrument));
2253 end;
2254
2255 procedure TfrmTracker.MenuItem58Click(Sender: TObject);
2256 var
2257 S: TMemoryStream;
2258 Inst: ^TInstrument;
2259 begin
2260 S := TMemoryStream.Create;
2261
2262 try
2263 if Clipboard.HasFormat(PredefinedClipboardFormat(pcfCustomData)) then begin
2264 Clipboard.GetFormat(PredefinedClipboardFormat(pcfCustomData), S);
2265 Inst := S.Memory;
2266
2267 if Inst^.Type_ = CurrentInstrument^.Type_ then begin
2268 CurrentInstrument^ := Inst^;
2269 LoadInstrument(CurrentInstrumentBank, InstrumentNumberSpinner.Value);
2270 end;
2271 end;
2272 finally
2273 S.Free;
2274 end;
2275 end;
2276
2245 procedure TfrmTracker.OrderEditStringGridMouseDown(Sender: TObject; 2277 procedure TfrmTracker.OrderEditStringGridMouseDown(Sender: TObject;
2246 Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 2278 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
2247 begin 2279 begin