Changeset 69 for trunk/LocalPlayer/PVSB.pas

Timestamp:

Jan 14, 2017, 10:33:42 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Implemented platform independent scrollbars usage. Tested on Linux.

File:

• trunk/LocalPlayer/PVSB.pas (modified) (8 diffs)

trunk/LocalPlayer/PVSB.pas

@@ -8 +8 @@
   Windows,
   {$ENDIF}
-  Forms, LCLIntf, LCLType, LMessages, Messages, SysUtils;
+  Classes, Controls, Forms, LCLIntf, LCLType, LMessages, Messages, SysUtils,
+  StdCtrls, Math;
 
 type
@@ -14 +15 @@
   { TPVScrollbar }
 
-  TPVScrollbar = class
-    h: integer;
+  TPVScrollBar = class
+  private
+    FOnUpdate: TNotifyEvent;
+    procedure ScrollBarChanged(Sender: TObject);
+  public
+    ScrollBar: TScrollBar;
     si: TScrollInfo;
-    Form: TForm;
     destructor Destroy; override;
+    procedure Setup(TopSpacing, RightSpacing, BottomSpacing: integer; Parent: TWinControl);
+    procedure Init(max, Page: integer);
+    procedure SetPos(Pos: Integer);
+    function Process(const m: TMessage): boolean;
+    function ProcessMouseWheel(Delta: Integer) : boolean;
+    procedure Show(Visible: boolean);
+    procedure EndSB;
+    procedure UpdateScrollBar;
+    property OnUpdate: TNotifyEvent read FOnUpdate write FOnUpdate;
   end;
 
-  procedure CreatePVSB(var sb: TPVScrollbar; Handle, y0, x1, y1: integer);
-  procedure InitPVSB(var sb: TPVScrollbar; max, Page: integer);
-  function ProcessPVSB(var sb: TPVScrollbar; const m: TMessage): boolean;
-  function ProcessMouseWheel(var sb: TPVScrollbar; const m: TMessage)
-    : boolean;
-  procedure ShowPVSB(var sb: TPVScrollbar; Visible: boolean);
-  procedure EndPVSB(var sb: TPVScrollbar);
 
 implementation
@@ -34 +40 @@
   Count: integer = 0;
 
-procedure CreatePVSB(var sb: TPVScrollbar; Handle, y0, x1, y1: integer);
+procedure TPVScrollBar.Setup(TopSpacing, RightSpacing, BottomSpacing: integer;
+  Parent: TWinControl);
 begin
   inc(Count);
-  {$IFDEF LINUX}
-  sb.Form := TForm.Create(nil);
-  sb.Form.SetBounds(x1 - 100, y0, 100, y1 - y0);
-  sb.Form.Name := 'PVSB' + IntToStr(Count);
-  sb.h := sb.Form.Handle;
+  //{$IFDEF LINUX}
+//  sb.Form := TForm.Create(nil);
+//  sb.Form.SetBounds(x1 - 100, y0, 100, y1 - y0);
+//  sb.Form.Name := 'PVSB' + IntToStr(Count);
+  ScrollBar := TScrollBar.Create(Parent);
+  ScrollBar.Kind := sbVertical;
+  ScrollBar.Name := 'PVSB' + IntToStr(Count);
+  ScrollBar.Parent := Parent;
+  ScrollBar.BorderSpacing.Top := TopSpacing;
+  ScrollBar.BorderSpacing.Right := RightSpacing;
+  ScrollBar.BorderSpacing.Bottom := BottomSpacing;
+  ScrollBar.Align := alRight;
+  ScrollBar.OnChange := ScrollBarChanged;
+  //sb.h := sb.ScrollBar.Handle;
+  (*
   {$ENDIF}
   {$IFDEF WINDOWS}
@@ -48 +65 @@
     Handle, 0, 0, nil);
   {$ENDIF}
-  sb.si.cbSize := 28;
-end;
-
-procedure InitPVSB(var sb: TPVScrollbar; max, Page: integer);
-begin
-  with sb.si do
-  begin
+  *)
+  si.cbSize := 28;
+end;
+
+procedure TPVScrollBar.Init(max, Page: integer);
+begin
+  with si do begin
     nMin := 0;
     nMax := max;
@@ -61 +78 @@
     FMask := SIF_PAGE or SIF_POS or SIF_RANGE;
   end;
-  SetScrollInfo(sb.h, SB_CTL, sb.si, true);
-  if max < Page then
-    ShowWindow(sb.h, SW_HIDE)
-  else
-    ShowWindow(sb.h, SW_SHOW)
-end;
-
-function ProcessPVSB(var sb: TPVScrollbar; const m: TMessage): Boolean;
+  UpdateScrollBar;
+  //SetScrollInfo(sb.ScrollBar.Handle, SB_CTL, sb.si, true);
+  if max < Page then ScrollBar.Visible := False
+    else ScrollBar.Visible := True;
+end;
+
+procedure TPVScrollBar.SetPos(Pos: Integer);
+begin
+  if Pos <> 0 then begin
+    si.npos := Pos;
+    si.FMask := SIF_POS;
+    //SetScrollInfo(sb.ScrollBar.Handle, SB_CTL, sb.si, true);
+    UpdateScrollBar;
+  end;
+end;
+
+function TPVScrollBar.Process(const m: TMessage): boolean;
 var
   NewPos: integer;
 begin
-  with sb.si do
+  with si do
     if nMax < integer(nPage) then
       result := false
@@ -105 +131 @@
           npos := NewPos;
           FMask := SIF_POS;
-          SetScrollInfo(sb.h, SB_CTL, sb.si, true);
+          UpdateScrollBar;
+          //SetScrollInfo(sb.ScrollBar.Handle, SB_CTL, sb.si, true);
         end;
       end
@@ -111 +138 @@
 end;
 
-function ProcessMouseWheel(var sb: TPVScrollbar; const m: TMessage): Boolean;
+function TPVScrollBar.ProcessMouseWheel(Delta: Integer
+  ): boolean;
 var
   NewPos: integer;
 begin
-  with sb.si do
+  with si do
     if nMax < integer(nPage) then
       result := false
     else
     begin
-      NewPos := npos - m.wParam div (1 shl 16 * 40);
+      NewPos := npos - Delta div 300;
       if NewPos < 0 then
         NewPos := 0;
@@ -130 +158 @@
         npos := NewPos;
         FMask := SIF_POS;
-        SetScrollInfo(sb.h, SB_CTL, sb.si, true);
+        UpdateScrollBar;
+        //SetScrollInfo(sb.ScrollBar.Handle, SB_CTL, sb.si, true);
       end
     end
 end;
 
-procedure ShowPVSB(var sb: TPVScrollbar; Visible: boolean);
-begin
-  if not Visible or (sb.si.nMax < integer(sb.si.nPage)) then
-    ShowWindow(sb.h, SW_HIDE)
-  else
-    ShowWindow(sb.h, SW_SHOW)
-end;
-
-procedure EndPVSB(var sb: TPVScrollbar);
-begin
-  with sb.si do
-  begin
+procedure TPVScrollBar.Show(Visible: boolean);
+begin
+  if not Visible or (si.nMax < integer(si.nPage)) then
+    ScrollBar.Visible := False
+    else ScrollBar.Visible := True;
+end;
+
+procedure TPVScrollBar.EndSB;
+begin
+  with si do begin
     if nMax < integer(nPage) then
       npos := 0 // hidden
-    else
-    begin
-      sb.si.npos := nMax - integer(nPage) + 1;
-      sb.si.FMask := SIF_POS;
-      SetScrollInfo(sb.h, SB_CTL, sb.si, true);
+    else begin
+      si.npos := nMax - integer(nPage) + 1;
+      si.FMask := SIF_POS;
+      UpdateScrollBar;
+      //SetScrollInfo(sb.ScrollBar.Handle, SB_CTL, sb.si, true);
     end
   end
 end;
 
+procedure TPVScrollBar.UpdateScrollBar;
+begin
+  ScrollBar.Min := si.nMin;
+  ScrollBar.Max := Max(si.nMax - si.nPage + 1, 0);
+  ScrollBar.PageSize := si.nPage;
+  ScrollBar.Position := si.nPos;
+end;
+
 { TPVScrollbar }
 
-destructor TPVScrollbar.Destroy;
-begin
-  h := 0;
+procedure TPVScrollBar.ScrollBarChanged(Sender: TObject);
+begin
+  si.npos := ScrollBar.Position;
+  if Assigned(FOnUpdate) then FOnUpdate(Self);
+end;
+
+destructor TPVScrollBar.Destroy;
+begin
+  //h := 0;
   si.cbSize := 0;
-  FreeAndNil(Form);
+  FreeAndNil(ScrollBar);
 end;