Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.140 Beiträge
 
Delphi 12 Athens
 
#23

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

  Alt 3. Feb 2010, 10:59
@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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat