home *** CD-ROM | disk | FTP | other *** search
- object ActiveXDlg: TActiveXDlg
- Left = 206
- Top = 117
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsDialog
- Caption = 'Wstawianie obiektu ActiveX'
- ClientHeight = 320
- ClientWidth = 542
- 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 = 476
- Top = 4
- 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 = 476
- Top = 69
- 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 = 476
- Top = 134
- Width = 65
- Height = 65
- Cursor = crHandPoint
- Caption = '&Pomoc'
- Layout = blGlyphTop
- ParentShowHint = False
- ShowHint = False
- Spacing = 5
- OnClick = Przycisk_PomocClick
- end
- object Image2: TImage
- Left = 5
- Top = 10
- Width = 32
- Height = 32
- Hint = 'To narz�dzie s�u�y do '#13#10'wstawiania obiekt�w ActiveX'
- AutoSize = True
- ParentShowHint = False
- Picture.Data = {<image000.ico>}
- ShowHint = True
- Transparent = True
- end
- object Notebook: TPage95Control
- Left = 44
- Top = 4
- Width = 428
- Height = 313
- ActivePage = TAB_Ustaw
- Images = ImagesX
- FlatSeperators = False
- HotTrack = True
- TabInactiveColor = clBtnFace
- TabInactiveFont.Charset = DEFAULT_CHARSET
- TabInactiveFont.Color = clWindowText
- TabInactiveFont.Height = -11
- TabInactiveFont.Name = 'MS Sans Serif'
- TabInactiveFont.Style = []
- TabOrder = 0
- TabStop = False
- UseMSDrawing = True
- object TAB_Ustaw: TTab95Sheet
- Caption = 'Ustawienia'
- GripAlign = gaLeft
- ImageIndex = 0
- StaticPageIndex = -1
- TabVisible = True
- object Label1: TLabel
- Left = 3
- Top = 137
- Width = 22
- Height = 13
- Caption = '&Kod:'
- FocusControl = EDT_Code
- end
- object BTN_Code: TToolbarButton97
- Left = 248
- Top = 133
- Width = 23
- Height = 22
- Cursor = crHandPoint
- Hint = 'Kliknij, aby wybra� lokalizacj� kodu'
- DisplayMode = dmGlyphOnly
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777777777777777777777788888888777777700000000087777700FBFBFBFB
- 0877770F0FBFBFBFB087770BF0FBFBFBFB08770FBF0000000007770BFBFBFBFB
- 0877770FBFBFBFBF077777000000000077777770FBFB07777777777800008777
- 7777777777777777777777777777777777777777777777777777}
- HelpContext = 2093
- Layout = blGlyphTop
- ParentShowHint = False
- ShowHint = True
- OnClick = BTN_CodeClick
- end
- object Label2: TLabel
- Left = 3
- Top = 163
- Width = 29
- Height = 13
- Caption = '&Dane:'
- FocusControl = EDT_Data
- end
- object BTN_Data: TToolbarButton97
- Left = 248
- Top = 159
- Width = 23
- Height = 22
- Cursor = crHandPoint
- Hint = 'Kliknij, aby wybra� lokalizacj� danych'
- DisplayMode = dmGlyphOnly
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777777777777777777777788888888777777700000000087777700FBFBFBFB
- 0877770F0FBFBFBFB087770BF0FBFBFBFB08770FBF0000000007770BFBFBFBFB
- 0877770FBFBFBFBF077777000000000077777770FBFB07777777777800008777
- 7777777777777777777777777777777777777777777777777777}
- HelpContext = 2094
- Layout = blGlyphTop
- ParentShowHint = False
- ShowHint = True
- OnClick = BTN_DataClick
- end
- object Label3: TLabel
- Left = 3
- Top = 190
- Width = 21
- Height = 13
- Caption = '&Typ:'
- FocusControl = EDT_Type
- end
- object Label5: TLabel
- Left = 123
- Top = 190
- Width = 62
- Height = 13
- Caption = '&Wyr�wnanie:'
- FocusControl = Lista_Align
- end
- object Label7: TLabel
- Left = 280
- Top = 138
- Width = 53
- Height = 13
- Caption = '&Szeroko��:'
- FocusControl = Edit1
- end
- object Label8: TLabel
- Left = 280
- Top = 164
- Width = 53
- Height = 13
- Caption = '&Wysoko��:'
- FocusControl = Edit2
- end
- object Label9: TLabel
- Left = 280
- Top = 190
- Width = 60
- Height = 13
- Caption = 'Odst�p po&z.:'
- FocusControl = Edit3
- end
- object Label10: TLabel
- Left = 280
- Top = 217
- Width = 63
- Height = 13
- Caption = 'Odst�p pion.:'
- FocusControl = Edit4
- end
- object Label4: TLabel
- Left = 280
- Top = 243
- Width = 68
- Height = 13
- Caption = 'Obra&mowanie:'
- FocusControl = Edit5
- end
- object Label6: TLabel
- Left = 3
- Top = 217
- Width = 36
- Height = 13
- Caption = '&Nazwa:'
- FocusControl = EDT_Name
- end
- object Label11: TLabel
- Left = 3
- Top = 243
- Width = 21
- Height = 13
- Caption = 'In&fo:'
- FocusControl = EDT_Standby
- end
- object LST_ActiveX: TListView
- Left = 2
- Top = 4
- Width = 320
- Height = 123
- HelpContext = 2090
- ColumnClick = False
- Columns = <
- item
- Caption = 'Lista znalezionych w systemie kontrolek ActiveX'
- Width = 300
- end>
- ReadOnly = True
- GridLines = True
- HideSelection = False
- HotTrack = True
- IconOptions.AutoArrange = True
- IconOptions.WrapText = False
- TabOrder = 0
- ViewStyle = vsReport
- SmallImages = ImagesX
- end
- object GRP_Znacznik: TGroupBox
- Left = 328
- Top = 0
- Width = 87
- Height = 57
- HelpContext = 2091
- Caption = ' Znacznik '
- TabOrder = 1
- object RAD_Object: TRadioButton
- Left = 8
- Top = 17
- Width = 77
- Height = 17
- Caption = '<O&BJECT>'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object RAD_Insert: TRadioButton
- Left = 8
- Top = 35
- Width = 76
- Height = 17
- Caption = '<I&NSERT>'
- TabOrder = 1
- end
- end
- object GRP_Default: TGroupBox
- Left = 328
- Top = 60
- Width = 87
- Height = 59
- HelpContext = 2092
- Caption = ' Domy�lne '
- TabOrder = 2
- object RAD_ClassId: TRadioButton
- Left = 8
- Top = 17
- Width = 64
- Height = 17
- Caption = '&ClassId'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object RAD_ProgId: TRadioButton
- Left = 8
- Top = 35
- Width = 66
- Height = 17
- Caption = 'P&rogID'
- TabOrder = 1
- end
- end
- object EDT_Code: TEdit97
- Left = 43
- Top = 134
- Width = 202
- Height = 19
- HelpContext = 2093
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnDblClick = BTN_CodeClick
- OnEnter = EDT_CodeEnter
- end
- object EDT_Data: TEdit97
- Left = 43
- Top = 160
- Width = 202
- Height = 19
- HelpContext = 2094
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnDblClick = BTN_DataClick
- end
- object EDT_Type: TEdit97
- Left = 43
- Top = 186
- Width = 73
- Height = 19
- HelpContext = 2095
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- end
- object Lista_Align: TComboBox
- Left = 190
- Top = 186
- Width = 82
- Height = 21
- HelpContext = 1414
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'do lewej'
- 'wy�rodkuj'
- 'do prawej'
- 'do g�ry'
- 'do �rodka'
- 'do do�u')
- ParentFont = False
- TabOrder = 6
- end
- object Edit1: TEdit97
- Left = 352
- Top = 134
- Width = 45
- Height = 19
- HelpContext = 1416
- TabOrder = 9
- Text = '80'
- end
- object Spin_Width: TUpDown
- Left = 397
- Top = 134
- Width = 15
- Height = 19
- HelpContext = 1416
- Associate = Edit1
- Min = 0
- Max = 2048
- Increment = 5
- Position = 80
- TabOrder = 10
- Wrap = False
- end
- object Edit2: TEdit97
- Left = 352
- Top = 160
- Width = 45
- Height = 19
- HelpContext = 1417
- TabOrder = 11
- Text = '30'
- end
- object Spin_Height: TUpDown
- Left = 397
- Top = 160
- Width = 15
- Height = 19
- HelpContext = 1417
- Associate = Edit2
- Min = 0
- Max = 2048
- Increment = 5
- Position = 30
- TabOrder = 12
- Wrap = False
- end
- object Edit3: TEdit97
- Left = 352
- Top = 186
- Width = 45
- Height = 19
- HelpContext = 1418
- TabOrder = 13
- Text = '0'
- end
- object Spin_HSpace: TUpDown
- Left = 397
- Top = 186
- Width = 15
- Height = 19
- HelpContext = 1418
- Associate = Edit3
- Min = 0
- Max = 2048
- Position = 0
- TabOrder = 14
- Wrap = False
- end
- object Edit4: TEdit97
- Left = 352
- Top = 213
- Width = 45
- Height = 19
- HelpContext = 1419
- TabOrder = 15
- Text = '0'
- end
- object Spin_VSpace: TUpDown
- Left = 397
- Top = 213
- Width = 15
- Height = 19
- HelpContext = 1419
- Associate = Edit4
- Min = 0
- Max = 2048
- Position = 0
- TabOrder = 16
- Wrap = False
- end
- object CHK_Declare: TCheckBox
- Left = 43
- Top = 265
- Width = 110
- Height = 17
- HelpContext = 2098
- Caption = 'Tylko d&eklaracja'
- TabOrder = 19
- end
- object Edit5: TEdit97
- Left = 352
- Top = 239
- Width = 45
- Height = 19
- HelpContext = 1405
- TabOrder = 17
- Text = '0'
- end
- object SPN_Border: TUpDown
- Left = 397
- Top = 239
- Width = 15
- Height = 19
- HelpContext = 1405
- Associate = Edit5
- Min = 0
- Max = 2048
- Position = 0
- TabOrder = 18
- Wrap = False
- end
- object EDT_Name: TEdit97
- Left = 43
- Top = 213
- Width = 228
- Height = 19
- HelpContext = 2096
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- end
- object EDT_Standby: TEdit97
- Left = 43
- Top = 239
- Width = 228
- Height = 19
- HelpContext = 2097
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 8
- end
- end
- object TAB_Parametry: TTab95Sheet
- Caption = 'Parametry obiektu'
- GripAlign = gaLeft
- ImageIndex = 1
- StaticPageIndex = -1
- TabVisible = True
- object BTN_Wyczysc: TToolbarButton97
- Left = 394
- Top = 27
- Width = 23
- Height = 22
- Cursor = crHandPoint
- Hint = 'Wyczyszczenie listy element�w'
- DisplayMode = dmGlyphOnly
- Glyph.Data = {
- AE000000424DAE0000000000000076000000280000000C000000070000000100
- 0400000000003800000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDD80D
- 000000000DDDDD0800000000DDDDDDD00000000DDDDDDDD0000000D0DDDDDDD0
- 00000DDD00DDDD080000DDDDDD00008D0000}
- Layout = blGlyphTop
- ParentShowHint = False
- ShowHint = True
- OnClick = BTN_WyczyscClick
- end
- object BTN_Dodaj: TToolbarButton97
- Left = 394
- Top = 5
- Width = 23
- Height = 22
- Cursor = crHandPoint
- Hint = 'Dodanie parametru do listy'
- DisplayMode = dmGlyphOnly
- Glyph.Data = {
- C6000000424DC60000000000000076000000280000000A0000000A0000000100
- 0400000000005000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777788877700
- 000077700087770000007770F087770000007880B088880000000000F0000800
- 00000FBFBFBF080000000000F000070000007770B087770000007770F0877700
- 00007770007777000000}
- Layout = blGlyphTop
- ParentShowHint = False
- ShowHint = True
- OnClick = BTN_DodajClick
- end
- object MMO_Params: TMemo
- Left = 4
- Top = 4
- Width = 386
- Height = 269
- HelpContext = 1420
- TabOrder = 0
- WordWrap = False
- end
- end
- end
- object ImagesX: TImageList
- Left = 8
- Top = 44
- end
- end
-