Borland Pascal

[Kolia]

Я понимаю, что BP к программированию под линукс не относится, но всё же...
Есть некий тип TListBox. Но внего не добавляются элементы (а функции addstring, insertstring возвращают 0).

Код: Выделить всё

uses OWindows,ODialogs;

type
  TMy=object(TApplication)
    Procedure InitMainWindow;
      Virtual;
  end;

Procedure TMy.InitMainWindow;
  var
    LB:PListBox;
  begin
    MainWindow:=New(PWindow,Init(nil,'My'));
    LB:=New(PListBox,Init(MainWindow,101,10,10,100,200));
    LB^.InsertString('111',-1);
    LB^.InsertString('222',-1)
  end;

var
  My:TMy;

begin
  My.Init('My');
  My.Run;
  My.Done
end.