Проблема с движком на OpenGL

[Granus]

По идее, форма должна быть фиолетовой. Но при запуске она то фиолетовая, то никакая (серая то бишь).
Собственно, код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Engine2D, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  EInit(100,100);
  ESetContext(Canvas.Handle);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  EPaint;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
  FormPaint(Sender);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FormPaint(Sender);
end;

end.

unit Engine2D;

interface

  uses Windows;

  type

    TColor = LongWord;

  procedure EInit(BufferWidth, BufferHeight: Word);
  procedure ESetContext(_DC: HDC);
  procedure EPaint;

implementation

  uses OpenGL;

  var
    BWidth, BHeight: Integer;
    HRC: HGLRC;
    DC: HDC;

  procedure SetDCPixelFormat(hdc: HDC);
  var
    pfd: TPixelFormatDescriptor;
    nPixelFormat: Integer;
  begin
    FillChar(pfd,SizeOf(pfd),0);
    nPixelFormat:=ChoosePixelFormat(hdc,@pfd);
    SetPixelFormat(hdc,nPixelFormat,@pfd);
  end;

  procedure EInit(BufferWidth, BufferHeight: Word);
  begin
    BWidth:=BufferWidth;
    BHeight:=BufferHeight;
  end;

  procedure ESetContext(_DC: HDC);
  begin
    DC:=_DC;
    SetDCPixelFormat(DC);
    HRC:=wglCreateContext(DC);
  end;

  procedure EPaint;
  begin
    wglMakeCurrent(DC,HRC);
    glViewPort(0,0,BWidth,BHeight);
    glClearColor(0.5,0.5,1,1);  // - фиолетовый
    glClear(GL_COLOR_BUFFER_BIT);
    glColor3f(1,0,0);
    glBegin(GL_TRIANGLES);
      glVertex2f(-1,0);
      glVertex2f(-1,0.5);
      glVertex2f(0,0);
    glEnd;
    SwapBuffers(DC);
    glFinish;
    glFlush;
    wglMakeCurrent(0,0);
  end;

end.

[Пепел Феникса]

pf.nSize=sizeof(pf);
pf.nVersion=1;
pf.cDepthBits=32;
pf.iLayerType=PFD_MAIN_PLANE;
pf.dwFlags=PFD_DRAW_TO_WINDOW+PFD_S UPPORT_OPENGL+PFD_GENERIC_ACCELERAT ED;

структуру pfd заполните по примеру.(pf это ваша pfd, код мой с С++ поэтому там = а не :=)

выделил две вещи что наиболее важно(точнее вообще нужно)

[Granus]

заполнил, ничего не изменилось: то работает, то нет. вообще в чем может быть причина такого странного поведения?

[Пепел Феникса]

    SwapBuffers(DC);

уберите ка...нее вижу у вас включенной буферизации.

[Granus]

опять то же самое

[Simply-Art]

Во первых я точно знаю что фон задается при инициализации а не каждый раз при прорисовке

 {... тут код инициализации и прочая ерунда}
  HRC:=wglCreateContext(DC);
  wglMakeCurrent(DC,HRC);
  glClearColor (0.5,0.5,1,1); // цвет фона

Для изменений цвета при рисовании по-моему используются команды типа glColor3f
Далее бла бла бла, и в самой процедуре рисования у меня

 BeginPaint(HND,ps);
   glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
   glLoadIdentity;

   {далее пишется код чего там надо рисовать}

   SwapBuffers(DC);
 EndPaint(HND,ps);

Вот так точно всё работает

[Granus]

ну, где устанавливать цвет фона ему точно без разницы)
а вот отличия Вашего кода от моего я не вижу =\

[Пепел Феникса]

а скиньте свой ЕХЕ.

[Granus]

пооткрывайте раз 20

[Пепел Феникса]

перерисовки нет.
попробуйте сами ловить WM_PAINT и там уже перерисовывать через InvalidateRect