多数の小さなウィンドウとコントロール (2D レンダリング) を含むアプリケーションを作成しており、各ウィンドウとコントロールを独自のビットマップにレンダリングしたいと考えています。これはこれまでのものです:
uses dglOpenGL;
...
var BMP: TBitmap;
DC, RC: HDC;
...
function TMainForm.Init: Boolean;
begin
Result := InitOpenGL;
if Result = True then
begin
BMP := TBitmap.Create;
BMP.PixelFormat := pf24bit;
BMP.Width := 1280;
BMP.Height := 1024;
DC := (BMP.Canvas.Handle);
RC := CreateRenderingContext(DC,
[opGDI, opDoubleBuffered], // tried changing, didn't help
24,
24,
0,
0,
0,
0);
ActivateRenderingContext(DC, RC);
glClearColor(0.27, 0.4, 0.7, 0.0); // light blue
glViewport(0, 0, 1280, 1024);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
glOrtho(0, 1280, 0, 1024, -1, 10);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
end;
end;
レンダリング手順:
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
// red quad
glColor3f(1, 0, 0);
glBegin(GL_QUADS);
glVertex2f(100, 100);
glVertex2f(1280-100, 100);
glVertex2f(1280-100, 1024-100);
glVertex2f(100, 1024-100);
glend;
// swap
SwapBuffers(DC);
しかし、出力はありません。
使用するMainForm.Canvas.Draw(0, 0, BMP);
と、白い長方形が表示されます。
ビットマップを使って多くのことができるので(他の画像を描画したり、テキストをペイントしたり、ぼかしたり)、ビットマップでレンダリングをしたいのですが、オフスクリーンレンダリングを行う別の方法があれば大丈夫です...
では、オフスクリーン レンダリング用にアプリケーションを設定するにはどうすればよいでしょうか。