DGL • Thema anzeigen - Pointer auf Klasse

Pointer auf Klasse

Moderator: DGL-Team

Seite 1 von 1

[ 1 Beitrag ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

i0n0s

Betreff des Beitrags: Pointer auf Klasse

Verfasst: Mo Mai 30, 2005 10:13

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Hi, habe bei der Umsetzung "meiner" Fensterklasse Probleme von Objekte auf Classen umzustellen.
Sobald Render aufgerufen wird stürzt das Programm ab, da der Pointer auf was falsches zeigt.
Wieso?

Code:

///////////die fehlerhafte Unit/////////////////////////////////////////////////////
 
  TAppWindow = Class
    protected
      Width, Height : Integer;
      CaptionBarHeight : Integer;
    private
      Windows : Array of PWindow;
      MouseDrag : TMouseDrag;
 
      ButtonPressed : PButton;
      EditSelect: Integer;
      EditFocused : PEdit;
      ComboOpen: PCombobox; //which Combobox is open?
      ComboOpened: Boolean; //has a Combobox get opened?
                            //important if you have more than one Window with Comboboxes
    public
      Mouse : TMouse;
 
      constructor Create(xWidht, xHeight: Integer; Texture: TGLUint);
      procedure Render;
      function OnMouseDown(mX, mY, mButton: Integer): Boolean;
      procedure OnMouseUp(mX, mY, mButton: Integer);
      procedure OnMouseMove(mX, mY: Integer);
      procedure OnKeyDown(Key: Word);
  end;  
 
  TWidow = Class
    X, Y    : Integer;
    Width, Height : Integer;
    Visible : Boolean;
    .
    .  //mehre Arrays für Objekte, die aber hier nicht benutzt werden
    .
    function onMouseDown(mX, mY, mButton: Integer): boolean;
    procedure onMouseUp(mX, mY, mButton: Integer);
  end;
 
 
  TWindow = Class(TWidow)
    ZOrder  : single;
    Alpha   : Single;
    MayClose    : Boolean;
    MayAlpha    : Boolean;
    MayDrag     : Boolean;
    Captionbar  : Boolean;
    onclose     : procedure;
    constructor Create(wX, wY, wWidth, wHeight : Integer);
    function onMouseDown(mX, mY, mButton: Integer): boolean;
    procedure onMouseUp(mX, mY, mButton: Integer);
    procedure Render;
  end;
 
var AppWindow: TAppWindow;
 
 
procedure TAppWindow.Render;
var I: Integer;
begin
  glMatrixMode(GL_PROJECTION);  // Change Matrix Mode to Projection
  glLoadIdentity();             // Reset View
  glOrtho(0, Width, 0, Height, 0, 100);
  glMatrixMode(GL_MODELVIEW);   // Change Projection to Matrix Mode
  glLoadIdentity;
 
  glDisable(GL_LIGHTING);
  glEnable(GL_TEXTURE_2D);
 
  glTranslatef(0, 0, -High(Windows)-2);
 
  for I:=0 to High(Windows) do
    begin
      Windows[I]^.Render;
      glTranslatef(0,0,1);
    end;
  glTranslatef(0,0,2);  //1 weil, die Maus noch in eine \"Ebene\" gezeichnet wird,
                        //das andere, damit das Picking richtig funktioniert;
end; 
 
 
{------------------------------------------------------------------}
{  Initialise window and setup defaults                            }
{------------------------------------------------------------------}
constructor TWindow.Create(wX, wY, wWidth, wHeight : Integer);
begin
  X :=wX;
  Y :=wY;
  Width  :=wWidth;
  Height :=wHeight;
  Visible :=TRUE;     // start off visible
  zOrder :=0;         // used if you specifically want to set a window higher
  Alpha :=0.9;        // default for alpha blending
  MayClose:=False;
  MayAlpha:=False;
  MayDrag:=False;
  Captionbar:=False;
  with AppWindow do
    begin
    SetLength(Windows,High(Windows)+2);
    Windows[High(Windows)]:=@self;
    end;
end;
 
 
//////////////////////Das DGL-Template:///////////////////////////////////
procedure TGLForm.FormCreate(Sender: TObject);
begin
.
. //DGL-Template
.
LoadTexture('gui.tga',GuiTexture);
AppWindow:=TAppwindow.Create(640,480,GuiTexture);
Window1:=TWindow.Create(0,0,320,240);
end;
 
procedure TGLForm.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
begin
.
.
.
Appwindow.Render; //Hier der Fehler
.
.
.
end;
 

Danke

Nach oben

Seite 1 von 1

[ 1 Beitrag ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 10 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.