Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.35 by h677, Tue Sep 2 13:27:07 2003 UTC revision 1.36 by yoffy, Tue Sep 2 13:36:24 2003 UTC
# Line 6652  procedure TGikoForm.FormMouseWheel(Sende Line 6652  procedure TGikoForm.FormMouseWheel(Sende
6652  var  var
6653          Wnd: THandle;          Wnd: THandle;
6654          delta: Integer;          delta: Integer;
6655      msg: TMessage;
6656  begin  begin
6657          Handled := False;          Handled := False;
6658          Wnd := WindowFromPoint(MousePos);          Wnd := WindowFromPoint(MousePos);
6659      Handled := True;
6660      if WheelDelta > 0 then
6661        Delta := -1
6662      else
6663        Delta := 1;
6664    
6665          if (Wnd = BrowserTab.Handle) or          if (Wnd = BrowserTab.Handle) or
6666                   (Wnd = BrowserTab.Parent.Handle) then begin                   (Wnd = BrowserTab.Parent.Handle) then begin
                 if WheelDelta > 0 then  
                         Delta := -1  
                 else  
                         Delta := 1;  
6667                  BrowserTab.ScrollTabs(Delta);                  BrowserTab.ScrollTabs(Delta);
6668                  Handled := True;    end else if Wnd = ListView.Handle then begin
6669        ListView.Scroll( 0, Delta * 30 );
6670      end else begin
6671        Handled := False;
6672          end;          end;
6673  end;  end;
6674    

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26