From 68dd24e4bb6b9c6f7767249ab62d734832085c9e Mon Sep 17 00:00:00 2001 From: FAQ Date: Mon, 15 Oct 2018 21:40:57 +0300 Subject: [PATCH] Releasing Truice_v2.1.4 Close #74 --- About.dfm | 2 +- MainUnit.dfm | 35 +++++++++++++++++++----- MainUnit.pas | 77 ++++++++++++++++++++++++++++++++++++++-------------- Truice.dproj | 11 +++++--- 4 files changed, 93 insertions(+), 32 deletions(-) diff --git a/About.dfm b/About.dfm index b1f4d58..4c13449 100644 --- a/About.dfm +++ b/About.dfm @@ -1976,7 +1976,7 @@ object AboutBox: TAboutBox Top = 10 Width = 69 Height = 13 - Caption = 'Version: 2.1.0' + Caption = 'Version: 2.1.4' Font.Charset = DEFAULT_CHARSET Font.Color = clGray Font.Height = -11 diff --git a/MainUnit.dfm b/MainUnit.dfm index 77d0084..59db1c7 100644 --- a/MainUnit.dfm +++ b/MainUnit.dfm @@ -21878,6 +21878,13 @@ object MainForm: TMainForm Height = 13 Caption = 'target_param3' end + object lbcytarget_param4: TLabel + Left = 539 + Top = 474 + Width = 68 + Height = 13 + Caption = 'target_param4' + end object lbcytarget_x: TLabel Left = 2 Top = 519 @@ -22045,6 +22052,9 @@ object MainForm: TMainForm item Width = 36 end + item + Width = 36 + end item end item @@ -22124,6 +22134,8 @@ object MainForm: TMainForm item end item + end + item end> end object btcyFullScript: TButton @@ -22495,13 +22507,22 @@ object MainForm: TMainForm TabOrder = 23 Text = '0' end + object edcytarget_param4: TJvComboEdit + Left = 539 + Top = 490 + Width = 130 + Height = 21 + ShowButton = False + TabOrder = 24 + Text = '0' + end object edcytarget_x: TJvComboEdit Left = 3 Top = 534 Width = 121 Height = 21 ShowButton = False - TabOrder = 24 + TabOrder = 25 Text = '0' end object edcytarget_z: TJvComboEdit @@ -22510,7 +22531,7 @@ object MainForm: TMainForm Width = 130 Height = 21 ShowButton = False - TabOrder = 25 + TabOrder = 26 Text = '0' end object edcytarget_o: TJvComboEdit @@ -22519,7 +22540,7 @@ object MainForm: TMainForm Width = 130 Height = 21 ShowButton = False - TabOrder = 26 + TabOrder = 27 Text = '0' end object edcycomment: TJvComboEdit @@ -22528,7 +22549,7 @@ object MainForm: TMainForm Width = 502 Height = 21 ShowButton = False - TabOrder = 27 + TabOrder = 28 Text = '' end object edcyentryorguid: TJvComboEdit @@ -22537,7 +22558,7 @@ object MainForm: TMainForm Width = 117 Height = 21 ShowButton = False - TabOrder = 28 + TabOrder = 29 Text = '' end object btcyLoad: TButton @@ -22546,7 +22567,7 @@ object MainForm: TMainForm Width = 75 Height = 25 Caption = 'Search' - TabOrder = 29 + TabOrder = 30 OnClick = btcyLoadClick end object edcytarget_y: TJvComboEdit @@ -22555,7 +22576,7 @@ object MainForm: TMainForm Width = 130 Height = 21 ShowButton = False - TabOrder = 30 + TabOrder = 31 Text = '0' end end diff --git a/MainUnit.pas b/MainUnit.pas index fd32953..0db6116 100644 --- a/MainUnit.pas +++ b/MainUnit.pas @@ -20,7 +20,7 @@ interface const VERSION_1 = '2'; //*10000 VERSION_2 = '1'; //*100 - VERSION_3 = '3'; + VERSION_3 = '4'; VERSION_4 = ''; VERSION_EXE = VERSION_1 + '.' + VERSION_2 + '.' + VERSION_3 + '.' + VERSION_4; @@ -1447,6 +1447,7 @@ TMainForm = class(TForm) edcytarget_param1: TJvComboEdit; edcytarget_param2: TJvComboEdit; edcytarget_param3: TJvComboEdit; + edcytarget_param4: TJvComboEdit; edcytarget_x: TJvComboEdit; edcytarget_z: TJvComboEdit; edcytarget_o: TJvComboEdit; @@ -1494,6 +1495,7 @@ TMainForm = class(TForm) lbcytarget_param1: TLabel; lbcytarget_param2: TLabel; lbcytarget_param3: TLabel; + lbcytarget_param4: TLabel; lbcytarget_x: TLabel; lbcytarget_y: TLabel; lbcytarget_z: TLabel; @@ -4284,7 +4286,7 @@ procedure TMainForm.LoadSmartAI(entryorguid: integer; sourcetype: integer); '`event_phase_mask` as `epm`, `event_chance` as `ec`, `event_flags` as `ef`, `event_param1` as `ep1`, `event_param2` as `ep2`, '+ '`event_param3` as `ep3`, `event_param4` as `ep4`, `event_param5` as `ep5`, `action_type` as `at`, `action_param1` as `a1`, `action_param2` as `a2`, '+ '`action_param3` as `a3`, `action_param4` as `a4`, `action_param5` as `a5`, `action_param6` as `a6`, `target_type` as `tt`, '+ - '`target_param1` as `t1`, `target_param2` as `t2`, `target_param3` as `t3`, `target_x` as `tx`, `target_y` as `ty`, '+ + '`target_param1` as `t1`, `target_param2` as `t2`, `target_param3` as `t3`, `target_param4` as `t4`, `target_x` as `tx`, `target_y` as `ty`, '+ '`target_z` as `tz`, `target_o` as `to`, `comment` as `cmt` FROM `smart_scripts` WHERE `entryorguid`=%d AND `source_type`=%d',[entryorguid, sourcetype]), lvcySmartAI); end; @@ -7130,12 +7132,13 @@ procedure TMainForm.SmartAIUpd(pfx: string; lvList: TJvListView); SubItems[19] := TCustomEdit(FindComponent(pfx + 'target_type')).Text; SubItems[20] := TCustomEdit(FindComponent(pfx + 'target_param1')).Text; SubItems[21] := TCustomEdit(FindComponent(pfx + 'target_param2')).Text; - SubItems[22] := TCustomEdit(FindComponent(pfx + 'target_param3')).Text; - SubItems[23] := TCustomEdit(FindComponent(pfx + 'target_x')).Text; - SubItems[24] := TCustomEdit(FindComponent(pfx + 'target_y')).Text; - SubItems[25] := TCustomEdit(FindComponent(pfx + 'target_z')).Text; - SubItems[26] := TCustomEdit(FindComponent(pfx + 'target_o')).Text; - SubItems[27] := TCustomEdit(FindComponent(pfx + 'comment')).Text; + SubItems[22] := TCustomEdit(FindComponent(pfx + 'target_param3')).Text; + SubItems[23] := TCustomEdit(FindComponent(pfx + 'target_param4')).Text; + SubItems[24] := TCustomEdit(FindComponent(pfx + 'target_x')).Text; + SubItems[25] := TCustomEdit(FindComponent(pfx + 'target_y')).Text; + SubItems[26] := TCustomEdit(FindComponent(pfx + 'target_z')).Text; + SubItems[27] := TCustomEdit(FindComponent(pfx + 'target_o')).Text; + SubItems[28] := TCustomEdit(FindComponent(pfx + 'comment')).Text; end; end; end; @@ -7235,6 +7238,7 @@ procedure TMainForm.SmartAIAdd(pfx: string; lvList: TJvListView); SubItems.Add(TCustomEdit(FindComponent(pfx + 'target_param1')).Text); SubItems.Add(TCustomEdit(FindComponent(pfx + 'target_param2')).Text); SubItems.Add(TCustomEdit(FindComponent(pfx + 'target_param3')).Text); + SubItems.Add(TCustomEdit(FindComponent(pfx + 'target_param4')).Text); SubItems.Add(TCustomEdit(FindComponent(pfx + 'target_x')).Text); SubItems.Add(TCustomEdit(FindComponent(pfx + 'target_y')).Text); SubItems.Add(TCustomEdit(FindComponent(pfx + 'target_z')).Text); @@ -7341,11 +7345,12 @@ procedure TMainForm.SetSmartAIEditFields(pfx: string; lvList: TJvListView); TCustomEdit(FindComponent(pfx + 'target_param1')).Text := SubItems[20]; TCustomEdit(FindComponent(pfx + 'target_param2')).Text := SubItems[21]; TCustomEdit(FindComponent(pfx + 'target_param3')).Text := SubItems[22]; - TCustomEdit(FindComponent(pfx + 'target_x')).Text := SubItems[23]; - TCustomEdit(FindComponent(pfx + 'target_y')).Text := SubItems[24]; - TCustomEdit(FindComponent(pfx + 'target_z')).Text := SubItems[25]; - TCustomEdit(FindComponent(pfx + 'target_o')).Text := SubItems[26]; - TCustomEdit(FindComponent(pfx + 'comment')).Text := SubItems[27]; + TCustomEdit(FindComponent(pfx + 'target_param4')).Text := SubItems[23]; + TCustomEdit(FindComponent(pfx + 'target_x')).Text := SubItems[24]; + TCustomEdit(FindComponent(pfx + 'target_y')).Text := SubItems[25]; + TCustomEdit(FindComponent(pfx + 'target_z')).Text := SubItems[26]; + TCustomEdit(FindComponent(pfx + 'target_o')).Text := SubItems[27]; + TCustomEdit(FindComponent(pfx + 'comment')).Text := SubItems[28]; end; end; end; @@ -7484,7 +7489,7 @@ procedure TMainForm.ShowFullSmartAIScript(TableName: string; lvList: TJvListView begin for i := 0 to lvList.Items.Count - 2 do begin - Values := Values + Format('(%s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, '+'"'+'%s'+'"'+'),'#13#10,[ + Values := Values + Format('(%s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, '+'"'+'%s'+'"'+'),'#13#10,[ lvList.Items[i].Caption, lvList.Items[i].SubItems[0], lvList.Items[i].SubItems[1], @@ -7513,11 +7518,12 @@ procedure TMainForm.ShowFullSmartAIScript(TableName: string; lvList: TJvListView lvList.Items[i].SubItems[24], lvList.Items[i].SubItems[25], lvList.Items[i].SubItems[26], - lvList.Items[i].SubItems[27] + lvList.Items[i].SubItems[27], + lvList.Items[i].SubItems[28] ]); end; i := lvList.Items.Count - 1; - Values := Values + Format('(%s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, '+'"'+'%s'+'"'+');',[ + Values := Values + Format('(%s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, '+'"'+'%s'+'"'+');',[ lvList.Items[i].Caption, lvList.Items[i].SubItems[0], lvList.Items[i].SubItems[1], @@ -7546,7 +7552,8 @@ procedure TMainForm.ShowFullSmartAIScript(TableName: string; lvList: TJvListView lvList.Items[i].SubItems[24], lvList.Items[i].SubItems[25], lvList.Items[i].SubItems[26], - lvList.Items[i].SubItems[27] + lvList.Items[i].SubItems[27], + lvList.Items[i].SubItems[28] ]); end; if values<>'' then @@ -7555,7 +7562,7 @@ procedure TMainForm.ShowFullSmartAIScript(TableName: string; lvList: TJvListView 'INSERT INTO `%0:s` (`entryorguid`, `source_type`, `id`, `link`, `event_type`, `event_phase_mask`, '+ '`event_chance`, `event_flags`, `event_param1`, `event_param2`, `event_param3`, `event_param4`, `event_param5`, '+ '`action_type`, `action_param1`, `action_param2`, `action_param3`, `action_param4`, `action_param5`, '+ - '`action_param6`, `target_type`, `target_param1`, `target_param2`, `target_param3`, `target_x`, '+ + '`action_param6`, `target_type`, `target_param1`, `target_param2`, `target_param3`, `target_param4`, `target_x`, '+ '`target_y`, `target_z`, `target_o`, `comment`) VALUES '#13#10'%3:s',[TableName, entry, sourcetype, Values]); end else @@ -12399,6 +12406,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12411,6 +12419,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12423,6 +12432,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12435,6 +12445,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12447,6 +12458,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12459,6 +12471,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12471,6 +12484,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12483,6 +12497,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12495,6 +12510,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := 'x'; lbcytarget_y.Caption := 'y'; lbcytarget_z.Caption := 'z'; @@ -12507,6 +12523,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'creatureEntry (0 any)'; lbcytarget_param2.Caption := 'minDist'; lbcytarget_param3.Caption := 'maxDist'; + lbcytarget_param4.Caption := 'Number of targets (0 all)'; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12519,6 +12536,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'guid'; lbcytarget_param2.Caption := 'entry'; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12530,7 +12548,8 @@ procedure TMainForm.SetSAITarget(t: integer); begin lbcytarget_param1.Caption := 'creatureEntry (0 any)'; lbcytarget_param2.Caption := 'maxDist'; - lbcytarget_param3.Caption := ''; + lbcytarget_param3.Caption := 'Number of targets (0 all)'; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12543,6 +12562,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'id'; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12555,6 +12575,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'goEntry (0 any)'; lbcytarget_param2.Caption := 'minDist'; lbcytarget_param3.Caption := 'maxDist'; + lbcytarget_param4.Caption := 'Number of targets (0 all)'; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12567,6 +12588,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'guid'; lbcytarget_param2.Caption := 'entry'; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12578,7 +12600,8 @@ procedure TMainForm.SetSAITarget(t: integer); begin lbcytarget_param1.Caption := 'goEntry (0 any)'; lbcytarget_param2.Caption := 'maxDist'; - lbcytarget_param3.Caption := ''; + lbcytarget_param3.Caption := 'Number of targets (0 all)'; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12591,6 +12614,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12603,6 +12627,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'minDist'; lbcytarget_param2.Caption := 'maxDist'; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12615,6 +12640,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'maxDist'; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12627,6 +12653,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'creatureEntry (0 any)'; lbcytarget_param2.Caption := 'maxDist'; lbcytarget_param3.Caption := 'dead? (0/1)'; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12641,6 +12668,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'goEntry (0 any)'; lbcytarget_param2.Caption := 'maxDist'; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12655,6 +12683,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'maxDist'; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12667,6 +12696,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12679,6 +12709,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12691,6 +12722,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12703,6 +12735,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'maxDist'; lbcytarget_param2.Caption := 'playerOnly (0/1)'; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12717,6 +12750,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'maxDist'; lbcytarget_param2.Caption := 'playerOnly (0/1)'; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12731,6 +12765,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := ''; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12743,6 +12778,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'maxDist'; lbcytarget_param2.Caption := 'playerOnly'; lbcytarget_param3.Caption := 'isInLos (0/1)'; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; @@ -12755,6 +12791,7 @@ procedure TMainForm.SetSAITarget(t: integer); lbcytarget_param1.Caption := 'seatMask'; lbcytarget_param2.Caption := ''; lbcytarget_param3.Caption := ''; + lbcytarget_param4.Caption := ''; lbcytarget_x.Caption := ''; lbcytarget_y.Caption := ''; lbcytarget_z.Caption := ''; diff --git a/Truice.dproj b/Truice.dproj index 3beb290..27d71b1 100644 --- a/Truice.dproj +++ b/Truice.dproj @@ -60,7 +60,7 @@ 1062 - CompanyName=;FileDescription=Truice - Trinity DB Editor;FileVersion=2.1.3.0;InternalName=Truice;LegalCopyright=© indomit, 2009 (Quice), Ishigure, 2010, Faq, 2012;LegalTrademarks=indomit™;OriginalFilename=Truice.exe;ProductName=Truice;ProductVersion=2.1.0;Comments=compiled by FAQ + CompanyName=;FileDescription=Truice - Trinity DB Editor;FileVersion=2.1.4.0;InternalName=Truice;LegalCopyright=© indomit, 2009 (Quice), Ishigure, 2010, Faq, 2012;LegalTrademarks=indomit™;OriginalFilename=Truice.exe;ProductName=Truice;ProductVersion=2.1.4;Comments=compiled by FAQ true Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace) 1 @@ -80,13 +80,14 @@ false Truice 2 + 4 Truice_Icon.ico Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 1033 $(BDS)\bin\default_app.manifest - CompanyName=;FileVersion=2.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) + CompanyName=;FileVersion=2.1.4.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=2.1.4.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png true @@ -112,7 +113,7 @@ true 2 madExcept;$(DCC_Define) - CompanyName=;FileVersion=2.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=2.1.3.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) + CompanyName=;FileVersion=2.1.4.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=2.1.4.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) Debug 1033 @@ -127,12 +128,14 @@ LeakChecking;$(DCC_Define) 1033 true - CompanyName=;FileVersion=2.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) + CompanyName=;FileVersion=2.1.4.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=2.1.4.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) 2 3 Debug true false + true + true Debug