Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
  • Loading branch information
ansgarbecker committed Nov 2, 2017
1 parent ef13e15 commit 57e8047
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion source/main.pas
Expand Up @@ -1232,7 +1232,6 @@ procedure TMainForm.StatusBarClick(Sender: TObject);
begin
// Handle click events on specific statusbar panels
Click := StatusBar.ScreenToClient(Mouse.CursorPos);
LogSQL(inttostr(click.X)+':'+inttostr(click.Y));
for i:=0 to StatusBar.Panels.Count-1 do begin
SendMessage(StatusBar.Handle, SB_GETRECT, i, Integer(@PanelRect));
if PtInRect(PanelRect, Click) then begin
Expand Down

0 comments on commit 57e8047

Please sign in to comment.