Einzelnen Beitrag anzeigen

EarlyBird

Registriert seit: 29. Mär 2007
235 Beiträge
 
#1

[Andorra] TAdTextureSurface transparent

  Alt 9. Dez 2008, 17:32
Hallo,
ich beschäftige mich gerade mit dem TAdTextureSurface von Andorra.

Mit folgender procedure erstelle ich das TAdTextureSurface

Delphi-Quellcode:
  
   MyTextCanvas2 := TAdTextureSurface.Create(AdDraw);
   MyTextCanvas2.SetSize(128,1024);
   MyTextCanvas2.ClearSurface(clwhite);
   MyTextCanvas2.Canvas.Font := AdDraw.Fonts.GenerateFont('Arial',9,[],clblack,0,0,0,0);
   MyTextCanvas2.Canvas.Pen.Color := ColorToAdColor(clBlack);
   MyTextCanvas2.Canvas.TextOut(20,30,'Z1-testTest');
   MyTextCanvas2.Canvas.TextOut(20,30,'Z2-testTest');
   MyTextCanvas2.Canvas.TextOut(20,30,'Z3-testTest');
   MyTextCanvas2.Canvas.Release;
Nun möchte ich nur den Text auf mein AdDraw zeichnen.
Delphi-Quellcode:
  MyTextCanvas2.Image.Draw(AdDraw,1,1,0);
  //oder
  MyTextCanvas2.Image.DrawAlpha(.....
wie kann ich das machen?
Ich bekomms einfach nicht hin.

Kann man MyTextCanvas2.image eine Transparente Farbe zuweisen?
Ähnlich wie bei LoadGraphicFromFile
  Mit Zitat antworten Zitat