Commit 459c53b

Nick committed on
Starting work on the manual
commit 459c53b487c329e4138aa29952416aa3af59a698 parent a8ea0f3
9 changed files +88−9
Modified.gitignore +2−1
@@ -10,4 +10,5 @@ lib
10 *.obj 10 *.obj
11 *.sym 11 *.sym
12 *.lnk 12 *.lnk
13 *.map 13 *.map
14 ~*
ModifiedGBEmu.lpi +7−1
@@ -81,7 +81,7 @@
81 <PackageName Value="LCL"/> 81 <PackageName Value="LCL"/>
82 </Item12> 82 </Item12>
83 </RequiredPackages> 83 </RequiredPackages>
84 <Units Count="22"> 84 <Units Count="23">
85 <Unit0> 85 <Unit0>
86 <Filename Value="GBEmu.lpr"/> 86 <Filename Value="GBEmu.lpr"/>
87 <IsPartOfProject Value="True"/> 87 <IsPartOfProject Value="True"/>
@@ -193,6 +193,12 @@
193 <IsPartOfProject Value="True"/> 193 <IsPartOfProject Value="True"/>
194 <UnitName Value="SymParser"/> 194 <UnitName Value="SymParser"/>
195 </Unit21> 195 </Unit21>
196 <Unit22>
197 <Filename Value="effecteditor.pas"/>
198 <IsPartOfProject Value="True"/>
199 <ComponentName Value="Form1"/>
200 <ResourceBaseClass Value="Form"/>
201 </Unit22>
196 </Units> 202 </Units>
197 </ProjectOptions> 203 </ProjectOptions>
198 <CompilerOptions> 204 <CompilerOptions>
Modifiedconstants.pas +1−0
@@ -17,6 +17,7 @@ const
17 UGE_FORMAT_VERSION = 1; 17 UGE_FORMAT_VERSION = 1;
18 18
19 LM_FD = LM_USER + 0; 19 LM_FD = LM_USER + 0;
20 LM_UNDO_OCCURED = LM_USER + 1;
20 21
21 SYM_ROW = 'row'; 22 SYM_ROW = 'row';
22 SYM_CURRENT_ORDER = 'current_order'; 23 SYM_CURRENT_ORDER = 'current_order';
Addedeffecteditor.lfm +28−0
@@ -0,0 +1,28 @@
1 object Form1: TForm1
2 Left = 713
3 Height = 400
4 Top = 494
5 Width = 729
6 Caption = 'Form1'
7 ClientHeight = 400
8 ClientWidth = 729
9 DesignTimePPI = 168
10 LCLVersion = '2.0.6.0'
11 object ComboBox1: TComboBox
12 Left = 120
13 Height = 38
14 Top = 24
15 Width = 368
16 ItemHeight = 30
17 Style = csDropDownList
18 TabOrder = 0
19 end
20 object Label1: TLabel
21 Left = 8
22 Height = 30
23 Top = 32
24 Width = 99
25 Caption = 'Effect type'
26 ParentColor = False
27 end
28 end
Addedeffecteditor.pas +31−0
@@ -0,0 +1,31 @@
1 unit effecteditor;
2
3 {$mode objfpc}{$H+}
4
5 interface
6
7 uses
8 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
9
10 type
11
12 { TForm1 }
13
14 TForm1 = class(TForm)
15 ComboBox1: TComboBox;
16 Label1: TLabel;
17 private
18
19 public
20
21 end;
22
23 var
24 Form1: TForm1;
25
26 implementation
27
28 {$R *.lfm}
29
30 end.
31
ModifiedhUGEDriver +1−1
@@ -1 +1 @@
1 Subproject commit 59fc8b44612269b03f273683eabb4e23ff1eb876 1 Subproject commit 0f883e4c8992a2e7dfd8794e98a5ac5cb383141a
Modifiedtracker.lfm +4−4
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 800 2 Left = 843
3 Height = 1376 3 Height = 1376
4 Top = 189 4 Top = 190
5 Width = 2212 5 Width = 2212
6 Caption = 'hUGETracker' 6 Caption = 'hUGETracker'
7 ClientHeight = 1342 7 ClientHeight = 1342
@@ -54,10 +54,10 @@ object frmTracker: TfrmTracker
54 Height = 946 54 Height = 946
55 Top = 0 55 Top = 0
56 Width = 1865 56 Width = 1865
57 ActivePage = PatternTabSheet 57 ActivePage = InstrumentTabSheet
58 Align = alClient 58 Align = alClient
59 ParentFont = False 59 ParentFont = False
60 TabIndex = 1 60 TabIndex = 2
61 TabOrder = 0 61 TabOrder = 0
62 object GeneralTabSheet: TTabSheet 62 object GeneralTabSheet: TTabSheet
63 Caption = 'General' 63 Caption = 'General'
Modifiedtracker.pas +14−2
@@ -281,7 +281,8 @@ type
281 procedure WordPokeSymbol(Symbol: String; Value: Word); 281 procedure WordPokeSymbol(Symbol: String; Value: Word);
282 function PeekSymbol(Symbol: String): Integer; 282 function PeekSymbol(Symbol: String): Integer;
283 procedure PokeSymbol(Symbol: String; Value: Byte); 283 procedure PokeSymbol(Symbol: String; Value: Byte);
284 procedure OnFD(var msg: TLMessage); message LM_FD; 284 procedure OnFD(var Msg: TLMessage); message LM_FD;
285 procedure OnUndoOccured(var Msg: TLMessage); message LM_UNDO_OCCURED;
285 286
286 procedure RecreateTrackerGrid; 287 procedure RecreateTrackerGrid;
287 procedure UpdateUIAfterLoad; 288 procedure UpdateUIAfterLoad;
@@ -586,6 +587,16 @@ begin
586 OrderEditStringGrid.Row := (PeekSymbol(SYM_CURRENT_ORDER) div 2) + 1; 587 OrderEditStringGrid.Row := (PeekSymbol(SYM_CURRENT_ORDER) div 2) + 1;
587 end; 588 end;
588 589
590 procedure TfrmTracker.OnUndoOccured(var Msg: TLMessage);
591 begin
592 with OrderEditStringGrid do
593 {if (Msg.lParamhi <> StrToInt(Rows[Row][0])) or
594 (Msg.lParamhi <> StrToInt(Rows[Row][1])) or
595 (Msg.lParamhi <> StrToInt(Rows[Row][2])) or
596 (Msg.lParamhi <> StrToInt(Rows[Row][3])) then}
597 Row := -1;
598 end;
599
589 procedure TfrmTracker.RecreateTrackerGrid; 600 procedure TfrmTracker.RecreateTrackerGrid;
590 begin 601 begin
591 if Assigned(TrackerGrid) then TrackerGrid.Free; 602 if Assigned(TrackerGrid) then TrackerGrid.Free;
@@ -1122,7 +1133,8 @@ end;
1122 procedure TfrmTracker.OrderEditStringGridAfterSelection(Sender: TObject; aCol, 1133 procedure TfrmTracker.OrderEditStringGridAfterSelection(Sender: TObject; aCol,
1123 aRow: Integer); 1134 aRow: Integer);
1124 begin 1135 begin
1125 ReloadPatterns; 1136 if OrderEditStringGrid.Row > -1 then
1137 ReloadPatterns;
1126 end; 1138 end;
1127 1139
1128 procedure TfrmTracker.OrderEditStringGridColRowDeleted(Sender: TObject; 1140 procedure TfrmTracker.OrderEditStringGridColRowDeleted(Sender: TObject;