Gradle-for-Delphi/UFJarHelp.pas at main · helgovic/Gradle-for-Delphi · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
unit UFJarHelp;

interface

uses
  Winapi.Windows, WinApi.ShellApi, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  Vcl.ExtCtrls, Vcl.Imaging.pngimage;

type
  TFJarHelp = class(TForm)
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    LinkLabel1: TLinkLabel;
    HTMLabel1: TMemo;
    HTMLabel2: TMemo;
    HTMLabel3: TMemo;
    HTMLabel4: TMemo;
    HTMLabel5: TMemo;
    LinkLabel2: TLinkLabel;
    Image5: TImage;
    procedure LinkLabel2LinkClick(Sender: TObject; const Link: string;
      LinkType: TSysLinkType);
    procedure LinkLabel1LinkClick(Sender: TObject; const Link: string;
      LinkType: TSysLinkType);
    procedure FormCreate(Sender: TObject);
  private
    procedure ScrollBoxMouseWheel(Sender: TObject; Shift: TShiftState;
      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FJarHelp: TFJarHelp;

implementation

{$R *.dfm}

procedure TFJarHelp.FormCreate(Sender: TObject);
begin
   ScrollBox1.OnMouseWheel := ScrollBoxMouseWheel;
end;

procedure TFJarHelp.LinkLabel1LinkClick(Sender: TObject; const Link: string;
  LinkType: TSysLinkType);
begin
   ShellExecute(0, 'open', PChar(Link), nil, nil, SW_SHOWNORMAL);
end;

procedure TFJarHelp.LinkLabel2LinkClick(Sender: TObject; const Link: string;
  LinkType: TSysLinkType);
begin
   ShellExecute(0, 'open', PChar(Link), nil, nil, SW_SHOWNORMAL);
end;

procedure TFJarHelp.ScrollBoxMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

var
   ScrollBox: TScrollBox;
   R: TRect;

begin

   ScrollBox := TScrollBox(Sender);
   R := ScrollBox.ClientToScreen(ScrollBox.ClientRect);

   if PtInRect(R, MousePos)
   then
      begin
         ScrollBox.VertScrollBar.Position := ScrollBox.VertScrollBar.Position - WheelDelta;
         Handled := True;
      end;

end;

end.