home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 270
- Top = 247
- Width = 587
- Height = 418
- ActiveControl = Html
- Caption = 'Nimet�n1'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -10
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsMDIChild
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poDefault
- Scaled = False
- Visible = True
- OnActivate = FormActivate
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object Html: TColorMemo
- Left = 0
- Top = 0
- Width = 579
- Height = 391
- Align = alClient
- HideSelection = False
- Lines.Strings = (
- '<HTML>'
- '<HEAD>'
- '<TITLE>Sivusi otsikko</TITLE>'
- '<META NAME="generator" CONTENT="ToniArts EasyHtml v.2.2">'
- '</HEAD>'
- '<BODY>'
- ''
- '</BODY>'
- '</HTML>')
- ParentShowHint = False
- PopupMenu = PopupMenu
- ScrollBars = ssVertical
- ShowHint = False
- TabOrder = 0
- WantTabs = True
- OnChange = HtmlChange
- OnClick = HtmlClick
- OnDblClick = HtmlClick
- OnEnter = HtmlClick
- OnExit = HtmlClick
- OnKeyDown = HtmlKeyDown
- OnKeyPress = HtmlKeyPress
- OnKeyUp = HtmlKeyUp
- OnMouseDown = HtmlMouseDown
- OnMouseMove = HtmlMouseMove
- OnMouseUp = HtmlMouseUp
- OnStartDrag = HtmlStartDrag
- OnVScroll = HtmlClick
- OnHScroll = HtmlClick
- OnDraw = HtmlDraw
- ColorRules = <
- item
- ZOrder = 2
- KeyBegEndLst.Strings = (
- '<!--;-->;gray')
- DefKeyColor = clMaroon
- end
- item
- Keywords.Strings = (
- '1'
- '2'
- '3'
- '4'
- '5'
- '6'
- '7'
- '8'
- '9'
- '0')
- KeyDrawingType = dtKeyShow
- PartWord = True
- end
- item
- KeyBegEndLst.Strings = (
- '<;>')
- DefKeyColor = clBlue
- end
- item
- ZOrder = 2
- Keywords.Strings = (
- '<TABLE>;maroon'
- '</TABLE>;maroon'
- '<B>'
- '</B>'
- '<P>'
- '</P>'
- '<U>'
- '</U>'
- '<I>'
- '</I>'
- '<S>'
- '</S>')
- KeyDrawingType = dtKeyShow
- PartWord = True
- end
- item
- ZOrder = 3
- Keywords.Strings = (
- 'BGCOLOR'
- 'COLOR'
- 'WIDTH'
- 'HEIGHT'
- 'SRC'
- 'FACE'
- 'HREF'
- 'USEMAP'
- 'SHAPE'
- 'NAME'
- 'BORDER'
- 'ALT'
- 'COORDS'
- 'TARGET'
- 'CONTENT'
- 'NOHREF')
- KeyDrawingType = dtKeyShow
- DefKeyColor = clFuchsia
- end
- item
- Keywords.Strings = (
- 'JAVA'
- 'JAVASCRIPT'
- 'SCRIPT'
- 'APPLET')
- KeyDrawingType = dtKeyShow
- DefKeyColor = clGreen
- end>
- end
- object PopupMenu: TPopupMenu
- Images = MainForm.ImageList1
- OnPopup = PerusPopUpPopup
- Left = 136
- Top = 192
- object K1: TMenuItem
- Caption = '&Kumoa'
- Enabled = False
- Hint = 'Kumoaa viimeisimm�n teon'
- ImageIndex = 25
- ShortCut = 16474
- OnClick = K1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Leikkaa1: TMenuItem
- Caption = '&Leikkaa'
- Hint = 'Poistaa valitun tekstin ja kopioi sen leikep�yd�lle'
- ImageIndex = 8
- ShortCut = 16472
- OnClick = Leikkaa1Click
- end
- object Kopioi1: TMenuItem
- Caption = 'K&opioi'
- Hint = 'Kopioi valitun tekstin leikep�yd�lle'
- ImageIndex = 7
- ShortCut = 16451
- OnClick = Kopioi1Click
- end
- object Liit1: TMenuItem
- Caption = 'L&iit�'
- Hint = 'Liit� teksti� leikep�yd�lt�'
- ImageIndex = 20
- ShortCut = 16470
- OnClick = Liit1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Valitsekaikki1: TMenuItem
- Caption = '&Valitse kaikki'
- Hint = 'Valitsee kaiken tekstin'
- ImageIndex = 16
- ShortCut = 16449
- OnClick = Valitsekaikki1Click
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object Fontit1: TMenuItem
- Caption = 'Fontit...'
- Hint =
- 'Vaihda fonttia, HUOM! Fontit n�kyv�t vain EasyHtml:ss� ja tulost' +
- 'uksessa!'
- ImageIndex = 44
- OnClick = Fontit1Click
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object Tietoja1: TMenuItem
- Caption = 'Tietoja...'
- Hint = 'Tietoja ohjelmasta'
- ImageIndex = 1
- OnClick = Tietoja1Click
- end
- end
- end
-