Changeset 58 for trunk


Ignore:
Timestamp:
Sep 5, 2020, 8:12:43 PM (4 years ago)
Author:
chronos
Message:
  • Fixed: Build under Lazarus 2.0.10.
Location:
trunk
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.lfm

    r42 r58  
    11object FormMain: TFormMain
    2   Left = 611
     2  Left = 263
    33  Height = 823
    4   Top = 333
     4  Top = 102
    55  Width = 1139
    66  Caption = 'Big Metro'
    77  ClientHeight = 823
    88  ClientWidth = 1139
     9  DesignTimePPI = 128
    910  OnCreate = FormCreate
    1011  OnDestroy = FormDestroy
    1112  OnKeyPress = FormKeyPress
    1213  OnShow = FormShow
    13   LCLVersion = '1.6.2.0'
     14  LCLVersion = '1.9.0.0'
    1415  WindowState = wsMaximized
    1516  object PaintBox1: TPaintBox
  • trunk/Packages/Common

    • Property svn:ignore set to
      lib
  • trunk/Packages/Common/URegistry.pas

    r55 r58  
    11unit URegistry;
    22
    3 {$MODE Delphi}
     3{$MODE delphi}
    44
    55interface
     
    1717    RootKey: HKEY;
    1818    Key: string;
     19    class function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; static; overload;
     20    class function Create(RootKey: HKEY; Key: string): TRegistryContext; static; overload;
    1921    class operator Equal(A, B: TRegistryContext): Boolean;
    20     function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; overload;
    21     function Create(RootKey: HKEY; Key: string): TRegistryContext; overload;
    2222  end;
    2323
     
    5858end;
    5959
    60 function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
     60class function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
    6161begin
    6262  Result.RootKey := RegistryRootHKEY[RootKey];
     
    6464end;
    6565
    66 function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
     66class function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
    6767begin
    6868  Result.RootKey := RootKey;
     
    133133begin
    134134  {$IFDEF Linux}
    135   CloseKey;
     135  //CloseKey;
    136136  {$ENDIF}
    137137  Result := inherited OpenKey(Key, CanCreate);
Note: See TracChangeset for help on using the changeset viewer.