Pull request 38

Author: pyscripter

PythonForDelphi/Components/PythonVCL_XE2.dpk

@@ -30,7 +30,7 @@ requires
   rtl,
   vcl,
   dbrtl,
-  bdertl,
+//  bdertl,
   Python_XE2;
 
 contains

PythonForDelphi/Components/Sources/VCL/pyDB.pas

@@ -1630,15 +1630,15 @@ function  TPyDataset.Repr : PPyObject;
 
 // Sequence services
 
-function  TPyDataset.SqLength : Integer;
+function  TPyDataset.SqLength : NativeInt;
 begin
   if CheckDataset then
     Result := Dataset.RecordCount
   else
     Result := -1;
 end;
 
-function  TPyDataset.SqItem( idx : Integer ) : PPyObject;
+function  TPyDataset.SqItem( idx : NativeInt ) : PPyObject;
 begin
   if CheckDataset then
     begin

PythonForDelphi/Components/Sources/VCL/pyDBTables.pas

@@ -68,7 +68,6 @@    TPyBDEDataset = class(TPyDataset)
     procedure OnUpdateRecord( Dataset : TDataset; UpdateKind: TUpdateKind; var ua:TUpdateAction);
   end;
 
-
  {*********************************************************************
  *      Interface of TDBDataset                                      *
  *********************************************************************}
@@ -97,7 +96,6 @@    TPyDBDataset = class(TPyBDEDataset)
  {*********************************************************************
  *      Interface of TTable                                          *
  *********************************************************************}
-
    TPyTable = class(TPyDBDataset)
 
     // Constructors & Destructors
@@ -1742,5 +1740,7 @@ procedure CreateComponents( AOwner : TComponent );
   gQueryType := TPythonQuery.Create(AOwner);
 end;
 
+{$EndIf}
+{$EndIf}
 
 end.

PythonForDelphi/Components/up4dlaz.pas

@@ -0,0 +1,28 @@
+{ This file was automatically created by Lazarus. Do not edit!
+  This source is only used to compile and install the package.
+ }
+
+unit uP4DLaz;
+
+interface
+
+uses
+  PythonEngine, PythonGUIInputOutput, MethodCallBack, WrapDelphiWindows, 
+  TinyWideStrings, VarPyth, WrapDelphi, WrapDelphiActnList, WrapDelphiButtons, 
+  WrapDelphiClasses, WrapDelphiComCtrls, WrapDelphiControls, 
+  WrapDelphiExtCtrls, WrapDelphiForms, WrapDelphiGraphics, WrapDelphiGrids, 
+  WrapDelphiStdCtrls, WrapDelphiTypes, WrapDelphiVCL, LazarusPackageIntf;
+
+implementation
+
+procedure Register;
+begin
+  RegisterUnit('PythonEngine', @PythonEngine.Register);
+  RegisterUnit('PythonGUIInputOutput', @PythonGUIInputOutput.Register);
+  RegisterUnit('WrapDelphi', @WrapDelphi.Register);
+  RegisterUnit('uP4DLaz', @uP4DLaz.Register);
+end;
+
+initialization
+  RegisterPackage('P4DLaz', @Register);
+end.

PythonForDelphi/Demos/Demo10/Example2.py

@@ -65,7 +65,7 @@ def PrintDocOf( inst ):
   if type(inst).__doc__:
     print type(inst).__doc__
   print "Methods:"
-  for i in inst.__methods__:
+  for i in inst.__members__:
     doc = getattr(inst, i).__doc__
     if doc:
       print "    ", doc