[DelphiX] Phantom Sprite

[igel457]

Hallo!

Es fehlt folgendes, ich weiß aber nicht, ob dies deinen Fehler behebt.

Delphi-Quellcode:

procedure TSpriteButton.SetCaption(const Value: String);
begin
  FCaption := Value;
  with FSprite.Image.Picture.Bitmap.Canvas do
  begin
   TextOut((Width div 2) + (FSprite.Image.Picture.Bitmap.Canvas.TextWidth(Value) div 2),
           (Height div 2) + (FSprite.Image.Picture.Bitmap.Canvas.TextHeight(Value) div 2),
            Value);
  end;
  FSprite.Image.Restore //<-- Die Grafik muss neu in den Grafikspeicher geladen werden
end;

Für mein Spiel habe ich eine GUI Komponenten Sammlung geschrieben. Vielleicht hilft dir ja diese weiter. Zum Compilieren benötigst du die JVCL.