openjane修正中2

前回から随分と間が空きましたが、ボチボチと修正してます。

main.pas内の、次のプロシジャに追記します。

procedure TMainWnd.FormCreate(Sender: TObject);

まずは変数宣言部から。

var
  boardLoaded: boolean;
  TimeZoneInfo: _TIME_ZONE_INFORMATION;
  font: TFont;
  wnd: HWND;
  p: Pointer;
  i: integer; //turbo対応

変数にループ用のiを追加。

続いてロジックの追加です。追加部分はコメントを参考にしてください。

…
  (*  *)
  AddAboutMenu;

  //turbo対応ここから
  ListView := THogeListView.Create(self);
  with ListView do
  begin
    Name := 'ListView';
    Left := 0;
    Top := 23;
    Width := 576;
    Height := 122;
    Align := alClient;
    BevelInner := bvLowered;
    BevelOuter := bvNone;
    Columns.add(#65281);
    Columns[0].Width := 25;
    Columns.add(#30058#21495);
    Columns[1].Alignment := taRightJustify;
    Columns[1].Width := 40;
    Columns.add(#12479#12452#12488#12523);
    Columns[2].Width := 250;
    Columns.add(#12524#12473);
    Columns[3].Alignment := taRightJustify;
    Columns[3].Width := 40;
    Columns.add(#21462#24471);
    Columns[4].Alignment := taRightJustify;
    Columns[4].Width := 40;
    Columns.add(#26032#30528);
    Columns[5].Alignment := taRightJustify;
    Columns[5].Width := 40;
    Columns.add(#26368#32066#21462#24471);
    Columns[6].Width := 20;
    Columns.add(#26368#32066#26360#36796);
    Columns[7].Width := 20;
    Columns.add('since');
    Columns[8].Width := 20;
    Columns.add(#26495);
    Columns[9].Width := 20;
    for i := 1 to List.Count do
      Columns[i].Tag := i;
    HideSelection := False;
    HotTrackStyles := [htHandPoint, htUnderlineHot];
    HoverTime := 2147483647;
    ReadOnly := True;
    RowSelect := True;
    SmallImages := ListImages;
    TabOrder := 0;
    TabStop := False;
    ViewStyle := vsReport;
    OnClick := ListViewClick;
    OnColumnClick := ListViewColumnClick;
    OnData := ListViewData;
    OnDblClick := ListViewDblClick;
    OnKeyDown := ListViewKeyDown;
    OnMouseDown := ListViewMouseDown;
    OnMouseMove := ListViewMouseMove;
    OnSelectItem := ListViewSelectItem;
  end;
  ListView.Parent :=self;
  //turbo対応ここまで

  TabSwitchList := TList.Create;
  TabSwitchList.Add(TreeView);
…

前回と見比べると分かりますが
（１）ListViewのCreate。
（２）CreateしたListViewに名前をつける。
（３）dfm記述の置き換え。配列やループを使ってますが置き換えには変わりません。
（４）親オブジェクトの設定。
これしかやってません。

さて、これでコンパイルできるかなぁ…？
ぽちっとな。

うお、エラー沢山でた
ん～？IdHTTP.pasとIdHTTP2.pasでエラーか。
IdHTTP.pasモジュールはdelphiのライブラリのクラスで
そこからopenjane用に継承したクラスがIdHTTP2.pasに記述されてたはず。
なんでこんなところでエラーが…

と、ここで思い当たりました。
Delphiで使われてるインターネット関連のライブラリIndy。
openjaneではバージョン9が使われていましたが、
turbodelphiのインストールで、9か10を選べってところで
規定の10を選んでインストールした気がする。

バージョンアップで、プロシジャのインタフェースが変更になったっぽいなぁ。
むぅ、これは小手先の修正では動かないなぁ。

とりあえず、IdHTTP.pasをIndyライブラリの格納フォルダからコピーしてみる。
そしてコンパイル。ぽちっとな。

[Pascal エラー] IdHTTP2.pas(84): E2170 非仮想メソッドはオーバーライドできません
[Pascal エラー] IdHTTP2.pas(85): E2037 'DoRequest' の宣言がすでに定義されているものと異なります
[Pascal エラー] IdHTTP2.pas(148): E2010 'string' と 'procedure, untyped pointer or untyped parameter' には互換性がありません
[Pascal エラー] IdHTTP2.pas(149): E2035 実パラメータが足りません
[Pascal エラー] IdHTTP2.pas(158): E2035 実パラメータが足りません
[Pascal 致命的エラー] UAsync.pas(8): F2063 '..derivedIdHTTP2.pas' ユニットはコンパイルできませんでした

お、だいぶエラーは減ったｗ
まぁ、とりあえず今日はここまで