DelphiWorlds DelphiWorlds
DelphiWorlds
/ FrameworkInputPaneHandler.pas
Last active
January 21, 2019 03:42
Work in progress to handle when the Windows 10 OSK shows/hides
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit FrameworkInputPaneHandler; | |
| interface | |
| uses | |
| System.Win.ComObj, | |
| Winapi.Windows; | |
| // https://github.com/tpn/winsdk-10/blob/master/Include/10.0.10240.0/um/ShObjIdl.idl | |
| const |
DelphiWorlds
/ TryFinallySafety.pas
Created
February 6, 2018 23:03
Distinction between causing and raising an exception, and try..finally safety
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| type | |
| TSomeObject = class(TObject) | |
| public | |
| procedure DoSomething; | |
| end; | |
| TFaultyObject = class(TObject) | |
| private | |
| FStrings: TStrings; | |
| public |
DelphiWorlds
/ GetLocalAddressList.pas
Last active
June 5, 2017 11:24
Substitute for TIdStackVCLPosix.GetLocalAddressList
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| interface | |
| uses | |
| IdStack; | |
| procedure GetLocalAddressList(const AAddresses: TIdStackLocalAddressList); | |
| implementation | |
| uses |
NewerOlder