[Andorra]dmFullscreen\dmWindowed dem Display Objekt zuweisen

[chaoslion]

Hey Leute,


kann mir mal einer erklären warum ich laut Compiler folgendes nicht machen darf:

Delphi-Quellcode:

adDraw.Display.DisplayMode := dmFullscreen,

..

aber dieses schon:

Delphi-Quellcode:

 with adDraw.Display do
  DisplayMode := dmFullscreen;

mfG

[Arnulf]

Zitat:

adDraw.Display.DisplayMode := dmFullscreen,

weil du einen beistrich verwendest und kein semicolon ";"
lg
Arnulf

[matashen]

Zitat:

einen beistrich

[Klugscheiss]kommata[/klugscheiss]

[inherited]

doppelklugscheiss: nö, nur eins, deshalb komma!

[chaoslion]

ja ne
das war nur ein Fehler von mir, soll ein Semikolon sein..

Der Compiler sagt, der linken Seite kann nichts zugewiesen werden..

[inherited]

Funktionert bei mir beides tadellos

[igel457]

Display ist ein Record und eine Property. Das verträgt der Delphi-Compiler nicht so ganz. Der Weg mit dem "with" ist meiner Meinung nach das beste.

[pustekuchen]

Mhh bei Delphi 2010 meckert er bei mir, bei beiden Versionen

Zitat:

Der linken Seite kann nichts zugewiesen werden

[DeddyH]

Hier steht, wieso und wie man das lösen kann.

[pustekuchen]

Danke DeddyH

Wer das selbe Problem hat hier sind die zu ersetzenden Codezeilen

TAdDisplay = record ... wird zu

Delphi-Quellcode:

  TAdDisplay = class
    private
      FWidth: Integer;
      FHeight: integer;
      FBitDepth: TAdBitDepth;
      FFreq: integer;
      FDisplayMode: TAdWindowDisplayMode;
    public
      {The width of the video surface.}
      property Width: Integer read FWidth write FWidth;
      {The hieght of the video surface.}
      property Height: Integer read FHeight write FHeight;
      {The bit depth the video surface should be created with. This property only
       affects the fullscreen mode.}
      property BitDepth: TAdBitDepth read FBitDepth write FBitDepth;
      {The horizontal display refresh frequncy. This property only affects the
       fullscreen mode.}
      property Freq:integer read FFreq write FFreq;
      {The mode the display is created in.
       @seealso(TAdDisplayMode)}
      property DisplayMode:TAdWindowDisplayMode read FDisplayMode write FDisplayMode;
  end;

Delphi-Quellcode:

procedure TAdDraw.SetupDisplay;
begin
   [...]
end;

wird zu

Delphi-Quellcode:

procedure TAdDraw.SetupDisplay;
begin
  //Set default display settings
  FDisplay := TAdDisplay.Create;
  FDisplay.Width := 800;
  FDisplay.Height := 600;
  FDisplay.BitDepth := ad32Bit;
  FDisplay.Freq := 0;
  FDisplay.DisplayMode := dmDefault;

  //Set default options
  Options := [aoTextures, aoBlending, aoCulling];
end;

Delphi-Quellcode:

destructor TAdDraw.Destroy
begin
   ...
end

wird zu

Delphi-Quellcode:

destructor TAdDraw.Destroy;
begin
  //Destroy the window object
  if FWnd <> nil then
    FreeAndNil(FWnd);

  //Free all loaded objects
  if AdAppl <> nil then
    Finalize;

  FProperties.Free;
  FSurfaceEventList.Free;
  FDllLoader.Free;
  FLog.Free;
  FDisplay.Free;
    inherited Destroy;
end;