Einzelnen Beitrag anzeigen

bassman

Registriert seit: 8. Apr 2008
18 Beiträge
 
Delphi 2009 Professional
 
#1

Andorra 2D Render Target

  Alt 2. Apr 2009, 16:21
Hallo Andorrianer,

Ich versuche mit Lazarus (Linux) auf ein Render Target zu Zeichnen, z.B. ein Panel.

Anscheinen soll dies mit AdDraw.Window.BindTo gehen.

Mein bisheriger Versuch:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  //Create the main surface.
  AdDraw := TAdDraw.Create(nil);
  //Get a plugin.
  AdDraw.DllName := './openglAndorraOGLLaz.so';

  if not AdDraw.Initialize then
  begin
    ShowMessage('War wohl nix');
    Close;
  end else
  begin
    AdDraw.Display.Width := 176;
    AdDraw.Display.Height := 144;
    AdDraw.Display.BitDepth := ad32Bit;
    if not AdDraw.Window.BindTo(@Panel1) then //Was muss ich hier an die Funktion übergeben?
    begin
      ShowMessage('Binding failed');
    end;
  end;
end;
Wäre toll, wenn mich jemand auf die richtige Fährte lotzen könnte.

Jörn
  Mit Zitat antworten Zitat