• R/O
  • SSH
  • HTTPS

akdf: Commit


Commit MetaInfo

Revision518 (tree)
Zeit2020-10-13 23:38:33
Autorderekwildstar

Log Message

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

Ändern Zusammenfassung

Diff

--- trunk/rtp/src/Rtl/Win/KRK.Rtl.Win.Windows.pas (revision 517)
+++ trunk/rtp/src/Rtl/Win/KRK.Rtl.Win.Windows.pas (revision 518)
@@ -31,7 +31,7 @@
3131 var
3232 PerformanceFrequency: Int64;
3333
34-{$IF RTLVersion < 20} // Delphi 2009
34+{$IF RTLVersion <= 19} { Delphi 2007 }
3535 {$IFDEF WIN64}
3636 function GetWindowLongPtr(hWnd: HWND; nIndex: Integer): LONG_PTR; stdcall; external user32 name {$IFDEF UNICODE}'GetWindowLongPtrW'{$ELSE}'GetWindowLongPtrA'{$ENDIF};
3737 function SetWindowLongPtr(hWnd: HWND; nIndex: Integer; dwNewLong: LONG_PTR): LONG_PTR; stdcall; external user32 name {$IFDEF UNICODE}'SetWindowLongPtrW'{$ELSE}'SetWindowLongPtrA'{$ENDIF};
--- trunk/rtp/src/ToolsAPI/KRK.ToolsAPI.Utilities.pas (revision 517)
+++ trunk/rtp/src/ToolsAPI/KRK.ToolsAPI.Utilities.pas (revision 518)
@@ -199,7 +199,7 @@
199199
200200 procedure UnHookModulesTabSetPopUpMenu(AEditWindow: INTAEditWindow);
201201 var
202- O: {$IF CompilerVersion >= 27}TObject{$ELSE}Pointer{$IFEND} { Delphi XE6 };
202+ O: {$IF CompilerVersion >= 32}TObject{$ELSE}Pointer{$IFEND} { Delphi Tokyo };
203203 begin
204204 // Varre a lista de menus popups em busca daquele que está num form cujo nome
205205 // é o nome do form da janela de edição passada no parâmetro
Show on old repository browser