Advertisement
AZJIO

Стили Label и Graphic

Sep 16th, 2011
446
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.48 KB | None | 0 0
  1. #include <GUIConstantsEx.au3>
  2. #include <WindowsConstants.au3>
  3. #include <StaticConstants.au3>
  4.  
  5. $Style='|SS_LEFT |SS_CENTER|SS_RIGHT|SS_CENTERIMAGE|SS_ETCHEDFRAME|SS_ETCHEDHORZ|SS_ETCHEDVERT|SS_GRAYFRAME|SS_GRAYRECT|SS_LEFTNOWORDWRAP|SS_NOPREFIX|SS_NOTIFY|SS_RIGHTJUST|SS_SIMPLE |SS_SUNKEN|SS_WHITEFRAME|SS_WHITERECT|SS_BLACKFRAME|SS_BLACKRECT'
  6. $aStyle=StringSplit($Style, '|')
  7.  
  8. $Text='стандарт|слева|центр|справа|центр для рисунков (по вертикали для текста)|ящик|горизонтальная линия|вертикальная линия|серая кайма|серый фон|текст без авто-переноса|не подчёркивать амперсанд &|уведомление STN_CLICKED |фиксация по правому нижнему углу|в одну строку, игнорирует DISABLE|с углублением|белая кайма|белый фон|тёмная кайма|тёмный фон'
  9. $aText=StringSplit($Text, '|')
  10.  
  11. $Gui = GUICreate("Стили Label и Graphic",  700, 410)
  12. ;GUISetBkColor (0x88dd88)
  13. $l=10
  14. $s=20
  15. $h=17
  16. $w=260
  17.  
  18. For $i = 1 to $aStyle[0]
  19.     GUICtrlCreateLabel($aText[$i] , $l, $s*$i-$s, $w, $h, Eval($aStyle[$i]))
  20.     GUICtrlCreateInput('$'&$aStyle[$i], $l+$w+10, $s*$i-$s, 136, $h+4)
  21.     GUICtrlCreateInput(Eval($aStyle[$i]), $l+$w+145, $s*$i-$s, 40, $h+4)
  22.     GUICtrlCreateLabel($aText[$i] , $l+$w+195, $s*$i-$s, $w-10, $h)
  23. Next
  24.  
  25. GUISetState ()
  26.  
  27. Do
  28. Until GUIGetMsg()=-3
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement