openjane ソース修正中

dfmファイルからTHogeListViewの定義を削除して
FormCreateで替わりに生成するようにすればいいはず。

まず、Main.dfmから以下の記述を削除。
メモ帳だと改行コードのせいか上手くファイルが開けないので
gvimというテキストエディタを使用。

          object ListView: THogeListView
            Left = 0
            Top = 23
            Width = 576
            Height = 122
            Align = alClient
            BevelInner = bvLowered
            BevelOuter = bvNone
            Columns = <

              item
                Caption = #65281
                Width = 25
              end
              item
                Alignment = taRightJustify
                Caption = #30058#21495
                Tag = 1
                Width = 40
              end
              item
                Caption = #12479#12452#12488#12523
                Tag = 2
                Width = 250
              end
              item
                Alignment = taRightJustify
                Caption = #12524#12473
                Tag = 3
                Width = 40
              end
              item
                Alignment = taRightJustify
                Caption = #21462#24471
                Tag = 4
                Width = 40
              end
              item
                Alignment = taRightJustify
                Caption = #26032#30528
                Tag = 5
                Width = 40
              end
              item
                Caption = #26368#32066#21462#24471
                Tag = 6
                Width = 20
              end
              item
                Caption = #26368#32066#26360#36796
                Tag = 7
                Width = 20
              end
              item
                Caption = 'since'
                Tag = 8
                Width = 20
              end
              item
                Caption = #26495
                Tag = 9
                Width = 20
              end>
            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

これをごっそり削除。

次にプロジェクトファイルJane2ch.dprをgvimで開く。
THogeListView を登録してる行（１行だけ）を削除。

これでTurboDelphiから開けるはず。Jane2ch.dprをダブルクリック。
エラー無しに読み込めました。
続いてcomponentフォルダのHogeTextView.pas と HogeListView.pas を
プロジェクトに追加。ここで念のため一度ファイルを保存して終了。

再度Jane2ch.dprをダブルクリック。
あれぇ？エラー出た。

  Application.CreateForm(TMainWnd, MainWnd);
  Application.Run;

が

  AApplication.CreateForm(TMainWnd, MainWnd);
  pplication.Run;

に変わってる
TurboDelphiの不具合かなぁ。とりあえず修正。

さ、これでOK、、と思ったら文法エラーが出てる。
どうやら行末が「//」のコメントで終わるのは許さなくなったらしい。
意味も無く、「// comment」と修正。これも不具合っぽいなぁ。

とりあえず、エラー無しに読み込めるようになったので
今日はここまでにしよう。
歩みが遅いけど、まぁ良しとしましょう。