...
Hoffe das hilft dir etwas weiter
The DrawFocusRect function draws a rectangle in the style used to indicate that the rectangle has the focus.
BOOL DrawFocusRect(
HDC hDC, // handle to device context
CONST RECT *lprc // pointer to structure for rectangle
);
Parameters
hDC
Identifies the device context.
lprc
Points to a RECT structure that specifies the logical coordinates of the rectangle.
Return Values
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.
Remarks
Because DrawFocusRect is an XOR function, calling it a second time with the same rectangle removes the rectangle from the screen.
This function draws a rectangle that cannot be scrolled. To scroll an area containing a rectangle drawn by this function, call DrawFocusRect to remove the rectangle from the screen, scroll the area, and then call DrawFocusRect again to draw the rectangle in the new position.
See Also
FrameRect, RECT
Code: Alles auswählen
HDC=GetDC_(hwnd)
Code: Alles auswählen
hwnd=OpenWindow(1,200,200,300,300,#PB_Window_SystemMenu | #PB_Window_SizeGadget,"TEST")
Repeat
Event=WaitWindowEvent()
HDC=GetDC_(hwnd)
DrawFocusRect_(HDC,RECT)
Until Event=#PB_Event_CloseWindow
Code: Alles auswählen
If OpenWindow(0, 100, 200, 640,480,#PB_Window_SystemMenu|#PB_Window_WindowCentered , "PureBasic DrawFocusRect-Demo")
hdc = GetDC_(WindowID(0))
SetRect_(R.RECT,20,20,620,440)
DrawFocusRect_(hdc,R)
Repeat
DrawFocusRect_(hdc,R)
Select Dir
Case 0
R\top+2
R\bottom-2
R\left+2
R\right-2
If R\top>220
Dir =1
EndIf
Case 1
R\top-2
R\bottom+2
R\left -2
R\right+2
If R\top<20
Dir =0
EndIf
EndSelect
DrawFocusRect_(hdc,R)
If WindowEvent() = #PB_Event_CloseWindow ; If the user has pressed on the close button
Quit = 1
EndIf
Delay(10)
Until Quit = 1
EndIf
End