Delphi 10.4 Sydney packages

jasonjac2 · Aug 1, 2020 · dc489d3 · dc489d3
1 parent 2e0bc47
commit dc489d3
Show file tree

Hide file tree

Showing 12 changed files with 3,574 additions and 108 deletions.
diff --git a/DBParsers.pas b/DBParsers.pas
@@ -547,7 +547,7 @@ function  TExpressionParser.VarResult :Boolean;
 var
   pfdStart, pfd: PAnsiChar;
 begin
-  pfdStart := @FilterData[0];
+  pfdStart := Addr(FilterData[0]);
   pfd := pfdStart;
   iLiteralStart := PWord(@pfd[8])^;
   Inc(pfd, 10);

diff --git a/Editors/RegFIBPlusEditors.pas b/Editors/RegFIBPlusEditors.pas
@@ -389,73 +389,6 @@ procedure TFIBSQLMemo.SetReadOnly(Value: boolean);
   inherited ReadOnly:=Value
 end;
 
-
-{$ifndef internal}
-procedure RegisterModule;
-const
-  RegKey = 'Devrace\FibPlus\7.2';
-var
-  Crypt: TDev_class8;   //Tea
-  Crypt2: TDev_class10;  //Ice
-  tempkey: HKey;
-  keyClass: array[0..256] of AnsiChar;
-  KeySize: DWord;
-  work, Hardware: AnsiString;
-  I: Integer;
-  info, username, key: Ansistring;
-  t: AnsiChar;
-begin
-  DemoTimer := nil;
-  CheckLicense := nil;
-  NotifierIndex := -MAXWORD;
-
-  LicensedTo := 'Craked version';
-  Crypt := TDev_class8.Create(nil);
-  Crypt2 := TDev_class10.Create(nil);
-  try
-    if RegOpenKeyEx(HKEY_CURRENT_USER, 'Software\' + RegKey, 0, KEY_QUERY_VALUE, tempkey) = ERROR_SUCCESS then
-    begin
-      KeySize := 256;
-      RegQueryInfoKeyA(tempkey, keyClass, @KeySize, nil, nil, nil, nil, nil, nil, nil, nil, nil);
-      RegCloseKey(TempKey);
-      Hardware := GetHardID;
-      Hardware := Hardware + StringOfChar('\', Length(RegKey) - Length(Hardware));
-      work := '';
-      for I := 1 to Length(RegKey) do
-        work := work + AnsiChar(Byte(Ord(Hardware[i]) + Ord(RegKey[i])));
-
-      crypt.InitStr(work, TDev_hash2); //MD5
-      info := crypt.WorkDSt(keyclass);
-      username := Copy(info, 1, Pos(#1, Info) - 1);
-      LicensedTo := username;
-      key := copy(info, Pos(#1, Info) + 1, Length(info));
-      k := key;
-      crypt2.InitStr(username, TDev_hash3);  //RipeMD-128
-      key := key + '==';
-      key := Crypt2.WorkDSt(key);
-
-      t := key[1]; key[1] := key[30]; key[30] := t;
-      t := key[3]; key[3] := key[32]; key[32] := t;
-      t := key[6]; key[6] := key[35]; key[35] := t;
-      t := key[8]; key[8] := key[37]; key[37] := t;
-      t := key[10]; key[10] := key[39]; key[39] := t;
-      t := key[12]; key[12] := key[41]; key[41] := t;
-      t := key[14]; key[14] := key[43]; key[43] := t;
-
-//      MessageBoxa(0, PAnsiChar(key), PAnsiChar(username), mb_ok) ;
-      CheckKeyAndDecrypt(PAnsiChar(key), PAnsiChar(username), False);
-;
-//      k := key;
-    end;
-  finally
-    Crypt.Burn;
-    Crypt.Free;
-    Crypt2.Burn;
-    Crypt2.Free;
-  end;
-end;
-{$endif}
-
 {$ifndef internal}
 { TMenuIOTACleverFilter }
 
@@ -587,7 +520,7 @@ procedure TFIBSQLMemo.SetBeforePropCall(Event: TiBeforeProposalCall);
 
 function TFIBSQLMemo.GetPosInText: Integer;
 begin
-
+  Result := SelStart;
 end;
 
 initialization

diff --git a/Editors/pFIBComponentEditors.pas b/Editors/pFIBComponentEditors.pas
@@ -266,7 +266,7 @@ procedure TpFIBDatabaseEditor.ExecuteVerb(Index: Integer);
 var
    db:IFIBConnect;
    Script:TStrings;
-   Connected:Boolean;
+   // Connected:Boolean;
 begin
   if  ObjSupports(Component,IFIBConnect,db) then
   case Index of
@@ -329,7 +329,7 @@ procedure TpFIBDatabaseEditor.ExecuteVerb(Index: Integer);
       begin
         Script:=TStringList.Create;
         try
-         Connected:=GetPropValue(Component,'Connected',False);
+         // Connected:=GetPropValue(Component,'Connected',False);
 
          Script.Add('/***************************************');
          Script.Add('        FIBPlus repository tables ');
@@ -1371,14 +1371,15 @@ procedure TpFIBDeltaReceiverEditor.ExecuteVerb(Index: Integer);
   TableName:string;
   DelTableName,TriggerName:string;
   DB:TObject;
-  Qry:TComponent;
+//  Qry:TComponent;
   Trans :TObject;
   iQry:IFIBQuery;
-  trActive:boolean;
-  ErrMessage:string;
+//  trActive:boolean;
+//  ErrMessage:string;
   Script:TStrings;
   Stringer:IFIBStringer;
-  clExp:IFIBClassesExporter;  
+  clExp:IFIBClassesExporter;
+{
 procedure ExecStatement(const SQL:string);
 begin
    AssignStringsToProp(Qry,'SQL',SQL);
@@ -1389,6 +1390,7 @@ procedure ExecStatement(const SQL:string);
      ErrMessage:=ErrMessage+#13#10+E.Message
    end;
 end;
+}
 
 begin
   Trans:=GetObjectProp(Component,'Transaction');
@@ -1545,10 +1547,10 @@ procedure ExecStatement(const SQL:string);
     end;
   finally
    Script.Free;
-   if not trActive then
-    SetPropValue(Trans,'Active',False);
+   // if not trActive then
+   // SetPropValue(Trans,'Active',False);
    iQry:=nil;
-   Qry.Free;
+  // Qry.Free;
   end
 end;
 

diff --git a/Editors/pFIBSyntaxMemo.pas b/Editors/pFIBSyntaxMemo.pas
@@ -13,6 +13,8 @@
 
 interface
 
+{$I ..\FIBPlus.inc}
+
 {$IFDEF VER130}
   {$IFDEF BCB}			// C++Buider 5.0
   {$ObjExportAll on}
@@ -178,35 +180,7 @@ interface
   {$WARNINGS  OFF}
 {$ENDIF}
 
-{$IFDEF VER300}
-  {$DEFINE D23}
-{$ENDIF}
-
-{$IFDEF VER310}
-  {$DEFINE D24}
-{$ENDIF}
-
-{$IFDEF VER320}
-  {$DEFINE D25}
-{$ENDIF}
-
-{$IFDEF VER330}
-  {$DEFINE D26}
-{$ENDIF}
-
-{$IFDEF D26}
-  {$DEFINE D25}
-{$ENDIF}
-
-{$IFDEF D25}
-  {$DEFINE D24}
-{$ENDIF}
-
-{$IFDEF D24}
-  {$DEFINE D23}
-{$ENDIF}
-
-{$IFDEF D23}
+{$IFDEF D_23}
   {$DEFINE D4+}
   {$DEFINE D5+}
   {$DEFINE D6+}
@@ -226,7 +200,6 @@ interface
   {$WARNINGS  OFF}
 {$ENDIF}
 
-{$I ..\FIBPlus.inc}
 {$UNDEF UNICODE}
 
 uses

diff --git a/FIBPlus.inc b/FIBPlus.inc
@@ -169,8 +169,17 @@
   {$DEFINE D_26}
 {$ENDIF}
 
+// DX10.4
+{$IFDEF VER340}
+  {$DEFINE D_27}
+{$ENDIF}
+
 //---------------------------------
 
+{$IFDEF D_27}
+  {$DEFINE D_26}
+{$ENDIF}
+
 {$IFDEF D_26}
   {$DEFINE D_25}
 {$ENDIF}

diff --git a/Packages/DclFIBPlus_D27.dpk b/Packages/DclFIBPlus_D27.dpk
@@ -0,0 +1,38 @@
+package DclFIBPlus_D27;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'FibPlus Access Components'}
+{$DESIGNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+  FibPlus_D27;
+
+contains
+  RegFIBPlus in '..\RegFIBPlus.pas';
+
+end.