PC World 1999 April

home *** CD-ROM | disk | FTP | other *** search

/ PC World 1999 April / PCWorld_1999-04_cd.bin / Software / TemaCD / HTMLed / EDITOR.EXE / 0 / RCDATA / TMAPFORM / TMAPFORM.txt

Wrap

Text File | 1998-10-11 | 19.5 KB | 610 lines

object MapForm: TMapForm Left = 183 Top = 57 Width = 387 Height = 347 Caption = 'Editor klikovac∩┐╜ch map' Color = clBtnFace Constraints.MinHeight = 321 Constraints.MinWidth = 356 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OldCreateOrder = True Position = poScreenCenter OnHide = FormHide OnPaint = FormPaint OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object PomImage: TImage Left = 256 Top = 6 Width = 20 Height = 20 AutoSize = True Stretch = True Visible = False end object Panel3: TPanel Left = 0 Top = 0 Width = 379 Height = 1 Align = alTop BevelOuter = bvNone Color = clBlack TabOrder = 3 end object ButtonPanel: TPanel Left = 0 Top = 260 Width = 379 Height = 41 Align = alBottom TabOrder = 0 object Label1: TLabel Left = 8 Top = 14 Width = 30 Height = 13 Caption = 'Mapa:' FocusControl = MapCombo end object MapCombo: TComboBox Left = 40 Top = 10 Width = 152 Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] ItemHeight = 13 Sorted = True TabOrder = 0 OnChange = MapComboChange end object OKButton: TButton Left = 207 Top = 8 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'OK' ModalResult = 1 TabOrder = 1 OnClick = OKButtonClick end object CancelButton: TButton Left = 295 Top = 8 Width = 75 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = 'Storno' ModalResult = 2 TabOrder = 2 end end object ScrollBox1: TScrollBox Left = 0 Top = 1 Width = 208 Height = 259 HorzScrollBar.Tracking = True VertScrollBar.Tracking = True Align = alClient BorderStyle = bsNone Ctl3D = True ParentCtl3D = False TabOrder = 1 OnDragDrop = MapImageDragDrop OnDragOver = MapImageDragOver object MapImage: TImage Left = 0 Top = 0 Width = 161 Height = 129 Cursor = crHandPoint AutoSize = True IncrementalDisplay = True OnDragDrop = MapImageDragDrop OnDragOver = MapImageDragOver OnMouseDown = MapImageMouseDown OnMouseMove = MapImageMouseMove end end object ItemPanel: TPanel Left = 208 Top = 1 Width = 171 Height = 259 Align = alRight DragMode = dmAutomatic ParentShowHint = False ShowHint = False TabOrder = 2 object Label3: TLabel Left = 8 Top = 116 Width = 68 Height = 13 Caption = 'Body obrazce:' FocusControl = ShapeText end object Label4: TLabel Left = 8 Top = 155 Width = 68 Height = 13 Caption = 'Jm∩┐╜na oblast∩┐╜:' FocusControl = MapLB end object PointSB: TSpeedButton Left = 8 Top = 39 Width = 25 Height = 25 Hint = 'Editovat' AllowAllUp = True GroupIndex = 1 Down = True Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333FFF3333333333333707333333333333F777F3333333333370 9033333333F33F7737F33333373337090733333337F3F7737733333330037090 73333333377F7737733333333090090733333333373773773333333309999073 333333337F333773333333330999903333333333733337F33333333099999903 33333337F3333F7FF33333309999900733333337333FF7773333330999900333 3333337F3FF7733333333309900333333333337FF77333333333309003333333 333337F773333333333330033333333333333773333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PointSBClick end object DrawSB: TSpeedButton Left = 8 Top = 64 Width = 25 Height = 25 Hint = 'Kreslit' AllowAllUp = True GroupIndex = 1 Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF773333303300000003333337337777777333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = DrawSBClick end object CopyBtn: TSpeedButton Left = 95 Top = 8 Width = 21 Height = 21 Hint = 'Zkop∩┐╜rovat oblast' Flat = True Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333FFFFFFFFFF33333333300000000003333333333888888888 8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBFBFBF0333 33333338F3FFFFFF8F3333333330F888888F033333333338F88888838F333333 3330BFBFBFBF0333333FFFF8F3FFFFFF8F3333000000F888888F033333888888 F88888838F33330FFFF0BFBFBFBF0333338F3338F3FFFFFF8F33330FFFF0F888 888F0333338F3338F88888838F33330F7770BFBFBFBF0333338F3338F333333F 8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333 338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F 777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333 33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003 33333333338FFFFFF88333333333330000000033333333333388888888333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = CopyBtnClick end object PasteBtn: TSpeedButton Left = 116 Top = 8 Width = 21 Height = 21 Hint = 'Vlo∩┐╜it oblast' Flat = True Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333FFFFFFFFF333333333300000000033333333333888888 888F33333333330BFBFBFB03333FFFFFFF8F3FFFFF8F33000000000F88888F03 33888888888F8888838F307F7F7F7F0BFBFBFB0338F33333338F333FFF8F30F7 F7F7F70F77888F0338F33333338FFF88838F307F7F7F74444BFBFB0338F33333 38888F3FFF8F30F7F7F7F7C447888F0338F3333333888F88838F307F7F7F744C 4BFBFB0338F3333338888F333F8F30F7F7F7444F4FFF880338F33333888F8333 8883307F7F74440BFBFB803338F33338888FFFFF883330F7F744470000000333 38F33388838888888333307F7F747F7F0333333338F3333833338F33333330F7 F7F7F7F70333333338F3333333338F333333307F7F7F7F7F0333333338F33FFF FFF38F33333330F7444444F703333333383F888888FF833333333300ECCCC400 33333333338838888888333333333333ECCCC433333333333333388888333333 333333333EEEE333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PasteBtnClick end object NewButton: TSpeedButton Left = 11 Top = 8 Width = 21 Height = 21 Hint = 'Nov∩┐╜ oblast' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003FF0000000F0 000033F77777773777773FFF0CCC0FF09990333F73F37337F33733FFF0C0FFF0 99903333F7373337F337333FFF0FFFF0999033333F73FFF7FFF73333FFF000F0 0000333333F77737777733333F07B70FFFFF3333337F337F33333333330BBB0F FFFF3333337F337F333333333307B70FFFFF33333373FF733F333333333000FF 0FFF3333333777337FF3333333333FF000FF33FFFFF3333777FF300000333300 000F377777F33377777F30EEE0333000000037F337F33777777730EEE0333330 00FF37F337F3333777F330EEE033333000FF37FFF7F3333777F3300000333330 00FF3777773333F77733333333333000033F3333333337777333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = NewButtonClick end object SaveButton: TSpeedButton Left = 32 Top = 8 Width = 21 Height = 21 Hint = 'Ulo∩┐╜it oblast' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555555555555555555555555555555555555555FF55555555555559055555 55555555577FF5555555555599905555555555557777F5555555555599905555 555555557777FF5555555559999905555555555777777F555555559999990555 5555557777777FF5555557990599905555555777757777F55555790555599055 55557775555777FF5555555555599905555555555557777F5555555555559905 555555555555777FF5555555555559905555555555555777FF55555555555579 05555555555555777FF5555555555557905555555555555777FF555555555555 5990555555555555577755555555555555555555555555555555} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SaveButtonClick end object DeleteButton: TSpeedButton Left = 53 Top = 8 Width = 21 Height = 21 Hint = 'Smazat oblast' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033 3333333337FFF7F3333333333000003333333333377777333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = DeleteButtonClick end object RenButton: TSpeedButton Left = 74 Top = 8 Width = 21 Height = 21 Hint = 'P∩┐╜ejmenovat oblast' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0 00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800 F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0 00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0 F033777777777337F73309999990FFF0033377777777FFF77333099999000000 3333777777777777333333399033333333333337773333333333333903333333 3333333773333333333333303333333333333337333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = RenButtonClick end object PasteNewBtn: TSpeedButton Left = 137 Top = 8 Width = 21 Height = 21 Hint = 'Vlo∩┐╜it do nov∩┐╜ oblasti' Flat = True Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333FFFFFFFFF333333333300000900033333333333888888 888F33333333330B9BF9FB93333FFFFFFF88FF8FFF8F33000000000F89898903 33888888888F8F88838F307F7F7F7F0BFB999B0338F33333338F3FFFFF8F30F7 F7F7F7099999999938F333333388888F838F307F7F7F74444B999B0338F33333 38888F88FF8F30F7F7F7F7C44989890338F3333333888F888F8F307F7F7F744C 9BF9FB9338F3333338888F838F8F30F7F7F7444F4FF9880338F33333888F8383 8883307F7F74440BFBFB803338F33338888FFFFF883330F7F744470000000333 38F33388838888888333307F7F747F7F0333333338F3333833338F33333330F7 F7F7F7F70333333338F3333333338F333333307F7F7F7F7F0333333338F33FFF FFF38F33333330F7444444F703333333383F888888FF833333333300ECCCC400 33333333338838888888333333333333ECCCC433333333333333388888333333 333333333EEEE333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PasteNewBtnClick end object MapLB: TListBox Left = 8 Top = 168 Width = 153 Height = 43 Hint = 'Jm∩┐╜na oblast∩┐╜' Anchors = [akLeft, akTop, akBottom] ItemHeight = 13 Items.Strings = ( 'klkkl') ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = MapLBClick OnKeyDown = MapLBKeyDown end object TypeR: TRadioGroup Left = 39 Top = 52 Width = 88 Height = 61 Caption = 'Typ obrazce' Color = clBtnFace ItemIndex = 0 Items.Strings = ( 'Polygon' 'Obd∩┐╜ln∩┐╜k' 'Kruh') ParentColor = False TabOrder = 1 OnClick = TypeRClick end object ShapeText: TEdit Left = 8 Top = 131 Width = 153 Height = 21 Hint = 'Body obrazce' ParentShowHint = False ShowHint = True TabOrder = 5 OnChange = ShapeTextChange end object Panel2: TPanel Left = 1 Top = 215 Width = 169 Height = 43 Align = alBottom BevelOuter = bvLowered TabOrder = 7 object Label2: TLabel Left = 8 Top = 3 Width = 65 Height = 13 Caption = 'HREF oblasti:' end object SpeedButton40: TSpeedButton Left = 144 Top = 17 Width = 20 Height = 21 Hint = 'Naj∩┐╜t soubor' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555555555555555555555555555555 555555555555555555555555555555555555555FFFFFFFFFF555550000000000 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8 B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555 55555575FFF75555555555700007555555555557777555555555555555555555 5555555555555555555555555555555555555555555555555555} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = Label2Click end object RefCB: TComboBox98 Left = 8 Top = 17 Width = 136 Height = 21 ItemHeight = 13 TabOrder = 0 OnChange = RefCBChange Complete = True MinLengthComplete = 0 end end object BarvaP: TPanel Left = 136 Top = 48 Width = 25 Height = 14 Hint = 'V∩┐╜b∩┐╜r barvy kreslen∩┐╜' Color = clRed ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = BarvaPClick end object PW: TSpinEdit Left = 132 Top = 68 Width = 32 Height = 22 Hint = 'Tlou∩┐╜∩┐╜ka ∩┐╜∩┐╜ry kreslen∩┐╜' MaxValue = 9 MinValue = 1 ParentShowHint = False ShowHint = True TabOrder = 2 Value = 1 OnChange = PWChange end object EW: TSpinEdit Left = 132 Top = 91 Width = 32 Height = 22 Hint = 'Tlou∩┐╜∩┐╜ka ∩┐╜∩┐╜ry editace' MaxValue = 9 MinValue = 1 ParentShowHint = False ShowHint = True TabOrder = 3 Value = 1 OnChange = EWChange end object Asa: TCheckBox Left = 46 Top = 35 Width = 100 Height = 13 Hint = 'Automatick∩┐╜ ukl∩┐╜d∩┐╜n∩┐╜ zm∩┐╜n' Caption = 'Auto ukl∩┐╜d∩┐╜n∩┐╜ zm∩┐╜n' Checked = True Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True State = cbChecked TabOrder = 0 end end object Timer1: TTimer OnTimer = Timer1Timer Left = 414 Top = 216 end object FormStorage1: TFormStorage IniSection = '\Software\DRHTML\MapEditor' UseRegistry = True StoredProps.Strings = ( 'ItemPanel.Align' 'BarvaP.Color' 'EW.Value' 'PW.Value' 'Asa.Checked') Left = 208 Top = 8 end object ColoDlg: TColorDialog Ctl3D = True Left = 381 Top = 216 end object MainMenu1: TMainMenu Left = 241 Top = 8 object A1: TMenuItem Caption = 'Oblast' object Newi: TMenuItem Caption = 'Nov∩┐╜' OnClick = NewButtonClick end object Deletei: TMenuItem Caption = 'Smazat' OnClick = DeleteButtonClick end object Renamei: TMenuItem Caption = 'P∩┐╜ejmenovat' OnClick = RenButtonClick end object Savei: TMenuItem Caption = 'Ulo∩┐╜it' OnClick = SaveButtonClick end end object Edit1: TMenuItem Caption = 'Editace' object copyi: TMenuItem Caption = 'Kop∩┐╜rovat oblast' ShortCut = 16451 OnClick = CopyBtnClick end object pastei: TMenuItem Caption = 'Vlo∩┐╜it oblast' ShortCut = 16470 OnClick = PasteBtnClick end object pastenewi: TMenuItem Caption = 'Vlo∩┐╜it do nov∩┐╜ oblasti' ShortCut = 16462 OnClick = PasteNewBtnClick end end end end