jpyc (九品御厨-为delphi学ASP.NE)新版主,解决问题先! 在Delphi中打开一个图形,如何读取图像中象素点的值(色值),可不可以同时考虑灰度问题? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://218.56.11.178:8020/web/index.aspx->下载基地->例程-经典应用->捕获屏幕颜色-------------------------------------------------http://expert.csdn.net/Expert/topic/1472/1472467.xml?temp=.3614618------------------------------------------------祝你每天都有好心情! jpyc(九品御厨-为delphi学ASP.NE):我已经弄下来了,和我要求的不一样,如果是指定的从我打开的图片中读取的话,应该怎么做?如何获取该图片的句柄?或者你给我提供一个新的思路,行吗? 色彩的灰度转化 function RgbToGray(RGBColor : TColor) : TColor;varGray : byte;beginGray := Round((0.30 * GetRValue(RGBColor)) +(0.59 * GetGValue(RGBColor)) +(0.11 * GetBValue(RGBColor )));Result := RGB(Gray, Gray, Gray);end;procedure TForm1.FormCreate(Sender: TObject);beginShape1.Brush.Color := RGB(255, 64, 64);Shape2.Brush.Color := RgbToGray(Shape1.Brush.Color);end; //获得颜色的RGB值procedure TForm1.Button1Click(Sender: TObject);begin Form1.Canvas.Pen.Color := clRed; Memo1.Lines.Add('Red := ' + IntToStr(GetRValue(Form1.Canvas.Pen.Color))); Memo1.Lines.Add('Red := ' + IntToStr(GetGValue(Form1.Canvas.Pen.Color))); Memo1.Lines.Add('Blue := ' + IntToStr(GetBValue(Form1.Canvas.Pen.Color)));end; jpyc (九品御厨-为delphi学ASP.NE)新版主,解决问题先!我怎么看着这么不舒服?凭什么给你解决问题?欠你的吗?靠,什么东西 chijingde(我真的不是阿德) :CSDN本来就是学习的地方,我没有什么别的意思,我也没觉着谁欠我的,你到CSDN来谁欠你的?还是你欠别人的?人先自辱,必被辱之,你自重一点!你以为你是谁?大家巴着你理啊! 楼主: 谁也不欠谁的,呵呵 可能我说的有点过,不好意思,道歉先:) 但是这句 jpyc (九品御厨-为delphi学ASP.NE)新版主,解决问题先! 我确实看着不爽,可能你们很熟,那就另当别论了,当我没说 如果不是这样,看你说的理所当然理直气壮的 你想没想过你是在寻求帮助?拜托谦虚点 我是chijingde(我真的不是阿德),不是什么了不起的人物 myling(阿德) : 既然你不是什么了不起的人物,拜托注意你的说话方式;既然你觉着我说的有问题,你在动口之前为什么不用大脑过滤一下,那你又有什么资格说我! myling(阿德) : 真是说人的人不如人!!! 社会主义的手电筒——myling(阿德)、chijingde(我真的不是阿德) :光照别人不照自己!!! 今儿我心情好,不和你掰了!谢谢你的谆谆教诲!!! 大家搞技术的,何必争什么口舌之利呢?myling(阿德):多帮我解决几个问题吧。lizexia(美丽心情):解决问题就揭贴吧。 如何向驱动发送信息? delphi DLL 对象做参数 用TXMLDocument怎么生成XML文件?谢谢高手们 如何搜索XML的节点? 菜鸟问题-举手之劳 学习Delphi需要看windows程序设计这些书吗? 在Delphi中如何调用C语言的Dll? dbchart的问题 求助高手,股票自动交易的问题 如何知道一个组件是否有指定的属性? 极度郁闷!放分! 难道电脑中真的有幽灵存在?
祝你每天都有好心情!
我已经弄下来了,和我要求的不一样,如果是指定的从我打开的图片中读取的话,应该怎么做?如何获取该图片的句柄?或者你给我提供一个新的思路,行吗?
function RgbToGray(RGBColor : TColor) : TColor;varGray : byte;beginGray := Round((0.30 * GetRValue(RGBColor)) +(0.59 * GetGValue(RGBColor)) +(0.11 * GetBValue(RGBColor )));Result := RGB(Gray, Gray, Gray);end;procedure TForm1.FormCreate(Sender: TObject);beginShape1.Brush.Color := RGB(255, 64, 64);Shape2.Brush.Color := RgbToGray(Shape1.Brush.Color);end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color := clRed;
Memo1.Lines.Add('Red := ' +
IntToStr(GetRValue(Form1.Canvas.Pen.Color)));
Memo1.Lines.Add('Red := ' +
IntToStr(GetGValue(Form1.Canvas.Pen.Color)));
Memo1.Lines.Add('Blue := ' +
IntToStr(GetBValue(Form1.Canvas.Pen.Color)));
end;
我怎么看着这么不舒服?凭什么给你解决问题?欠你的吗?靠,什么东西
CSDN本来就是学习的地方,我没有什么别的意思,我也没觉着谁欠我的,你到CSDN来谁欠你的?还是你欠别人的?人先自辱,必被辱之,你自重一点!你以为你是谁?大家巴着你理啊!
如果不是这样,看你说的理所当然理直气壮的 你想没想过你是在寻求帮助?拜托谦虚点 我是chijingde(我真的不是阿德),不是什么了不起的人物
既然你不是什么了不起的人物,拜托注意你的说话方式;既然你觉着我说的有问题,你在动口之前为什么不用大脑过滤一下,那你又有什么资格说我!
真是说人的人不如人!!! 社会主义的手电筒——myling(阿德)、chijingde(我真的不是阿德) :光照别人不照自己!!!
今儿我心情好,不和你掰了!谢谢你的谆谆教诲!!!