CanvasのTextOutで指定した色にするには？ (ID:36773)

名前

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

本文 いけね。l_Bitmap解放し忘れてた。 procedure TForm1.Button1Click(Sender: TObject); var l_Bitmap: TBitmap; begin l_Bitmap := TBitmap.Create; try l_Bitmap.Width := Self.ClientWidth; l_Bitmap.Height := Self.ClientHeight; with l_Bitmap.Canvas do begin Brush.Color := Self.Color; FillRect(ClientRect); Brush.Style := bsClear; Font.Assign(Self.Font); Font.Size := 24; Font.Color := clWhite; TextOut(4, 4, Edit1.TEXT); //左上 TextOut(5, 4, Edit1.TEXT); //上 TextOut(6, 4, Edit1.TEXT); //右上 TextOut(4, 5, Edit1.TEXT); //左 TextOut(6, 5, Edit1.TEXT); //右 TextOut(4, 6, Edit1.TEXT); //左下 TextOut(5, 6, Edit1.TEXT); //下 TextOut(6, 6, Edit1.TEXT); //右下 Font.Color := clRed; TextOut(5, 5, Edit1.TEXT); //真ん中 end; l_Bitmap.SaveToFile('text.bmp'); finally l_Bitmap.Free; end; end;