DGL • Thema anzeigen - Nach Veränderung der Form geht nichts mehr...-.-

Nach Veränderung der Form geht nichts mehr...-.-

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Seelenfang

Betreff des Beitrags: Nach Veränderung der Form geht nichts mehr...-.-

Verfasst: So Mär 26, 2006 14:39

DGL Member

Registriert: So Mär 26, 2006 14:34
Beiträge: 2
Wohnort: Lübeck

Hallo,
ich hatte zuerst ein OpenGL teil in Delphi geschrieben der auch Lief und habe hinterher die Form mit einem Pannel und einigen Buttons verändert und den Timer auf dem ich Rendere ebenso auf nen ButtonClick gelegt. Jetzt wird die Form zwar Schwarz aber er zeichnet die Linien nicht ein. Ich finde den Fehler einfach nicht, villeicht kann mir ja einer von euch weiter helfen, wäre echt klasse.

LG Seele

Code:

 
unit xy;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, opengl,
  ExtCtrls, Buttons, StdCtrls;
 
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Label4: TLabel;
    Timer1: TTimer;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
 
  private
    { Private-Deklarationen }
   myDC : HDC;
   myRC : HGLRC;
   myPalette : HPALETTE;
   procedure SetupPixelFormat;
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  mode : integer = 1;
 
implementation
 
{$R *.DFM}
procedure TForm1.SetupPixelFormat;
var    hHeap: THandle;
  nColors, i: Integer;
  lpPalette : PLogPalette;
  byRedMask, byGreenMask, byBlueMask: Byte;
  nPixelFormat: Integer;
  pfd: TPixelFormatDescriptor;
begin
  FillChar(pfd, SizeOf(pfd), 0);
  with pfd do begin
    nSize     := sizeof(pfd);               // Länge der pfd-Struktur
    nVersion  := 1;                         // Version
    dwFlags   := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or
                 PFD_DOUBLEBUFFER;          // Flags
    iPixelType:= PFD_TYPE_RGBA;             // RGBA Pixel Type
    cColorBits:= 24;                        // 24-bit color
    cDepthBits:= 32;                        // 32-bit depth buffer
    iLayerType:= PFD_MAIN_PLANE;            // Layer Type
  end;
  nPixelFormat:= ChoosePixelFormat(myDC, @pfd);
  SetPixelFormat(myDC, nPixelFormat, @pfd);
                                            // Farbpalettenoptimierung wenn erforderlich
  DescribePixelFormat(myDC, nPixelFormat,
                      sizeof(TPixelFormatDescriptor),pfd);
  if ((pfd.dwFlags and PFD_NEED_PALETTE) <> 0) then begin
    nColors  := 1 shl pfd.cColorBits;
    hHeap    := GetProcessHeap;
    lpPalette:= HeapAlloc
       (hHeap,0,sizeof(TLogPalette)+(nColors*sizeof(TPaletteEntry)));
    lpPalette^.palVersion := $300;
    lpPalette^.palNumEntries := nColors;
    byRedMask  := (1 shl pfd.cRedBits) - 1;
    byGreenMask:= (1 shl pfd.cGreenBits) - 1;
    byBlueMask := (1 shl pfd.cBlueBits) - 1;
    for i := 0 to nColors - 1 do begin
      lpPalette^.palPalEntry[i].peRed  :=
        (((i shr pfd.cRedShift)  and byRedMask)  *255)DIV byRedMask;
      lpPalette^.palPalEntry[i].peGreen:=
        (((i shr pfd.cGreenShift)and byGreenMask)*255)DIV byGreenMask;
      lpPalette^.palPalEntry[i].peBlue :=
        (((i shr pfd.cBlueShift) and byBlueMask) *255)DIV byBlueMask;
      lpPalette^.palPalEntry[i].peFlags:= 0;
    end;
    myPalette:= CreatePalette(lpPalette^);
    HeapFree(hHeap, 0, lpPalette);
    if (myPalette <> 0) then begin
      SelectPalette(myDC, myPalette, False);
      RealizePalette(myDC);
    end;
  end;
end;
 
procedure render;
begin
 
 GlLineWidth(2);
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //Farb und Tiefenpuffer löschen
 glLoadIdentity;                         // World Matrix zurücksetzen
 
//glTranslatef(-1.5, 0,-6);
 
 glBegin(gl_lines);
 glcolor3f(1,1,1);
 glvertex3f(-10,0,-2);
 glcolor3f(1,1,1);
 glvertex3f(10,0,-2);
 glcolor3f(1,1,1);
 glvertex3f(0,-10,-2);
 glcolor3f(1,1,1);
 glvertex3f(0,10,-2);
 glEnd;
 
 
 SwapBuffers(form1.myDC);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.myDC:= GetDC(Handle);
SetupPixelFormat;
myRC:= wglCreateContext(myDC);
wglMakeCurrent(myDC, myRC);
glEnable(GL_DEPTH_TEST);
glLoadIdentity;
end;
 
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
wglmakecurrent(0,0);
wgldeletecontext(mydc);
releasedc(handle,mydc);
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
glViewport(0, 0, Width, Height);    // Setzt den Viewport für das OpenGL Fenster
glMatrixMode(GL_PROJECTION);        // Matrix Mode auf Projection setzen
glLoadIdentity();                   // Reset View
gluPerspective(45.0, Width/Height, 1, 100.0);  // Perspektive den neuen Maßen anpassen.
glMatrixMode(GL_MODELVIEW);         // Zurück zur Modelview Matrix
glLoadIdentity();
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
Label4.Visible:=True;
 
Image1.Canvas.MoveTo(51,5);
Image1.Canvas.LineTo(51,100);
Image1.Canvas.MoveTo(5,51);
Image1.Canvas.LineTo(100,51);
Image1.Canvas.MoveTo(80,48);
Image1.Canvas.LineTo(80,55);
Image1.Canvas.MoveTo(25,48);
Image1.Canvas.LineTo(25,55);
Image1.Canvas.MoveTo(48,80);
Image1.Canvas.LineTo(55,80);
Image1.Canvas.MoveTo(48,25);
Image1.Canvas.LineTo(55,25);
Image1.Canvas.TextOut(75,57,edit2.text);
Image1.Canvas.TextOut(20,57,'-'+edit2.text);
Image1.Canvas.TextOut(57,75,'-'+edit3.text);
Image1.Canvas.TextOut(57,20,edit3.text);
Image1.Canvas.TextOut(53,53,'0');
 
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
render;
end;
 
end.
 

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mo Mär 27, 2006 10:21

Guitar Hero

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

Was machst du denn da? Wieso matscht du denn das schöne OGL mit nem Canvas zusammen? Linien kann man doch genausogut in OGL zeichnen (siehe glBegin ). Und wenns nur ist, weil du 2D brauchst gibts glOrtho.

Heißt soviel wie: vielleicht wehrt sich dein Prog ja zurecht.

Aber erzähl mal was du erreichen willst.

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

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mo Mär 27, 2006 11:15

DGL Member

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

Was mir auch gerade aufgefallen ist. Im Resize benutzt die Width und Height. Wenn dein Fenster aber noch einen Rand und eine Titelleiste hat, dann solltest die besser ClientWidth und ClientHeight benutzen. Height ist gesammthöhe des Fensters. Also normal sollte man immer Client* benutzen, da es so flexibler ist.

Nach oben

Seelenfang

Betreff des Beitrags:

Verfasst: Mo Mär 27, 2006 13:48

DGL Member

Registriert: So Mär 26, 2006 14:34
Beiträge: 2
Wohnort: Lübeck

Also das ganze soll ein Koordinatenkreuz werden, wo später ein graf eingezeichnet werden soll, da ich in opengl nicht beschriften kann habe ich das in canvas gemacht mit einem kleinen fenster, weil da das beschriften sehr einfach ist.

ich habe nun auch ClientWhite/ClientHight benutzt, dennoch wird im eigentlich fenster die beiden Lines nicht angezeit... und das eine image mit dem canvas bmp drin dürfte daran doch wohl nicht schuld sein oder?

ich bin absolut ratlos...

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mo Mär 27, 2006 14:22

DGL Member

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

Also das ganze Canvasgedöhns lässte mal bitte weg. Beschriftungen etc sind in OpenGL sehr einfach. Also du solltest auf jeden Fall nur mit OpenGL zeichnen. Sonst flackert es oder sieht einfach nur doof aus.

Also ich habe eine schlechte Nachricht. Bei mir sind die Linien vorhanden. Setze mal testweise mittels glClearColor eine andere Farbe und schau mal ob er das überhaupt nimmt. kann jetzt so nämlich nichts offensichtlich Falsches finden.

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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