Ich weiß gar nicht wie ich das beschreiben soll.
Also ich habe versucht nach dem Guide
andorra.sourceforge....windowframeworks1ger
einmal die Andorra Engine ohne VCL Komponente zu erstellen.
Also habe ich ein Konsolenprogramm erstell dazu eine Unit .. Wie es in dem Tutorial verlangt war.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| program Project1;
uses
SysUtils,
Main in 'Main.pas';
var
Appl:TAdAppl;
begin
Appl := TAdAppl.Create;
try
Appl.Run;
finally
Appl.Free;
end;
end. |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
| unit Main;
interface
uses
AdClasses, AdEvents, AdTypes, AdDraws, AdStdWindow, AdDLLExplorer;
type
TAdAppl = class
private
AdDraw: TAdDraw;
public
procedure Run;
procedure Test;
end;
implementation
procedure TAdApp1.Test;
begin
end;
procedure TAdAppl.Run;
var
AdDLLExplorer: TAdDLLExplorer;
begin
AdDraw := TAdDraw.Create(nil);
AdDraw.DllName := DefaultPlugin;
AdDraw.Display.Width := 800;
AdDraw.Display.Height := 600;
AdDraw.Display.BitDepth := 32;
if AdDraw.Initialize then
begin
AdDraw.Window.Title := 'Andorra 2D';
AdDraw.Run;
end;
AdDraw.Free;
end;
end. |
So erstes Problem ist Dass ich in diesen 3 Zeilen
Delphi-Quelltext
1:
2:
3:
| AdDraw.Display.Width := 800;
AdDraw.Display.Height := 600;
AdDraw.Display.BitDepth := 32; |
der linken Seite nichts zuweisen kann, wo ich nicht einmal weiß woran das liegt ;x aber das ist ein anderes problem vllt schließt das eine ja das andere ein..
Zweites Problem ist dass er nicht die "Test" Prozedur erkennt also egal was ich da auch für eine Procedure reinschreibe
er sagt die existiert nicht!
Was mache ich denn bitte falsch?
