Revision | 518 (tree) |
---|---|
Zeit | 2020-10-13 23:38:33 |
Autor | derekwildstar |
Ajuste em diretiva para usar >=
Ajuste em UnHookModulesTabSetPopUpMenu para que só se use TObject a partir do Delphi Tokyo, já que o Delphi Berlin não aceita TObject nesta implementação
@@ -31,7 +31,7 @@ | ||
31 | 31 | var |
32 | 32 | PerformanceFrequency: Int64; |
33 | 33 | |
34 | -{$IF RTLVersion < 20} // Delphi 2009 | |
34 | +{$IF RTLVersion <= 19} { Delphi 2007 } | |
35 | 35 | {$IFDEF WIN64} |
36 | 36 | function GetWindowLongPtr(hWnd: HWND; nIndex: Integer): LONG_PTR; stdcall; external user32 name {$IFDEF UNICODE}'GetWindowLongPtrW'{$ELSE}'GetWindowLongPtrA'{$ENDIF}; |
37 | 37 | function SetWindowLongPtr(hWnd: HWND; nIndex: Integer; dwNewLong: LONG_PTR): LONG_PTR; stdcall; external user32 name {$IFDEF UNICODE}'SetWindowLongPtrW'{$ELSE}'SetWindowLongPtrA'{$ENDIF}; |
@@ -199,7 +199,7 @@ | ||
199 | 199 | |
200 | 200 | procedure UnHookModulesTabSetPopUpMenu(AEditWindow: INTAEditWindow); |
201 | 201 | var |
202 | - O: {$IF CompilerVersion >= 27}TObject{$ELSE}Pointer{$IFEND} { Delphi XE6 }; | |
202 | + O: {$IF CompilerVersion >= 32}TObject{$ELSE}Pointer{$IFEND} { Delphi Tokyo }; | |
203 | 203 | begin |
204 | 204 | // Varre a lista de menus popups em busca daquele que está num form cujo nome |
205 | 205 | // é o nome do form da janela de edição passada no parâmetro |