AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia GLscene Objekt wird nicht angezeigt

GLscene Objekt wird nicht angezeigt

Ein Thema von nwnssolutionssoftware · begonnen am 7. Apr 2019 · letzter Beitrag vom 7. Apr 2019
Antwort Antwort
nwnssolutionssoftware

Registriert seit: 6. Aug 2018
37 Beiträge
 
#1

GLscene Objekt wird nicht angezeigt

  Alt 7. Apr 2019, 20:37
Hallo erstmal,
wollte mich mal in der 3D entwicklung versuchen jedoch
habe ich aktuell ein Problem mit dem erstellen von Objekten
während der Laufzeit. Die Objekte werden einfach nicht angezeigt.
Hier mal ein kleiner Code ausschnitt:
Code:
unit main2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, GLWin32Viewer,
  GLCrossPlatform, GLBaseClasses, GLScene, GLSkyBox, GLCoordinates, GLObjects;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    New1: TMenuItem;
    Open1: TMenuItem;
    Close1: TMenuItem;
    Save1: TMenuItem;
    SaveAs1: TMenuItem;
    Print1: TMenuItem;
    PrintSetup1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Window1: TMenuItem;
    NewWindow1: TMenuItem;
    Tile1: TMenuItem;
    Cascade1: TMenuItem;
    ArrangeAll1: TMenuItem;
    Hide1: TMenuItem;
    Show1: TMenuItem;
    N4: TMenuItem;
    Edit1: TMenuItem;
    Undo1: TMenuItem;
    Repeat1: TMenuItem;
    Cut1: TMenuItem;
    Copy1: TMenuItem;
    Paste1: TMenuItem;
    PasteSpecial1: TMenuItem;
    Find1: TMenuItem;
    Replace1: TMenuItem;
    GoTo1: TMenuItem;
    Links1: TMenuItem;
    Object1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ools1: TMenuItem;
    Help1: TMenuItem;
    Contents1: TMenuItem;
    Index1: TMenuItem;
    Commands1: TMenuItem;
    Procedures1: TMenuItem;
    Keyboard1: TMenuItem;
    SearchforHelpOn1: TMenuItem;
    Tutorial1: TMenuItem;
    HowtoUseHelp1: TMenuItem;
    About1: TMenuItem;
    GLScene1: TGLScene;
    GLSceneViewer1: TGLSceneViewer;
    Panel1: TPanel;
    GLCamera1: TGLCamera;
    GLLightSource1: TGLLightSource;
    GLCube1: TGLCube;
    GLSkyBox1: TGLSkyBox;
    GLCube2: TGLCube;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
  MeinCube: TGLCube;
begin
  MeinCube := TGLCube.Create(GLScene1);
  MeinCube.Position.SetPoint(GLCube2.Position.X + 2, GLCube2.Position.Y + 2,
    GLCube2.Position.Z +2);
  MeinCube.Visible := True;
end;

end.
Vieleicht habt ihr ja eine Idee
Danke im Vorraus
Nico
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
6.827 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: GLscene Objekt wird nicht angezeigt

  Alt 7. Apr 2019, 21:00
Probier doch mal dies:
Delphi-Quellcode:
var
  MeinCube: TGLCube;
begin
  MeinCube := GLCube2.AddNewChild(TGLCube) as TGLCube;
  MeinCube.Position.SetPoint(2, 2, 2);
end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Heuman
Heuman

Registriert seit: 12. Nov 2016
Ort: Bielefeld
47 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#3

AW: GLscene Objekt wird nicht angezeigt

  Alt 7. Apr 2019, 21:17
Hallo erstmal,
wollte mich mal in der 3D entwicklung versuchen jedoch
habe ich aktuell ein Problem mit dem erstellen von Objekten
während der Laufzeit. Die Objekte werden einfach nicht angezeigt.
Hier mal ein kleiner Code ausschnitt:
Code:
unit main2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, GLWin32Viewer,
  GLCrossPlatform, GLBaseClasses, GLScene, GLSkyBox, GLCoordinates, GLObjects;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    New1: TMenuItem;
    Open1: TMenuItem;
    Close1: TMenuItem;
    Save1: TMenuItem;
    SaveAs1: TMenuItem;
    Print1: TMenuItem;
    PrintSetup1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Window1: TMenuItem;
    NewWindow1: TMenuItem;
    Tile1: TMenuItem;
    Cascade1: TMenuItem;
    ArrangeAll1: TMenuItem;
    Hide1: TMenuItem;
    Show1: TMenuItem;
    N4: TMenuItem;
    Edit1: TMenuItem;
    Undo1: TMenuItem;
    Repeat1: TMenuItem;
    Cut1: TMenuItem;
    Copy1: TMenuItem;
    Paste1: TMenuItem;
    PasteSpecial1: TMenuItem;
    Find1: TMenuItem;
    Replace1: TMenuItem;
    GoTo1: TMenuItem;
    Links1: TMenuItem;
    Object1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ools1: TMenuItem;
    Help1: TMenuItem;
    Contents1: TMenuItem;
    Index1: TMenuItem;
    Commands1: TMenuItem;
    Procedures1: TMenuItem;
    Keyboard1: TMenuItem;
    SearchforHelpOn1: TMenuItem;
    Tutorial1: TMenuItem;
    HowtoUseHelp1: TMenuItem;
    About1: TMenuItem;
    GLScene1: TGLScene;
    GLSceneViewer1: TGLSceneViewer;
    Panel1: TPanel;
    GLCamera1: TGLCamera;
    GLLightSource1: TGLLightSource;
    GLCube1: TGLCube;
    GLSkyBox1: TGLSkyBox;
    GLCube2: TGLCube;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
  MeinCube: TGLCube;
begin
  MeinCube := TGLCube.Create(GLScene1);
  MeinCube.Position.SetPoint(GLCube2.Position.X + 2, GLCube2.Position.Y + 2,
    GLCube2.Position.Z +2);
  MeinCube.Visible := True;
end;

end.
Vieleicht habt ihr ja eine Idee
Danke im Vorraus


Vieleicht klappt dies:

var
MeinCube: TGLCube;
begin

MeinCube := TGLCUBE(glscene1.Objects.AddNewChild(TGLCUBE));

MeinCube.Position.SetPoint(GLCube2.Position.X + 2, GLCube2.Position.Y + 2,
GLCube2.Position.Z +2);
MeinCube.Visible := True;


Gruß
  Mit Zitat antworten Zitat
nwnssolutionssoftware

Registriert seit: 6. Aug 2018
37 Beiträge
 
#4

AW: GLscene Objekt wird nicht angezeigt

  Alt 7. Apr 2019, 21:23
Danke letzter Vorschlag hat funktioniert.
Vielen Dank für die schnellen Antworten!
Nico

Geändert von nwnssolutionssoftware ( 7. Apr 2019 um 21:25 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf