XProfan

DEF SetCursorPos(2)!"User32","SetCursorPos"
DEF CreateCompatibleBitmap(3) !"GDI32","CreateCompatibleBitmap"
Var Area&=150
Var Zoom&=5
Windowstyle 80
Ventana 15,15-Area&+4,Area&+18
CLS 0
Declarar Area_Pic&,farbe&,Lupe_Pos&

Sinestar encargado iskey(27)

    Waitinput 30
    Area_Pic&=CaptureArea(CursorPos("X1",1)-((Area&/Zoom&)/2),CursorPos("Y1",1)-((Area&/Zoom&)/2),(Area&/Zoom&),(Area&/Zoom&))
    StartPaint Area_Pic&
    Line 0,((Area&/Zoom&)/2) - ((Area&/Zoom&)/2),((Area&/Zoom&)/2)
    Line ((Area&/Zoom&)/2)+1,((Area&/Zoom&)/2) - (Area&/Zoom&),((Area&/Zoom&)/2)
    Line ((Area&/Zoom&)/2),0 - ((Area&/Zoom&)/2),((Area&/Zoom&)/2)
    Line ((Area&/Zoom&)/2),((Area&/Zoom&)/2)+1 - ((Area&/Zoom&)/2),(Area&/Zoom&)
    EndPaint
    DrawSizedPic Area_Pic&, 2, 2 - Area&, Area&; 0
    StartPaint 0
    farbe&=GetPixel(CursorPos("X1",1),CursorPos("Y1",1))
    EndPaint
    Color del texto RGB(255,255,255),0
    DrawText 0, Area&+2, Area&, Area&+18, Espacio$(100),0
    DrawText 0, Area&+2, Area&, Area&+18, "px: "+Str$(CursorPos("X1",1))+", "+Str$(CursorPos("Y1",1)), 0
    DrawText 0, Area&+2, Area&, Area&+18, "#"+Hex$(GetRValue(farbe&))+Hex$(GetGValue(farbe&))+Hex$(GetBValue(farbe&)), 2
    deleteobject Area_Pic&

    If HandleHover()=%hwnd

        Lupe_Pos&=Lupe_Pos&+1
        Case Lupe_Pos&=4 : Lupe_Pos&=0
        Case Lupe_Pos&=0 : SetWindowPos %hwnd=15,15 - Area&+4,Area&+18;-1
        Case Lupe_Pos&=1 : SetWindowPos %hwnd=15,(%MaxY-(Area&+15+18)) - Area&+4,Area&+18;-1
        Case Lupe_Pos&=2 : SetWindowPos %hwnd=(%MaxX-(Area&+15+4)),(%MaxY-(Area&+15+18)) - Area&+4,Area&+18;-1
        Case Lupe_Pos&=3 : SetWindowPos %hwnd=(%MaxX-(Area&+15+4)),15 - Area&+4,Area&+18;-1

    EndIf

    Case (Iskey(37) or Iskey(38) or Iskey(39) or Iskey(40)) : SetCursorPos(CursorPos("X1",1)+IF(Iskey(37),-1,If(Iskey(39),1,0)),CursorPos("Y1",1)+IF(Iskey(38),-1,If(Iskey(40),1,0)))

EndWhile

Proc CaptureArea

    Parámetros xpos%,ypos%,maxX!,maxY!
    Var hdc& = Externo("USER32","GetDC",0)
    Var hmdc& = Externo("GDI32","CreateCompatibleDC",hdc&)
    Var hbitmap& = CreateCompatibleBitmap(hdc&,maxX!,maxY!)
    Externo("GDI32","SelectObject",hmdc&, hbitmap&)
    Externo("GDI32","BitBlt",hmdc&, 0, 0, maxX!, maxY!, hdc&, xpos%, ypos%, $0CC0020)
    hbitmap& = Externo("GDI32","GetCurrentObject",hmdc&, 7)
    Externo("GDI32","DeleteDC",hmdc&)
    Externo("USER32","ReleaseDC","USER32","ReleaseDC")
    Volver hbitmap&

ENDPROC

Proc CursorPos

    Parámetros Modus$, global&, hdl&
    Declarar mpos#
    Dim mpos#,8
    Externo("user32","GetCursorPos",mpos#)
    Case global&<>1 : Externo("USER32","ScreenToClient",hdl&,mpos#)
    Case Modus$="X1" : Volver long(mpos#,0)
    Case Modus$="Y1" : Volver long(mpos#,4)
    Case Modus$="X2" : Volver IF(global&=1,%maxx,width(hdl&))-long(mpos#,0)
    Case Modus$="Y2" : Volver IF(global&=1,%maxy,height(hdl&))-long(mpos#,4)
    Disponer mpos#
    Volver 1

ENDPROC

Proc HandleHover

    Declarar mpos#
    Dim mpos#,8
    Externo("user32","GetCursorPos",mpos#)
    Volver Externo("USER32","WindowFromPoint",long(mpos#,0),long(mpos#,4))
    Disponer mpos#

ENDPROC