VCLのDirectWriteで背景透過文字描画 (ID:151224)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

D2DCanvas.RenderTarget.Clear(D2D1ColorF(0.0,0.0,0.0,0.0));
の行がダメみたいですね。
D2DCanvas.RenderTarget.Clear(D2D1ColorF(1.0, 1.0, 1.0, 0.0));
としてもD2DCanvas.RenderTarget.Clear(D2D1ColorF(0.0,0.0,0.0,0.0));と同じ挙動でダメでした。
この部分だけScanLine使うとうまくいきました。(Delphi XE10.2で確認)

uses
  Winapi.D2D1, Vcl.Direct2D, Vcl.Imaging.pngimage;

procedure TForm1.Button1Click(Sender: TObject);
type
  TRGBQArray = array [0..High(Integer) div 4 - 1] of RGBQUAD;
  PRGBQArray = ^TRGBQArray;
const
  //FileName:String = 'C:\Users\xxxx\ドキュメント\test.png';
  FileName:String='a.png';
  Text:String ='文字サンプル';
  w:Integer=500;
  h:Integer=300;
var
  D2DCanvas: TDirect2DCanvas;
  TextFormat: IDWriteTextFormat;
  TextLayout: IDWriteTextLayout;
  Bmp: TBitmap;
  Png: TPngImage;
  p: TD2D1Point2F;
  r: TRect;
  i,ii:Integer;
  PQ: PRGBQArray;
begin
  Bmp := TBitmap.Create;
  Bmp.PixelFormat:=pf32bit;
  Bmp.Transparent := true;
  Bmp.AlphaFormat := afDefined;
  Bmp.SetSize(w,h);
  r := Rect(0,0,w,h);

{1ピクセルずつアルファチャンネルの値を設定}
  for i := 0 to BMP.Height - 1 do
  begin
    PQ := BMP.ScanLine[i];//RGBQuadの配列へのポインタを代入する
    for ii := 0 to BMP.Width - 1 do
    begin
      TRGBQuad(PQ[ii]).rgbReserved := 0;//アルファチャンネル
      TRGBQuad(PQ[ii]).rgbBlue:=255;
      TRGBQuad(PQ[ii]).rgbGreen:=255;
      TRGBQuad(PQ[ii]).rgbRed:=255;
    end;
  end;

D2DCanvas := TDirect2DCanvas.Create(Bmp.Canvas,r);
  D2DCanvas.BeginDraw;
  //D2DCanvas.RenderTarget.Clear(D2D1ColorF(0.0,0.0,0.0,0.0));//ここがダメみたいです
  DWriteFactory.CreateTextFormat(PWideChar('メイリオ'),nil,DWRITE_FONT_WEIGHT_NORMAL,DWRITE_FONT_STYLE_NORMAL,DWRITE_FONT_STRETCH_NORMAL,40,'ja-jp',TextFormat);
  DWriteFactory.CreateTextLayout(PWideChar(Text),Length(Text),TextFormat,0,0,TextLayout);
  TextLayout.SetWordWrapping(DWRITE_WORD_WRAPPING_NO_WRAP);
  D2DCanvas.Font.Brush.Color := clBlue;
  p.x := 100;
  p.y := 100;
  D2DCanvas.RenderTarget.DrawTextLayout(p,TextLayout,D2DCanvas.Font.Brush.Handle,D2D1_DRAW_TEXT_OPTIONS_NONE);
  D2DCanvas.EndDraw;
  D2DCanvas.Free;
  Png := TPngImage.Create;
  Png.Assign(Bmp);
  Png.SaveToFile(FileName);
  Png.Free;
  Bmp.Free;
end;

←解決時は質問者本人がここをチェックしてください。

戻る