Delphi7 mit nur einer Unit Unicode fähig machen

[derMischka]

"Und mit nur einer Unit lässt sich das alles natürlich nicht umstellen. "

Hallo Himitsu,
dann hast Du leider meine Unit nicht verstanden...
Ich überschreibe die Quellen aller Controls und ersetze diese durch Unicode-fähige.
D.h. Du kannst dir irgend ein altes (nicht unicode fähiges) Projekt mit Standard-Komponenten nehmen, die unit einbinden und schon UTF-String an deine
alten Controls schicken. Und das alles ohne irgendwelche Komponenten zu ersetzen.

MfG
der Mischka

[derMischka]

Hier mal wieder ein Update für die Delphi 7 Nutzer unter uns ...

der Mischka

[OrNEC]

Wow... voll gute Idee. Eignet sich das auch für die Delphi 7 Personal Edition?

[jaenicke]

Da dort keine besonderen Units verwendet werden, sollte das kein Problem sein.

[Delphi-Laie]

Leute, was habt Ihr für Zauberdelphis, daß Ihr mit der Unit zurechtkommt?

Bei mir scheitert es an der Zeile

{$ifdef CamSpy}oCamSpyMem,{$endif} , weil der Compiler die Unit nicht findet.

Entferne ich die Zeile (auskommentieren), hilft das leider auch nicht weiter, dann scheitert es an

procedure Addlog(const Value:string{$ifdef CamSpy};aType:TGlobalLogType=cst_Info{$endif}); .

Das Phänomen tritt auf, egal ob ich Delphi 4-7 oder Turbo-Delphi verwende.

Schade, aber vielleicht weiß ja jemand Rat.

[uligerhardt]

Zitat von Delphi-Laie:

Leute, was habt Ihr für Zauberdelphis, daß Ihr mit der Unit zurechtkommt?

Bei mir scheitert es an der Zeile

{$ifdef CamSpy}oCamSpyMem,{$endif} , weil der Compiler die Unit nicht findet.

Entferne ich die Zeile (auskommentieren), hilft das leider auch nicht weiter, dann scheitert es an

procedure Addlog(const Value:string{$ifdef CamSpy};aType:TGlobalLogType=cst_Info{$endif}); .

Das Phänomen tritt auf, egal ob ich Delphi 4-7 oder Turbo-Delphi verwende.

Schade, aber vielleicht weiß ja jemand Rat.

Ich hab mir das Teil nicht runtergeladen, aber scheinbar ist in den Projekteinstellungen "CamSpy" definiert. Wenn du das rausnimmst, sollte es besser werden.

[Lemmy]

Zitat von Delphi-Laie:

Leute, was habt Ihr für Zauberdelphis, daß Ihr mit der Unit zurechtkommt?
..

{$ifdef CamSpy}oCamSpyMem,{$endif}

ganz oben in der Unit steht

{$define CamSpy}  //my own logging
auskommentieren und gut ist?!?

[Delphi-Laie]

Zitat von Lemmy:

Zitat von Delphi-Laie:

Leute, was habt Ihr für Zauberdelphis, daß Ihr mit der Unit zurechtkommt?
..

{$ifdef CamSpy}oCamSpyMem,{$endif}

ganz oben in der Unit steht

{$define CamSpy}  //my own logging
auskommentieren und gut ist?!?

Schön wäre es. Das hatte ich auch schon probiert, jedoch vergaß ich, das mit aufzulisten.

Dann scheitert es (erstmalig) an

ss := AnsiToUtf8(ss); (Delphi 4 und 5)

bzw. an

addlog('Exception in DispatchMessageUniCode(MsgNum='+inttostr(lpMsg.message)+') '+e.ClassName+' '+e.Message,cst_Exception); (ab Delphi 6).

[derMischka]

Zitat von Lemmy:

Zitat von Delphi-Laie:

Leute, was habt Ihr für Zauberdelphis, daß Ihr mit der Unit zurechtkommt?
..

{$ifdef CamSpy}oCamSpyMem,{$endif}

ganz oben in der Unit steht

{$define CamSpy}  //my own logging
auskommentieren und gut ist?!?

Hätte nicht gedacht, dass mein Logging so viele Probleme bereitet...

Ihr müsst einfach die {$define CamSpy} Zeile auskommentieren

der Mischka

[somby]

Hallo Delphi-Mitstreiter,
habe in der letzten Version (24.05.2016) von oWinApiUnicode.pas einige Fehler beseitigt
und einige Funktionen hinzugefügt:
TToolbar - Control funktioniert,
TRichEdit - Control funktioniert (hier war wichtig, dass im WideString-Modus der Klassenname anders ist),
TListView - Control funktioniert,
Sowohl in TListView und TTreeView funktioniert der Label-Edit
Funktion SetClipboardData wurde hinzugefügt.

Wichtig: einige Messages (z.B. SB_SETTEXT und TB_ENABLEBUTTON, beide WM_USER+1)
besitzen gleiche WM_USER-Werte, hier muß duch den Klassenname
unterschieden werden.

Hallo Mischka, vielen Dank für dieses wunderbare Tool. Ich hoffe wir können
das noch um einiges erweitern.
In der Anlage meine geänderte Variante.

Gruß
somby