Skip to content

Commit

Permalink
fixed compile with lcl <= 1.8.0
Browse files Browse the repository at this point in the history
  • Loading branch information
riderkick committed Aug 1, 2017
1 parent f2c25b7 commit 562a168
Show file tree
Hide file tree
Showing 2 changed files with 10 additions and 10 deletions.
18 changes: 9 additions & 9 deletions baseunits/SimpleException/SimpleException.pas
Original file line number Diff line number Diff line change
Expand Up @@ -35,21 +35,21 @@
interface

uses
Classes, SysUtils, LazFileUtils, LazUTF8, Forms, Controls, SimpleExceptionForm,
Classes, SysUtils, LazFileUtils, LazUTF8, Forms, Controls, SimpleExceptionForm
{$IFDEF WINDOWS}
Windows, win32proc,
, Windows, win32proc
{$ENDIF}
{$IFDEF LINUX}
elfreader,
, elfreader
{$ENDIF}
{$IF DEFINED(DARWIN) OR DEFINED(MACOS)}
machoreader,
, machoreader
{$ENDIF}
fileinfo
, fileinfo
{$IFDEF MULTILOG}
,MultiLog
, MultiLog
{$ENDIF}
;
, LCLVersion;

type

Expand Down Expand Up @@ -123,7 +123,7 @@ procedure DoneSimpleExceptionHandler;

implementation

uses InterfaceBase, LCLVersion{$IF FPC_FULLVERSION >= 30101}, LCLPlatformDef{$ENDIF};
uses InterfaceBase {$IF LCL_FULLVERSION >= 1080000}, LCLPlatformDef{$ENDIF};

{$IFDEF MULTILOG}
type
Expand Down Expand Up @@ -222,7 +222,7 @@ function GetWidgetSetName: String;
lpNoGUI : Result := 'NoGUI';
lpCocoa : Result := 'Cocoa';
lpCustomDrawn : Result := 'Custom Drawn';
{$IF FPC_FULLVERSION >= 30101}
{$IF LCL_FULLVERSION >= 1080000}
lpQt5 : Result := 'Qt5';
lpMUI : Result := 'MUI';
{$ENDIF}
Expand Down
2 changes: 1 addition & 1 deletion mangadownloader/md.lpi
Original file line number Diff line number Diff line change
Expand Up @@ -266,7 +266,7 @@
</CompilerOptions>
</Item6>
<SharedMatrixOptions Count="1">
<Item1 ID="939088584661" Targets="LazControls,TAChartLazarusPkg" Modes="Win32 Debug Leaks,Win64 Debug,Win32 Debug,Win64,Win32" Value="-CX -O3 -Xs -XX -g-"/>
<Item1 ID="939088584661" Targets="LazControls,TAChartLazarusPkg" Modes="Win64 Debug,Win32 Debug,Win64,Win32,Win32 Debug Leaks,Win64 Debug Leaks" Value="-CX -O3 -Xs -XX -g-"/>
</SharedMatrixOptions>
</BuildModes>
<PublishOptions>
Expand Down

0 comments on commit 562a168

Please sign in to comment.