Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.975 Beiträge
 
Delphi 10.4 Sydney
 
#8

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

  Alt 6. Dez 2009, 13:52
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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat