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

[himitsu]

Die TNTs selber hab ich ja nicht entwickelt ... nur die Umleitung.
Und aktuell wüße ich auch nicht, warum sowas NUR Anhand der kleinen Umleitung nicht gehn soll.

OK, ich war wegen des Virtuel List View erstmal irgendwie in Richtung Virtual TreeView geraten.

nja, dann werd ich mal versuchen rauszubekommen, was da nicht will

[edit]
also bei mir geht es und es werden die Indize angezeigt
(getestet in D2006 und D7)

Delphi-Quellcode:

Unit Unit1;

Interface
  Uses SysUtils, Classes, Controls, Forms, ComCtrls,
    TntHackSysUtils, TntHackClasses, TntHackControls, TntHackForms, TntHackComCtrls;

  Type TForm1 = Class(TForm)
      ListView1: TListView;
      procedure ListView1Data(Sender: TObject; Item: TListItem);
      procedure FormCreate(Sender: TObject);
    Private
    Public
    End;

  Var Form1: TForm1;

Implementation
  {$R *.dfm}

  Procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
    Begin
      Item.Caption := IntToStr(Item.Index);
    End;

  Procedure TForm1.FormCreate(Sender: TObject);
    Begin
      ListView1.Items.Add.Caption := 'a';
      ListView1.Items.Add.Caption := 'b';
      ListView1.Items.Add.Caption := 'c';
      ListView1.Items.Add.Caption := 'd';
      //ListView1.OwnerData := True;  im OI gesetzt
    End;

End.