Einzelnen Beitrag anzeigen

GrubenPete

Registriert seit: 11. Apr 2006
Ort: Altenburg
8 Beiträge
 
Turbo Delphi für Win32
 
#10

Re: [Andorra2D] 2 AdDraws, nur eins wird gezeichnet

  Alt 11. Mär 2008, 21:29
Steh grad irgendwie völlig aufm Schlauch. sorry^^

Delphi-Quellcode:
procedure THauptMenu.FormCreate(Sender: TObject);
begin

  myAdDraw := TAdDraw.Create(self);
  myAdDraw.DllName := 'AndorraOGL.dll';

  myAdDraw.Display.Width := HauptMenu.Width;
  myAdDraw.Display.Height := HauptMenu.Height;

  if myAdDraw.Initialize then
    begin
      MainGui := TAdGui.Create(myAdDraw);
      MainGui.Skin.LoadFromFile('sunna.axs');
      MainGui.Cursors.LoadFromFile('cursors.xml');
      MainGui.LoadFromFile('mainmenu.axg');

      // Hab so versucht ein WindowFramework zu erstellen:
      wfw := TAdWindowFramework.Create;
      wfw.BindTo(@self); // --> Abstrakter Fehler

      MainConnector := TAdGUIConnector.Create(MainGui);
      MainConnector.ConnectEventHandlers(wfw); //Früher war das 'self' also mein Formular

      TAdButton(MainGUI.FindComponent('exit_game')).OnClick := AdButtonClick;
      TAdButton(MainGUI.FindComponent('start_game')).OnClick := AdButtonClick;
    end
  else
    showmessage('Fehler');
end;
Kannst du mir sagen, was ich ändern muss, um das zum laufen zu bringen ?
Sascha
  Mit Zitat antworten Zitat