home *** CD-ROM | disk | FTP | other *** search
- object ApletDlg: TApletDlg
- Left = 235
- Top = 170
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsDialog
- Caption = 'Wstawienie apletu Java'
- ClientHeight = 257
- ClientWidth = 447
- 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 = 376
- 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 = 376
- 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 = 376
- 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 = 3
- Top = 11
- Width = 32
- Height = 32
- Hint =
- 'To narz�dzie s�u�y do wstawiania'#13#10'na stron� program�w napisanych' +
- ' '#13#10'w j�zyku Java.'
- AutoSize = True
- ParentShowHint = False
- Picture.Data = {<image000.ico>}
- ShowHint = True
- end
- object PGCT_Aplet: TPage95Control
- Left = 40
- Top = 4
- Width = 333
- Height = 249
- ActivePage = TAB_Atrybuty
- Images = ImageList1
- 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_Atrybuty: TTab95Sheet
- Caption = 'Atrybuty apleta'
- GripAlign = gaLeft
- ImageIndex = 0
- StaticPageIndex = -1
- TabVisible = True
- object Label10: TLabel
- Left = 254
- Top = 156
- Width = 60
- Height = 13
- Caption = 'Odst�p p&ion.'
- FocusControl = Edit4
- end
- object Label9: TLabel
- Left = 172
- Top = 156
- Width = 73
- Height = 13
- Caption = 'Odst�p po&ziom.'
- FocusControl = Edit3
- end
- object Label8: TLabel
- Left = 88
- Top = 156
- Width = 50
- Height = 13
- Caption = '&Wysoko��'
- FocusControl = Edit2
- end
- object Label7: TLabel
- Left = 15
- Top = 156
- Width = 50
- Height = 13
- Caption = '&Szeroko��'
- FocusControl = Edit1
- end
- object Label6: TLabel
- Left = 233
- Top = 109
- Width = 21
- Height = 13
- Caption = '&Opis'
- FocusControl = Edit_Alt
- end
- object Label5: TLabel
- Left = 51
- Top = 109
- Width = 59
- Height = 13
- Caption = 'Wyr�w&nanie'
- FocusControl = Lista_Align
- end
- object Label4: TLabel
- Left = 213
- Top = 64
- Width = 57
- Height = 13
- Caption = '&Tytu� apleta'
- FocusControl = Edit_Title
- end
- object Label3: TLabel
- Left = 48
- Top = 65
- Width = 65
- Height = 13
- Caption = '&Nazwa apleta'
- FocusControl = edit_Name
- end
- object Label2: TLabel
- Left = 7
- Top = 41
- Width = 65
- Height = 13
- Caption = '&Bazowy URL:'
- FocusControl = Edit_Basecode
- end
- object Label1: TLabel
- Left = 7
- Top = 9
- Width = 54
- Height = 13
- Caption = '&Kod apleta:'
- FocusControl = Edit_Aplet
- end
- object Przycisk_Aplet_Open: TToolbarButton97
- Left = 294
- Top = 5
- Width = 23
- Height = 22
- Cursor = crHandPoint
- Hint = 'Kliknij, aby wybra� apleta'
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777777777777777777777788888888777777700000000087777700FBFBFBFB
- 0877770F0FBFBFBFB087770BF0FBFBFBFB08770FBF0000000007770BFBFBFBFB
- 0877770FBFBFBFBF077777000000000077777770FBFB07777777777800008777
- 7777777777777777777777777777777777777777777777777777}
- Layout = blGlyphTop
- ParentShowHint = False
- ShowHint = True
- OnClick = Przycisk_Aplet_OpenClick
- end
- object Edit1: TEdit97
- Left = 11
- Top = 172
- Width = 45
- Height = 19
- HelpContext = 1416
- TabOrder = 6
- Text = '600'
- end
- object Spin_Width: TUpDown
- Left = 56
- Top = 172
- Width = 15
- Height = 19
- HelpContext = 1416
- Associate = Edit1
- Min = 0
- Max = 2048
- Increment = 5
- Position = 600
- TabOrder = 7
- Wrap = False
- end
- object Edit2: TEdit97
- Left = 84
- Top = 172
- Width = 45
- Height = 19
- HelpContext = 1417
- TabOrder = 8
- Text = '350'
- end
- object Spin_Height: TUpDown
- Left = 129
- Top = 172
- Width = 15
- Height = 19
- HelpContext = 1417
- Associate = Edit2
- Min = 0
- Max = 2048
- Increment = 5
- Position = 350
- TabOrder = 9
- Wrap = False
- end
- object Edit3: TEdit97
- Left = 178
- Top = 172
- Width = 45
- Height = 19
- HelpContext = 1418
- TabOrder = 10
- Text = '0'
- end
- object Spin_HSpace: TUpDown
- Left = 223
- Top = 172
- Width = 15
- Height = 19
- HelpContext = 1418
- Associate = Edit3
- Min = 0
- Max = 2048
- Position = 0
- TabOrder = 11
- Wrap = False
- end
- object Edit4: TEdit97
- Left = 254
- Top = 172
- Width = 45
- Height = 19
- HelpContext = 1419
- TabOrder = 12
- Text = '0'
- end
- object Spin_VSpace: TUpDown
- Left = 299
- Top = 172
- Width = 15
- Height = 19
- HelpContext = 1419
- Associate = Edit4
- Min = 0
- Max = 2048
- Position = 0
- TabOrder = 13
- Wrap = False
- end
- object Lista_Align: TComboBox
- Left = 6
- Top = 126
- Width = 149
- Height = 21
- Hint = 'Wyr�wnanie apleta w stosunku do otaczaj�cych go element�w'
- 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 = 4
- end
- object Edit_Alt: TEdit97
- Left = 169
- Top = 126
- Width = 149
- Height = 19
- Hint = 'Opis apleta dla przegl�darek bez obs�ugi j�zyka Java'
- HelpContext = 1415
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- end
- object edit_Name: TEdit97
- Left = 6
- Top = 82
- Width = 149
- Height = 19
- Hint = 'Nazwa apleta'
- HelpContext = 1412
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- end
- object Edit_Title: TEdit97
- Left = 169
- Top = 82
- Width = 149
- Height = 19
- Hint = 'Tytu� apleta'
- HelpContext = 1413
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- end
- object Edit_Basecode: TEdit97
- Left = 84
- Top = 37
- Width = 234
- Height = 19
- Hint = 'Bazowy URL apleta - najcz�ciej katalog zawieraj�cy aplety.'
- HelpContext = 1411
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object Edit_Aplet: TEdit97
- Left = 84
- Top = 6
- Width = 207
- Height = 19
- Hint = '�cie�ka dost�pu do kodu apleta'
- HelpContext = 1410
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnDblClick = Przycisk_Aplet_OpenClick
- end
- object CHK_Kopiuj: TCheckBox
- Left = 6
- Top = 200
- Width = 205
- Height = 17
- HelpContext = 1432
- Caption = 'Kopiuj aplet do foldera ze stron�'
- State = cbChecked
- TabOrder = 14
- end
- end
- object TAB_Parametry: TTab95Sheet
- Caption = 'Parametry apleta'
- GripAlign = gaLeft
- ImageIndex = 1
- StaticPageIndex = -1
- TabVisible = True
- object MMO_Params: TMemo
- Left = 0
- Top = 0
- Width = 299
- Height = 220
- HelpContext = 1420
- Align = alClient
- TabOrder = 0
- WordWrap = False
- OnKeyDown = MMO_ParamsKeyDown
- end
- object Panel1: TPanel
- Left = 299
- Top = 0
- Width = 26
- Height = 220
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 1
- object BTN_Wyczysc: TToolbarButton97
- Left = 3
- Top = 25
- Width = 23
- Height = 22
- Cursor = crHandPoint
- Hint = 'Wyczyszczenie listy element�w'
- Glyph.Data = {
- AE000000424DAE0000000000000076000000280000000C000000070000000100
- 0400000000003800000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDD80D
- 000000000DDDDD0800000000DDDDDDD00000000DDDDDDDD0000000D0DDDDDDD0
- 00000DDD00DDDD080000DDDDDD00008D0000}
- Layout = blGlyphTop
- ParentShowHint = False
- ShowHint = True
- OnClick = BTN_WyczyscClick
- end
- object BTN_Dodaj: TToolbarButton97
- Left = 3
- Top = 3
- Width = 23
- Height = 22
- Cursor = crHandPoint
- Hint = 'Dodanie parametru do listy'
- Glyph.Data = {
- C6000000424DC60000000000000076000000280000000A0000000A0000000100
- 0400000000005000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777788877700
- 000077700087770000007770F087770000007880B088880000000000F0000800
- 00000FBFBFBF080000000000F000070000007770B087770000007770F0877700
- 00007770007777000000}
- Layout = blGlyphTop
- ParentShowHint = False
- ShowHint = True
- OnClick = BTN_DodajClick
- end
- end
- end
- object TAB_Aplety: TTab95Sheet
- Caption = 'Dost�pne aplety'
- GripAlign = gaLeft
- ImageIndex = 2
- StaticPageIndex = -1
- TabVisible = True
- object LST_Aplety: TListView
- Left = 0
- Top = 0
- Width = 325
- Height = 220
- HelpContext = 1444
- Align = alClient
- OnClick = LST_ApletyClick
- Columns = <>
- ReadOnly = True
- HotTrack = True
- IconOptions.AutoArrange = True
- MultiSelect = True
- TabOrder = 0
- LargeImages = ImageList2
- SmallImages = ImageList1
- end
- end
- end
- object ImageList1: TImageList
- Left = 4
- Top = 48
- end
- object TS: TTreeScanner
- OnFileFound = TSFileFound
- Recursive = False
- Left = 4
- Top = 76
- end
- object ImageList2: TImageList
- Height = 32
- Width = 32
- Left = 4
- Top = 108
- end
- end
-