Описание функции

_GUICtrlListView_CopyItems

Копирование пунктов между двумя ListView

#include <GuiListView.au3>
_GUICtrlListView_CopyItems($hWnd_Source, $hWnd_Destination [, $fDelFlag = False])

Параметры

Пример

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
Global $hListView, $hListView2, $GUI1, $GUI2, $run = 1
Global $Dock = 1, $Dock_Location = 1, $x1, $x2, $y1, $y2
Global $OptionsItem2, $OptionsItem3, $OptionsItem4
Global $Options2Item2, $Options2Item3, $Options2Item4

_Main()

Func _Main()
    $run = 1
    Local $OptionsMenu, $OptionsItem1, $Options2Menu, $Options2Item1, $width = 450
    Local $Btn_MoveLeft, $Btn_MoveRight, $Btn_Exit1, $Btn_Exit2
    Local $Btn_CopyRight, $Btn_CopyLeft, $hImage
    Local $exStyles = BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES, $LVS_EX_SUBITEMIMAGES)

    $GUI1 = GUICreate("(Внешний) ListView - Копирование пунктов", $width, 300, 10, 10)
    $OptionsMenu = GUICtrlCreateMenu("Опции")
    $OptionsItem1 = GUICtrlCreateMenu("Пристыковывать", $OptionsMenu)

    $OptionsItem2 = GUICtrlCreateMenuItem("Пристыковывать", $OptionsItem1)
    GUICtrlCreateMenuItem("", $OptionsItem1)
    $OptionsItem3 = GUICtrlCreateMenuItem("Бок о бок", $OptionsItem1)
    $OptionsItem4 = GUICtrlCreateMenuItem("Верх - низ", $OptionsItem1)
    GUICtrlSetState($OptionsItem2, $GUI_CHECKED)
    GUICtrlSetState($OptionsItem3, $GUI_CHECKED)
    GUICtrlSetOnEvent($OptionsItem2, "_SetDocking")
    GUICtrlSetOnEvent($OptionsItem3, "_SetDockSideBySide")
    GUICtrlSetOnEvent($OptionsItem4, "_SetDockTopAndBottom")

    GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
    GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")

    ; need the handle because UDF function(s) are used to create the items
    $hListView = GUICtrlGetHandle(GUICtrlCreateListView("", 2, 2, $width - 100, 268, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE))
    _GUICtrlListView_SetExtendedListViewStyle($hListView, $exStyles)

    $Btn_MoveRight = GUICtrlCreateButton("Переместить", $width - 95, 35, 90, 20)
    GUICtrlSetOnEvent($Btn_MoveRight, "_MoveRight")

    $Btn_CopyRight = GUICtrlCreateButton("Копировать", $width - 95, 60, 90, 20)
    GUICtrlSetOnEvent($Btn_CopyRight, "_CopyRight")

    $Btn_Exit1 = GUICtrlCreateButton("Выход", $width - 95, 140, 90, 25)
    GUICtrlSetOnEvent($Btn_Exit1, "_Exit")

    $GUI2 = GUICreate("Правое/Нижнее окно", $width, 300, $width + 15, 10)

    $Options2Menu = GUICtrlCreateMenu("Опции")
    $Options2Item1 = GUICtrlCreateMenu("Пристыковывать", $Options2Menu)
    $Options2Item2 = GUICtrlCreateMenuItem("Пристыковывать", $Options2Item1)
    GUICtrlCreateMenuItem("", $Options2Item1)
    $Options2Item3 = GUICtrlCreateMenuItem("Бок о бок", $Options2Item1)
    $Options2Item4 = GUICtrlCreateMenuItem("Верх - низ", $Options2Item1)
    GUICtrlSetState($Options2Item2, $GUI_CHECKED)
    GUICtrlSetState($Options2Item3, $GUI_CHECKED)
    GUICtrlSetOnEvent($Options2Item2, "_SetDocking2")
    GUICtrlSetOnEvent($Options2Item3, "_SetDockSideBySide2")
    GUICtrlSetOnEvent($Options2Item4, "_SetDockTopAndBottom2")

    GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
    GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")

    $hListView2 = GUICtrlGetHandle(GUICtrlCreateListView("", 2, 2, $width - 100, 268, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE))
    _GUICtrlListView_SetExtendedListViewStyle($hListView2, $exStyles)

    $Btn_MoveLeft = GUICtrlCreateButton("Переместить", $width - 95, 35, 90, 20)
    GUICtrlSetOnEvent($Btn_MoveLeft, "_MoveLeft")

    $Btn_CopyLeft = GUICtrlCreateButton("Копировать", $width - 95, 60, 90, 20)
    GUICtrlSetOnEvent($Btn_CopyLeft, "_CopyLeft")

    $Btn_Exit2 = GUICtrlCreateButton("Выход", $width - 95, 140, 90, 25)
    GUICtrlSetOnEvent($Btn_Exit2, "_Exit")

    GUISetState(@SW_SHOW, $GUI2)
    GUISetState(@SW_SHOW, $GUI1)

    ; Загружает изображения
    $hImage = _GUIImageList_Create(16, 16, 5, 3)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 13)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 14)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 15)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 16)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 17)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 18)
    _GUICtrlListView_SetImageList($hListView, $hImage, 1)
    _GUICtrlListView_SetImageList($hListView2, $hImage, 1)

    ; Добавляет колонки
    _GUICtrlListView_AddColumn($hListView, "Колонка 1", 120)
    _GUICtrlListView_AddColumn($hListView, "Колонка 2", 100)
    _GUICtrlListView_AddColumn($hListView, "Колонка 3", 100)

    ; Добавляет колонки
    _GUICtrlListView_AddColumn($hListView2, "Колонка 1", 120)
    _GUICtrlListView_AddColumn($hListView2, "Колонка 2", 100)
    _GUICtrlListView_AddColumn($hListView2, "Колонка 3", 100)

    ; Добавляет пункты
    _GUICtrlListView_AddItem($hListView, "Стр 1: Кол 1", 0)
    _GUICtrlListView_AddSubItem($hListView, 0, "Стр 1: Кол 2", 1, 1)
    _GUICtrlListView_AddSubItem($hListView, 0, "Стр 1: Кол 3", 2, 2)
    _GUICtrlListView_AddItem($hListView, "Стр 2: Кол 1", 1)
    _GUICtrlListView_AddSubItem($hListView, 1, "Стр 2: Кол 2", 1, 2)
    _GUICtrlListView_AddItem($hListView, "Стр 3: Кол 1", 2)
    _GUICtrlListView_AddItem($hListView, "Стр 4: Кол 1", 3)
    _GUICtrlListView_AddItem($hListView, "Стр 5: Кол 1", 4)
    _GUICtrlListView_AddSubItem($hListView, 4, "Стр 5: Кол 2", 1, 3)
    _GUICtrlListView_AddItem($hListView, "Стр 6: Кол 1", 5)
    _GUICtrlListView_AddSubItem($hListView, 5, "Стр 6: Кол 2", 1, 4)
    _GUICtrlListView_AddSubItem($hListView, 5, "Стр 6: Кол 3", 2, 3)

    While $run
        If $Dock Then _KeepWindowsDocked()
        Sleep(10)
    WEnd
EndFunc   ;==>_Main

Func _SetDocking()
    If BitAND(GUICtrlRead($OptionsItem2), $GUI_CHECKED) = $GUI_CHECKED Then
        GUICtrlSetState($OptionsItem2, $GUI_UNCHECKED)
        GUICtrlSetState($Options2Item2, $GUI_UNCHECKED)
        $Dock = 0
    Else
        GUICtrlSetState($OptionsItem2, $GUI_CHECKED)
        GUICtrlSetState($Options2Item2, $GUI_CHECKED)
        $Dock = 2
    EndIf
    If $Dock Then _KeepWindowsDocked()
EndFunc   ;==>_SetDocking

Func _SetDocking2()
    If BitAND(GUICtrlRead($Options2Item2), $GUI_CHECKED) = $GUI_CHECKED Then
        GUICtrlSetState($OptionsItem2, $GUI_UNCHECKED)
        GUICtrlSetState($Options2Item2, $GUI_UNCHECKED)
        $Dock = 0
    Else
        GUICtrlSetState($OptionsItem2, $GUI_CHECKED)
        GUICtrlSetState($Options2Item2, $GUI_CHECKED)
        $Dock = 2
    EndIf
    If $Dock Then _KeepWindowsDocked()
EndFunc   ;==>_SetDocking2

Func _SetDockSideBySide()
    If BitAND(GUICtrlRead($OptionsItem3), $GUI_CHECKED) = $GUI_CHECKED Then
        GUICtrlSetState($OptionsItem3, $GUI_UNCHECKED)
        GUICtrlSetState($OptionsItem4, $GUI_CHECKED)
        GUICtrlSetState($Options2Item3, $GUI_UNCHECKED)
        GUICtrlSetState($Options2Item4, $GUI_CHECKED)
        $Dock_Location = 2
    Else
        GUICtrlSetState($OptionsItem3, $GUI_CHECKED)
        GUICtrlSetState($OptionsItem4, $GUI_UNCHECKED)
        GUICtrlSetState($Options2Item3, $GUI_CHECKED)
        GUICtrlSetState($Options2Item4, $GUI_UNCHECKED)
        $Dock_Location = 1
        If $Dock Then $Dock = 2
    EndIf
    If $Dock Then _KeepWindowsDocked()
EndFunc   ;==>_SetDockSideBySide

Func _SetDockSideBySide2()
    If BitAND(GUICtrlRead($Options2Item3), $GUI_CHECKED) = $GUI_CHECKED Then
        GUICtrlSetState($OptionsItem3, $GUI_UNCHECKED)
        GUICtrlSetState($OptionsItem4, $GUI_CHECKED)
        GUICtrlSetState($Options2Item3, $GUI_UNCHECKED)
        GUICtrlSetState($Options2Item4, $GUI_CHECKED)
        $Dock_Location = 2
    Else
        GUICtrlSetState($OptionsItem3, $GUI_CHECKED)
        GUICtrlSetState($OptionsItem4, $GUI_UNCHECKED)
        GUICtrlSetState($Options2Item3, $GUI_CHECKED)
        GUICtrlSetState($Options2Item4, $GUI_UNCHECKED)
        $Dock_Location = 1
        If $Dock Then $Dock = 2
    EndIf
    If $Dock Then _KeepWindowsDocked()
EndFunc   ;==>_SetDockSideBySide2

Func _SetDockTopAndBottom()
    If BitAND(GUICtrlRead($OptionsItem4), $GUI_CHECKED) = $GUI_CHECKED Then
        GUICtrlSetState($OptionsItem4, $GUI_UNCHECKED)
        GUICtrlSetState($OptionsItem3, $GUI_CHECKED)
        GUICtrlSetState($Options2Item4, $GUI_UNCHECKED)
        GUICtrlSetState($Options2Item3, $GUI_CHECKED)
        $Dock_Location = 1
    Else
        GUICtrlSetState($OptionsItem4, $GUI_CHECKED)
        GUICtrlSetState($OptionsItem3, $GUI_UNCHECKED)
        GUICtrlSetState($Options2Item4, $GUI_CHECKED)
        GUICtrlSetState($Options2Item3, $GUI_UNCHECKED)
        $Dock_Location = 2
        If $Dock Then $Dock = 2
    EndIf
    If $Dock Then _KeepWindowsDocked()
EndFunc   ;==>_SetDockTopAndBottom

Func _SetDockTopAndBottom2()
    If BitAND(GUICtrlRead($Options2Item4), $GUI_CHECKED) = $GUI_CHECKED Then
        GUICtrlSetState($OptionsItem4, $GUI_UNCHECKED)
        GUICtrlSetState($OptionsItem3, $GUI_CHECKED)
        GUICtrlSetState($Options2Item4, $GUI_UNCHECKED)
        GUICtrlSetState($Options2Item3, $GUI_CHECKED)
        $Dock_Location = 1
    Else
        GUICtrlSetState($OptionsItem4, $GUI_CHECKED)
        GUICtrlSetState($OptionsItem3, $GUI_UNCHECKED)
        GUICtrlSetState($Options2Item4, $GUI_CHECKED)
        GUICtrlSetState($Options2Item3, $GUI_UNCHECKED)
        $Dock_Location = 2
        If $Dock Then $Dock = 2
    EndIf
    If $Dock Then _KeepWindowsDocked()
EndFunc   ;==>_SetDockTopAndBottom2

Func _KeepWindowsDocked()
    Local $p_win1 = WinGetPos($GUI1)
    Local $p_win2 = WinGetPos($GUI2)
    If $Dock_Location == 1 Then
        If (($p_win1[0] <> $x1 Or $p_win1[1] <> $y1) And BitAND(WinGetState($GUI1), 8) Or $Dock = 2) Then
            $x1 = $p_win1[0]
            $y1 = $p_win1[1]
            $x2 = $p_win1[2] + $x1
            $y2 = $y1
            WinMove($GUI2, "", $x2, $y2)
            $Dock = 1
        ElseIf (($p_win2[0] <> $x2 Or $p_win2[1] <> $y2) And BitAND(WinGetState($GUI2), 8)) Then
            $x2 = $p_win2[0]
            $y2 = $p_win2[1]
            $x1 = $p_win2[0] - $p_win1[2]
            $y1 = $y2
            WinMove($GUI1, "", $x1, $y1)
        EndIf
    Else
        If (($p_win1[0] <> $x1 Or $p_win1[1] <> $y1) And BitAND(WinGetState($GUI1), 8) Or $Dock = 2) Then
            $x1 = $p_win1[0]
            $y1 = $p_win1[1]
            $x2 = $x1
            $y2 = $p_win1[3] + $y1
            WinMove($GUI2, "", $x2, $y2)
            $Dock = 1
        ElseIf (($p_win2[0] <> $x2 Or $p_win2[1] <> $y2) And BitAND(WinGetState($GUI2), 8)) Then
            $x2 = $p_win2[0]
            $y2 = $p_win2[1]
            $x1 = $x2
            $y1 = $p_win2[1] - $p_win1[3]
            WinMove($GUI1, "", $x1, $y1)
        EndIf
    EndIf
EndFunc   ;==>_KeepWindowsDocked

Func _CopyRight()
    _GUICtrlListView_CopyItems($hListView, $hListView2)
EndFunc   ;==>_CopyRight

Func _MoveRight()
    _GUICtrlListView_CopyItems($hListView, $hListView2, 1)
EndFunc   ;==>_MoveRight

Func _CopyLeft()
    _GUICtrlListView_CopyItems($hListView2, $hListView)
EndFunc   ;==>_CopyLeft

Func _MoveLeft()
    _GUICtrlListView_CopyItems($hListView2, $hListView, 1)
EndFunc   ;==>_MoveLeft

Func _Exit()
    $run = 0
    GUIDelete($GUI2)
    GUIDelete($GUI1)
EndFunc   ;==>_Exit

Func SpecialEvents()
    Select
        Case @GUI_CtrlId = $GUI_EVENT_CLOSE
            _Exit()
    EndSelect
EndFunc   ;==>SpecialEvents