Michał Turecki - delphi

Delphi 2007 - error running on 64-bit Windows

Michał Turecki — Wed, 03 Apr 2013 08:40:53 +0000

Delphi 2007 is not new although it is the last non-unicode release of Delphi hence it is used frequently to maintain legacy code base.

And it has bugs. Some of them can be fixed by VCLFixPack and affect only compiled binaries.

Some are related to IDE and neither CnPack nor GExperts IDE extensions can fix them.

One of such bugs is related to debugging on 64-bit Windows. The problem is that after debugging session has ended, following error appears:

Assertion failure: "(!"SetThreadContext failed")" 
in ..\win32src\thread32.cpp at line 412 
Continue execution?

The error was thrown by bordbk105N.dll and it was discussed here (1) and here (2).

Unfortunately in (1) original URL has changed and (2) download links are dead so I attached a fix below as there's never enough of mirroring of the Internet. The executable is a patch tool which needs to be started as Administrator. It will modify bordbk105N.dll and fix the problem.

Attachment	Size
Delphi_2007_2009_WOW64_Debugger_Fix.exe	176 KB

Simple themed TCheckComboBox control for Delphi - TComboBox with checkboxes

Michał Turecki — Wed, 12 Dec 2012 10:52:02 +0000

Recently I needed to upgrade a piece of software to do some things easily done in modern user interface libraries say WPF or FireMonkey (which I don't use personally), but requiring more effort to implement in Delphi VCL.

The task in question was to add a drop down menu with TCheckBox controls to a TStringGrid. This has been done countless times and TCheckedComboBox, TCheckBoxComboBox and others alike can be found on the Internet easily. The problem is none have the features I needed:

- separate Items and Values where Values can optionally be presented to a user instead of Items
- custom aggregation of values depending on user selection - checking checkboxes should trigger the event which will return a text calculated based on selections and custom algorithm, which can be say: sum all values of selected items, take maximum, average etc.
- optionally for ease of use, it should contain bitmask aggregation mode - where value can be set and retrieved by simply assigning to a string representation of integer and appropriate checked items will be translated to bit weights of items
- checks should be completely optional, when checks are disabled, the control should behave exactly like a normal TComboBox
- checks need to use windows themes and look alike all other checkboxes
- it should be as simple as possible but not any simpler - no copy + paste from Controls.pas or StdCtrls.pas

The control may have some bugs as it was not heavily tested and for best experience depends on some settings in DFM:

AutoComplete = False
Style = csDropDownList

Having said that, for all those who seek a free TCheckComboBox which have all or some of aforementioned features, feel free to use it.

The component is available to download from https://github.com/t00/deltoo#tcheckcombobox .

programming

delphi

Relocator 1.0

Michał Turecki — Wed, 23 Apr 2008 22:00:00 +0000

Witajcie na moim wysypisku gadżetów, pomysłów i niekonwencjonalnych opinii.

Na dobry początek publikuję gadżet - programik Relocator, który korzysta z możliwości tworzenia skrótów (oryginalna nazwa "Junctions") systemu plików NTFS w Windows XP i Vista, które w przeciwieństwie do standardowych skrótów (plików .lnk), mogą udawać foldery i pozwalają przenosić programy oraz ich dane w inne miejsca bez potrzeby ich instalacji i konfiguracji.

Relocator 1.0 jest przygotowany do przenoszenia bazy PostgreSQL w wersji 8.2 do innego folderu i/lub na inny dysk, używanej przez program mMedica, ale z powodzeniem można z jego pomocą przenieść np. pocztę Outlook Express na zaszyfrowany programem TrueCrypt pendrive. Najważniejsze jest aby pamiętać, że program korzystający z przenoszonych danych musi być na czas przenoszenia zamknięty. Baza PostgreSQL w wersji 8.2 jest automatycznie zatrzymywana na czas przenoszenia.

Pobierz Relocator 1.0

download

delphi