日別アーカイブ: 2013年7月3日

24日目+12 TBitmap への文字描画

コメントをどうぞ 
procedure TViewer.DrawStageResult();
var
  i: Integer;
  tmpBitmap: TBitmap;
begin

  frmMain.lblStageName.text       := IntToStr(GameModel.StageSerial + 1);

  tmpBitmap := TBitmap.Create(0,0);
  tmpBitmap.Assign(ImageManager.Item('stageresult'));

  tmpBitmap.Canvas.BeginScene(nil);
  tmpBitmap.Canvas.Fill.Color := TAlphaColorRec.Black;

  tmpBitmap.Canvas.Font.Size := 24;
  tmpBitmap.Canvas.FillText(RectF(0,0,100,100),
                            'Sample',
                            False,
                            1,
                            [],
                            TTextAlign.taCenter,
                            TTextAlign.taCenter);

  tmpBitmap.Canvas.EndScene;

  frmMain.imgStageScore.Bitmap.Assign(tmpBitmap);

  tmpBitmap.Free;
end;