From ef4172079bb7a3bfda40c267ddf9182a29cdb98e Mon Sep 17 00:00:00 2001 From: pyscripter Date: Wed, 2 Aug 2023 16:20:05 +0300 Subject: [PATCH] Fix #337 Uniform unit headers. --- Contributors.md | 20 +++ Source/MethodCallBack.pas | 26 ++-- Source/PythonAction.pas | 13 ++ Source/PythonEngine.pas | 58 ++------- Source/PythonVersions.pas | 22 ++-- Source/VarPyth.pas | 40 ++---- Source/WrapActions.pas | 13 ++ Source/WrapDelphi.pas | 21 ++- Source/WrapDelphiClasses.pas | 13 ++ Source/WrapDelphiDataBind.pas | 13 ++ Source/WrapDelphiTypes.pas | 13 ++ Source/WrapDelphiWindows.pas | 13 ++ Source/WrapFireDAC.pas | 22 +++- Source/fmx/FMX.PythonGUIInputOutput.pas | 13 ++ Source/fmx/WrapDelphiFmx.pas | 13 ++ Source/fmx/WrapFmxActnList.pas | 13 ++ Source/fmx/WrapFmxColors.pas | 13 ++ Source/fmx/WrapFmxComCtrls.pas | 13 ++ Source/fmx/WrapFmxControls.pas | 13 ++ Source/fmx/WrapFmxDataBind.pas | 13 ++ Source/fmx/WrapFmxDateTime.pas | 13 ++ Source/fmx/WrapFmxDialogs.pas | 13 ++ Source/fmx/WrapFmxEdit.pas | 13 ++ Source/fmx/WrapFmxForms.pas | 13 ++ Source/fmx/WrapFmxGrids.pas | 13 ++ Source/fmx/WrapFmxLayouts.pas | 13 ++ Source/fmx/WrapFmxListBox.pas | 13 ++ Source/fmx/WrapFmxListView.pas | 13 ++ Source/fmx/WrapFmxMedia.pas | 13 ++ Source/fmx/WrapFmxMemo.pas | 13 ++ Source/fmx/WrapFmxMenus.pas | 13 ++ Source/fmx/WrapFmxScrollBox.pas | 13 ++ Source/fmx/WrapFmxShapes.pas | 13 ++ Source/fmx/WrapFmxStdActns.pas | 13 ++ Source/fmx/WrapFmxStdCtrls.pas | 13 ++ Source/fmx/WrapFmxStyles.pas | 13 ++ Source/fmx/WrapFmxTypes.pas | 13 ++ Source/lcl/Lcl.PythonGUIInputOutput.pas | 51 ++------ Source/vcl/Vcl.PythonGUIInputOutput.pas | 51 ++------ Source/vcl/WrapDelphiVCL.pas | 13 ++ Source/vcl/WrapVclActnList.pas | 165 +++++++++++++----------- Source/vcl/WrapVclButtons.pas | 13 ++ Source/vcl/WrapVclComCtrls.pas | 15 ++- Source/vcl/WrapVclControls.pas | 13 ++ Source/vcl/WrapVclDialogs.pas | 13 ++ Source/vcl/WrapVclExtCtrls.pas | 13 ++ Source/vcl/WrapVclForms.pas | 15 ++- Source/vcl/WrapVclGraphics.pas | 13 ++ Source/vcl/WrapVclGrids.pas | 13 ++ Source/vcl/WrapVclMedia.pas | 13 ++ Source/vcl/WrapVclMenus.pas | 13 ++ Source/vcl/WrapVclSamplesSpin.pas | 13 ++ Source/vcl/WrapVclStdCtrls.pas | 13 ++ Source/vcl/WrapVclThemes.pas | 13 ++ Source/vcl/WrapVclWinXCtrls.pas | 13 ++ 55 files changed, 790 insertions(+), 275 deletions(-) create mode 100644 Contributors.md diff --git a/Contributors.md b/Contributors.md new file mode 100644 index 00000000..f6cce9d7 --- /dev/null +++ b/Contributors.md @@ -0,0 +1,20 @@ +## Contributors + +### Fpc and Lazarus support: +- Alexey-T (https://github.com/Alexey-T) +### Early Contributors: +- Grzegorz Makarewicz (mak@mikroplan.com.pl) +- Samuel Iseli (iseli@vertec.ch) +- Andrew Robinson (andy@hps1.demon.co.uk) +- Mark Watts(mark_watts@hotmail.com) +- Olivier Deckmyn (olivier.deckmyn@mail.dotcom.fr) +- Sigve Tjora (public@tjora.no) +- Mark Derricutt (mark@talios.com) +- Igor E. Poteryaev (jah@mail.ru) +- Yuri Filimonov (fil65@mail.ru) +- Stefan Hoffmeister (Stefan.Hoffmeister@Econos.de) +- Michiel du Toit (micdutoit@hsbfn.com) - Lazarus Port +- Chris Nicolai (nicolaitanes@gmail.com) +- Andrey Gruzdev (andrey.gruzdev@gmail.com) + +More recent contributors can be seen at the [project contributors graph](https://github.com/pyscripter/python4delphi/graphs/contributors). diff --git a/Source/MethodCallBack.pas b/Source/MethodCallBack.pas index f5eaec11..82b25a8e 100644 --- a/Source/MethodCallBack.pas +++ b/Source/MethodCallBack.pas @@ -1,28 +1,18 @@ (**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) (* *) -(* Module: Unit 'MethodCallback' Copyright (c) 1998 *) -(* *) -(* Version: 0.0 Dr. Dietmar Budelsky *) -(* Sub-Version: 0.3 dbudelsky@web.de *) -(* Germany *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) (* *) +(* LICENCE and Copyright: MIT (see project home) *) (**************************************************************************) (* Functionality: Generates synthetic callback functions which calls *) (* DELPHI Class Methods. A callback mechanism (DDE, PYTHON, TCL) can now *) (* use DELPHI objects. *) -(* *) -(**************************************************************************) -(* Contributors: *) -(* Grzegorz Makarewicz (mak@mikroplan.com.pl) *) -(* Morgan Martinet (p4d@mmm-experts.com) *) -(* Samuel Iseli (iseli@vertec.ch) *) -(* Andrey Gruzdev (andrey.gruzdev@gmail.com) *) -(* Lucas Belo (lucas.belo@live.com) *) -(**************************************************************************) -(* This source code is distributed with no WARRANTY, for no reason or use.*) -(* Everyone is allowed to use and change this code free, as long as this *) -(* header and its copyright text is intact. *) -(* Dr. Dietmar Budelsky, 1998-01-07 *) (**************************************************************************) {$I Definition.Inc} diff --git a/Source/PythonAction.pas b/Source/PythonAction.pas index c1532fab..60af65e5 100644 --- a/Source/PythonAction.pas +++ b/Source/PythonAction.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit PythonAction; interface diff --git a/Source/PythonEngine.pas b/Source/PythonEngine.pas index dbc139e2..3ceeaa91 100644 --- a/Source/PythonEngine.pas +++ b/Source/PythonEngine.pas @@ -1,56 +1,14 @@ (**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) (* *) -(* Module: Unit 'PythonEngine' Copyright (c) 1997 *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) (* *) -(* Dr. Dietmar Budelsky *) -(* dbudelsky@web.de *) -(* Germany *) -(* *) -(* Morgan Martinet *) -(* 4723 rue Brebeuf *) -(* H2J 3L2 MONTREAL (QC) *) -(* CANADA *) -(* e-mail: p4d@mmm-experts.com *) -(* *) -(* PyScripter *) -(* e-mail: pyscripter@gmail.com *) -(* *) -(* Project page: https://github.com/pyscripter/python4delphi *) -(**************************************************************************) -(* Functionality: Delphi Components that provide an interface to the *) -(* Python language (see python.txt for more infos on *) -(* Python itself). *) -(* *) -(**************************************************************************) -(* Contributors: *) -(* Grzegorz Makarewicz (mak@mikroplan.com.pl) *) -(* Andrew Robinson (andy@hps1.demon.co.uk) *) -(* Mark Watts(mark_watts@hotmail.com) *) -(* Olivier Deckmyn (olivier.deckmyn@mail.dotcom.fr) *) -(* Sigve Tjora (public@tjora.no) *) -(* Mark Derricutt (mark@talios.com) *) -(* Igor E. Poteryaev (jah@mail.ru) *) -(* Yuri Filimonov (fil65@mail.ru) *) -(* Stefan Hoffmeister (Stefan.Hoffmeister@Econos.de) *) -(* Michiel du Toit (micdutoit@hsbfn.com) - Lazarus Port *) -(* Chris Nicolai (nicolaitanes@gmail.com) *) -(* Andrey Gruzdev (andrey.gruzdev@gmail.com) *) -(**************************************************************************) -(* This source code is distributed with no WARRANTY, for no reason or use.*) -(* Everyone is allowed to use and change this code free for his own tasks *) -(* and projects, as long as this header and its copyright text is intact. *) -(* For changed versions of this code, which are public distributed the *) -(* following additional conditions have to be fullfilled: *) -(* 1) The header has to contain a comment on the change and the author of *) -(* it. *) -(* 2) A copy of the changed source has to be sent to the above E-Mail *) -(* address or my then valid address, if this is possible to the *) -(* author. *) -(* The second condition has the target to maintain an up to date central *) -(* version of the component. If this condition is not acceptable for *) -(* confidential or legal reasons, everyone is free to derive a component *) -(* or to generate a diff file to my or other original sources. *) -(* Dr. Dietmar Budelsky, 1997-11-17 *) +(* LICENCE and Copyright: MIT (see project home) *) (**************************************************************************) {$I Definition.Inc} diff --git a/Source/PythonVersions.pas b/Source/PythonVersions.pas index 2a596d5d..569ba52f 100644 --- a/Source/PythonVersions.pas +++ b/Source/PythonVersions.pas @@ -1,11 +1,17 @@ -{----------------------------------------------------------------------------- - Unit Name: PythonVersions - Author: PyScripter - Purpose: Discover and get info about Python versions - Part of the Python for Delphi library - - History: ------------------------------------------------------------------------------} +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) +(* Purpose: Discover and get info about Python versions *) +(**************************************************************************) unit PythonVersions; diff --git a/Source/VarPyth.pas b/Source/VarPyth.pas index ab9f170a..ae953b48 100644 --- a/Source/VarPyth.pas +++ b/Source/VarPyth.pas @@ -1,17 +1,14 @@ -{$I Definition.Inc} - -unit VarPyth; - (**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) (* *) -(* Module: Unit 'VarPyth' Copyright (c) 2001 *) -(* *) -(* Version: 1.0 Morgan Martinet *) -(* Sub-Version: 0.7 4723 rue Brebeuf *) -(* H2J 3L2 MONTREAL (QC) *) -(* CANADA *) -(* e-mail: p4d@mmm-experts.com *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) (* *) +(* LICENCE and Copyright: MIT (see project home) *) (**************************************************************************) (* Functionality: This allows you to use Python objects like COM *) (* automation objects, inside your Delphi source code. *) @@ -19,23 +16,10 @@ (* that uses the new custom variant types introduced *) (* in Delphi6. *) (**************************************************************************) -(* Contributors: *) -(**************************************************************************) -(* This source code is distributed with no WARRANTY, for no reason or use.*) -(* Everyone is allowed to use and change this code free for his own tasks *) -(* and projects, as long as this header and its copyright text is intact. *) -(* For changed versions of this code, which are public distributed the *) -(* following additional conditions have to be fullfilled: *) -(* 1) The header has to contain a comment on the change and the author of *) -(* it. *) -(* 2) A copy of the changed source has to be sent to the above E-Mail *) -(* address or my then valid address, if this is possible to the *) -(* author. *) -(* The second condition has the target to maintain an up to date central *) -(* version of the component. If this condition is not acceptable for *) -(* confidential or legal reasons, everyone is free to derive a component *) -(* or to generate a diff file to my or other original sources. *) -(**************************************************************************) + +{$I Definition.Inc} + +unit VarPyth; interface diff --git a/Source/WrapActions.pas b/Source/WrapActions.pas index ff7ac700..3e527f52 100644 --- a/Source/WrapActions.pas +++ b/Source/WrapActions.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapActions; interface diff --git a/Source/WrapDelphi.pas b/Source/WrapDelphi.pas index 3eb9aba0..27448707 100644 --- a/Source/WrapDelphi.pas +++ b/Source/WrapDelphi.pas @@ -1,12 +1,19 @@ -(*----------------------------------------------------------------------------- - Unit Name: WrapDelphi - Author: Kiriakos Vlahos - Date: 24-Feb-2005 +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + +(*----------------------------------------------------------------------------- Purpose: Provide automatic wrapping of Delphi variables utilising RTTI - Contributors: - Morgan Martinet (mmm@free.fr) - Features: Published properties and methods compiled with {$METHODINFO ON} are handled automatically (Note that METHODINFO can be used only with Delphi7 diff --git a/Source/WrapDelphiClasses.pas b/Source/WrapDelphiClasses.pas index 2e2ae482..5a00f9aa 100644 --- a/Source/WrapDelphiClasses.pas +++ b/Source/WrapDelphiClasses.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I Definition.Inc} unit WrapDelphiClasses; diff --git a/Source/WrapDelphiDataBind.pas b/Source/WrapDelphiDataBind.pas index 01dd5fb3..2d2938cb 100644 --- a/Source/WrapDelphiDataBind.pas +++ b/Source/WrapDelphiDataBind.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapDelphiDataBind; interface diff --git a/Source/WrapDelphiTypes.pas b/Source/WrapDelphiTypes.pas index 12f7718c..76c22c85 100644 --- a/Source/WrapDelphiTypes.pas +++ b/Source/WrapDelphiTypes.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I Definition.Inc} unit WrapDelphiTypes; diff --git a/Source/WrapDelphiWindows.pas b/Source/WrapDelphiWindows.pas index 34c02eaf..86845816 100644 --- a/Source/WrapDelphiWindows.pas +++ b/Source/WrapDelphiWindows.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I Definition.Inc} unit WrapDelphiWindows; diff --git a/Source/WrapFireDAC.pas b/Source/WrapFireDAC.pas index 195a1e45..eefa7af9 100644 --- a/Source/WrapFireDAC.pas +++ b/Source/WrapFireDAC.pas @@ -1,9 +1,19 @@ -{$REGION 'Licence'} -{ - Wrapper classes for FireDAC TFDTable and TFDQuery - Original Code by https://github.com/hartmutdavid -==============================================================================} -{$ENDREGION} +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) +(* Wrapper classes for FireDAC TFDTable and TFDQuery *) +(* Original Code by https://github.com/hartmutdavid *) +(**************************************************************************) + unit WrapFireDAC; interface diff --git a/Source/fmx/FMX.PythonGUIInputOutput.pas b/Source/fmx/FMX.PythonGUIInputOutput.pas index 36aa61c1..2d90884f 100644 --- a/Source/fmx/FMX.PythonGUIInputOutput.pas +++ b/Source/fmx/FMX.PythonGUIInputOutput.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit FMX.PythonGUIInputOutput; diff --git a/Source/fmx/WrapDelphiFmx.pas b/Source/fmx/WrapDelphiFmx.pas index 4e1505e1..1fd2cd29 100644 --- a/Source/fmx/WrapDelphiFmx.pas +++ b/Source/fmx/WrapDelphiFmx.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapDelphiFmx; interface diff --git a/Source/fmx/WrapFmxActnList.pas b/Source/fmx/WrapFmxActnList.pas index 0083be93..bc7278b0 100644 --- a/Source/fmx/WrapFmxActnList.pas +++ b/Source/fmx/WrapFmxActnList.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxActnList; diff --git a/Source/fmx/WrapFmxColors.pas b/Source/fmx/WrapFmxColors.pas index bef6dad8..6a2f90e7 100644 --- a/Source/fmx/WrapFmxColors.pas +++ b/Source/fmx/WrapFmxColors.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapFmxColors; interface diff --git a/Source/fmx/WrapFmxComCtrls.pas b/Source/fmx/WrapFmxComCtrls.pas index 0093e614..84b92dfa 100644 --- a/Source/fmx/WrapFmxComCtrls.pas +++ b/Source/fmx/WrapFmxComCtrls.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxComCtrls; diff --git a/Source/fmx/WrapFmxControls.pas b/Source/fmx/WrapFmxControls.pas index 3ae4a506..ac177c02 100644 --- a/Source/fmx/WrapFmxControls.pas +++ b/Source/fmx/WrapFmxControls.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxControls; diff --git a/Source/fmx/WrapFmxDataBind.pas b/Source/fmx/WrapFmxDataBind.pas index 3ad2eef4..6bc3b8b7 100644 --- a/Source/fmx/WrapFmxDataBind.pas +++ b/Source/fmx/WrapFmxDataBind.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapFmxDataBind; interface diff --git a/Source/fmx/WrapFmxDateTime.pas b/Source/fmx/WrapFmxDateTime.pas index 1fc12e31..7da8b56a 100644 --- a/Source/fmx/WrapFmxDateTime.pas +++ b/Source/fmx/WrapFmxDateTime.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapFmxDateTime; interface diff --git a/Source/fmx/WrapFmxDialogs.pas b/Source/fmx/WrapFmxDialogs.pas index 059dcd66..6a9b06be 100644 --- a/Source/fmx/WrapFmxDialogs.pas +++ b/Source/fmx/WrapFmxDialogs.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxDialogs; diff --git a/Source/fmx/WrapFmxEdit.pas b/Source/fmx/WrapFmxEdit.pas index 05a0cee5..ac9a11b0 100644 --- a/Source/fmx/WrapFmxEdit.pas +++ b/Source/fmx/WrapFmxEdit.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxEdit; diff --git a/Source/fmx/WrapFmxForms.pas b/Source/fmx/WrapFmxForms.pas index 1dc5fb31..0c63147e 100644 --- a/Source/fmx/WrapFmxForms.pas +++ b/Source/fmx/WrapFmxForms.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxForms; diff --git a/Source/fmx/WrapFmxGrids.pas b/Source/fmx/WrapFmxGrids.pas index 841c75b6..85b680a8 100644 --- a/Source/fmx/WrapFmxGrids.pas +++ b/Source/fmx/WrapFmxGrids.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapFmxGrids; interface diff --git a/Source/fmx/WrapFmxLayouts.pas b/Source/fmx/WrapFmxLayouts.pas index f3433d99..ea7c5178 100644 --- a/Source/fmx/WrapFmxLayouts.pas +++ b/Source/fmx/WrapFmxLayouts.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxLayouts; diff --git a/Source/fmx/WrapFmxListBox.pas b/Source/fmx/WrapFmxListBox.pas index c2c390e4..9bce17f6 100644 --- a/Source/fmx/WrapFmxListBox.pas +++ b/Source/fmx/WrapFmxListBox.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxListBox; diff --git a/Source/fmx/WrapFmxListView.pas b/Source/fmx/WrapFmxListView.pas index bcd49632..10270d4c 100644 --- a/Source/fmx/WrapFmxListView.pas +++ b/Source/fmx/WrapFmxListView.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapFmxListView; interface diff --git a/Source/fmx/WrapFmxMedia.pas b/Source/fmx/WrapFmxMedia.pas index b884f697..7b1d3fd2 100644 --- a/Source/fmx/WrapFmxMedia.pas +++ b/Source/fmx/WrapFmxMedia.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxMedia; diff --git a/Source/fmx/WrapFmxMemo.pas b/Source/fmx/WrapFmxMemo.pas index 5dcf7295..462f383e 100644 --- a/Source/fmx/WrapFmxMemo.pas +++ b/Source/fmx/WrapFmxMemo.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapFmxMemo; interface diff --git a/Source/fmx/WrapFmxMenus.pas b/Source/fmx/WrapFmxMenus.pas index 84096ef4..e34bfb62 100644 --- a/Source/fmx/WrapFmxMenus.pas +++ b/Source/fmx/WrapFmxMenus.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxMenus; diff --git a/Source/fmx/WrapFmxScrollBox.pas b/Source/fmx/WrapFmxScrollBox.pas index 8b73b4bf..bb46808e 100644 --- a/Source/fmx/WrapFmxScrollBox.pas +++ b/Source/fmx/WrapFmxScrollBox.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapFmxScrollBox; interface diff --git a/Source/fmx/WrapFmxShapes.pas b/Source/fmx/WrapFmxShapes.pas index 08607a8f..b098b750 100644 --- a/Source/fmx/WrapFmxShapes.pas +++ b/Source/fmx/WrapFmxShapes.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxShapes; diff --git a/Source/fmx/WrapFmxStdActns.pas b/Source/fmx/WrapFmxStdActns.pas index 7f7eaeed..e28cea86 100644 --- a/Source/fmx/WrapFmxStdActns.pas +++ b/Source/fmx/WrapFmxStdActns.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxStdActns; diff --git a/Source/fmx/WrapFmxStdCtrls.pas b/Source/fmx/WrapFmxStdCtrls.pas index e1af1763..5711db8b 100644 --- a/Source/fmx/WrapFmxStdCtrls.pas +++ b/Source/fmx/WrapFmxStdCtrls.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxStdCtrls; diff --git a/Source/fmx/WrapFmxStyles.pas b/Source/fmx/WrapFmxStyles.pas index 36965919..8bd2a761 100644 --- a/Source/fmx/WrapFmxStyles.pas +++ b/Source/fmx/WrapFmxStyles.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxStyles; diff --git a/Source/fmx/WrapFmxTypes.pas b/Source/fmx/WrapFmxTypes.pas index efc3c7f4..68023bf3 100644 --- a/Source/fmx/WrapFmxTypes.pas +++ b/Source/fmx/WrapFmxTypes.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapFmxTypes; diff --git a/Source/lcl/Lcl.PythonGUIInputOutput.pas b/Source/lcl/Lcl.PythonGUIInputOutput.pas index d29e9cbb..f6390ec8 100644 --- a/Source/lcl/Lcl.PythonGUIInputOutput.pas +++ b/Source/lcl/Lcl.PythonGUIInputOutput.pas @@ -1,47 +1,18 @@ -{$I ..\Definition.Inc} -unit Lcl.PythonGUIInputOutput; - (**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) (* *) -(* Module: Unit 'PythonGUIInputOutput' Copyright (c) 1997 *) -(* *) -(* Dr. Dietmar Budelsky *) -(* dbudelsky@web.de *) -(* Germany *) -(* *) -(* Morgan Martinet *) -(* 4723 rue Brebeuf *) -(* H2J 3L2 MONTREAL (QC) *) -(* CANADA *) -(* e-mail: p4d@mmm-experts.com *) -(* *) -(* look our page at: http://mmm-experts.com/ *) -(**************************************************************************) -(* Functionality: Delphi Components that provide an interface to the *) -(* Python language (see python.txt for more infos on *) -(* Python itself). *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) (* *) +(* LICENCE and Copyright: MIT (see project home) *) (**************************************************************************) -(* Contributors: *) -(* Mark Watts(mark_watts@hotmail.com) *) -(* Michiel du Toit (micdutoit@hsbfn.com) *) -(**************************************************************************) -(* This source code is distributed with no WARRANTY, for no reason or use.*) -(* Everyone is allowed to use and change this code free for his own tasks *) -(* and projects, as long as this header and its copyright text is intact. *) -(* For changed versions of this code, which are public distributed the *) -(* following additional conditions have to be fullfilled: *) -(* 1) The header has to contain a comment on the change and the author of *) -(* it. *) -(* 2) A copy of the changed source has to be sent to the above E-Mail *) -(* address or my then valid address, if this is possible to the *) -(* author. *) -(* The second condition has the target to maintain an up to date central *) -(* version of the component. If this condition is not acceptable for *) -(* confidential or legal reasons, everyone is free to derive a component *) -(* or to generate a diff file to my or other original sources. *) -(* Dr. Dietmar Budelsky, 1997-11-17 *) -(**************************************************************************) + +{$I ..\Definition.Inc} +unit Lcl.PythonGUIInputOutput; interface diff --git a/Source/vcl/Vcl.PythonGUIInputOutput.pas b/Source/vcl/Vcl.PythonGUIInputOutput.pas index 4eddaee3..5f800346 100644 --- a/Source/vcl/Vcl.PythonGUIInputOutput.pas +++ b/Source/vcl/Vcl.PythonGUIInputOutput.pas @@ -1,47 +1,18 @@ -{$I ..\Definition.Inc} -unit Vcl.PythonGUIInputOutput; - (**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) (* *) -(* Module: Unit 'PythonGUIInputOutput' Copyright (c) 1997 *) -(* *) -(* Dr. Dietmar Budelsky *) -(* dbudelsky@web.de *) -(* Germany *) -(* *) -(* Morgan Martinet *) -(* 4723 rue Brebeuf *) -(* H2J 3L2 MONTREAL (QC) *) -(* CANADA *) -(* e-mail: p4d@mmm-experts.com *) -(* *) -(* look our page at: http://mmm-experts.com/ *) -(**************************************************************************) -(* Functionality: Delphi Components that provide an interface to the *) -(* Python language (see python.txt for more infos on *) -(* Python itself). *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) (* *) +(* LICENCE and Copyright: MIT (see project home) *) (**************************************************************************) -(* Contributors: *) -(* Mark Watts(mark_watts@hotmail.com) *) -(* Michiel du Toit (micdutoit@hsbfn.com) *) -(**************************************************************************) -(* This source code is distributed with no WARRANTY, for no reason or use.*) -(* Everyone is allowed to use and change this code free for his own tasks *) -(* and projects, as long as this header and its copyright text is intact. *) -(* For changed versions of this code, which are public distributed the *) -(* following additional conditions have to be fullfilled: *) -(* 1) The header has to contain a comment on the change and the author of *) -(* it. *) -(* 2) A copy of the changed source has to be sent to the above E-Mail *) -(* address or my then valid address, if this is possible to the *) -(* author. *) -(* The second condition has the target to maintain an up to date central *) -(* version of the component. If this condition is not acceptable for *) -(* confidential or legal reasons, everyone is free to derive a component *) -(* or to generate a diff file to my or other original sources. *) -(* Dr. Dietmar Budelsky, 1997-11-17 *) -(**************************************************************************) + +{$I ..\Definition.Inc} +unit Vcl.PythonGUIInputOutput; interface diff --git a/Source/vcl/WrapDelphiVCL.pas b/Source/vcl/WrapDelphiVCL.pas index ea9f5392..1178ebb9 100644 --- a/Source/vcl/WrapDelphiVCL.pas +++ b/Source/vcl/WrapDelphiVCL.pas @@ -1,3 +1,16 @@ + +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + unit WrapDelphiVCL; { diff --git a/Source/vcl/WrapVclActnList.pas b/Source/vcl/WrapVclActnList.pas index f15e2a88..fde9ac6b 100644 --- a/Source/vcl/WrapVclActnList.pas +++ b/Source/vcl/WrapVclActnList.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclActnList; @@ -17,15 +30,15 @@ interface the types and allows the use of the constructors e.g. ActionList() } TPyDelphiCustomActionList = class(TPyDelphiContainedActionList) - private - function GetDelphiObject: TCustomActionList; - procedure SetDelphiObject(const Value: TCustomActionList); - public - class function DelphiObjectClass: TClass; override; - property DelphiObject: TCustomActionList read GetDelphiObject - write SetDelphiObject; - end; - + private + function GetDelphiObject: TCustomActionList; + procedure SetDelphiObject(const Value: TCustomActionList); + public + class function DelphiObjectClass: TClass; override; + property DelphiObject: TCustomActionList read GetDelphiObject + write SetDelphiObject; + end; + TPyDelphiActionList = class (TPyDelphiCustomActionList) private function GetDelphiObject: TActionList; @@ -38,23 +51,23 @@ TPyDelphiActionList = class (TPyDelphiCustomActionList) end; TPyDelphiCustomAction = class(TPyDelphiContainedAction) - private - function GetDelphiObject: TCustomAction; - procedure SetDelphiObject(const Value: TCustomAction); - public - class function DelphiObjectClass: TClass; override; - property DelphiObject: TCustomAction read GetDelphiObject - write SetDelphiObject; - end; - - TPyDelphiAction = class(TPyDelphiContainedAction) - private - function GetDelphiObject: TAction; - procedure SetDelphiObject(const Value: TAction); - public - class function DelphiObjectClass: TClass; override; - property DelphiObject: TAction read GetDelphiObject write SetDelphiObject; - end; + private + function GetDelphiObject: TCustomAction; + procedure SetDelphiObject(const Value: TCustomAction); + public + class function DelphiObjectClass: TClass; override; + property DelphiObject: TCustomAction read GetDelphiObject + write SetDelphiObject; + end; + + TPyDelphiAction = class(TPyDelphiContainedAction) + private + function GetDelphiObject: TAction; + procedure SetDelphiObject(const Value: TAction); + public + class function DelphiObjectClass: TClass; override; + property DelphiObject: TAction read GetDelphiObject write SetDelphiObject; + end; implementation @@ -79,26 +92,26 @@ procedure TActnListRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrap APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomActionList); APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiActionList); APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomAction); - APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiAction); + APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiAction); end; { TPyDelphiCustomActionList } -class function TPyDelphiCustomActionList.DelphiObjectClass: TClass; -begin - Result := TCustomActionList; -end; - -function TPyDelphiCustomActionList.GetDelphiObject: TCustomActionList; -begin - Result := TCustomActionList(inherited DelphiObject); -end; - -procedure TPyDelphiCustomActionList.SetDelphiObject - (const Value: TCustomActionList); -begin - inherited DelphiObject := Value; -end; - +class function TPyDelphiCustomActionList.DelphiObjectClass: TClass; +begin + Result := TCustomActionList; +end; + +function TPyDelphiCustomActionList.GetDelphiObject: TCustomActionList; +begin + Result := TCustomActionList(inherited DelphiObject); +end; + +procedure TPyDelphiCustomActionList.SetDelphiObject + (const Value: TCustomActionList); +begin + inherited DelphiObject := Value; +end; + { TPyDelphiActionList } class function TPyDelphiActionList.DelphiObjectClass: TClass; @@ -118,39 +131,39 @@ procedure TPyDelphiActionList.SetDelphiObject( end; { TPyDelphiCustomAction } - -class function TPyDelphiCustomAction.DelphiObjectClass: TClass; -begin - Result := TCustomAction; -end; - -function TPyDelphiCustomAction.GetDelphiObject: TCustomAction; -begin - Result := TCustomAction(inherited DelphiObject); -end; - -procedure TPyDelphiCustomAction.SetDelphiObject(const Value: TCustomAction); -begin - inherited DelphiObject := Value; -end; - -{ TPyDelphiAction } - -class function TPyDelphiAction.DelphiObjectClass: TClass; -begin - Result := TAction; -end; - -function TPyDelphiAction.GetDelphiObject: TAction; -begin - Result := TAction(inherited DelphiObject); -end; - -procedure TPyDelphiAction.SetDelphiObject(const Value: TAction); -begin - inherited DelphiObject := Value; -end; - + +class function TPyDelphiCustomAction.DelphiObjectClass: TClass; +begin + Result := TCustomAction; +end; + +function TPyDelphiCustomAction.GetDelphiObject: TCustomAction; +begin + Result := TCustomAction(inherited DelphiObject); +end; + +procedure TPyDelphiCustomAction.SetDelphiObject(const Value: TCustomAction); +begin + inherited DelphiObject := Value; +end; + +{ TPyDelphiAction } + +class function TPyDelphiAction.DelphiObjectClass: TClass; +begin + Result := TAction; +end; + +function TPyDelphiAction.GetDelphiObject: TAction; +begin + Result := TAction(inherited DelphiObject); +end; + +procedure TPyDelphiAction.SetDelphiObject(const Value: TAction); +begin + inherited DelphiObject := Value; +end; + initialization RegisteredUnits.Add(TActnListRegistration.Create); end. diff --git a/Source/vcl/WrapVclButtons.pas b/Source/vcl/WrapVclButtons.pas index cf4e7801..26ebf124 100644 --- a/Source/vcl/WrapVclButtons.pas +++ b/Source/vcl/WrapVclButtons.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclButtons; diff --git a/Source/vcl/WrapVclComCtrls.pas b/Source/vcl/WrapVclComCtrls.pas index dfedeb0b..a38d3505 100644 --- a/Source/vcl/WrapVclComCtrls.pas +++ b/Source/vcl/WrapVclComCtrls.pas @@ -1,4 +1,17 @@ -{$I ..\Definition.Inc} +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + +{$I ..\Definition.Inc} unit WrapVclComCtrls; diff --git a/Source/vcl/WrapVclControls.pas b/Source/vcl/WrapVclControls.pas index 07494a3d..c8171dc0 100644 --- a/Source/vcl/WrapVclControls.pas +++ b/Source/vcl/WrapVclControls.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclControls; diff --git a/Source/vcl/WrapVclDialogs.pas b/Source/vcl/WrapVclDialogs.pas index 1e37942b..ed205e7c 100644 --- a/Source/vcl/WrapVclDialogs.pas +++ b/Source/vcl/WrapVclDialogs.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclDialogs; diff --git a/Source/vcl/WrapVclExtCtrls.pas b/Source/vcl/WrapVclExtCtrls.pas index 8fcbae88..85c5b4d3 100644 --- a/Source/vcl/WrapVclExtCtrls.pas +++ b/Source/vcl/WrapVclExtCtrls.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclExtCtrls; diff --git a/Source/vcl/WrapVclForms.pas b/Source/vcl/WrapVclForms.pas index cd9bd33a..ad62a6cf 100644 --- a/Source/vcl/WrapVclForms.pas +++ b/Source/vcl/WrapVclForms.pas @@ -1,4 +1,17 @@ -{$I ..\Definition.Inc} +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + +{$I ..\Definition.Inc} unit WrapVclForms; diff --git a/Source/vcl/WrapVclGraphics.pas b/Source/vcl/WrapVclGraphics.pas index 55f7b2d7..cde54ed6 100644 --- a/Source/vcl/WrapVclGraphics.pas +++ b/Source/vcl/WrapVclGraphics.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclGraphics; diff --git a/Source/vcl/WrapVclGrids.pas b/Source/vcl/WrapVclGrids.pas index 3f52bbe7..0d74cf7e 100644 --- a/Source/vcl/WrapVclGrids.pas +++ b/Source/vcl/WrapVclGrids.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclGrids; diff --git a/Source/vcl/WrapVclMedia.pas b/Source/vcl/WrapVclMedia.pas index 30f5706d..f8ee1d55 100644 --- a/Source/vcl/WrapVclMedia.pas +++ b/Source/vcl/WrapVclMedia.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclMedia; diff --git a/Source/vcl/WrapVclMenus.pas b/Source/vcl/WrapVclMenus.pas index 8a755c75..30e49f1b 100644 --- a/Source/vcl/WrapVclMenus.pas +++ b/Source/vcl/WrapVclMenus.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclMenus; diff --git a/Source/vcl/WrapVclSamplesSpin.pas b/Source/vcl/WrapVclSamplesSpin.pas index 98d9b0e7..859ad414 100644 --- a/Source/vcl/WrapVclSamplesSpin.pas +++ b/Source/vcl/WrapVclSamplesSpin.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclSamplesSpin; diff --git a/Source/vcl/WrapVclStdCtrls.pas b/Source/vcl/WrapVclStdCtrls.pas index 07e11f57..c0e9e234 100644 --- a/Source/vcl/WrapVclStdCtrls.pas +++ b/Source/vcl/WrapVclStdCtrls.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclStdCtrls; diff --git a/Source/vcl/WrapVclThemes.pas b/Source/vcl/WrapVclThemes.pas index f77b49ee..a5c3a850 100644 --- a/Source/vcl/WrapVclThemes.pas +++ b/Source/vcl/WrapVclThemes.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclThemes; diff --git a/Source/vcl/WrapVclWinXCtrls.pas b/Source/vcl/WrapVclWinXCtrls.pas index fd027c70..5d7c4bc6 100644 --- a/Source/vcl/WrapVclWinXCtrls.pas +++ b/Source/vcl/WrapVclWinXCtrls.pas @@ -1,3 +1,16 @@ +(**************************************************************************) +(* This unit is part of the Python for Delphi (P4D) library *) +(* Project home: https://github.com/pyscripter/python4delphi *) +(* *) +(* Project Maintainer: PyScripter (pyscripter@gmail.com) *) +(* Original Authors: Dr. Dietmar Budelsky (dbudelsky@web.de) *) +(* Morgan Martinet (https://github.com/mmm-experts) *) +(* Core developer: Lucas Belo (lucas.belo@live.com) *) +(* Contributors: See contributors.md at project home *) +(* *) +(* LICENCE and Copyright: MIT (see project home) *) +(**************************************************************************) + {$I ..\Definition.Inc} unit WrapVclWinXCtrls;