OpenGL: проблема с цветом

[N!ckeL]

Доброго времени суток, такая проблема:
Программа средствами OpenGL должна вывести на экран *.bmp изображение, она его выводит, ну вот цвета становятся другими (оранжевый-синим белый-чёрным) как это исправить? Или это я где-то сглупил.. Вот код:

unit Unit1;

interface

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

type
  NColor=record //Запись для перевода цвета
   R:real;//красный
   G:real;//зеленый
   B:real;//синий
    end;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    dc:hdc;
    hrc:hglrc;
    procedure pxformat;
    function ConvertColor(color:tcolor):NColor;//Конвертирование цветов
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  dc:=getdc(handle);
  pxformat;
  hrc:=wglcreatecontext(dc);
  wglmakecurrent(dc, hrc);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  WGLMAKECURRENT(0,0);
  wgldeletecontext(hrc);
  releasedc(handle, dc);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  formpaint(nil);
end;

procedure TForm1.pxformat;
var
  npixelformat:integer;
  pfd:tpixelformatdescriptor;
begin
  fillchar(pfd, sizeof(pfd), 0);
  pfd.nSize:=sizeof(pfd);
  pfd.nVersion:=1;
  pfd.dwFlags:=pfd_doublebuffer+pfd_support_opengl+pfd_draw_to_window;
  pfd.iPixelType:=pfd_type_rgba;
  pfd.cColorBits:=128;
  pfd.cAlphaBits:=128;
  pfd.cAccumBits:=128;
  pfd.cDepthBits:=128;
  pfd.cStencilBits:=128;
  pfd.iLayerType:=pfd_main_plane;
  npixelformat:=choosepixelformat(dc, @pfd);
 if npixelformat<>0 then
  setpixelformat(dc, npixelformat, @pfd);
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  ps:tpaintstruct;
  Pic:TBitmap;
  w, h:integer;
  NC:NColor;
begin
  glmatrixmode(gl_projection);
  glloadidentity();
 if width <= height then
  glortho (-2, 2, -2*height/width, 2*height/width, -10.0, 10.0)
 else
  glortho (-2*height/width, 2*height/width, -2, 2, -10.0, 10.0);
  glviewport(0, 0, width, height);


  beginpaint(handle, ps);
  glclearcolor(1, 1, 1, 1);
  glclear(gl_color_buffer_bit or gl_depth_buffer_bit);
  glpushmatrix;
  glenable(gl_point_smooth);

  glpointsize(1);
  Pic:=TBitMap.Create;
  Pic.LoadFromFile('E:\1.BMP');

  glBegin(gl_points);
  
  for w:=1 to pic.Width do
   begin
     for h:=1 to pic.Height do
      begin
           NC:=ConvertColor(Pic.Canvas.Pixels[W, H]);//Получаем цвет
           glColor3f(NC.R, NC.G, NC.B);//Выбираем его
           glVertex3f(0.001*W+0.25, 0.001*H+-0.25, 0);//Рисуем
      end;
   end;

  glend;
  Pic.Free;

  gldisable(gl_point_smooth);
  glflush();
  swapbuffers(dc);
  endpaint(handle, ps);
end;

function TForm1.ConvertColor(color: tcolor): NColor;
var
  i:LongInt;
begin
  i:=ColorToRGB(color);
  Result.R:=1/GetRValue(i);
  Result.G:=1/GetGValue(i);
  Result.B:=1/GetBValue(i);
end;

end.

[mutabor]

ConvertColor у тебя неправильная.
Попробуй так Result.R:=GetRValue(color); и т.д.

[N!ckeL]

ConvertColor у тебя неправильная.
Попробуй так Result.R:=GetRValue(color); и т.д.

Не идёт, у Canvas цвета от 1 до 255, а у OpenGL от 0.0 до 1.0, вот и получится что все цвета будут либо белыми либо чёрными...

[Granus]

R:=(Color and $FF)/255;
G:=((Color and $FF00) shr 8)/255;
B:=((Color and $FF0000) shr 16)/255;

Color - цвет текущего пикселя, R,G,B - компоненты цвета в формате OpenGL (от 0 до 1)

[maxionans]

В OpenGL есть функция glColor3ub, принимающая целочисленные однобайтовые значения

[maxionans]

Кстати, ошибка здесь

Сообщение от N!ckeL

function TForm1.ConvertColor(color: tcolor): NColor;
var
  i:LongInt;
begin
  i:=ColorToRGB(color);
  Result.R:=1/GetRValue(i);
  Result.G:=1/GetGValue(i);
  Result.B:=1/GetBValue(i);
end;

Нужно вот так:

function TForm1.ConvertColor(color: tcolor): NColor;
var
  i:LongInt;
begin
  i:=ColorToRGB(color);
  Result.R:= GetRValue(i) / 255;
  Result.G:= GetGValue(i) / 255;
  Result.B:= GetBValue(i) / 255;
end;