Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.062 Beiträge
 
Delphi 12 Athens
 
#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.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat