繰り返しますが、テキストの問題：Image1.Canvas.TextOutを表示しますが、テキスト自体の下に白いフレームがあります。削除しない場合（文字を強制するためだけ）、少なくとも黒を黒くすることは可能ですか？

← →
Serg5 (2001-12-20 14:57) [0]

それが全体のポイントです...

← →
MBo (2001-12-20 15:18) [1]

作る
Canvas.Brush.Style:=bsClear;

← →
Serg5 (2001-12-20 17:40) [2]

MBo、それは素晴らしい、助けた！

← →
MBo (2001-12-20 17:48) [3]

感情なし、F1クリック;）

← →
Serg5 (2001-12-20 18:16) [4]

あなたはRusynsする方法を知っている必要があります:)、
問題がありました（質問に迷惑をかけなかった場合:(）...どうすればいいかわかりません。素材が白い場合は黒い文字で印刷し、黒い背景に白い文字でその逆を行います。写真のように、つまり均一ではありません。その領域のピクセルを比較すると、黒の場合は画像が鮮明になりますが、誤って1つの明るいピクセルにぶつかったり、領域全体を取得したり（20 * 100px、乗算、除算、平均色の決定）...
カラーコードを比較する方法はありますか？平均グレー値よりも明るいですか、暗いですか？

← →
Юрий Федоров (2001-12-20 21:21) [5]

通常、これには通常SetRop2が使用されます。

← →
Serg5 (2001-12-21 08:57) [6]

ユリ・フェドロフ、これは何ですか？ torriを検索しても結果は得られませんでした。 Yandexによると、QTは..これはパッケージですか？

← →
MBo (2001-12-21 09:54) [7]

SetRop2は、グラフィックをオーバーレイするときの色の混合方法を設定するAPI関数です。繰り返しになりますが、SDKヘルプに価値がある場合はF1です。

これを試してください。

procedure TForm1.Button1Click（送信者：TObject）;
var b：tbitmap;
r：trect;
始まる
r：= image1.clientrect;
b：= tbitmap.create;
b.width：= image1.Width;
b.height：= image1.height;
b.canvasで始める
フォント：= image1.Canvas.font;
Brush.Color：= clBlack;
fillrect（r）;
Brush.Style:=bsClear;
font.color：= clWhite;
TextOut（5,5、「XorPut」）;
終わり
image1.picture.LoadFromFile（ "e：\ camera1.bmp"）;
image1.canvas.copymode：= cmSrcInvert;
image1.canvas.copyrect（r、b.canvas、r）;
b.free;
終わり