Jump to content

baoquan.zuo

Members
  • Content Count

    8
  • Joined

  • Last visited

Posts posted by baoquan.zuo


  1. DXBuild is a **free** command-line tool. It makes it easier to build multi-version Delphi projects (Delphi 2007 or newer, dproj/groupproj).
     

    Example

    dxbuild Packages\DelphiXE2\Spring.Base.dproj -d DelphiXE2 -p Win32 Win64 -c Debug Release
    

    Benefits

    - Compile faster with fastdcc (Delphi 2009 - 10.3)

    https://www.idefixpack.de/blog/ide-tools/ide-fix-pack/

    NOTE: 
    For Delphi XE3 or higher, you just need to download and extract fastdcc*.exe to `$(BDS)\bin`.  dxbuild will use fastdcc when possible. Use `--no-fastdcc` to disable it.
     

    Download: https://devjetsoftware.com/download/2009/

    Report Issues: https://github.com/devjetsoftware/dxbuild-public

    • Like 1

  2. type
      {$I jedi.inc}
      {$IFDEF DELPHI28_UP}
        {$DEFINE HasPixelsPerInch}
      {$ENDIF}
    
      TBaseDataModule = class(TDataModule)
      {$IFNDEF HasPixelsPerInch}
      protected
        // Ignore PixelsPerInch property in TFrame introduced since Delphi 11
        procedure DefineProperties(Filer: TFiler); override;
        procedure IgnorePixelsPerInch(Reader: TReader);
      {$ENDIF}
      end;
    
    {$IFNDEF HasPixelsPerInch}
    procedure TBaseDataModule.DefineProperties(Filer: TFiler);
    begin
      inherited DefineProperties(Filer);
      Filer.DefineProperty('PixelsPerInch', IgnorePixelsPerInch, nil, False);
    end;
    
    procedure TBaseDataModule.IgnorePixelsPerInch(Reader: TReader);
    begin
      Reader.ReadInteger;
    end;
    {$ENDIF}

    I created a base module to solve this kind of issue 

    • Like 5
    • Thanks 1
×