Changeset 49 for trunk/LocalPlayer

Timestamp:

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

Author:

chronos

Message:

• Fixed: Build under Linux.

Location:

trunk/LocalPlayer

Files:

• Enhance.dfm (modified) ( previous)
• Enhance.pas (modified) (1 diff)
• PVSB.pas (modified) (3 diffs)
• Term.lfm (modified) (1 diff)
• Term.pas (modified) (2 diffs)

trunk/LocalPlayer/Enhance.pas

@@ -11 +11 @@
 
 type
+
+  { TEnhanceDlg }
+
   TEnhanceDlg = class(TFramedDlg)
+    MenuItem1: TMenuItem;
     ToggleBtn: TButtonB;
     CloseBtn: TButtonB;

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;
 

trunk/LocalPlayer/Term.lfm

@@ -29 +29 @@
   OnShow = FormShow
   Position = poDefault
-  LCLVersion = '1.6.2.0'
+  LCLVersion = '1.6.0.4'
   WindowState = wsMaximized
   object UnitBtn: TButtonB

trunk/LocalPlayer/Term.pas

@@ -7 +7 @@
 {$IFDEF Windows}
   Windows,
+{$ENDIF}
+{$IFDEF Linux}
+  LMessages, Messages,
 {$ENDIF}
   Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
@@ -4152 +4155 @@
 end;
 
-function ScrollDCCopy(Canvas: TCanvas; dx: longint; dy: longint; const lprcScroll:RECT; const lprcClip:RECT; hrgnUpdate:HRGN; lprcUpdate:LPRECT):WINBOOL;
+function ScrollDCCopy(Canvas: TCanvas; dx: longint; dy: longint; const lprcScroll:TRect; const lprcClip:TRect; hrgnUpdate:HRGN; lprcUpdate: PRect):Boolean;
 begin
   BitBltCanvas(Canvas, lprcScroll.Left + dx, lprcScroll.Top + dy, lprcScroll.Right - lprcScroll.Left, lprcScroll.Bottom - lprcScroll.Top,