Revisión | 580 (tree) |
---|---|
Tiempo | 2022-05-26 03:22:42 |
Autor | derekwildstar |
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
@@ -1,8 +1,5 @@ | ||
1 | 1 | unit KRK.Components.NetworkControls; |
2 | 2 | {$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 | |
6 | 3 | interface |
7 | 4 | |
8 | 5 | procedure Register; |
@@ -16,7 +13,7 @@ | ||
16 | 13 | |
17 | 14 | begin |
18 | 15 | 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 } | |
20 | 17 | ]); |
21 | 18 | end; |
22 | 19 |
@@ -11,7 +11,12 @@ | ||
11 | 11 | unit KRK.Internet.Edge; |
12 | 12 | {$IF CompilerVersion >= 25}{$LEGACYIFEND ON}{$IFEND} { Delphi XE4 } |
13 | 13 | 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 } | |
15 | 20 | {$WEAKPACKAGEUNIT ON} |
16 | 21 | uses |
17 | 22 | System.Classes, System.Win.ComObj, System.Generics.Collections, System.SyncObjs, |
@@ -702,7 +707,7 @@ | ||
702 | 707 | function CompareBrowserVersions(Version1, Version2: LPCWSTR; var AResult: Integer): HRESULT; stdcall; |
703 | 708 | {$IFEND} |
704 | 709 | implementation |
705 | -{$IF (RTLVersion >= 30) and (RTLVersion <= 33)} { Delphi Seattle ~ Delphi Rio } | |
710 | +{$IF RTLVersion = 33} { Delphi Rio } | |
706 | 711 | uses |
707 | 712 | System.SysUtils, Winapi.ShLwApi, Winapi.ActiveX, Vcl.Forms, KRK.Internet.EdgeConst; |
708 | 713 |