BGRABitmap and GLScene TEXTURE
lazarus / 39-Graphics

----------------------------------------------------------------------
hgabor47 · 2011-10-03 09:52

I want to make mix the GLTexture with BGRABitmap but I don't assign
to...
Code: [Select] 
  c:=BGRABlack;
  c.alpha:=0;
  pic:=TBGRABitmap.Create(round(self.Fcontentsize[0]),round(self.Fcont
entsize[1]),c);
  pic.FontName:='Arial';
  pic.FontAntialias:=true;
  pic.FontHeight:=20;
  ftext:='TEXT';
  pic.TextOut(4,10,ftext,BGRAWhite);

  with self.Material do
  begin
    texture.Enabled:=true;
    Texture.Image.assign(  pic )  //This wrong certeanly...

I tried some way, but not working...
Please help me

----------------------------------------------------------------------
circular · 2011-10-03 10:23

Maybe pic.Bitmap

----------------------------------------------------------------------
hgabor47 · 2011-10-03 17:55

Quote from: circular on October 03, 2011, 12:23:30 pmMaybe pic.Bitmap
Thx, but this is not working!
Any idea?

----------------------------------------------------------------------
circular · 2011-10-03 17:58

What is the parameter expected by Texture.Image.Assign ?

What is the type of Texture ?

----------------------------------------------------------------------
hgabor47 · 2011-10-03 18:08

Quote from: circular on October 03, 2011, 07:58:29 pmWhat is the
parameter expected by Texture.Image.Assign ?
procedure Assign(Source: TPersistent);

Quote from: circular on October 03, 2011, 07:58:29 pmWhat is the type
of Texture ?
...
 property Texture: TGLTexture read GetTexture write SetTexture ....
...
TGLTexture = class(TGLUpdateAbleObject)...

----------------------------------------------------------------------
hgabor47 · 2011-10-03 18:18

But this is working with normal bitmap...
Code: [Select]  b := Tpicture.create;
  With b.bitmap do
  begin
...
  end;
...
  with self.Material do
  begin
    Texture.Assign(b.Graphic);

----------------------------------------------------------------------
hgabor47 · 2011-10-03 18:41

Oooops.
Thanks...
This is the solution:
Code: [Select]  with self.Material do
  begin
    g:=tPicture.Create;
    g.Assign(pic);
    texture.Assign(g);          
    g.Destroy;

----------------------------------------------------------------------
circular · 2011-10-03 18:44

What about
Code: [Select]Texture.Assign(pic.Bitmap)