如何用API在桌面上画方框？(50分)

nzfsoft · 2002-05-20

如题，但方框要空心的，即只要边! 如果可以指定边框宽度最好~

MilkRoad · 2002-05-20

procedure Drawdesktop(DRect: TRect; Width: integer; Color: TColor); var   DC: HDC;   can: TCanvas;   i: integer; begin   DC :=GetWindowDC(0);   can := TCanvas.Create;   can.Handle := DC;   can.Brush.Color := Color;   for i := 0 to Width do   begin     can.FrameRect(DRect);     InflateRect(DRect, 1, 1);   end;   can.Free;   ReleaseDC(0, DC); end;

doll_paul · 2002-05-20

边框怎么指定？？在can.pen的属类里？？

whtsuperant · 2002-05-20

procedure TForm1.Button1Click(Sender: TObject); var thedc:Hdc; wbr:Tbrush; rect:Trect; begin rect.Left:=100; rect.Top:=100; rect.Bottom:=200; rect.Right:=200; wbr:=TBrush.Create; wbr.Style:=bsSolid; thedc:=GetDc(0); framerect(thedc,rect,wbr.handle); end;

doll_paul · 2002-05-20

没细看，原来是画多次啊......呵呵~[^][^]

doll_paul · 2002-05-20

to :MilkRoad，我用你的办法可以画出我需要的方框，但如果我再画第二个时，无法清除 原来的! 我用了RedrawWindow()，但不起做用，请指点! 另外：能否像抓屏软件一样，画出指定大小的方框来？(如需要，可另加分~)

gxcooo · 2002-05-20

借贵宝地一用： 如何实现用鼠标在屏幕上画个矩形边框，能同时圈住两个窗体上的内容，即画时不会因鼠标移动而发生 活动窗体的更替换，比如两个窗体重叠时？

doll_paul · 2002-05-21

to MilkRoad,你很忙吗？为什么不回复我的问题？ 谢谢~

nzfsoft · 2002-05-30

......

nzfsoft · 2002-05-31

...............

zhenghui · 2002-06-04

P1,P2为矩形区域的lefttop,bottomright 在同一矩形区域，第一下画方框，第二下清除 Procedure TForm1.APIDrawFrame(P1,P2:TPoint); var   a:LOGBRUSH;   TempHandle:Integer;   OldHandle,OldHandle1:Integer;   K:hdc;   BrushHandle:Integer; begin   a.lbStyle:=bs_null;   TempHandle:=CreatePen(PS_SOLID,1,rgb(255,255,255));   k:=GetDc(0);   brushhandle:=CreateBrushIndirect(a);   OldHandle1:=SelectObject(k,brushhandle);   OldHandle:=SelectObject(k,TempHandle);   setrop2(k,R2_XORPEN);   Rectangle(k,P1.x-1,P1.y-1,P2.x+1,P2.y+1);   selectobject(k,oldhandle);   selectObject(k,OldHandle1);   DeleteObject(temphandle);   DeleteObject(brushhandle);   ReleaseDc(0,k); end;

doll_paul · 2002-06-05

to zhenghui，首先谢谢老兄的回复，你用Xor操作是可以达到我画方框的要求，但这样， 我就无法指定色彩了，因为与桌面XOR后的色彩就不一定是"红色"了~ 因此我想使用RedrawWindow函数做局部涮新，但搞不定，请老兄帮忙看看~

nzfsoft · 2002-06-06

..............

nzfsoft · 2002-06-06

..............

nzfsoft · 2002-06-06

..............................

zhenghui · 2002-06-07

我要知道你要实现的功能， 一定要红色的边框吗？如果那样的话只需改变一下tempHandle中的rgb参数就可以了 你要用redrawwindow刷新那部分区域

doll_paul · 2002-06-07

to zhenghui，我明白你的意思，上面的代码通过查帮助，还是可以看懂的，但我在上面的回 复说了，因为你用的是Xor(异或)，所以如果我画在桌面的话，指定的色彩和桌面的色彩 Xor后，就不一定是我指定的(部分线变色)。因此，我想应该不能用Xor来画，但我用RedrawWindow 函数局部涮新，但一直没有成功，老兄可否提供代码？？ 谢谢~

zhenghui · 2002-06-07

我还是不明白你的意思 你想要给一个方框的边线赋予不同的颜色吗？ 请详细说明？ 对不起！我快要下班了！请快点回应！

cook · 2002-06-07

这样的要求只能用异或画，颜色是和设定的有差距的， 而且如果屏幕上的颜色不一样的话，你画出来的颜色也是不一样的， 这是没有办法的，我所见到的所有的画框的都是这个效果， 而且如果把框画成一条直线，既宽度是0，就什么都没有了， 包括windows自己画的也是一样，你在桌面上鼠标一拉就看出来了

doll_paul · 2002-06-07

to zhenghui，老兄是否有EM或QQ或MSN？我们上面聊吧，这里不太方便~ to cook，你说的很对，用Xor只能在特定同色的背景下画，但这样也并不符合我的要求， 既然，XOR操作不能做到，我还是想问：RedrawWindow函数怎么达到局部重绘的方法？ 我用了一下，不能局部涮新，一涮就是全屏!

如何用API在桌面上画方框？(50分)

nzfsoft

Unregistered / Unconfirmed

MilkRoad

Unregistered / Unconfirmed

doll_paul

Unregistered / Unconfirmed

whtsuperant

Unregistered / Unconfirmed

doll_paul

Unregistered / Unconfirmed

doll_paul

Unregistered / Unconfirmed

gxcooo

Unregistered / Unconfirmed

doll_paul

Unregistered / Unconfirmed

nzfsoft

Unregistered / Unconfirmed

nzfsoft

Unregistered / Unconfirmed

zhenghui

Unregistered / Unconfirmed

doll_paul

Unregistered / Unconfirmed

nzfsoft

Unregistered / Unconfirmed

nzfsoft

Unregistered / Unconfirmed

nzfsoft

Unregistered / Unconfirmed

zhenghui

Unregistered / Unconfirmed

doll_paul

Unregistered / Unconfirmed

zhenghui

Unregistered / Unconfirmed

cook

Unregistered / Unconfirmed

doll_paul

Unregistered / Unconfirmed

Similar threads