#cs ----------------------------------------------------------------------------
   
    AutoIt Version: 3.3.6.1
    Author:        Admin.Haku
                    Yahoo : mactoingaodu2001@yahoo.com.vn
    Công Dụng:
                Hỗ Trợ căn góc siêu cao cho các cao thủ gunny.
    Notes: 
            Khi code có tham khảo mã nguồn từ nhiều nguồn khác nhau.
            Khi code xin hãy ghi rõ nguồn tham khảo.
            Xin hãy tự trọng khi sử dụng mã nguồn.
    #ce ----------------------------------------------------------------------------
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
   
    Global $GUIMinWidth = "150"
    Global $GUIMinHeight = "30"
    Global $MManhinh = 10
    Global $hPen, $hGraphic
    HotKeySet('{F1}','DCGui')
    HotKeySet('{F2}','GUIResizing')
    HotKeySet('{F3}','_1ManHinh')
    HotKeySet('{esc}','MainGUIClose')
   
    Opt("GUICloseOnESC",0)
    Opt("GUIOnEventMode", 1)
    Tray()
    #Region
    $MainGUI = GUICreate("Ruler - Design by Luong The Hai", $GUIMinWidth, $GUIMinHeight, 398, 180, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
    GUISetOnEvent($GUI_EVENT_CLOSE, "MainGUIClose")
    $BG = GUICtrlCreateLabel("", 0, 0, 41, 41)
    #EndRegion
    MainGUIFix()
   
    While 1
        Sleep(1)
    WEnd
   
    Func _1ManHinh()
        Local $GUISize = WinGetPos($MainGUI)
        Local $MousePos = MouseGetPos()
        Local $GUINewWidth = $MousePos[0]-$GUISize[0]; Khoảng cách.
        $MManhinh  =  $GUINewWidth
        WinMove($MainGUI,"",$GUISize[0],$GUISize[1],$MManhinh*3)
        _DrawLine($MManhinh)
    EndFunc
   
    Func _GDIStart()
        _GDIPlus_Startup ()
        $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($MainGUI)
    EndFunc
   
    Func _DrawLine($MManhinh)
        _GDIStart()
        Local $iX1,$iY1, $iX2, $iY2, $d, $a
        $1PhanManHinh=$MManhinh/10
        ; Draw line
        $hPen = _GDIPlus_PenCreate ()
        _GDIPlus_PenSetWidth($hPen, 3)
        _GDIPlus_GraphicsDrawLine($hGraphic, 0, 20, 0, 0, $hPen)
        Do
       
            $iX1=$iX1+$1PhanManHinh    ;Tọa độ đầu của đường kẻ.
            $iY1=10                    ;Độ dài của đường kẻ.
            $iX2=$iX2+$1PhanManHinh    ;Tọa độ cuối của đường kẻ.
            $iY2=0                      ;Góc lệch của đường kẻ.
            $a+=1
            If Mod($a,2) = 0 Then $iY1+=10
            If Mod($a,5)= 0 Then
                _GDIPlus_PenSetWidth($hPen, 3)
            Else
                _GDIPlus_PenSetWidth($hPen, 1)
            EndIf
            _GDIPlus_GraphicsDrawLine($hGraphic, $iX1, $iY1, $iX2, $iY2, $hPen)
            $d=$d+$1PhanManHinh
        Until $d>=$MManhinh*4
        $iX1=0
        $iY1=0
        $iX2=0
        $iY2=0
        $d=0
    EndFunc
   
    ;~ Đóng chương trình
    Func MainGUIClose()
        _EndGDI()
        Exit
    EndFunc
   
    Func _EndGDI()
        ; Clean up resources
        _GDIPlus_PenDispose ($hPen)
        _GDIPlus_GraphicsDispose ($hGraphic)
        _GDIPlus_Shutdown ()
    EndFunc
   
    Func MainGUIFix()
        CreateNumber()
        GUISetState(@SW_SHOW,$MainGUI)
        WinSetTrans($MainGUI,'',150)
    EndFunc
   
    Func Tray()
        Opt('TrayMenuMode',2+1)
        Opt('TrayOnEventMode',1)
        TrayCreateItem('Exit')
        TrayItemSetOnEvent(-1,'MainGuiClose')
        TrayCreateItem('')
        TrayCreateItem('Design by Luong The Hai.')
        TrayItemSetOnEvent(-1,'_design')
        TrayCreateItem('Yahoo :Sky_Finally@yahoo.com.vn')
    EndFunc
   
    Func _design()
        MsgBox(0,'Notes !','Soft có tham khảo mã nguồn từ nhiều nguồn.')
    EndFunc
   
    Func CreateNumber()
        Global $LNumber = GUICtrlCreateLabel(2500,0,55,50,20)
    EndFunc
   
    Func DCGui()
        Local $MousePos = MouseGetPos()
        WinMove($MainGui,'',$MousePos[0],$MousePos[1])
    EndFunc
   
    ;~ Kiểm tra để thay đổi kích thước GUI
    Func GUIResizing()
        Local $GUISize = WinGetPos($MainGUI)
        Local $MousePos = MouseGetPos()
        Local $GUINewWidth = $MousePos[0]-$GUISize[0];+50
   
        If $GUINewWidth<0 Then
            WinMove($MainGUI,'',$MousePos[0],$MousePos[1])
            $GUINewWidth=Abs($GUINewWidth)
        EndIf
   
        MoveNumber($GUINewWidth);-50)
        WinMove($MainGUI,"", Default, Default,$GUINewWidth)
    ;~  WinMove($MainGUI,"",$GUISize[0],$GUISize[1],$GUINewWidth)
        _DrawLine($MManhinh)
        tooltip($GUINewWidth,0,0)
    EndFunc
   
    Func LNumberSet($NewValue = "")
        Local $Check = LNumberGet()
        If $Check <> $NewValue Then
            GUICtrlSetData($LNumber,$NewValue)
        EndIf
    EndFunc
   
    Func LNumberGet()
        Return GUICtrlRead($LNumber)
    EndFunc
   
    Func MoveNumber($Number)
        GUICtrlSetPos($LNumber,$Number,55)
        LNumberSet($Number-50)
    EndFunc