• R/O
  • SSH
  • HTTPS

akdf: Commit


Commit MetaInfo

Revision580 (tree)
Time2022-05-26 03:22:42
Authorderekwildstar

Log Message

Ajustes realizados para que o TEdgeBrowser apenas seja usado com o Delphi Rio e nenhum outro. Delphis menores não tem suporte ao TEdgeBrowser e Delphis maiores já possuem o TEdgeBrowser

Change Summary

Incremental Difference

--- trunk/dtp/NetworkControls/src/KRK.Components.NetworkControls.pas (revision 579)
+++ trunk/dtp/NetworkControls/src/KRK.Components.NetworkControls.pas (revision 580)
@@ -1,8 +1,5 @@
11 unit KRK.Components.NetworkControls;
22 {$IF CompilerVersion >= 25}{$LEGACYIFEND ON}{$IFEND} { Delphi XE4 }
3-// Este arquivo pertence ao Anak Krakatoa Delphi Framework e tomara que dêem
4-// sucessivas câimbras no ânus do indivíduo que distribuir isso por aí dizendo
5-// que foi ele quem fez, ass.: cbff
63 interface
74
85 procedure Register;
@@ -16,7 +13,7 @@
1613
1714 begin
1815 RegisterComponents('Anak Krakatoa Network Controls',[TKRKFTP
19- {$IF (RTLVersion >= 20) and (RTLVersion <= 33)},TEdgeBrowser{$IFEND} { Delphi 2009 ~ Delphi Rio }
16+ {$IF RTLVersion = 33},TEdgeBrowser{$IFEND} { Delphi Rio }
2017 ]);
2118 end;
2219
--- trunk/rtp/src/Internet/KRK.Internet.Edge.pas (revision 579)
+++ trunk/rtp/src/Internet/KRK.Internet.Edge.pas (revision 580)
@@ -11,7 +11,12 @@
1111 unit KRK.Internet.Edge;
1212 {$IF CompilerVersion >= 25}{$LEGACYIFEND ON}{$IFEND} { Delphi XE4 }
1313 interface
14-{$IF (RTLVersion >= 30) and (RTLVersion <= 33)} { Delphi Seattle ~ Delphi Rio }
14+// O TEdgeBrowser funciona perfeitamente no Delphi Rio sem qualquer modificação
15+// e talvez funcione em alguns Delphi anteriores, porém com mais modificações.
16+// Tentei fazer algumas modificações pra tentar usar esta unit com um Delphi
17+// anterior ao Rio, mas me faltou conhecimento para lidar com funções anônimas,
18+// então desisti
19+{$IF RTLVersion = 33} { Delphi Rio }
1520 {$WEAKPACKAGEUNIT ON}
1621 uses
1722 System.Classes, System.Win.ComObj, System.Generics.Collections, System.SyncObjs,
@@ -702,7 +707,7 @@
702707 function CompareBrowserVersions(Version1, Version2: LPCWSTR; var AResult: Integer): HRESULT; stdcall;
703708 {$IFEND}
704709 implementation
705-{$IF (RTLVersion >= 30) and (RTLVersion <= 33)} { Delphi Seattle ~ Delphi Rio }
710+{$IF RTLVersion = 33} { Delphi Rio }
706711 uses
707712 System.SysUtils, Winapi.ShLwApi, Winapi.ActiveX, Vcl.Forms, KRK.Internet.EdgeConst;
708713
Show on old repository browser