Re-size Rect

[Douglas]

Hi all,

I have uploaded a new class to my site, which can draw resize rects the same
as the ones that windows draws!

This sample uses the focus rect to draw points of inversion at high speed,
no fancy pattern brushes which don't do the job anyway!

Later,
Doug

Site:
welcome.to/hot_n_cold_2000

[ROb]

UPDATE:

http://go.to/hot_n_cold_2000

Later,
Doug

[Phil Weber]

> UPDATE: http://go.to/hot_n_cold_2000

Doug: Your resize rect project requires win.tlb, which is not included in
the .zip file, nor could I find it on your site. I would suggest that you
delete the reference to win.tlb from your project, and add a module
containing the following declares:

Public Type POINTL
x As Long
y As Long
End Type
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTL) As
Long
Public Declare Function DrawFocusRect Lib "user32" (ByVal hDC As Long, _
lpRect As RECT) As Long

---
Phil Weber

[Douglas]

Thanks for the info, and the file is now corrected.

By the way, the *.tbl file is included in the Pack A download....

Thanks,
Doug


Phil Weber <pweber@teleport.com> wrote in message
news:390a81c1$1@news.devx.com...
> > UPDATE: http://go.to/hot_n_cold_2000
>
> Doug: Your resize rect project requires win.tlb, which is not included in
> the .zip file, nor could I find it on your site. I would suggest that you
> delete the reference to win.tlb from your project, and add a module
> containing the following declares:
>
> Public Type POINTL
> x As Long
> y As Long
> End Type
> Public Type RECT
> Left As Long
> Top As Long
> Right As Long
> Bottom As Long
> End Type
> Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As
Long
> Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTL)
As
> Long
> Public Declare Function DrawFocusRect Lib "user32" (ByVal hDC As Long,
_
> lpRect As RECT) As Long
>
> ---
> Phil Weber
>
>