Changeset 49 for trunk/LocalPlayer/PVSB.pas

Timestamp:

Jan 11, 2017, 9:19:50 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under Linux.

File:

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

trunk/LocalPlayer/PVSB.pas

@@ -35 +35 @@
   {$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;
   {$ENDIF}
@@ -47 +49 @@
 procedure InitPVSB(var sb: TPVScrollbar; max, Page: integer);
 begin
-  {$IFDEF WINDOWS}
   with sb.si do
   begin
@@ -61 +62 @@
   else
     ShowWindow(sb.h, SW_SHOW)
-  {$ENDIF}
 end;