フォーラム: "Main";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];
ダウン
繰り返しますが、テキストの問題: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;
終わり
ページ: 1 全枝
フォーラム: "Main";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];
メモリ:0.58 MB
時間:0.029 c