Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


morgan1991,
Можно еще так поизвращаться
Код: Выделить весь код
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <Constants.au3>

GUICreate("", 400, 300)
$ListView = GUICtrlCreateListView("", 10, 10, 380, 280, BitOR($LVS_SHOWSELALWAYS, $LVS_REPORT))
$hListView = GUICtrlGetHandle($ListView)
GUISetState()

_GUICtrlListView_AddColumn($hListView, "Column 1", 50)
For $i = 1 To Random(5, 15, 1)
    $sString = ''
    For $j = 1 To Random(5, 25, 1)
        $sString &= Chr(Random(65, 90, 1))
        $sString &= Chr(Random(97, 122, 1))
    Next
    _GUICtrlListView_AddItem($hListView, $sString)
Next
MsgBox(0, '', 'Подгоняем размеры ListView.')

$iItemCount = _GUICtrlListView_GetItemCount($hListView)
Dim $aItem[$iItemCount]
$iLenMax = 0
$j = 0
For $i = 0 To $iItemCount - 1
    $aItem[$i] = _GUICtrlListView_GetItemText($hListView, $i)
    $aItemLen = _GUICtrlListView_GetStringWidth($hListView, $aItem[$i])
    If $aItemLen > $iLenMax Then
        $iLenMax = $aItemLen
    EndIf
Next

_GUICtrlListView_SetColumnWidth($hListView, 0, $iLenMax + 10)
$iY = _GUICtrlListView_ApproximateViewHeight($hListView)
$iLeft = Round((400 - $iLenMax - 20) / 2)
_WinAPI_SetWindowPos($hListView, 0, $iLeft, 10, $iLenMax + 20, $iY, $SWP_NOZORDER)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Отправлено: 04:38, 26-11-2010 | #4