Mini Kabibi Habibi
� VERSION = 3.00 !Arial, 0, 9, 5, 15, 12, 32, 3, 0
chighlight Pixels Class 1 form
chighlight Hnwidth
nheight
*highlight Highlights a specific region on the screen
��� � � �T % P � q � U m ��C� � ���
� �� ��C� � � �x�� �� T� �C�
�� � � � � �� ��C� � � �� �� U
SETWINDOWLONG THISFORM HWND SETLAYEREDWINDOWATTRIBUTES HREGION
CREATERECTRGN THIS NWIDTH NHEIGHT SETWINDOWRGN� % |�
CreateRectRgn� gdi32����# |� SetWindowRgn� user32���% |�
SetWindowLong� Win32Api���4 |� SetLayeredWindowAttributes� Win32Api����# |�
GetWindowLong� Win32Api�� U
CREATERECTRGN GDI32 SETWINDOWRGN USER32
SETWINDOWLONG WIN32API SETLAYEREDWINDOWATTRIBUTES
GETWINDOWLONG highlight, �� Init ��1 ��q2 R1QA11 ( C � ) � �PROCEDURE highlight
SetWindowLong(ThisForm.HWnd, -20, 0x00080000)
SetLayeredWindowAttributes(ThisForm.HWnd, 0, 120, 2)
*-- Create a region so that we can ditch the titlebar with SetWindowRgn
hRegion = CreateRectRgn(10, 20, This.nWidth, This.nHeight)
SetWindowRgn(ThisForm.hWnd, hRegion, 1)
ENDPROC
PROCEDURE Init
*-- Declares that we'll need later
DECLARE integer CreateRectRgn in gdi32 integer x1 , integer y1 , integer x2 , integer y2
DECLARE integer SetWindowRgn in user32 integer hwnd, integer hRegion , integer bRedraw
DECLARE SetWindowLong In Win32Api Integer, Integer, Integer
DECLARE SetLayeredWindowAttributes In Win32Api Integer, String, Integer, Integer
DECLARE GetWindowLong In Win32Api Integer, Integer
ENDPROC
form !Arial, 0, 9, 5, 15, 12, 32, 3, 0
cborder Pixels Class 1 form cborder form custom chighlighter custom Class Pixels chighlighter 1 Wntop = 0
nleft = 0
nwidth = 0
nheight = 0
nborderwidth = 3
Name = "chighlighter"
�ntop
nleft
nwidth
nheight
nborderwidth
oleft
otop
obottom
oright
*highlight Specifies if the cell with the focus in the Grid control appears selected.
Top = 0
Left = 0
Height = 103
Width = 247
ShowWindow = 2
DoCreate = .T.
BorderStyle = 0
Caption = "Form2"
Visible = .F.
TitleBar = 0
AlwaysOnTop = .T.
BackColor = 255,255,128
ShowInTaskBar = .F.
nwidth = 50
nheight = 50
Name = "chighlight"
��� � � � % � ^ ; � � U � �� � �� � � �. T� �CC� ��� N� � �
� �� � 6�� T� �a�� %�C� � ��� O��� T� �-��* T� � �C� cBorder�
highlight.vcx���* T� � �C� cBorder�
highlight.vcx���* T� � �C� cBorder�
highlight.vcx���* T� � �C� cBorder�
highlight.vcx��� �f� T� � � �-�� T� � � �-�� T� � � �-�� T� � � �-�� � ��� � ���� T�
�� � �� T� �� �
�� T� �� � �� T� �� � �� �� ��� � ��� T�
�� � �� T� �� � �� T� �� � �� T� �� � �� �� ��� � ��|� T�
�� � �� T� �� �
�� T� �� � � � � � �� T� �� � �� �� ��� � ���� T�
�� � � �
� � �� T� �� � �� T� �� � �� T� �� � �� �� %��
���� T� � � ���� T� � � �� �� T� � � ���� T� � � �� �� T� � � ���� T� � � �� �� T� � � ���� T� � � �� �� � T� � � �a�� T� � � �a�� T� � � �a�� T� � � �a�� T� �C��� +�C��
� �
���� � U NTIMEOUT LNTIMEOUT LNSECS LWASVISIBLE THIS OLEFT OTOP ORIGHT OBOTTOM VISIBLE TOP NTOP HEIGHT NHEIGHT LEFT NLEFT WIDTH NBORDERWIDTH NWIDTH TITLEBAR highlight, ��1 q � �� �� ����� A A A �A �A � 11111111A � qA 2 � ) � PROCEDURE highlight
LPARAMETERS nTimeout
LOCAL lnTimeout,lnSecs,lWasVisible
lnTimeout = IIF(VARTYPE(nTimeout)#"N" OR nTimeout<0,1,nTimeout)
lWasVisible=.T.
IF VARTYPE(THIS.oLeft)#"O"
lWasVisible = .F.
THIS.oLeft = NEWOBJECT("cBorder","highlight.vcx")
THIS.oTop = NEWOBJECT("cBorder","highlight.vcx")
THIS.oRight = NEWOBJECT("cBorder","highlight.vcx")
THIS.oBottom = NEWOBJECT("cBorder","highlight.vcx")
ELSE
THIS.oLeft.Visible = .F.
THIS.oTop.Visible = .F.
THIS.oRight.Visible = .F.
THIS.oBottom.Visible = .F.
ENDIF
WITH THIS.oLeft
.Top = This.ntop
.Height = This.nHeight
.Left = This.nLeft
.Width = This.nborderwidth
ENDWITH
WITH THIS.oTop
.Top = This.ntop
.Height = This.nborderwidth
.Left = This.nLeft
.Width = This.nwidth
ENDWITH
WITH THIS.oRight
.Top = This.nTop
.Height = This.nHeight
.Left = This.nleft + This.nwidth - This.nborderwidth
.Width = This.nborderwidth
ENDWITH
WITH THIS.oBottom
.Top = This.ntop + This.nheight - This.nborderwidth
.Height = This.nborderwidth
.Left = This.nleft
.Width = This.nwidth
ENDWITH
IF !lWasVisible
THIS.oLeft.TitleBar = 1
THIS.oLeft.TitleBar = 0
THIS.oTop.TitleBar = 1
THIS.oTop.TitleBar = 0
THIS.oRight.TitleBar = 1
THIS.oRight.TitleBar = 0
THIS.oBottom.TitleBar = 1
THIS.oBottom.TitleBar = 0
ENDIF
THIS.oLeft.Visible = .t.
THIS.oTop.Visible = .t.
THIS.oRight.Visible = .t.
THIS.oBottom.Visible = .t.
lnSecs = SECONDS()
DO WHILE SECONDS()-m.lnSecs < nTimeout
ENDDO
ENDPROC
�Top = 0
Left = 0
Height = 72
Width = 336
ShowWindow = 2
ShowInTaskBar = .F.
DoCreate = .T.
BorderStyle = 0
Caption = "frmHilite"
Visible = .F.
TitleBar = 0
AlwaysOnTop = .T.
BackColor = 255,255,128
Name = "cborder"