掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
CanvasのTextOutで指定した色にするには？ (ID：36772)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
「画面のプロパティ」の「デザイン」タブの[効果]ボタンで出てくる「効果」ダイアログ中の「次の方法でスクリーン フォントの縁を滑らかにする」にチェックが入っているためではないでしょうか。 そのチェックを外して下記のコードを実行してみたら「赤文字の淵の色が薄い赤になってしま」うようなことはありませんでした。 procedure TForm1.Button1Click(Sender: TObject); var l_Bitmap: TBitmap; begin l_Bitmap := TBitmap.Create; 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'); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.