Changeset 33


Ignore:
Timestamp:
Jul 11, 2022, 1:36:18 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Fixed build with Lazarus 2.2.0.
Location:
branches/overos
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/overos/UTypes.pas

    r22 r33  
    1515    Width: Integer;
    1616    Height: Integer;
    17     function Create(Width, Height: Integer): TSize;
     17    class function Create(Width, Height: Integer): TSize; static;
    1818    class operator Add(A, B: TSize): TSize;
    1919    class operator Subtract(A, B: TSize): TSize;
    … …  
    2626    Left: Integer;
    2727    Top: Integer;
    28     function Create(Left, Top: Integer): TPosition;
     28    class function Create(Left, Top: Integer): TPosition; static;
    2929    class operator Add(A, B: TPosition): TPosition;
    3030    class operator Subtract(A, B: TPosition): TPosition;
    … …  
    3737    Position: TPosition;
    3838    Size: TSize;
    39     function Create(Position: TPosition; Size: TSize): TRectangle;
     39    class function Create(Position: TPosition; Size: TSize): TRectangle; static;
    4040    function Contains(Position: TPosition): Boolean;
    4141    class operator Equal(A, B: TRectangle): Boolean;
    … …  
    5151{ TRectangle }
    5252
    53 function TRectangle.Create(Position: TPosition; Size: TSize): TRectangle;
     53class function TRectangle.Create(Position: TPosition; Size: TSize): TRectangle;
    5454begin
    5555  Result.Position := Position;
    … …  
    7272{ TPosition }
    7373
    74 function TPosition.Create(Left, Top: Integer): TPosition;
     74class function TPosition.Create(Left, Top: Integer): TPosition;
    7575begin
    7676  Result.Left := Left;
    … …  
    9797{ TSize }
    9898
    99 function TSize.Create(Width, Height: Integer): TSize;
     99class function TSize.Create(Width, Height: Integer): TSize; static;
    100100begin
    101101  Result.Width := Width;

  • branches/overos/overos.lpi

    r22 r33  
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="10"/>
     4    <Version Value="11"/>
    55    <General>
    66      <SessionStorage Value="InProjectDir"/>
    … …  
    5555    </PublishOptions>
    5656    <RunParams>
    57       <local>
    58         <FormatVersion Value="1"/>
    59       </local>
     57      <FormatVersion Value="2"/>
     58      <Modes Count="1">
     59        <Mode0 Name="default"/>
     60      </Modes>
    6061    </RunParams>
    6162    <RequiredPackages Count="1">
Note: See TracChangeset for help on using the changeset viewer.