Changeset 49 for trunk


Ignore:
Timestamp:
Jan 11, 2017, 9:19:50 AM (8 years ago)
Author:
chronos
Message:
  • Fixed: Build under Linux.
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Integrated.lpi

    r47 r49  
    438438        <StackChecks Value="True"/>
    439439      </Checks>
    440       <TargetCPU Value="i386"/>
    441       <TargetOS Value="win32"/>
    442440    </CodeGeneration>
    443441    <Linking>

  • trunk/LocalPlayer/Enhance.pas

    r38 r49  
    1111
    1212type
     13
     14  { TEnhanceDlg }
     15
    1316  TEnhanceDlg = class(TFramedDlg)
     17    MenuItem1: TMenuItem;
    1418    ToggleBtn: TButtonB;
    1519    CloseBtn: TButtonB;

  • trunk/LocalPlayer/PVSB.pas

    r39 r49  
    3535  {$IFDEF LINUX}
    3636  sb.Form := TForm.Create(nil);
     37  sb.Form.SetBounds(x1 - 100, y0, 100, y1 - y0);
     38  sb.Form.Name := 'PVSB' + IntToStr(Count);
    3739  sb.h := sb.Form.Handle;
    3840  {$ENDIF}
    … …  
    4749procedure InitPVSB(var sb: TPVScrollbar; max, Page: integer);
    4850begin
    49   {$IFDEF WINDOWS}
    5051  with sb.si do
    5152  begin
    … …  
    6162  else
    6263    ShowWindow(sb.h, SW_SHOW)
    63   {$ENDIF}
    6464end;
    6565

  • trunk/LocalPlayer/Term.lfm

    r12 r49  
    2929  OnShow = FormShow
    3030  Position = poDefault
    31   LCLVersion = '1.6.2.0'
     31  LCLVersion = '1.6.0.4'
    3232  WindowState = wsMaximized
    3333  object UnitBtn: TButtonB

  • trunk/LocalPlayer/Term.pas

    r48 r49  
    77{$IFDEF Windows}
    88  Windows,
     9{$ENDIF}
     10{$IFDEF Linux}
     11  LMessages, Messages,
    912{$ENDIF}
    1013  Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
    … …  
    41524155end;
    41534156
    4154 function ScrollDCCopy(Canvas: TCanvas; dx: longint; dy: longint; const lprcScroll:RECT; const lprcClip:RECT; hrgnUpdate:HRGN; lprcUpdate:LPRECT):WINBOOL;
     4157function ScrollDCCopy(Canvas: TCanvas; dx: longint; dy: longint; const lprcScroll:TRect; const lprcClip:TRect; hrgnUpdate:HRGN; lprcUpdate: PRect):Boolean;
    41554158begin
    41564159  BitBltCanvas(Canvas, lprcScroll.Left + dx, lprcScroll.Top + dy, lprcScroll.Right - lprcScroll.Left, lprcScroll.Bottom - lprcScroll.Top,
Note: See TracChangeset for help on using the changeset viewer.