Commit e485442

Nick committed on
Fix tree double click bug
commit e48544245f77ab3c40c856d70ac7e388a8da0fde parent b535f0b
1 changed files +2−0
Modifiedtracker.pas +2−0
@@ -2380,6 +2380,8 @@ end;
2380 2380
2381 procedure TfrmTracker.TreeView1DblClick(Sender: TObject); 2381 procedure TfrmTracker.TreeView1DblClick(Sender: TObject);
2382 begin 2382 begin
2383 if TreeView1.Selected = nil then Exit;
2384
2383 if TreeView1.Selected.Parent = DutyInstrumentsNode then begin 2385 if TreeView1.Selected.Parent = DutyInstrumentsNode then begin
2384 LoadInstrument(itSquare, {%H-}PtrUInt(TreeView1.Selected.Data)); 2386 LoadInstrument(itSquare, {%H-}PtrUInt(TreeView1.Selected.Data));
2385 PageControl1.ActivePage := InstrumentTabSheet; 2387 PageControl1.ActivePage := InstrumentTabSheet;