请问运行时的大小控制框是怎么做的？就象画笔中的一样？需要API实现方法，不要用VCL。 (200分)

hlsl · 2002-04-19

请打开画笔，然后打开一个图形文件。 用“选定”选中一部分图象，这个时候选中的图象周围有一个虚框，以及8个小方块（就象VC和DELPHI中编辑控件时的状态）。这个虚框可以通过小方块改变大小，改 变大小的时候是虚线，直到鼠标放开才改变大小。同时，这个虚框也可以用鼠标移动。（注意！和后者不同） 请再看整幅图象的边缘，也有一个虚框，这个虚框和上面的那个基本一样，但是不能用鼠标移动。 我在很多软件上也看到过这种效果，也用DELPHI写过在VCL环境下类似的功能（VCL下的原理是创建一个透明的窗口覆盖在原来的部分上面）； 我肯定画笔不是用DELPHI开发的（废话），所以想请问这个功能用API是如何实现的？难道和DELPHI下的一样？ 简单的劝我自己手画的、只是来说闲话的、回答不能详尽的请不要回帖，我还有机会取消帖子。

Pearl. · 2002-05-21

用几百句api加上各种数据结构实现的

hlsl · 2002-08-05

请各位多多发言。 我目前还是很想知道这个问题的解决方法。 又一个方法是创建一个透明窗体，大小和么控制的对象是一样的。 然后所有操作（移动，改变大小）都是在这个透明窗体上进行。然后有这个透明窗体来同步被控制对象。 这个方法哦哦已经实现了，不过效果不是很好。 不知道还有什么其他的方法或者对这个方法的改进方案？

rockjie · 2002-08-07

用canvas也可以的，但是要Xor一下，以前做过的，很简单！但是代码我找不到了我也在找！[

] 其实不是窗口覆盖的做法，而是画虚线然后.....后来一个做游戏的人给了我你需要那样功能的代码，很独特 哈哈，还请后面答复的人提醒

hlsl · 2002-08-07

这个方法是一个解决方案，不过，不知道如何判断鼠标是否在边框的虚线上呢？ 不会是自己手动写一堆 IF THEN ELSE 判断吧？ 另外，这个方法如果用在控件的运行期操作的时候，如何屏蔽控件原来的相关事件呢？ 例如，我们都不希望在运行期设计的时候，选择按钮的时候触发了按钮的单击事件吧？ 虽然，我们可以通过之前取消控件的事件，设计之后恢复的方法来实现这一点，但是不 知道是否有更通用一点的方法？ 还有，你提到的代码是否能够给我参考一下？用什么语言写的无所谓，我想看一下原理。

rockjie · 2002-08-08

代码很少，但是可能你们看不大懂，呵呵，其实我也不怎么懂。应该是看的莫名其妙吧[

] 代码在家，我现在在公司，我晚上贴上来！ 这种图形的东西，最好多认识几个做游戏的人就会很清楚了！[

] 还有，我觉得这样的功能和控件的DrawKind属性差不多！你可以看看系统的写法！ 屏蔽事件更简单了，原始的不继承不就可以了！

rockjie · 2002-08-08

看了觉得好一定要给我加分啊！ ////////////////////////////////////////////////////////////////////// //兩個控件對齊需要的偏移量=GetSystemMetrics(SM_CYSIZEFRAME)-1 //x/y方向相同，即FillPanel1.x = DragPanel1.x + GetSystemMetrics(SM_CYSIZEFRAME)-1 unit cDragPanel; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls; type   TDragPanel = class(TPanel)   private     xCount,yCount : Integer;     FFontSize : Integer;     procedure CreateParams(var Params: TCreateParams); override;     procedure CalcFrameSize;   protected     procedure WMSize(var Message: TWMSize); message WM_Size;     Procedure Paint; override; {Drawing the panel}   public     constructor Create(AOwner: TComponent); override;     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;     procedure SetFontSize(FontSize : Integer);   published     { Published declarations }   end;   TFillPanel = class(TPanel)   private     xCount,yCount : Integer;     FFontSize : Integer;     procedure CalcFrameSize;   protected     procedure WMSize(var Message: TWMSize); message WM_Size;     Procedure Paint; override; {Drawing the panel}   public     constructor Create(AOwner: TComponent); override;     procedure SetFontSize(FontSize : Integer);   published     { Published declarations }   end; procedure Register; implementation procedure Register; begin   RegisterComponents('ABMCTRL', [TDragPanel]);   RegisterComponents('ABMCTRL', [TFillPanel]); end; procedure TDragPanel.CalcFrameSize; begin   xCount := (ClientWidth-2) div FFontSize;   yCount := (ClientHeight-2) div FFontSize;   ClientWidth := ClientWidth - (ClientWidth-2) mod FFontSize;   ClientHeight := ClientHeight - (ClientHeight-2) mod FFontSize; end; constructor TDragPanel.Create(AOwner: TComponent); begin   inherited;   xCount := 0;   yCount := 0;   Font.Size := 9;   Canvas.Font.Size := 9;   FFontSize := -Canvas.Font.Height; end; procedure TDragPanel.CreateParams; begin   inherited CreateParams(Params);   with Params do Style := Style or WS_SIZEBOX ; { enable resize } end; procedure TDragPanel.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin   inherited;   ReleaseCapture;   perform(WM_SysCommand, SC_MOVE or 2, 0); { enable move } end; procedure TDragPanel.Paint; var   R   : TRect;   i,j : Integer; begin   inherited;   R := GetClientRect;   with Canvas do   begin     { fill background }     Brush.Color := clWhite;     FillRect(R);     For i:= 0 to yCount-1 do       For j:=0 to xCount-1 do         TextOut(1+j*FFontSize,1+i*FFontSize,'汉');     Brush.Color := clBlack;     FrameRect(R);   end; end; procedure TDragPanel.SetFontSize(FontSize: Integer); begin   FFontSize := FontSize;   CalcFrameSize;   Invalidate; end; procedure TDragPanel.WMSize(var Message: TWMSize); begin   inherited;   CalcFrameSize; end; { TFillPanel } procedure TFillPanel.CalcFrameSize; begin   xCount := (ClientWidth-2) div FFontSize;   yCount := (ClientHeight-2) div FFontSize;   ClientWidth := ClientWidth - (ClientWidth-2) mod FFontSize;   ClientHeight := ClientHeight - (ClientHeight-2) mod FFontSize; end; constructor TFillPanel.Create(AOwner: TComponent); begin   inherited;   xCount := 0;   yCount := 0;   Font.Size := 9;   Canvas.Font.Size := 9;   FFontSize := -Canvas.Font.Height; end; procedure TFillPanel.Paint; var   R   : TRect;   i,j : Integer; begin   inherited;   R := GetClientRect;   with Canvas do   begin     { fill background }     Brush.Color := clWhite;     FillRect(R);     For i:= 0 to yCount-1 do       For j:=0 to xCount-1 do         TextOut(1+j*FFontSize,1+i*FFontSize,'汉');     Brush.Color := clBlack;     FrameRect(R);   end; end; procedure TFillPanel.SetFontSize(FontSize: Integer); begin   FFontSize := FontSize;   CalcFrameSize;   Invalidate; end; procedure TFillPanel.WMSize(var Message: TWMSize); begin   inherited;   CalcFrameSize; end; end.

jsxjd · 2002-08-08

记得 VC 里面用专门的接口实现。

hlsl · 2002-09-22

to rockjie:   老实说，这个方法对我来说并不是很好。 to jsxjd:   还记得是哪个接口吗？

hlsl · 2004-01-10

我找过VS2003/VS2003的 VC ，里面没有这个例子啊。我的朋友也说好象记得VC有这个例子的，帮我找一下如何？我找不到。。。。

^nEWnEW^ · 2004-01-10

关注。。。 这个问题的时间跨度真大呀^_^

hlsl · 2004-01-14

呵呵，不好意思，拖了这么久还没有结．主要是因为我还没有找到一个满意的答案。如果还是没有的话，就结了．

hardware007 · 2004-01-14

快结吧，这问题是有难度

hlsl · 2004-01-14

啊，我知道有难度啊，否则两年时间怎么也弄出来了。谁能告诉我VC里面的例子在哪儿？我怎么也没找到，是否是版本不对？哪个版本里面有啊？

rockjie · 2004-01-15

给你delphi的代码还不够啊！结了算了，用vc做的话还要做成activex呢

Blueman · 2004-01-15

晕，这贴两年还没结啊？ http://www.torry.net/vcl/graphics/other/trectbox.zip 这个例子应该能实现大致功能，但需要修改修改。

hlsl · 2004-01-22

:++ 我也觉得有点夸张了。。。。 结了

请问运行时的大小控制框是怎么做的？就象画笔中的一样？需要API实现方法，不要用VCL。 (200分)

hlsl

Unregistered / Unconfirmed

Pearl.

Unregistered / Unconfirmed

hlsl

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

hlsl

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

hlsl

Unregistered / Unconfirmed

hlsl

Unregistered / Unconfirmed

^nEWnEW^

Unregistered / Unconfirmed

hlsl

Unregistered / Unconfirmed

hardware007

Unregistered / Unconfirmed

hlsl

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

Blueman

Unregistered / Unconfirmed

hlsl

Unregistered / Unconfirmed

Similar threads