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.116 by yoffy, Thu Nov 20 06:47:00 2003 UTC revision 1.117 by yoffy, Thu Nov 20 07:44:12 2003 UTC
# Line 4  interface Line 4  interface
4    
5  uses  uses
6          Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,          Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7          OleCtrls,       ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils,          OleCtrls,       ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, Math,
8  {$IF Defined(DELPRO) }  {$IF Defined(DELPRO) }
9          SHDocVw,                                                                                                  SHDocVw,                                                                                        
10          MSHTML,          MSHTML,
# Line 7168  var Line 7168  var
7168          Wnd: THandle;          Wnd: THandle;
7169          delta: Integer;          delta: Integer;
7170  //      msg: TMessage;  //      msg: TMessage;
7171    const
7172            ICON_SIZE = 16;
7173  begin  begin
7174          Handled := False;          Handled := False;
7175          Wnd := WindowFromPoint(MousePos);          Wnd := WindowFromPoint(MousePos);
# Line 7182  begin Line 7184  begin
7184                  BrowserTab.ScrollTabs(Delta);                  BrowserTab.ScrollTabs(Delta);
7185          end else if Wnd = ListView.Handle then begin          end else if Wnd = ListView.Handle then begin
7186                  if ListView.ViewStyle = vsList then                  if ListView.ViewStyle = vsList then
7187                          ListView.Scroll( Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ), 0 )                          ListView.Scroll( Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) + Delta * ICON_SIZE, 0 )
7188                  else                  else
7189                          ListView.Scroll( 0, Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) );                          ListView.Scroll( 0, Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) + Delta * ICON_SIZE );
7190          end else begin          end else begin
7191                  Handled := False;                  Handled := False;
7192          end;          end;

Legend:
Removed from v.1.116  
changed lines
  Added in v.1.117

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