hi ich habe es mit Lazarus unter XP probiert und er sagt mir ohne, dass ich eine
Unit einbinde,
:Andorracompile_zu.pas(33,10) Error: Identifier not found "AdDraw"
Andorracompile_zu.pas(33,20) Error: Identifier not found "TAdDraw"
Andorracompile_zu.pas(33,27) Fatal: Syntax error, ";" expected but "(" found
was mache ich falsch
Code:
Delphi-Quellcode:
{$MODE DELPHI}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
ButtonPanel;
type
{ TForm1 }
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
AdDraw := TAdDraw.Create(self);
AdDraw.DllName := 'C:\Documents and Settings\Blockbuster\Desktop\QuickDesktop\Andorra\ad2d_35_ALL\ad2d_35\bin\AndorraOGLLaz.dll';
Application.OnIdle := @Idle;
AdDraw.Initialize;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
AdDraw.Free;
end;
procedure TForm1.Idle(Sender: TObject; var Done:boolean);
begin
AdDraw.ClearSurface(0);
AdDraw.BeginScene;
with AdDraw.Canvas do
begin
Font := AdDraw.Fonts.GenerateFont('Arial', 24, []);
TextOut(0,0,'Andorra 2D...');
Font := AdDraw.Fonts.GenerateFont('Arial', 10, []);
TextOut(0,30,'...works with Lazarus too');
end;
AdDraw.EndScene;
AdDraw.Flip;
end;