Vichingo455-RePacks/xtool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

support for delphi 11.1

Browse Source
This commit is contained in:
Razor12911
2022-05-13 13:05:10 +02:00
parent 8ceccef928
commit 39fb5ae479
167 changed files with 8914 additions and 3205 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/EMartin/SynJSONTreeview/SynJSONTreeView.pas
View File

@@ -7,7 +7,7 @@ unit SynJSONTreeView;
{
This file is part of Synopse framework.
Synopse framework. Copyright (C) 2020 Arnaud Bouchez
Synopse framework. Copyright (C) 2022 Arnaud Bouchez
Synopse Informatique - https://synopse.info
*** BEGIN LICENSE BLOCK *****
@@ -26,7 +26,7 @@ unit SynJSONTreeView;
The Initial Developer of the Original Code is Arnaud Bouchez.
Portions created by the Initial Developer are Copyright (C) 2020
Portions created by the Initial Developer are Copyright (C) 2022
the Initial Developer. All Rights Reserved.
Contributor(s):

4
contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/EMartin/TSynRestDataset/SynRestMidasVCL.pas
View File

@@ -6,7 +6,7 @@ unit SynRestMidasVCL;
{
This file is part of Synopse framework.
Synopse framework. Copyright (C) 2020 Arnaud Bouchez
Synopse framework. Copyright (C) 2022 Arnaud Bouchez
Synopse Informatique - https://synopse.info
*** BEGIN LICENSE BLOCK *****
@@ -25,7 +25,7 @@ unit SynRestMidasVCL;
The Initial Developer of the Original Code is Arnaud Bouchez.
Portions created by the Initial Developer are Copyright (C) 2020
Portions created by the Initial Developer are Copyright (C) 2022
the Initial Developer. All Rights Reserved.
Contributor(s):

4
contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/EMartin/TSynRestDataset/SynRestVCL.pas
View File

@@ -6,7 +6,7 @@ unit SynRestVCL;
{
This file is part of Synopse framework.
Synopse framework. Copyright (C) 2020 Arnaud Bouchez
Synopse framework. Copyright (C) 2022 Arnaud Bouchez
Synopse Informatique - https://synopse.info
*** BEGIN LICENSE BLOCK *****
@@ -25,7 +25,7 @@ unit SynRestVCL;
The Initial Developer of the Original Code is Arnaud Bouchez.
Portions created by the Initial Developer are Copyright (C) 2020
Portions created by the Initial Developer are Copyright (C) 2022
the Initial Developer. All Rights Reserved.
Contributor(s):

2
contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/George/REST-tester/mORMotRESTFPCInterfaces.pas
View File

@@ -7,7 +7,7 @@ unit mORMotRESTFPCInterfaces;
This unit has been generated by a mORMot 1.18.2797 server.
Any manual modification of this file may be lost after regeneration.
Synopse mORMot framework. Copyright (C) 2020 Arnaud Bouchez
Synopse mORMot framework. Copyright (C) 2022 Arnaud Bouchez
Synopse Informatique - https://synopse.info
This unit is released under a MPL/GPL/LGPL tri-license,

49
contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/FMXUtil.inc.pas
View File

@@ -1,10 +1,57 @@
{$IF (CompilerVersion <= 25)}
type
//other name of constants in XE4
TStyledSettingHelper = record helper for TStyledSetting
const Family = TStyledSetting.ssFamily;
const Size = TStyledSetting.ssSize;
const Style = TStyledSetting.ssStyle;
const FontColor = TStyledSetting.ssFontColor;
const Other = TStyledSetting.ssOther;
end;
TTextAlignHelper = record helper for TTextAlign
const Center = TTextAlign.taCenter;
const Leading = TTextAlign.taLeading;
const Trailing = TTextAlign.taTrailing;
end;
TFmxFormBorderStyleHelper = record helper for TFmxFormBorderStyle
const None = TFmxFormBorderStyle.bsNone;
const Single = TFmxFormBorderStyle.bsSingle;
const Sizeable = TFmxFormBorderStyle.bsSizeable;
const ToolWindow = TFmxFormBorderStyle.bsToolWindow;
const SizeToolWin = TFmxFormBorderStyle.bsSizeToolWin;
end;
TFormPositionHelper = record helper for TFormPosition
//(poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly,
//poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter);
const OwnerFormCenter = TFormPosition.poOwnerFormCenter;
const ScreenCenter = TFormPosition.poScreenCenter;
end;
TBrushKindHelper = record helper for TBrushKind
//(bkNone, bkSolid, bkGradient, bkBitmap, bkResource);
const None = TBrushKind.bkNone;
end;
TAlignLayoutHelper = record helper for TAlignLayout
//(alNone, alTop, alLeft, alRight, alBottom, alMostTop, alMostBottom, alMostLeft, alMostRight, alClient,
//alContents, alCenter, alVertCenter, alHorzCenter, alHorizontal, alVertical, alScale, alFit, alFitLeft, alFitRight);
const Top = TAlignLayout.alTop;
end;
{$IFEND}
var
_ScreenDPI_X : Single = 0;
function ScalingByScreenDPI_N( F:TForm = NIL ):Single;
var
p : TPointF;
{$IF (CompilerVersion >= 28)}
M : TDeviceDisplayMetrics;
{$IFEND}
i : integer;
h : THandle;
begin
@@ -29,6 +76,7 @@ begin
end;
{$ENDIF}
{$IF (CompilerVersion >= 28)} //TDeviceDisplayMetrics is available since XE8
if TPlatformServices.Current.SupportsPlatformService( IFMXDeviceMetricsService ) then
begin
M := (TPlatformServices.Current.GetPlatformService(
@@ -38,6 +86,7 @@ begin
{$IFDEF MSWINDOWS}96{$ENDIF}
;
end;
{$IFEND}
end;
function ScalingByScreenDPI( F:TForm = NIL ):TPointF;

12
contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/SynTaskDialog.pas
View File

@@ -6,7 +6,7 @@ unit SynTaskDialog;
{
This file is part of Synopse framework.
Synopse framework. Copyright (C) 2020 Arnaud Bouchez
Synopse framework. Copyright (C) 2022 Arnaud Bouchez
Synopse Informatique - https://synopse.info
*** BEGIN LICENSE BLOCK *****
@@ -25,7 +25,7 @@ unit SynTaskDialog;
The Initial Developer of the Original Code is Arnaud Bouchez.
Portions created by the Initial Developer are Copyright (C) 2020
Portions created by the Initial Developer are Copyright (C) 2022
the Initial Developer. All Rights Reserved.
Contributor(s):
@@ -139,8 +139,12 @@ uses
{$endif}
{$IFDEF FMX}
System.UITypes, System.Types, System.UIConsts,
FMX.Menus, FMX.Types, FMX.Layouts, FMX.ComboEdit,
FMX.Graphics, FMX.Forms, FMX.Controls, FMX.StdCtrls, FMX.ExtCtrls,
FMX.Menus, FMX.Types, FMX.Layouts,
{$IF (CompilerVersion >= 26.0)}// Delphi XE5 UP
FMX.ComboEdit,
FMX.Graphics,
{$IFEND}
FMX.Forms, FMX.Controls, FMX.StdCtrls, FMX.ExtCtrls,
FMX.ListBox, FMX.Edit, FMX.Objects, FMX.Platform,
{$IFDEF MSWINDOWS}
FMX.Platform.Win