TNT-Unicode-Controls-Hack for Turbo Delphi (and other)

[himitsu]

@Garfield: Ich mach das jetzt mal öffentlich, damit alle was davon haben.

Er hat mir sein Projekt zugesendet und beim Test ist mir was ganz einfaches, aber leicht zu übersehendes aufgefallen.

Es werden ja nur die Komponenten ausgetauscht, zu welchen die passenden TntHack-Dateien eingebunden wurden, also auch da wo diese Komponente sich befindet.

Die Edits und Memos wurden getauscht, darum funktionierte es dort.
Die ListView war aber nicht getauscht, weswegen sie noch die ANSI-Version war und demnach kein Unicode konnte.

Diese Units wären noch möglich, bzw, fehlten

Zitat:

TntHackExtCtrls, TntHackComCtrls, TntHackGrids, TntHackClipbrd

( die ListView versteckt sich in der TntHackComCtrls )

Als Einfachste ist wirklich:
- alles in Uses kopieren und nochmal hinten dranzuhängen
- dann vor jede Unit "TntHack" davorkopieren
- und dann einfach nur noch alles rauslöschen, was es nicht gibt (OK, und die eine TntWideStrings, welche ab D2006 rummotzt)

PS: Wenn es Probleme gibt, dann kann auch bei den Komponenten mal nachsehn, ob die Schnittstellen mit WideString oder AnsiString arbeiten.
Bei deinem

Delphi-Quellcode:

with lvw_Events.Items.Add
do begin
  Caption := IntTostr(EIT.service_id);
  SubItems.Add(CodeToTime(EITBody.start_time));
  ...

waren Caption und SubItems.Add mit AnsiString und Strg+Mausklick leiteten mich in die ComCtrls, anstatt in die entsprechende TNT-Unit.