DGL • Thema anzeigen - einfacher würfel

einfacher würfel

Moderator: DGL-Team

Seite 1 von 2

[ 20 Beiträge ]

Gehe zu Seite 1, 2 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Howard

Betreff des Beitrags: einfacher würfel

Verfasst: Mo Jan 06, 2003 20:58

DGL Member

Registriert: Do Jan 02, 2003 13:38
Beiträge: 104
Wohnort: Bremen

Also, ich bin wirklich neu in dieser Materie, deswegen hab ich mir mal son tutorial reingezogen:

Code:

unit Unit1;
 
interface
 
uses
 
 &nbsp;Windows,opengl, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 
 &nbsp;Dialogs;
 
type
 
 &nbsp;TForm1 = class(TForm)
 
 &nbsp; &nbsp;procedure FormCreate(Sender: TObject);
 
 &nbsp; &nbsp;procedure FormDestroy(Sender: TObject);
 
 &nbsp; &nbsp;procedure FormPaint(Sender: TObject);
 
 &nbsp; &nbsp;procedure FormKeyDown(Sender: TObject; var Key: Word;
 
 &nbsp; &nbsp; &nbsp;Shift: TShiftState);
 
 &nbsp;private
 
 &nbsp;mydc : HDC;
 
 &nbsp;myrc : HGLRC;
 
 &nbsp;myPalette : HPALETTE;
 
 &nbsp;procedure SetupPixelFormat;
 
 &nbsp; &nbsp;{ Private-Deklarationen }
 
 &nbsp;public
 
 &nbsp; &nbsp;{ Public-Deklarationen }
 
 &nbsp;end;
 
var
 
 &nbsp;Form1: TForm1;rotx,roty:integer;
 
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); 
 
nversion := 1; 
 
dwflags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
 
ipixeltype := PFD_TYPE_RGBA; 
 
cColorbits := 24;
 
cdepthbits := 32;
 
ilayertype := PFD_Main_Plane; 
 
end; 
 
nPixelFormat:= ChoosePixelFormat(myDC, @pfd); 
 
SetPixelFormat(myDC, nPixelFormat, @pfd); 
 
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 Objekt; 
 
begin 
 
glClearColor(0, 0, 0.0, 1); // HintergundFarbe 
 
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //Farb und Tiefenpuffer löschen 
 
glMatrixMode(GL_PROJECTION); // Darstellungsmodus = Projektionsmodus
 
glLoadIdentity;
 
glPolygonMode(GL_FRONT, GL_FILL); // Nur Vorderseiten darstellen (schneller) / Füllmodus : gefüllte Objekte
 
glMatrixMode(GL_MODELVIEW); // Koordinatensystem drehen 
 
glLoadIdentity; // Setzt alles zurück auf Uhrsprungspunkt(sehr wichtig!)-ansonsten wird die Scene irgendwo dargestellt, aber nicht da, wo sie hin soll 
 
glPushmatrix();
 
glcolor3f(1,1,0);
 
glrotate(rotx,1,0,0);
 
glrotate(roty,0,1,0);
 
glBegin(GL_QUADS); //dieser Befehl zeichnet einen Würfel. 
 
glVertex3d(0.5, -0.5, 0.5); //Linke Seite 
 
glVertex3d(-0.5, -0.5, 0.5); 
 
glVertex3d(-0.5, -0.5, -0.5);
 
glVertex3d(0.5, -0.5, -0.5);
 
glVertex3d(-0.5, -0.5, -0.5); //Rückseite 
 
glVertex3d(-0.5, 0.5, -0.5);
 
glVertex3d(0.5, 0.5, -0.5);
 
glVertex3d(0.5, -0.5, -0.5);
 
glVertex3d(0.5, -0.5, -0.5); //Oberseite
 
glVertex3d(0.5, 0.5, -0.5);
 
glVertex3d(0.5, 0.5, 0.5);
 
glVertex3d(0.5, -0.5, 0.5);
 
glVertex3d(-0.5, -0.5, 0.5); //Vorderseite 
 
glVertex3d(-0.5, 0.5, 0.5);
 
glVertex3d(0.5, 0.5, 0.5);
 
glVertex3d(0.5, -0.5, 0.5);
 
glVertex3d(-0.5, -0.5, 0.5); //Boden / Unterseite 
 
glVertex3d(-0.5, 0.5, 0.5);
 
glVertex3d(-0.5, 0.5, -0.5);
 
glVertex3d(-0.5, -0.5, -0.5);
 
glVertex3d(-0.5, 0.5, 0.5); //Rechte Seite
 
glVertex3d(0.5, 0.5, 0.5);
 
glVertex3d(0.5, 0.5, -0.5);
 
glVertex3d(-0.5, 0.5, -0.5);
 
glEnd();
 
SwapBuffers(form1.myDC); //scene darstellen 
 
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.FormPaint(Sender: TObject);
 
begin
 
objekt;
 
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 
 &nbsp;Shift: TShiftState);
 
begin
 
if key = vk_down then 
 
begin 
 
rotx := rotx+1; 
 
end;
 
if key = vk_up then 
 
begin 
 
rotx := rotx-1;
 
end; 
 
if key = vk_right then 
 
begin 
 
roty := roty+1;
 
end;
 
if key = vk_left then 
 
begin 
 
roty := roty-1; 
 
end;
 
repaint; 
 
end;
 
end.

das meiste ist abgeschrieben, also was das bei der initialisierung alles soll weiß ich (noch) nich..

meine frage ist aber, das programm funktioniert zwar, aber es ist ja ein einfacher würfel den man mit den cursortasten drehen kann....tja und wenn man das macht fängt das fenster furtchbar zu flackern also wenn man eine cursortaste drück flackert es weiß...

kann mir da wer helfen

gruß Howard

_________________
------------------------------------------------------- Wer andern eine Brawurst brät, hat ein Bratwurst Bratgerät...... So long, Howard ^^ -------------------------------------------------------

Nach oben

Raphael O.

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 21:15

DGL Member

Registriert: Sa Jan 04, 2003 21:23
Beiträge: 674
Wohnort: Köln

Zitat:

glBegin(GL_QUADS); //dieser Befehl zeichnet einen Würfel

stimmt nicht ganz...
zeichnet eher vierecke

Versuch außerdem mal anstatt

Code:

glVertex3d(...)

das hier:

Code:

glVertex3f(...)

3f weil der Compiler dann 3 floats=fließkommazahlen erwartet!

Vielleicht war das noch nicht alles...
ist mir nur auf den ersten blick aufgefallen...

Fiji-Fighter

_________________
. . .

Nach oben

Howard

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 21:24

DGL Member

Registriert: Do Jan 02, 2003 13:38
Beiträge: 104
Wohnort: Bremen

erstmal danke für deine fixe antwort ^^

ändert aber leider nichts am flimmern

gruß Howard

Nach oben

Raphael O.

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 21:25

DGL Member

Registriert: Sa Jan 04, 2003 21:23
Beiträge: 674
Wohnort: Köln

schreib mal objects; nichts ins onpaint sondern ins

Code:

procedure TForm.1ApplicationEventsIdle(Sender: TObject;
 
 &nbsp;var Done: Boolean);

Fiji-Fighter

_________________
. . .

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 21:52

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Aber dann auch Application.eventidle auf die Procedure dann verlegen.
Im Übrigen: glVertex3f erwartet 3 mal einen einfachen Float, also einen Single, glVertex3d erwartet 3 mal ein Double, das mehr Kommastellen enthalten kann.

Nach oben

Howard

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 12:02

DGL Member

Registriert: Do Jan 02, 2003 13:38
Beiträge: 104
Wohnort: Bremen

versteh das nich so ganz mit dem ganze geidle... möchte mir nicht vielleicht jemand kurz meinen code entsprechend überarbeitet posten? das wäre klasse

danke und gruß Howard

Nach oben

Howard

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 12:57

DGL Member

Registriert: Do Jan 02, 2003 13:38
Beiträge: 104
Wohnort: Bremen

mir ist aufgefallen das, wenn ich das REPAINT am ende der onkeydown-prozedur weglasse, es ohne probleme funktioniert....ist das wichtig?

gruß Howard

edit:
ne funktioniert doch nich, man brauch das repaint wohl schon

Nach oben

Chendrak

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 13:56

DGL Member

Registriert: Di Okt 29, 2002 21:20
Beiträge: 30

Ein Repaint ist in sofern wichtig, da ansonsten die änderungen in der Szene nicht gezeichnet werden.
Der Repaint des ganzen macht sich aber besser, wie schon gesagt, in der ApplicationOnIdle-Prozedur, da dann immer neu gezeichnet wird, wenn dein Programm mal "nichts zu tun" hat.
Spar die am besten die OnPaint-Prozedur und machs wie Fiji-Fighter sagte:

procedure TForm.1ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
begin
objekt;
end;

_________________
Knowledge is Power - So ask if you want to become powerful

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 14:07

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Wie oben ja gesagt, sollte man optimalerweise den OnIdle-Event der Form nutzen, um seine OpenGl-Szene zu zeichnen.
Dieser wird in Normalfall jedoch nicht kontinuierlich aufgerufen, sondern nur dann, wenn das Fenster eine Nachricht empfangen hat.

Wenn du deine Szene also kontinuierlich zeichnen willst um die ganze CPU-Zeit zu nutzen (was sinnvoll ist), dann mach das mit folgendem Code :

Code:

 
procedure TForm.1ApplicationEventsIdle(Sender: TObject; var Done: Boolean); 
 
begin 
 
ZeichneSzene;
 
Done := False; &nbsp; // Wichtig!!!
 
end;

Die Anweisung Done := False sagt Windows quasi, das deine Anwendung die Nachrichtenschleife nicht abgearbeitet hat, und somit wird dein OnIdle-Ereignis permanent aufgerufen...nur so bekommst du für dein Programm auch die volel Prozessorzeit!

An den OnIdle-Event deiner Anwendung kommst du so :
In der Komponentenliste gibts unter "Zusätzlich" die Komponente "ApplicationEvents". Setz die auf deine Form, und wechsle in die Ereignisliste dieser Komponente.Dort findest du dann auch den "OnIdle"-Event!

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Howard

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 15:37

DGL Member

Registriert: Do Jan 02, 2003 13:38
Beiträge: 104
Wohnort: Bremen

Ich habe fast das Gefühl das Problem liegt woanders. Es ist egal welche Taste ich drücke, ob cursor oder die "F"-Taste zB. Obwohl die ja völlig belanglos für das zeichnen ist....

hmpf, warum kann das nicht einfach gehn...

Howard (danke für deine Mühe SoS

)

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 15:43

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Zitat:

Ich habe fast das Gefühl das Problem liegt woanders. Es ist egal welche Taste ich drücke, ob cursor oder die "F"-Taste zB. Obwohl die ja völlig belanglos für das zeichnen ist....

Hast du SoS's Methode ausprobiert? Dann dürfte ein Tastendruck keine Darstellungsfehler verursachen. Apropos: Immer wenn ich "Alt" drücke und eins meiner OpenGL-Proggs läuft bleibt es beinahe stehen. Nach einm erneuten Druck auf "Alt" geht es wieder schnell.

Nach oben

Howard

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 15:48

DGL Member

Registriert: Do Jan 02, 2003 13:38
Beiträge: 104
Wohnort: Bremen

Hab ich probiert ja:

Code:

 unit test_u1;
 
interface
 
uses
 
 &nbsp;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 
 &nbsp;Dialogs,opengl, AppEvnts;
 
type
 
 &nbsp;TForm1 = class(TForm)
 
 &nbsp; &nbsp;ApplicationEvents1: TApplicationEvents;
 
 &nbsp; &nbsp;procedure FormCreate(Sender: TObject);
 
 &nbsp; &nbsp;procedure FormDestroy(Sender: TObject);
 
 &nbsp; &nbsp;procedure FormKeyDown(Sender: TObject; var Key: Word;
 
 &nbsp; &nbsp; &nbsp;Shift: TShiftState);
 
 &nbsp; &nbsp;procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
 
 &nbsp;
 
 &nbsp;private 
 
 &nbsp; mydc : HDC;
 
 &nbsp; myrc : HGLRC;
 
 &nbsp; myPalette : HPALETTE;
 
 &nbsp; procedure SetupPixelFormat;
 
 &nbsp; &nbsp;{ Private-Deklarationen }
 
 &nbsp;public
 
 &nbsp; &nbsp;{ Public-Deklarationen }
 
 &nbsp;end;
 
var 
 
 &nbsp;Form1: TForm1; 
 
 &nbsp;rotx : integer; 
 
 &nbsp;roty : integer;
 
implementation
 
{$R *.dfm}
 
procedure Tform1.SetupPixelFormat; 
 
var 
 
 &nbsp;hheap : Thandle; 
 
 &nbsp;ncolors,i : integer; 
 
 &nbsp;lppalette : plogpalette; 
 
 &nbsp;byredmask, bygreenmask, bybluemask : byte; 
 
 &nbsp;npixelformat : integer; 
 
 &nbsp;pfd : Tpixelformatdescriptor; 
 
begin 
 
 &nbsp;Fillchar(pfd,sizeof(pfd),0); 
 
 &nbsp;with pfd do 
 
 &nbsp;begin 
 
 &nbsp; &nbsp;nsize := sizeof(pfd); 
 
 &nbsp; &nbsp;nversion := 1; 
 
 &nbsp; &nbsp;dwflags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or &nbsp; PFD_DOUBLEBUFFER; 
 
 &nbsp; &nbsp;ipixeltype := PFD_TYPE_RGBA; 
 
 &nbsp; &nbsp;cColorbits := 24; 
 
 &nbsp; &nbsp;cdepthbits := 32; 
 
 &nbsp; &nbsp;ilayertype := PFD_Main_Plane; 
 
 &nbsp;end; 
 
 &nbsp;nPixelFormat:= ChoosePixelFormat(myDC, @pfd); 
 
 &nbsp;SetPixelFormat(myDC, nPixelFormat, @pfd); 
 
 &nbsp;DescribePixelFormat(myDC, nPixelFormat,sizeof(TPixelFormatDescriptor),pfd); 
 
 &nbsp;if ((pfd.dwFlags and PFD_NEED_PALETTE) <> 0) then 
 
 &nbsp;begin 
 
 &nbsp; &nbsp;nColors := 1 shl pfd.cColorBits; 
 
 &nbsp; &nbsp;hHeap := GetProcessHeap; 
 
 &nbsp; &nbsp;lpPalette:= HeapAlloc (hHeap,0,sizeof(TLogPalette)+(nColors*sizeof(TPaletteEntry))); 
 
 &nbsp; &nbsp;lpPalette^.palVersion := $300; 
 
 &nbsp; &nbsp;lpPalette^.palNumEntries := nColors; 
 
 &nbsp; &nbsp;byRedMask := (1 shl pfd.cRedBits) - 1; 
 
 &nbsp; &nbsp;byGreenMask:= (1 shl pfd.cGreenBits) - 1; 
 
 &nbsp; &nbsp;byBlueMask := (1 shl pfd.cBlueBits) - 1; 
 
 &nbsp; &nbsp;for i := 0 to nColors - 1 do begin 
 
 &nbsp; &nbsp;lpPalette^.palPalEntry[i].peRed := (((i shr pfd.cRedShift) and byRedMask) *255)DIV &nbsp; byRedMask;
 
 &nbsp; &nbsp;lpPalette^.palPalEntry[i].peGreen:= (((i shr pfd.cGreenShift)and byGreenMask)*255)DIV byGreenMask; 
 
 &nbsp; &nbsp;lpPalette^.palPalEntry[i].peBlue := (((i shr pfd.cBlueShift) and byBlueMask) *255)DIV byBlueMask; 
 
 &nbsp; &nbsp;lpPalette^.palPalEntry[i].peFlags:= 0; 
 
 &nbsp;end; 
 
 &nbsp;myPalette:= CreatePalette(lpPalette^); 
 
 &nbsp;HeapFree(hHeap, 0, lpPalette); 
 
 &nbsp;if (myPalette <> 0) then 
 
 &nbsp;begin 
 
 &nbsp; &nbsp;SelectPalette(myDC, myPalette, False); 
 
 &nbsp; &nbsp;RealizePalette(myDC); 
 
 &nbsp;end;
 
end;end;
 
procedure Objekt;
 
begin 
 
 &nbsp;glClearColor(0, 0, 0.0, 1); // HintergundFarbe 
 
 &nbsp;glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //Farb und Tiefenpuffer löschen 
 
 &nbsp;glMatrixMode(GL_PROJECTION); // Darstellungsmodus = Projektionsmodus 
 
 &nbsp;glLoadIdentity; 
 
 &nbsp;glPolygonMode(GL_FRONT, GL_FILL); // Nur Vorderseiten darstellen (schneller) / Füllmodus : gefüllte Objekte 
 
 &nbsp;glMatrixMode(GL_MODELVIEW); // Koordinatensystem drehen 
 
 &nbsp;glLoadIdentity; // Setzt alles zurück auf Uhrsprungspunkt(sehr wichtig!)-ansonsten wird die Scene irgendwo dargestellt, aber nicht da, wo sie hin soll 
 
 &nbsp;glPushmatrix();
 
 &nbsp;glcolor3f(1,1,0);
 
 &nbsp;glrotate(rotx,1,0,0);
 
 &nbsp;glrotate(roty,0,1,0);
 
 &nbsp;glBegin(GL_QUADS); //dieser Befehl zeichnet einen Würfel. 
 
 &nbsp;glVertex3d(0.5, -0.5, 0.5); //Linke Seite
 
 &nbsp;glVertex3d(-0.5, -0.5, 0.5);
 
 &nbsp;glVertex3d(-0.5, -0.5, -0.5);
 
 &nbsp;glVertex3d(0.5, -0.5, -0.5);
 
 &nbsp;glVertex3d(-0.5, -0.5, -0.5); //Rückseite
 
 &nbsp;glVertex3d(-0.5, 0.5, -0.5);
 
 &nbsp;glVertex3d(0.5, 0.5, -0.5);
 
 &nbsp;glVertex3d(0.5, -0.5, -0.5);
 
 &nbsp;glVertex3d(0.5, -0.5, -0.5); //Oberseite
 
 &nbsp;glVertex3d(0.5, 0.5, -0.5);
 
 &nbsp;glVertex3d(0.5, 0.5, 0.5);
 
 &nbsp;glVertex3d(0.5, -0.5, 0.5);
 
 &nbsp;glVertex3d(-0.5, -0.5, 0.5); //Vorderseite
 
 &nbsp;glVertex3d(-0.5, 0.5, 0.5);
 
 &nbsp;glVertex3d(0.5, 0.5, 0.5);
 
 &nbsp;glVertex3d(0.5, -0.5, 0.5);
 
 &nbsp;glVertex3d(-0.5, -0.5, 0.5); //Boden / Unterseite
 
 &nbsp;glVertex3d(-0.5, 0.5, 0.5);
 
 &nbsp;glVertex3d(-0.5, 0.5, -0.5);
 
 &nbsp;glVertex3d(-0.5, -0.5, -0.5);
 
 &nbsp;glVertex3d(-0.5, 0.5, 0.5); //Rechte Seite
 
 &nbsp;glVertex3d(0.5, 0.5, 0.5);
 
 &nbsp;glVertex3d(0.5, 0.5, -0.5);
 
 &nbsp;glVertex3d(-0.5, 0.5, -0.5);
 
 &nbsp;glEnd();
 
 &nbsp;SwapBuffers(form1.myDC); //scene darstellen 
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
 &nbsp;form1.myDC:= GetDC(Handle);
 
 &nbsp;SetupPixelFormat;
 
 &nbsp;myRC:= wglCreateContext(myDC);
 
 &nbsp;wglMakeCurrent(myDC, myRC);
 
 &nbsp;glEnable(GL_DEPTH_TEST);
 
 &nbsp;glLoadIdentity;
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
 
begin
 
 &nbsp;wglmakecurrent(0,0);
 
 &nbsp;wgldeletecontext(mydc);
 
 &nbsp;releasedc(handle,mydc);
 
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 
 &nbsp;Shift: TShiftState);
 
begin
 
 &nbsp;if key = vk_down then
 
 &nbsp;begin
 
 &nbsp; &nbsp;rotx := rotx+1;
 
 &nbsp;end;
 
 &nbsp;if key = vk_up then
 
 &nbsp;begin 
 
 &nbsp; &nbsp;rotx := rotx-1;
 
 &nbsp;end; 
 
 &nbsp;if key = vk_right then 
 
 &nbsp;begin
 
 &nbsp; &nbsp;roty := roty+1; 
 
 &nbsp;end;
 
 &nbsp;if key = vk_left then
 
 &nbsp;begin
 
 &nbsp; &nbsp;roty := roty-1;
 
 &nbsp;end; 
 
 &nbsp;repaint;
 
end;
 
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
 
 &nbsp;var Done: Boolean);
 
begin
 
objekt;
 
Done := False; &nbsp; // Wichtig!!!
 
end;
 
end.

klappt leider nich

Gruß Howard

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 15:48

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Also das mit dem OnIdle-Event würde ich auf jeden Fall machen.Das ist halt die beste Methode um seine Szene (zumindest in einer VCL-Anwendung) zu zeichnen.

Hab auch mal kurz deinen Quellcode überflogen, und dabei ist mir folgendes aufgefallen :

Code:

 
cColorbits := 24; 
 
cdepthbits := 32;

Du wirst wohl kaum ne Grafikkarten finden, die dir dieses PixelFormat anbiete.Im Normalfall sucht sich die Grafikkarte dann das nächste passende PixelFormat, aber z.B. aufgrund eines Bugs in neueren nVidia-Treibern kommts vor, das die Grafikkarte ein falsches Format findet.
Nach deiner Definition oben, sollte z.B. eine GeForce-Karte dir anstatt Farbpuffer=24 und Tiefenpuffer=32 ein Format mit Farbpuffer=16 und Tiefenpuffer=16 liefern, und das ist nicht sehr erstrebenswert...ich glaub zwar nicht das hier dein Problem liegt (kenne deine Graka ja net), aber änder das mal in folgenden Code um

Code:

 
cColorbits := 32; 
 
cdepthbits := 24;

P.S. : GeForce-Karten unterstützen maximal einen 24bittigen Tiefenpuffer (hat was mit der Kombination des Tiefenpuffer und des Stencilpuffers zu einem DWORD = 32Bit zu tun)

P.P.S. : Lad mal dein Programm irgendwo (am besten DGL-FTP) hoch, dann werd ich mirs mal ansehen!

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Thunderman

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 16:07

DGL Member

Registriert: Sa Okt 26, 2002 17:14
Beiträge: 188
Wohnort: Hannover/Lüneburg

Hallo!

Du musst noch in dem OnKeyDown das

Code:

repaint;

am Ende wegnehmen, denn dein Fenster muss dann ja nicht neugezeichnet werden, sondern dein Objekt. Und das wird ja ständig im OnIdle erledigt.

_________________
Thunderman
Bei schwierigen Problemen entscheiden wir uns einfach für die richtige Lösung. Klar?

Nach oben

Howard

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 16:12

DGL Member

Registriert: Do Jan 02, 2003 13:38
Beiträge: 104
Wohnort: Bremen

kross, vielen dank thunder, das haut hin

ich hab mal spasseshalber das repaint; in die onidle funktion geschrieben...da kriegste Augenkrebs vom flimmern

Nach oben

Seite 1 von 2

[ 20 Beiträge ]

Gehe zu Seite 1, 2 Nächste

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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