DGL • Thema anzeigen - OpenGL "bemalt" andere Programme mit seinem Inhalt

OpenGL "bemalt" andere Programme mit seinem Inhalt

Moderator: DGL-Team

Seite 1 von 1

[ 12 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

berens

Betreff des Beitrags: OpenGL "bemalt" andere Programme mit seinem Inhalt

Verfasst: Fr Mär 30, 2007 11:15

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

Hallo!

Delphi 2007, aktuelle OpenGL Header hier aus dem Forum. Programm mit einem extra Form, auf dem sich ein Panel befindet auf dessen Handle OpenGL initialisiert wurde.

Wenn das Programm nun läuft und ich das Fenster mit OpenGL verschiebe oder Schließe werden alle anderen "normalen" Windowsfenster statt mit dem regulären Inhalt mit Teilen der OpenGL Ausgabe angezeigt. So auch die komplette Taskleiste und Systray Icons.

Das OpenGL Fenster wird mit
Parent:= NIL;
ParentWindow := GetDesktopWindow;
initialisiert, damit es unabhängig vom Rest des Programmes ist.

Jemand eine Idee, woran das liegen kann?

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Fr Mär 30, 2007 12:10

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Also so genau kann ich das jetzt nicht sagen, das die Informationen alle ein bisschen zerstückelt sind. Aber dein Renderfenster ist ein Unterfenster des Desktops? Und da denke ich, dass der Desktop sich deswegen solche Dinge gefallen lässt ohne sich neuzuzeichnen. Weil wenn es ein eigenständiges Fenster wäre, dann würde er das wissen und würde sich dort neu zeichnen.

Ein Fenster als Kind des Desktops zu setzen solltest du nur dann machen wenn es wirklich sein muss. Aber ich denke, wenn du dem Desktop beim Verschieben des Fenster ein WM_PAINT sendest könnte das evtl. schon ausreichen. Aber Vorsicht! Ist nur ein Tipp und es kann passieren, dass ein manueller Aufruf von WM_PAINT in einer Rekursionen endet. Vor allem weiß ich nicht was du sonst noch machst bzw was du überhaupt damit vor hast?

Nach oben

berens

Betreff des Beitrags:

Verfasst: Fr Mär 30, 2007 12:18

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

"Hai auch!" (<-- Dori)

Ich will meinen OpenGL Kram wirklich einfach nur in einem neuen Fenster. Also nicht MDI/SDI sondern auch in der Taskleiste. Mehr soll das garnicht können. Dann kann man im Hauptprogramm bedienen, und im anderen Fenster anschauen.

Der RenderThread ruft einfach nur periodisch RenderAPicutre auf.

Hauptform (als Demo)

Code:

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uOpenGL_Form;
 
type
  TForm3 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    gl: TOpenGLForm;
    { Public-Deklarationen }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
procedure TForm3.FormCreate(Sender: TObject);
begin
  gl := TOpenGLForm.Create(Self);
  gl.Active := True;
end;
 

GL-Form

Code:

 
unit uOpenGL_Form;
 
interface
 
{$Region 'uses'}
uses
  // Delphi/Windows Units
  AdoDB,
  ActiveX,
  Buttons,
  Classes,
  Controls,
  ComObj,
  ComCtrls,
  Contnrs,
  DB,
  Dialogs,
  ExtCtrls,
  ExtDlgs,
  Forms,
  Graphics,
  JPEG,
  Menus,
  Messages,
  ShellApi,
  StdCtrls,
  SysUtils,
  Types,
  Variants,
  Windows,
  Textures,
  
  ... viele weitere ...
 
  , uOpenGL_RenderThread
  , uGlobalObjects
  , dglOpenGL
  ;
{$EndRegion}
 
type
  TOpenGLForm = class(TForm)
  private
    FDC         : HDC;    // Device Context
    FRC         : HGLRC;
 
    FActive: Boolean;  // Rendering Context
    FRenderThread: TRenderThread;
 
    FContainerPanel: TPanel;
 
    procedure KillThread;
    procedure FormClose(_Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(_Sender: TObject; var _CanClose: Boolean);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormResize(Sender: TObject);
    procedure SetActive(const Value: Boolean);
  public
    property Active: Boolean read FActive write SetActive;
    property DC: HDC read FDC;
    property RC: HGLRC read FRC;
    property Container: TPanel read FContainerPanel;
 
    procedure RenderAPicture; virtual;
    constructor Create(_Owner: TComponent); override;
    destructor Destroy; override;
  end;
 
 
implementation
 
{ TOpenGLForm }
 
constructor TOpenGLForm.Create(_Owner: TComponent);
begin
  inherited CreateNew(_Owner, 0);
 
  Left := 0;
  Top := 0;
 
  {$Region 'Parent zuweisen'}
  if assigned(_Owner) then begin
    if _Owner.InheritsFrom(TWinControl) then begin
//      Parent := (_Owner as TWinControl);
    end;
  end;
  {$EndRegion}
 
  Parent:= NIL;
  ParentWindow := GetDesktopWindow;
 
  Width := Screen.Width;
  Height := Screen.Height;
  OnKeyDown := FormKeyDown;
  DoubleBuffered := True;
//  BorderStyle := bsNone;
  KeyPreview := True;
  if not isDeveloperMode then begin
    FormStyle := fsStayOnTop;
  end;
 
  FContainerPanel := TPanel.Create(Self);
  with FContainerPanel do begin
    Parent := Self;
    Align := alNone;
    BevelEdges := [];
    BevelInner := bvNone;
    BevelOuter := bvNone;
    BevelKind := bkNone;
    ClientWidth := Screen.Width;
    ClientHeight := Screen.Height;
  end;
  Show;
//  Align := alClient;
  FActive := False;
 
  {$Region 'RenderThread erzeugen und zuweisen'}
  FRenderThread := TRenderThread.Create;
  with FRenderThread do begin
    CallBackProcedure := RenderAPicture;
    Suspend;
  end;
  {$EndRegion}
 
 
  InitOpenGL;          // OpenGL Initialisieren
 
  {$Region 'DeviceContext und RenderingContext erzeugen und zuweisen'}
  FDC := GetDC(FContainerPanel.Handle);
  FRC := CreateRenderingContext(FDC, [opDoubleBuffered], 16, 24, 0, 0, 0, 0);
  ActivateRenderingContext(FDC, FRC);
  {$EndRegion}
 
  OnCloseQuery := FormCloseQuery;
  OnClose := FormClose;
  OnResize := FormResize;
end;
 
destructor TOpenGLForm.Destroy;
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(FRC);
  ReleaseDC(FContainerPanel.Handle, FDC);
  FreeAndNil(FContainerPanel);
  inherited Destroy;
end;
 
procedure TOpenGLForm.FormClose(_Sender: TObject; var Action: TCloseAction);
begin
  KillThread;
end;
 
{$Region 'procedure TOpenGLForm.FormCloseQuery(_Sender: TObject; _CanClose: Boolean); // Form schließen'}
procedure TOpenGLForm.FormCloseQuery(_Sender: TObject; var _CanClose: Boolean);
begin
//  KillThread;
//  DeactivateRenderingContext;
//  DestroyRenderingContext(FRC);
//  ReleaseDC(Handle, FDC);
end;
{$EndRegion}
 
procedure TOpenGLForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_ESCAPE then begin
    Self.Close;
  end;
end;
 
procedure TOpenGLForm.KillThread;
//var
//  CrashCount: integer;
begin
  if assigned(FRenderThread) then begin
    FRenderThread.WantsToClose := True;
    FRenderThread.Delay := 1;
    FRenderThread.CallBackProcedure := NIL;
    FRenderThread.ForceResume;
    FRenderThread := NIL;
 
{    CrashCount := 0;
    repeat
      Application.ProcessMessages;
      inc(CrashCount);
    until (CrashCount > 1000) or not assigned(FRenderThread);
 
    if assigned(FRenderThread) then begin
      FreeAndNil(FRenderThread);
    end;
 }
  end;
end;
 
procedure TOpenGLForm.SetActive(const Value: Boolean);
begin
  FActive := Value;
  {$Region 'RenderThread (de)aktivieren'}
  if assigned(FRenderThread) then begin
    if FActive then begin
      FRenderThread.ForceResume;
    end else begin
      FRenderThread.Suspend;
    end;
  end;
  {$EndRegion}
end;
 
 
procedure DrawQuad(pX, pY, pZ, pWidth, pHeight : Single);
begin
  glBegin(GL_QUADS);
    glTexCoord2f(0,0); glVertex3f(pX-pWidth/2, pY-pHeight/2, -pZ);
    glTexCoord2f(1,0); glVertex3f(pX+pWidth/2, pY-pHeight/2, -pZ);
    glTexCoord2f(1,1); glVertex3f(pX+pWidth/2, pY+pHeight/2, -pZ);
    glTexCoord2f(0,1); glVertex3f(pX-pWidth/2, pY+pHeight/2, -pZ);
  glEnd;
end;
 
procedure TOpenGLForm.RenderAPicture;
begin
  if not Assigned(FRenderThread) then exit;
  if (FRenderThread.Suspended) then exit;
  
  
  {
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glViewPort(0, 0, ClientWidth, ClientHeight);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  // In orthagonale (2D) Ansicht wechseln
  glLoadIdentity;
  glOrtho(0,ClientWidth,ClientHeight,0, -1,1);
  glMatrixMode(GL_MODELVIEW);
 
  glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe: Hier ein leichtes Blau
//  DrawQuad(10,10,0,100,100);
 
   }
 
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
//  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
  glTranslatef(0, 0, -5);
 
  glBegin(GL_QUADS);
    glColor3f(1, 0, 0); glVertex3f(0, 0, 0);
    glColor3f(0, 1, 0); glVertex3f(1, 0, 0);
    glColor3f(0, 0, 1); glVertex3f(1, 1, 0);
    glColor3f(1, 1, 0); glVertex3f(0, 1, 0);
  glEnd;
 
  SwapBuffers(DC);
 
end;
 
procedure TOpenGLForm.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
//  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
//  IdleHandler(Sender, tmpBool);
end;
 
end.
 

// edit Lossy: Code durch Pascaltags ersetzt

Nach oben

berens

Betreff des Beitrags:

Verfasst: Fr Mär 30, 2007 14:13

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

Also das Problem besteht auch, wenn man das Form in dem anderm Form drinnen lässt, und nicht den Desktop als Parent nimmt.

Es geht sogar soweit, dass wenn ihr das Form in dem anderem Form soweit nach rechts unten schiebt, dass ein Bereich nicht mehr zu sehen ist,
wird dieser trotzdem gerendert anstatt versteckt. Dieser Bereich ist dann auch der, der später von den anderen "Übermalten" Programmen nicht mehr neu gezeichnet wird.

Habt ihr Überhaupt schonmal einen OpenGL Bereich gehabt, der nicht fix an einer Stelle in eurem Programm verankert war?

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Fr Mär 30, 2007 15:24

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Als erstes eines mal vorweg. Der Thread ruft RenderAPicture ja synchron auf, oder? Wenn nein, dann wundert es mich 1.) dass du etwas siehst und 2.) sollte das immer synchron aufgerufen werden oder alles im Thread stattfinden. Wobei ich den nutzen eines Threads dort auch nicht so ganz sehe. Aber das ist eine andere Sache.

Eine Sache die mich persönlich auch noch irritiert ist folgendes. Du erstellst ein Fenster welches ein Panel besitzt. Diesem weißt du aber die Größe des Bildschirmes zu. Da dein Fenster aber einen Rand haben müsste ist das Panel größer als der maximale sichtbare Bereich. Und dadurch, dass du das OpenGL komplett im Fenster darstellst ist das Panel auch überflüssig. Bzw wenn du ein Panel benutzt dann sollte das Panel auch die Größe haben die sichtbar ist. Also es sollte dann nicht irgendwo raus reichen.

Du hast auch nirgendswo Code mit dem du deine Ansicht einstellst. Das gluPerspective ist überall sauber auskommentiert.

DoubleBuffered bei einem Form zu setzen brauchst du bei OpenGL nicht. Könnte da sogar eher noch nachteilig sein.

Typischerweise hällt sich OpenGL aber ziemlich genau an die Bereiche die mit dem DC verbunden sind.

Nach oben

berens

Betreff des Beitrags:

Verfasst: Mo Apr 02, 2007 09:20

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

Also das Problem scheint nicht nur komplett an mir zu liegen (scheinbar):

Wenn ich das Template für OpenGL 1.5 laufen lasse http://www.delphigl.com/do_download.php?f=8 und das Fenster über die Taskleiste ziehe, wird diese auch nicht mehr neu gezeichnet, wenn man das Fenster weiter zieht.

Jemand eine Idee, was man dagegen machen kann?

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mo Apr 02, 2007 09:23

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Jetzt wirds aber langsam richtig komisch.

Also bei meinem Template läuft alles wunderbar. Ich hab auch noch nie von einem derartigen Verhalten gehört. Wenn unser Standard-Template so reagiert, dann scheint wohl irgendwas mit deinem Rechner nicht zu stimmen. Was für ein Betriebssystem hast du? Welcher GraKa? Und welchen GraKa-Treiber?

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

berens

Betreff des Beitrags:

Verfasst: Mo Apr 02, 2007 09:28

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

Windows XP Pro 32, ATI Mobility Radeo 9000 (Omega 3.8.330), Designs deaktiviert
evtl. liegt's wirklich an den Treibern, aber leider kann ich die "Offiziellen" nicht installieren, da meine GraKa halt Laptop-OEM ist, und der Hersteller (Maxdata) aktualisierte Treiber liefern muss anstelle von ATI, der hat aber nur knapp 3 Jahre alte auf dem FTP... (<-- und die haben mir das letzte Mal nur BlueScreen beschert, deswegen will ich die jetzt net unbedingt testen, weil ich dann noch net mal mehr in den Abgesicherten Modus herein kam...)

Nach oben

berens

Betreff des Beitrags:

Verfasst: Mo Apr 02, 2007 09:45

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

Ok, es schein wohl definitv an meinem Laptop zu liegen. Habe das Ganze eben auf einem anderen PC getestet, und das klappt es problemlos.

Bei mir kann man das OpenGL 1.5 Template auch nicht mit einem anderen Programm überdecken. *Seufz*

Interessant ist aber auch noch, dass ich mit dem Laptop (auch wieder mit dem Template) knapp 875-890 FPS schaffe, mit dem anderen PC (OnBoard ATI Radeon Xpress 200 mit Omega 3.8.273 eines Desktop PCs) aber nur knapp 60. Nun ja, da wird wohl V-Sync funktionieren...

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Di Apr 03, 2007 13:58

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Mach mal die Designs aus. Vielleicht laufen die auch mit OGL und die kommen sich ins gehege.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

berens

Betreff des Beitrags:

Verfasst: Di Apr 03, 2007 15:02

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

Die Designs sind das nicht, weil ich arbeite immer ohne, habe aber auch mit getestet.

Es liegt definitv an den GraKa Treiber, da ich die Programme nun auf diversen anderen PCs getestet habe, und es dort auch geht. Zusätzlich habe ich mittelns eines alten Images meiner Platte mit den Originaltreibern verifizierten können, dass es damit auch funktioniert.

Also scheint einfach das Problem bei den Omegatreibern mit meiner Laptop-GraKa zu liegen.

Hab mir jetzt nen neuen Laptop geholt, der hat das Problem nicht. Der alte war eh schon 3 Jahre alt.

Thema ist damit also soweit erledigt, ich danke allen für die Tips und Anregungen.

Thx!

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Do Apr 05, 2007 13:39

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Öhm...ja...so kann man das auch lösen... :shock:

Falls du den alten noch da hast, kannste da mal versuchen neue Treiber zu installieren? Einfach nur interessehalber.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Seite 1 von 1

[ 12 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 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.