- PROCEDURE TOpenGLF.FormShow(Sender: TObject);
- VAR Mybmp : TBitmap;
- BEGIN
- FMyIma := TglBitmap2D.Create;
- Mybmp:=tbitmap.Create;
- ImageList1.GetBitmap(0,Mybmp);
- Mybmp.PixelFormat:= pf24bit;
- FMyIma.AssignFromBitmap(Mybmp);
- FMyIma.AddAlphaFromColorKey(255, 255,255, 5);
- glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
- glEnable(GL_BLEND);
- FMyIma.GenTexture(false);
- END;