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

[himitsu]

Eigentlich müßte es möglich sein.

In der Demo wurde auch ohne Charsets gearbeitet:
http://www.delphipraxis.net/download.php?id=41107 ( Bild aus der #1 )
OK, da ist zwar kein Russisch drin, aber das ist ja vom Prinzip her egal.

[Garfield]

Wie ich früher oben geschrieben hatte, funktioniert die Anzeige des Pfades in einem Edit und Memo. Anscheinend liegt das Problem im anzuzeigenden String bzw. in der Erstellung desselben.

[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.

[Garfield]

Ich habe mir Deine Änderungen angesehen. es fehlten nicht nur Units in den Uses, sondern ich hatte auch die falsche Schriftart. Das heißt, ich hatte sie nicht geändert und auf MS Sans Serif belassen. Damit kommen dann die ||. Mit der von/bei Dir eingestellten Schriftart Tahoma funktioniert es.

Vielen Dank.

[Garfield]

Ich bin gerade dabei die Hacks in eine weitere Anwendung einzubauen. In dieser arbeite ich mit Dateien, welche Zeichen anderer Codepages enthalten. Für den TOpenDialog brauchte ich erwartungsgemäß nur die Unit TntHackDialogs einbinden und es funktionierte. Dann sollte es mit ExtractFileDir weitergehen. Anstelle dessen muss man WideExtractFileDir verwenden. Allerdings kann man nicht die TntHackSysUtils verwenden sondern muss direkt TntSysUtils einbinden.

[himitsu]

Joar .... ähhhhh ... hmmmmm ... nja, dieses ist/war vorzugsweise auf die Komponenten (VCL) ausgelegt, da diese ja in Turbo Delphi nicht direkt eingebunden werden können, und es wurden diesbezüglich nur kleinere Unitinhalte und wichtige Stellen geändert/weitergeleitet/überschrieben.

Vorallem die Umleitung von vielen Funktionen ist schon ein bissl aufwändig (also von der Erstellung und Auflistung der Funktionen her, aber mal sehn was sich machen läßt ... also wann und wie schnell ich dazu komm diesbezüglich ein paar zusätzliche Umleitungen einzurichten.

(Bin grad erst heimgekommen und nach 4 Messetagen bin auch noch ganz schön fertig, hab noch viel auszuwerten und zusätzlich auch noch andere Dinge zu erledigen ... parallel zum Beginn an einer neuen Arbeitsstelle)

[Garfield]

Zitat von himitsu:

... nja, dieses ist/war vorzugsweise auf die Komponenten (VCL) ausgelegt, da diese ja in Turbo Delphi nicht direkt eingebunden werden können, ...

Deshalb verwende ich die Hacks.

Zitat von himitsu:

Vorallem die Umleitung von vielen Funktionen ist schon ein bissl aufwändig (also von der Erstellung und Auflistung der Funktionen her, aber mal sehn was sich machen läßt ... also wann und wie schnell ich dazu komm diesbezüglich ein paar zusätzliche Umleitungen einzurichten.

Ich habe gesehen, dass es sehr aufwändig ist. Vielleicht ist es sinnvoll, auf die Unit TntHackSysUtils und ähnliche zu verzichten und in einer Readme auf die direkte Verwendung hinzuweisen!?

Viel Spaß und Erfolg im neuen Job.

[himitsu]

Danke

Gut, bei der TntHackSysUtils ist es einfach, weil dort wirklich nichts gemacht wird, aber es gibt auch Units, wo "nur" ein Teil umgeleitet wurde (weiß grad nicht Welche), da müßte man dann beide Units (z.B. TntHackSysUtils und TntSysUtils) einbinden.
Aber es wird sich bestimmt eine möglichst einfache Lösung finden

Hatte den Code damals halt nur zur Ersetzung der Komponenten genutzt und da fällt dann ein derartiges Problem einfach nicht auf.

[Garfield]

Das, worauf es ankommt, funktioniert. Was erst später auffällt, sind dann die "Nebensächlichkeiten".

[evilboy]

Vielen Dank für diese Tools, sie sind sehr nützlich und fühlen sich deutlich besser und nicht so wackelig an wie UTF8VCL. Letzteres läuft zwar auch noch auf Delphi 4, aber soweit zurück muss man auch wieder nicht gehen…

Nur eine kleine Bugmeldung: Bei mir (Delphi 7) beschwert es sich, wenn das PasswordChar eines Edits nicht #0 ist. Dann heißt es:
"Project Project1.exe raised exception class EReadError with message 'Property
*Tab does not exist'. Process stopped. Use Step or Run to continue."

Wenn man also Password-Edits hat, sollte man das PasswordChar auf #0 setzen und stattdessen SendMessage(Edit1.Handle, EM_SETPASSWORDCHAR, Ord('*'), 0); in den Code einbinden.