RealBasic에서 화면 돋보기를 쓸 수 있습니까?

Question

RealBasic에서 화면 돋보기를 만들고 싶지만 내 창에 렌더링 할 수있는 화면 영역을 읽는 데 필요한 클래스 나 API가 표시되지 않습니다.

뭐라 구요?

사이드 질문 : 전체 영역을 읽을 수없는 경우 커서 아래에서 픽셀의 색상을 읽는 eye-dropper 도구를 시뮬레이션하기 위해 적어도 픽셀 단위로 읽을 수 있습니까?

Answer 1

는 돋보기와 스포이드 모두 Realbasic와 함께 할 수있는 여러 가지 방법이 있습니다 (뻔뻔한 플러그 :. 내가 얼마 전에 eyedropper in RealBasic을 썼다) 그것은 매우 간단합니다, 바로 사용 System.Pixel 함수를 호출 System.MouseX 및 System.MouseY을 매개 변수로 사용합니다. System.Pixel은 지정한 화면 좌표에있는 픽셀의 색에 해당하는 색을 반환합니다. 당신이 (명백하게) 그림 개체 또는 캔버스 컨트롤에 그려 큰 규모의 색상을 표시 할 수 있습니다이 색상 정보와

(스포이드로.)

이 방법은 같은 것을 사용할 수 있습니다 돋보기,하지만 아마해서는 안됩니다. RealBasic에서 픽셀 단위로 그리는 작업은 매우 느려질 수 있습니다. 돋보기와 같은 실시간 작업으로 인해 성능 문제와 깜박임이 발생할 수 있습니다.

Windows의 경우 Mac OS X 및 GTK +에서는 화면 영역을 캡처하고 스크린 샷에 유용하며 다양한 표준 알고리즘을 사용하여 비트 맵 이미지를 조작 할 수있는 API 함수가 있습니다.

Function GetZoomedPic() As Picture 
    Declare Function GetDesktopWindow Lib "User32"() As Integer 
    Declare Function GetDC Lib "User32" (HWND As Integer) As Integer 
    Declare Function StretchBlt Lib "GDI32" (destDC As Integer, destX As Integer, destY As Integer, destWidth As Integer, destHeight As Integer, _ 
    sourceDC As Integer, sourceX As Integer, sourceY As Integer, sourceWidth As Integer, sourceHeight As Integer, rasterOp As Integer) As Boolean 
    Declare Function ReleaseDC Lib "User32" (HWND As Integer, DC As Integer) As Integer 

    Const CAPTUREBLT = &h40000000 
    Const SRCCOPY = &HCC0020 
    Dim coordx, coordy As Integer 
    Dim magnifyLvl As Integer = 3 
    Dim screenCap As New Picture(800, 600, 32) 
    coordx = System.MouseX - (screenCap.Width \ (magnifyLvl * 2)) 
    coordy = System.Mousey - (screenCap.Height \ (magnifyLvl * 2)) 
    Dim rectWidth, rectHeight As Integer 
    rectWidth = screenCap.Width \ magnifyLvl 
    rectHeight = screenCap.Height \ magnifyLvl 

    Dim deskHWND As Integer = GetDesktopWindow() 
    Dim deskHDC As Integer = GetDC(deskHWND) 
    Call StretchBlt(screenCap.Graphics.Handle(1), 0, 0, screenCap.Width, screenCap.Height, DeskHDC, coordx, coordy, rectWidth, _ 
    rectHeight, SRCCOPY Or CAPTUREBLT) 
    Call ReleaseDC(DeskHWND, deskHDC) 

    Return screenCap 
End Function 

내가 쓴 동시에 주위 : 여기

는 Windows API를 호출하는 간단한 기능, 화면의 800 × 600 일부를 캡처 3하여 확대하고, 그림 개체로 복사하는 것입니다 스포이드, 나는 또한 기본적인 돋보기 프로젝트를 썼다. here 프로젝트 파일을 다운로드 할 수 있습니다. 위의 기능을 보여주는 것 외에도 Flickering없이 Canvas에 그리는 기본 데모로 사용할 수 있으며 Windows GDI 장치 컨텍스트에서 RealBasic Picture 개체를 사용하고 스레드를 사용하여 주 스레드에서 작업을 오프로드 할 수 있습니다.

Answer 2

이 주제에 대한 실제 소프트웨어 포럼에서이 스레드를 살펴보십시오. 시도 할 수있는 여러 가지 솔루션이있는 것처럼 보입니다.

http://forums.realsoftware.com/viewtopic.php?f=10&t=7818&hilit=screen+magnifier