object FSelectDlg: TFSelectDlg Left = 239 Top = 139 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsDialog Caption = 'Lista wyboru' ClientHeight = 293 ClientWidth = 379 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnCreate = FormCreate OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Przycisk_OK: TToolbarButton97 Left = 312 Top = 5 Width = 65 Height = 65 Cursor = crHandPoint Caption = '&OK' Layout = blGlyphTop ParentShowHint = False ShowHint = False Spacing = 5 OnClick = Przycisk_OKClick end object Przycisk_Anuluj: TToolbarButton97 Left = 312 Top = 70 Width = 65 Height = 65 Cursor = crHandPoint Caption = '&Anuluj' Layout = blGlyphTop ParentShowHint = False ShowHint = False Spacing = 5 OnClick = Przycisk_AnulujClick end object Przycisk_Pomoc: TToolbarButton97 Left = 312 Top = 135 Width = 65 Height = 65 Cursor = crHandPoint Caption = '&Pomoc' Layout = blGlyphTop ParentShowHint = False ShowHint = False Spacing = 5 OnClick = Przycisk_PomocClick end object Image2: TImage Left = 6 Top = 14 Width = 32 Height = 32 Hint = 'Tym narz�dziem mo�esz utworzy� list� wyboru' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Panel1: TPanel Left = 44 Top = 4 Width = 266 Height = 286 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label1: TLabel Left = 8 Top = 17 Width = 33 Height = 13 Caption = '&Nazwa' FocusControl = Edit_Nazwa end object Label2: TLabel Left = 8 Top = 48 Width = 41 Height = 13 Caption = '&Rozmiar:' FocusControl = Edit1 end object Label3: TLabel Left = 8 Top = 84 Width = 31 Height = 13 Caption = 'Op&cja:' FocusControl = EDT_Elem end object Przycisk_Dodaj: TToolbarButton97 Left = 236 Top = 136 Width = 23 Height = 22 Cursor = crHandPoint Hint = 'Dodanie opcji do listy' DisplayMode = dmGlyphOnly Glyph.Data = { C6000000424DC60000000000000076000000280000000A0000000A0000000100 0400000000005000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777788877700 000077700087770000007770F087770000007880B088880000000000F0000800 00000FBFBFBF080000000000F000070000007770B087770000007770F0877700 00007770007777000000} Layout = blGlyphTop ParentShowHint = False ShowHint = True OnClick = Przycisk_DodajClick end object Przycisk_Usun: TToolbarButton97 Left = 236 Top = 158 Width = 23 Height = 22 Cursor = crHandPoint Hint = 'Usuni�cie opcji z listy' DisplayMode = dmGlyphOnly Glyph.Data = { C6000000424DC60000000000000076000000280000000A0000000A0000000100 0400000000005000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777700 0000777777777700000077777777770000007888888888000000000000000800 00000BFBFBFB0800000000000000070000007777777777000000777777777700 00007777777777000000} Layout = blGlyphTop ParentShowHint = False ShowHint = True OnClick = Przycisk_UsunClick end object Przycisk_Wyczysc: TToolbarButton97 Left = 236 Top = 180 Width = 23 Height = 22 Cursor = crHandPoint Hint = 'Skasowanie listy opcji' DisplayMode = dmGlyphOnly Glyph.Data = { AE000000424DAE0000000000000076000000280000000C000000070000000100 0400000000003800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDD80D 000000000DDDDD0800000000DDDDDDD00000000DDDDDDDD0000000D0DDDDDDD0 00000DDD00DDDD080000DDDDDD00008D0000} Layout = blGlyphTop ParentShowHint = False ShowHint = True OnClick = Przycisk_WyczyscClick end object Bevel1: TBevel Left = 6 Top = 64 Width = 254 Height = 10 Shape = bsBottomLine end object BTN_Sort: TToolbarButton97 Left = 236 Top = 252 Width = 23 Height = 22 Cursor = crHandPoint Hint = 'Sortuj' DisplayMode = dmGlyphOnly Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 0400000000007800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DD000000DDDD D4DDDD00DDD0DDDD848DDDD00DDDDDDD444DDDDD00DDDDD84448DDDDD00DDDD4 4444DD0DDD00DDDDD4DDDD000000DDDDD4DDDDDDDDDDDDDDD4DDDD000D000DDD D4DDDD80DDD08DDDD4DDDDD00000DDDDD4DDDDD80D08DDDDD4DDDDDD000DDDDD D4DDDDDD808DDDDDD4DDDDDDD0DDDDDDD4DD} Layout = blGlyphTop ParentShowHint = False ShowHint = True OnClick = BTN_SortClick end object Bevel2: TBevel Left = 235 Top = 243 Width = 26 Height = 7 Shape = bsBottomLine end object MoveUpButton: TToolbarButton97 Left = 236 Top = 202 Width = 23 Height = 22 Cursor = crHandPoint Hint = 'Przesu� w g�r�' DisplayMode = dmGlyphOnly Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD DDDDDDDDDDDDDD000000DDDDDDD77777DDDDDD000000DDDDDD000007DDDDDD00 0000DDDDDD0FBF07DDDDDD000000DDDDDD0BFB07DDDDDD000000DDDD770FBF07 77DDDD000000DDD0000BFB0000DDDD000000DDDD0FBFBFBF0DDDDD000000DDDD D0FBFBF0DDDDDD000000DDDDDD0FBF0DDDDDDD000000DDDDDDD0F0DDDDDDDD00 0000DDDDDDDD0DDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDD DDDDDD000000DDDDDDDDDDDDDDDDDD000000} Layout = blGlyphTop ParentShowHint = False ShowHint = True OnClick = MoveUpButtonClick end object MoveDownButton: TToolbarButton97 Left = 236 Top = 224 Width = 23 Height = 22 Cursor = crHandPoint Hint = 'Przesu� w d�' DisplayMode = dmGlyphOnly Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD DDDDDDDDDDDDDD000000DDDDDDDD07DDDDDDDD000000DDDDDDD0F07DDDDDDD00 0000DDDDDD0FBF07DDDDDD000000DDDDD0FBFBF07DDDDD000000DDDD0FBFBFBF 07DDDD000000DDD0000BFB0000DDDD000000DDDDDD0FBF07DDDDDD000000DDDD DD0BFB07DDDDDD000000DDDDDD0FBF07DDDDDD000000DDDDDD00000DDDDDDD00 0000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDD DDDDDD000000DDDDDDDDDDDDDDDDDD000000} Layout = blGlyphTop ParentShowHint = False ShowHint = True OnClick = MoveDownButtonClick end object Label4: TLabel Left = 8 Top = 109 Width = 43 Height = 13 Caption = 'War&to��:' FocusControl = EDT_Value end object Edit_Nazwa: TEdit97 Left = 56 Top = 13 Width = 204 Height = 21 HelpContext = 830 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object Check_Multiple: TCheckBox Left = 120 Top = 46 Width = 137 Height = 17 HelpContext = 850 Caption = 'Wybiera&nie wielu' TabOrder = 3 end object Lista_Elementy: TListBox Left = 56 Top = 132 Width = 176 Height = 147 HelpContext = 880 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] IntegralHeight = True ItemHeight = 13 ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 6 OnClick = Lista_ElementyClick OnKeyUp = Lista_ElementyKeyUp end object EDT_Elem: TEdit97 Left = 56 Top = 81 Width = 204 Height = 21 HelpContext = 860 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnKeyDown = EDT_ElemKeyDown end object Edit1: TEdit97 Left = 57 Top = 43 Width = 28 Height = 21 HelpContext = 840 TabOrder = 1 Text = '8' end object Spin_Rozmiar: TUpDown Left = 85 Top = 43 Width = 15 Height = 21 HelpContext = 840 Associate = Edit1 Min = 1 Position = 8 TabOrder = 2 Wrap = False end object EDT_Value: TEdit97 Left = 56 Top = 106 Width = 204 Height = 21 HelpContext = 870 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnKeyDown = EDT_ElemKeyDown end end end