www.pudn.com > woool12.rar > ConfigMonGen.pas

unit ConfigMonGen; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 
 
type 
  TfrmConfigMonGen = class(TForm) 
    ListBoxMonGen: TListBox; 
  private 
    { Private declarations } 
  public 
    procedure Open(); 
    { Public declarations } 
  end; 
 
var 
  frmConfigMonGen   : TfrmConfigMonGen; 
 
implementation 
 
uses UsrEngn, M2Share, Grobal2; 
 
{$R *.dfm} 
 
{ TfrmConfigMonGen } 
 
procedure TfrmConfigMonGen.Open; 
var 
  i                 : Integer; 
  MonGen            : pTMonGenInfo; 
begin 
  for i := 0 to UserEngine.m_MonGenList.Count - 1 do 
  begin 
    MonGen := UserEngine.m_MonGenList.Items[i]; 
    ListBoxMonGen.Items.AddObject(MonGen.sMapName + '(' + IntToStr(MonGen.nX) + 
      ':' + IntToStr(MonGen.nY) + ')' + ' - ' + MonGen.sMonName, 
      TObject(MonGen)); 
  end; 
  Self.ShowModal; 
end; 
 
end.