Commit 6272e60

Nick committed on
Fix small focus issue on trackergrid
commit 6272e605b3222fb797d2ec32da9f64a886591f3b parent 18980c3
2 changed files +4−4
Modifiedtracker.lfm +3−2
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 621 2 Left = 1647
3 Height = 806 3 Height = 806
4 Top = 181 4 Top = 299
5 Width = 1270 5 Width = 1270
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
@@ -236,6 +236,7 @@ object frmTracker: TfrmTracker
236 BorderStyle = bsNone 236 BorderStyle = bsNone
237 ColCount = 1 237 ColCount = 1
238 DefaultColWidth = 32 238 DefaultColWidth = 32
239 Enabled = False
239 RowCount = 64 240 RowCount = 64
240 ScrollBars = ssNone 241 ScrollBars = ssNone
241 TabOrder = 0 242 TabOrder = 0
Modifiedtrackergrid.pas +1−2
@@ -313,8 +313,7 @@ begin
313 if (Button = mbLeft) and not (ssShift in Shift) then 313 if (Button = mbLeft) and not (ssShift in Shift) then
314 MouseButtonDown := True; 314 MouseButtonDown := True;
315 315
316 if not (csDesigning in ComponentState) and CanFocus then 316 if CanFocus then SetFocus;
317 SetFocus;
318 317
319 Clicked := MousePosToSelection(X, Y); 318 Clicked := MousePosToSelection(X, Y);
320 319